엔지니어 기술블로그

;;취소선 그리기
(defun c:TCT () ;tct명령어
   (setq osm (getvar "osmode"))
   (setvar "osmode" 0)
   (prompt "n [텍스트 취소선 그리기]")
   (setq ss (ssget '((0 . "text"))))
   (command "justifytext" ss "" "mc")
   (setq n (sslength ss))
   (setq k 0)
         (repeat n
          (setq en (ssname ss k) elist (entget en)
                 $p1 (car (textbox elist)) $p2 (cadr (textbox elist)) $x (car $p2) $y (cadr $p2)
                 dy (/ $y 4) dx (/ $y 2) ag1 (cdr (assoc 50 elist))
                 al (cdr (assoc 11 elist)) op1 (polar al (- ag1 (/ pi 2)) 0.5)
                  p1 (polar op1 (- ag1 pi) (+ dx (/ $x 2))) p2 (polar p1 ag1 (+ $x (* dx 2)))
                  )
          (command "line" p1 p2 "")
          (setq k (1+ k))
         )
    (setvar "osmode" osm)
(prin1)
)