원을 선택하면 밀핀 스타일로 변경해주는 리습인데요
중심센타 십자선이 나왔으면 합니다
해칭색상 해칭선 스타일 과 동일하게 적용하면 됩니다
십자선(+)이 없으니 왠지 허전하네요
부탁드립니다 ~~
;; 밀핀마크를 해칭스탈일로 작성
(defun C:EM (/ CMDECHO CLAYER OSMODE BLIPMODE GRIDMODE HIGHLIGHT
EPlayer EPcolor EMcolor EMangle
sset ent CEN RAD P1 P2 P3 P4 SSN SP)
;; 사용자의 환경에 맞게 값을 변경하여 사용할 수 있습니다.
;; ======================================================
(setq EPlayer “EP”) ;; 밀핀 레이어로 사용할 이름
(setq EPcolor 73) ;; 밀핀 외곽의 색상
(setq EMcolor 53) ;; 밀핀 해칭의 색상
(setq EMangle 45) ;; 밀핀 해칭의 기울기 각도
;; ======================================================
(setq CMDECHO (getvar “CMDECHO”))
(setq CLAYER (getvar “CLAYER”))
(setq OSMODE (getvar “OSMODE”))
(setq BLIPMODE (getvar “BLIPMODE”))
(setq GRIDMODE (getvar “GRIDMODE”))
(setq HIGHLIGHT (getvar “HIGHLIGHT”))
(setvar “CMDECHO” 0)
(command “UNDO” “BEgin”)
(setvar “GRIDMODE” 0)
(setvar “OSMODE” 0)
(setvar “BLIPMODE” 0)
(setvar “HIGHLIGHT” 0)
(command “UCS” “W”)
(command “-LAYER” “M” EPlayer “”)
(setq sset (ssget (list (cons 0 “CIRCLE”))))
(if (/= sset nil)
(progn
(setq cnt (sslength sset))
(setq index 0)
(repeat cnt
(setq ent (ssname sset index))
(command “ucs” “e” ent)
(setq CEN (trans (cdr (assoc 10 (entget ent))) ent 1))
(setq RAD (cdr (assoc 40 (entget ent))))
(setq P1 (list (+ (car CEN) RAD) (cadr CEN)))
(setq P2 (list (car CEN)(+ (cadr CEN) RAD)))
(setq P3 (list (car CEN) (- (cadr CEN) RAD)))
(setq P4 (list (- (car CEN) RAD) (cadr CEN)))
(if (< RAD 3.0) (setq sp 0.1))
(if (>= RAD 3.0) (setq sp (* rad 0.15)))
(command “pline” CEN P1 “A” “CE” CEN P2 “L” P3 “A” “CE” CEN “A” -90 “L” “C”)
(setq ssn (entlast))
(command “HATCH” “U” EMangle sp “” ssn “”)
(command “CHANGE” “L” “” “P” “LA” EPlayer “C” EMcolor “”) ;; EP MARK
(command “CHANGE” ent “” “P” “LA” EPlayer “C” EPcolor “”) ;; CIRCLE
(entdel ssn)
(command “UCS” “W”)
(setq index (1+ index))
) ;; repeat
) ;; progn
) ;; if
(setvar “CLAYER” CLAYER)
(setvar “BLIPMODE” BLIPMODE)
(setvar “OSMODE” OSMODE)
(setvar “GRIDMODE” GRIDMODE)
(setvar “HIGHLIGHT” HIGHLIGHT)
(command “UNDO” “End”)
(setvar “CMDECHO” CMDECHO)
(princ)
)