(defun c:ce(/ os ss k ent elist cenp rad p1 p2 p3 p4 dam ext la)
;->*error* start
 (defun *error* (msg)(princ “error: “)(princ msg)
 (setvar “clayer” la) (setvar “osmode” os)
 (princ))
;-<*error* end
  (setvar “cmdecho” 0)
  
  (setq os (getvar “osmode”))  
  (setq ss (ssget ‘((0 . “circle,arc”))))  
  (setq k 0)  
  (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 dam (* 2 rad)
         ext (+ (* dam 0.1) rad)) 
   (setq p1 (polar cenp pi ext)
         p2 (polar cenp 0 ext)   
         p3 (polar cenp (/ pi 2) ext)
         p4 (polar cenp (+ (/ pi 2) pi) ext)
   );setq
  
   (command “line” p1 p2 “”)
   (command “line” p3 p4 “”)
   (setq k (1+ k))
  );repeat
   (command “undo” “e”)
  
   (setvar “osmode” os)
(princ)

고수님들 원형에 중심선 넣는 리습인데요…
색상를 빨강색과 센터선으로 수정좀 해주세요…..
그리고 혹시나 사각모양 중심선 넣는 리습있으시면 염치불구하고
부탁드립니다…..행복한 하루되세요.

 고수님들 핀홀 드릴 깊이 넣는 리습인데요
평면상 홀 기입은 중심선이 center 선으로 바꾸고싶구요.
측면도 깊이 그림은 아예 안되요
고수님들 보고 수정 부탁드립니다…….