;원에 중심선 삽입
(defun c:CL() (setvar “cmdecho” 0)(setvar “osmode” 0)(setvar “orthomode” 1)
(setq ent (entget (car (entsel “nSelect circle :”))))
(setq cen (cdr (assoc 10 ent)))
(setq rad (cdr (assoc 40 ent)))
(setq val (* rad 1.20))
(setq pnt1 (list (- (car cen) val) (cadr cen)))
(setq pnt2 (list (+ (car cen) val) (cadr cen)))
(setq pnt3 (list (car cen) (+ (cadr cen) val)))
(setq pnt4 (list (car cen) (- (cadr cen) val)))
(command “layer” “t” “CL” “”)
(command “layer” “s” “CL” “”)
(command “line” pnt1 pnt2 “”)
(command “line” pnt3 pnt4 “”)
(command “layer” “s” “0” “”)
(princ))
————————————————————————————
고수님들 부탁드려요~