Re:안녕하세요!!! 원을 폴리라인으로 바꾸는 리습 수정 좀 부탁드리겠습니다...

[행복한하루]

;http://cafe.daum.net/archimore
;수정-행복한하루

(defun c:cpl(/ cl ss k en ed lay ctr dia)
  (setq        cl (getvar "clayer"))
  (princ "\nConverts a circle into a polyline entity")
  (princ "\nSelect circle to convert: ")
  (setq ss (ssget (list (cons 0 "circle"))))
  (setq k 0)
  (repeat (sslength ss)
   (setq en (ssname ss k))
   (setq ed (entget en))
   (setq lay (cdr (assoc 8 ed))
         ctr (cdr (assoc 10 ed))
         dia (* 2 (cdr (assoc 40 ed)))
   )
   (setvar "clayer" lay)
   (command "._donut" dia dia ctr "")
   (entdel en)
   (setq k (1+ k))
  )
  (setvar "clayer" cl)
  (princ)
)

cpl(원을pline으로).lsp

첨부파일첨부된 파일이 1개 있습니다.

• etc 파일 cpl(원을pline으로).lsp

[행복한하루]

(defun c:cpl... 여기서 c:cpl 이 명령어 입니다...다음부턴 이걸 변경하시면 됩니다.

[이긴데요]

자료감사~