원 중심 마크 그리기

[주왕]

Z-CMK원중심마크.lsp

1.51KB

;****************원 중심 마크 그리기*****************;
;2024.03.15              [주왕]
;명령어:CMK
;*******************************************************;
(defun c:CMK(/ os ss k ent elist cenp rad p1 p2 p3 p4 exrad1 line_color) 
  (defun *error* (msg)(princ "error: ")(princ msg)
(princ))
(prompt "\n--->>> 원 중심마크 그리기 <<<---")
  (setvar "cmdecho" 0)
(setq col (getvar "cecolor")) ;;;;현재의 칼라 기억
  (setq os (getvar "osmode")) ;;;;현재의 오스냅모드 기억
 ;; (getvar "orthomode") ;현재의 직교모드를 기억
  (setq ss (ssget '((0 . "circle,arc"))))
  (command "change" ss "" "p" "c" "6" "") 
  (setq k 0)
  (command "undo" "be")
  (command "PDMODE" "0")
  (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 exrad1 (* 3.0 0.5));;;3.0길이 0.5중심에 반 크기는 수정사용 
    (setq p1 (list (+ (car cenp) exrad1) (cadr cenp)))
    (setq p2 (list (- (car cenp) exrad1) (cadr cenp)))
    (setq p3 (list (car cenp) (+ (cadr cenp) exrad1)))
    (setq p4 (list (car cenp) (- (cadr cenp) exrad1)))
    (setq line_color 1)
    (command "color" line_color)
    (command "line" p1 p2 "") 
    (command "line" p3 p4 "") 
    (setq k (1+ k))
  )
(command "undo" "e")
(setvar "cecolor" col) 
(setvar "osmode" osm) 
;;(setvar "orthomode" ort) 
(setvar "cmdecho" ocmde)
  (princ)
)