(defun c:xxx()
(vl-load-com)
(setq acadObject (vlax-get-acad-object))
(setq acadDocument (vla-get-ActiveDocument acadObject))
(setq mSpace (vla-get-ModelSpace acadDocument))
(setq ent_a10 (getpoint “n시작포인트:”)
ent_a11 (getpoint ent_a10 “n끝포인트:”))
(setq LineObj (vla-addLine mSpace (vlax-3d-point ent_a10)(vlax-3d-point ent_a11)))
(vla-put-color LineObj 3)
)
;위 내용은 두점을 받아 라인을 그리느 프로그램 입니다.
;오토캐드 command를 쓰지않고 위와같은 방법(VisualLisp)으로 fillet 프로그램을 만들려고 합니다.
;아시는분은 가르켜주시면 감사하겠습니다.
;아래는 command를 사용해서 fillet한 방법 입니다.
;이방법 말고 위와 같은 방법을 알고 싶습니다.
(defun c:zzz()
(setq s1(entsel “nselect 1 :”)) ;라인선택1
(setq s2(entsel “nselect 2 :”)) ;라인선택2
(command “fillet” “r” 5 “”)
(command “fillet” s1 s2)
)
;VisualLisp로 필렛하는 방법좀 부탁합니다