원의 중심선긋는 리습인데요 평소에는 잘 작동하다가 “UCS (원점좌표이동)
명령을 한번 작동하고 나면 원의 중심선이 원에서 멀리 달아나 버림니다.
도움을 주십시요…
(defun c:CN()
(setvar “cmdecho” 0)(setvar “osmode” 0)
(setq ent (entget (car (entsel “nselect circle :”)))
cen (cdr (assoc 10 ent))
rad (cdr (assoc 40 ent))
siz (getvar “dimscale”)
dist (* 2 siz)
val0 (* rad 1.2)
val (+ VAL0 DIST)
p1 (list (- (car cen) val) (cadr cen))
p2 (list (+ (car cen) val) (cadr cen))
p3 (list (car cen) (+ (cadr cen) val))
p4 (list (car cen) (- (cadr cen) val)))
(command “LAYER” “ON” “1” “s” “1” “” “line” p1 p2 “” “line” p3 p4 “”) (princ))