일단 제가 쓰는 LISP 구문입니다.
(defun c:CC ()
(defun dtr (a)
(* pi (/ a 180.0))
)
(setvar “cmdecho” 0)
(setq osm (getvar “osmode”))
(setvar “osmode” 0)
(prompt “n “)
(prompt “n** CENTER LINE **”)
(setq e (entsel “nSelect the circle: “))
(setq et1 (entget (car e)))
(setq r1 (assoc 40 et1))
;;
(setq s1 (cdr (assoc 10 et1)))
(setq r (getdist s1 “nPick the centerline endpoint: “))
(setq l1 (polar s1 (dtr 180) r)
l2 (polar s1 0 r)
l3 (polar s1 (dtr 90) r)
l4 (polar s1 (dtr -90) r)
)
(command “line” l1 l2 “”)
(setq t1 (entlast))
(command “line” l3 l4 “”)
(setq t2 (entlast))
(command “chprop” t1 t2 “” “lt” “center” “c” “1” “”)
(setvar “osmode” osm)
(setvar “cmdecho” 1)
)
=======================================
이리저리 검색을 해보니, 어떤 구문을 넣으면 된다는데
몇번을 시도해도 안되서 올립니다.
어떤 명령어를 어디에 넣어야하는지 좀 부탁드려요~^^;;