Does anyone know where I can get a lisp routine that will give you the option to add 1, 2 or 3 arrow heads to an electrical homerun circuit?
|
Does anyone know where I can get a lisp routine that will give you the option to add 1, 2 or 3 arrow heads to an electrical homerun circuit?
have you tried a custom arrowhead with a leader? We just started to use that here
(defun C:HRUN (/ SP ANG ARRANG LENG EP)
(setq DS (getvar "dimscale"))
(setq layer (getvar "clayer"))
(command "-layer" "make" "E-Powr-Circ" "color" "yellow" "E-Powr-Circ" "set" "E-Powr-Circ" "")
; (If (= DS 4
; (command "setvar" "dimscale" "65")
; )
(setq numaros (getint "\nEnter Number of Arrowheads Needed: [Enter for 1]"))
(setq SP
(getpoint "\n Arrow Start Point"))
(setq ANGP
(getpoint SP "\n Arrow Angle"))
(setq ARRANG (angle SP ANGP))
(setq LENG 0.15625)
(setq EP (polar sp arrang (* LENG
(getvar "DIMSCALE"))))
(setq EP2 (polar EP arrang (* LENG
(getvar "DIMSCALE"))))
(setq EP3 (polar EP2 arrang (* LENG
(getvar "DIMSCALE"))))
(If (= numaros 2)
(command "PLINE" SP "W" "0.00"
(* 0.069 (getvar "DIMSCALE"))
EP "W" "0.019" (* 0.069 (getvar "DIMSCALE"))
EP2 "W" "0.0" "0.0" "ARC")
(If (= numaros 3)
(command "PLINE" SP "W" "0.00"
(* 0.069 (getvar "DIMSCALE"))
EP "W" "0.019" (* 0.069 (getvar "DIMSCALE"))
EP2 "W" "0.019" (* 0.069 (getvar "DIMSCALE"))
EP3 "W" "0.0" "0.0" "ARC")
(command "PLINE" SP "W" "0.0"
(* 0.069 (getvar "DIMSCALE"))
EP "W" "0.0" "0.0" "ARC")
))
(setvar "clayer" layer)
)
mitchellvoss
The arrowheads don't show up when I try this?