엔지니어 기술블로그

(defun c:Chamf(/ os diz cl #dt s1 cb1 cf1 dis1 len1 len2 p1 p2 #df j jj j1 jj1)
   (setvar "osmode" 165)
   (setq os (getvar "osmode"))
   (setq diz (getvar "dimzin"))
   (setvar "clayer" "0") (setvar "cecolor" "256")
   (setvar "dimtvp" 0.8)
   (setq cl (getvar "cecolor"))
   (setq #dt (getvar "dimtvp"))
   (setvar "orthomode"0) (setvar "dimzin" 8)
   (setvar "dimtad" 0)    (setvar "DIMtvp" 0)
   (setvar "cecolor" "7") (setvar "osmode"0)
   (princ "nDim: Chamfer")(terpri)
   (setq s1 (entsel "nSelect chamfer line: "))
   (if s1 (progn
      (redraw (car s1) 3)
      (setq cb1 (cdr (assoc 10 (entget (car s1))))
            cf1 (cdr (assoc 11 (entget (car s1))))
           dis1 (distance cb1 cf1)
           len1 (* dis1 (cos (/ pi 4)))
             p1 (cadr s1))
      (setq p2 (getpoint p1 "nEnter leader length for text: ") )
      (redraw (car s1) 4)
      (if p2 (progn
         (setq #df (getvar "dimlfac"))
         (setq len1 (* #df len1))
         (setq len2 (getreal (strcat "nDimension text <C" (rtos len1 2 2) ">:")))
         (if (= len2 nil) (setq len2 len1))
         (setvar "osmode" 0) (setvar "dimzin" 8)
         (command "leader" "nea" p1 p2 "" (strcat "C" (rtos len2 2 2)) "")
   )) ))
   (setvar "osmode" os)
   (setvar "dimzin" diz)
   (setvar "cecolor" cl)
   (setvar "dimtvp" #dt)
(princ))