(defun c:ce(/ os ss k ent elist cenp rad p1 p2 p3 p4 exrad1)
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os) (setvar “clayer” la)
(princ))
;-<*error* end
(setvar “cmdecho” 0)
(setq os (getvar “osmode”)
la (getvar “clayer”)
dc (getvar “dimcen”)
ds (getvar “dimscale”))
(setq tb1 (tblsearch “LAYER” “center”)) (if (= tb1 nil)
(command “layer” “m” “center” “c” 1 “center” “lt” “center” “center” “”) )
(setq ss (ssget ‘((0 . “circle,arc”))))
(setq k 0)
(if (not exrad) (setq exrad (* dc ds)))
(setq exrad1 (getreal (strcat “n중심표식 외경에서의 길이<” (rtos exrad) “>:”)))
(if exrad1 (setq exrad exrad1))
(setvar “osmode” 0)
(command “undo” “be”)
(repeat (sslength ss)
(setq ent (ssname ss k))
(setq elist (entget ent))
(setq cenp (cdr (assoc 10 elist)))
(setq rad (cdr (assoc 40 elist)))
(setq p1 (polar cenp pi (+ rad exrad))
p2 (polar cenp 0 (+ rad exrad))
p3 (polar cenp (/ pi 2) (+ rad exrad))
p4 (polar cenp (+ (/ pi 2) pi) (+ rad exrad))
);setq
(command “line” p1 p2 “”)
(command “line” p3 p4 “”)
(setq k (1+ k))
);repeat
(command “undo” “e”)
(setvar “clayer” la)
(setvar “osmode” os)
(princ)
);defun
제가 사용하는 리습인데요..
레이어가 안바껴요..ㅜ.ㅜ
그것도 문제지만.. 되도록 레이어는 바꾸지 않고
선색상을 빨간색으로, 그리고 선종류를 CENTER로
바뀌게 하는 방법은 없나요?
지금 상태는 레이어나 선색상 이런거 하나도 안바뀌구요
선만 잘 나옵니다..ㅜㅜ
공유