지시선 그리는 리습입니다.
원으로 되있는데 사각형으로 되게 하려면 어떻게 해야 하나요?
리습 수정 부탁드립니다.
(defun c:22( / #circle-size #text-size #font #arrow-size #layer-name
p1 p2 p3 p4 #qq
)
(setq #circle-size 1.8
#text-size 2
#font “EHM”
#arrow-size 1
#layer-name “SYM”
)
;;_________________________________________________________Sub Routine – 01
(defun PTE:start( variable-list / )
(setq *variable* (mapcar ‘getvar variable-list)
*list* variable-list
)
(vla-startundomark (vla-get-ActiveDocument (vlax-get-acad-object)))
)
;;_________________________________________________________Sub Routine – 02
(defun PTE:end ()
(mapcar ‘setvar *list* *variable*)
(vla-endundomark (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq *list nil *variable* nil)
)
;;_________________________________________________________Make Style
(entmake (list (cons 0 “LAYER”)
(cons 100 “AcDbSymbolTableRecord”)
(cons 100 “AcDbLayerTableRecord”)
(cons 2 #layer-name)
(cons 70 0)
(cons 62 4)
(cons 6 “CONTINUOUS”)))
(vl-cmdf “-STYLE” “ST-text” #font “0” “” “0” “N” “N” “N”)
;;________________________________________________________Error Function
(defun *error* (s)
(PTE:end)
(setq *ERROR* nil)
)
;;======================================================================
;; M A I N – R O U T I N E
;;======================================================================
(setq #sc (getvar ‘dimscale))
(PTE:start ‘(“clayer” “orthomode” “osmode” “dimclrd” “dimasz” “cmdecho”))
(mapcar ‘setvar *list* (list #layer-name 0 0 256 #arrow-size 0))
(if (= nil #qq_t)(setq #qq_t “-“))
(setq p1 (getpoint “nLeader Start Point: “)
p2 (getpoint p1 “nLeader To Point: “)
)
(if (or (> (* 0.5 pi)(angle p1 p2)) (< (* 1.5 pi)(angle p1 p2)))
(setq p3 (polar p2 0 (* (+ #circle-size 3) (getvar ‘dimscale))))
(setq p3 (polar p2 pi (* (+ #circle-size 3) (getvar ‘dimscale))))
)
(setq p4 (polar p3 (angle p3 p2) (* #circle-size #sc)))
(vl-cmdf “leader” P1 P2 “” “” “n”)
(entmakex (list (cons 0 “CIRCLE”)
(cons 10 p3)
(cons 40 (* #circle-size #sc))))
(vl-cmdf “line” P2 P4 “”)
(setq #qq (getstring (strcat “nCIRCLE IN GOTO NUMBER <” #qq_t “> :”)))
(if (= #qq “”) (setq #qq #qq_t))
(vl-cmdf “text” “s” “ST-text” “j” “mc” P3 (* #sc #text-size) “0” #qq)
(vl-cmdf “change” (ssget “l”) “” “p” “c” “140” “”)
(setq #qq_t #qq)
(PTE:end)
(princ)
)