PDA

View Full Version : Arc-ed Leader


J-LYLE
4th Apr 2005, 05:06 pm
Is it possiable to change the leader to an arc (not a spline) through cad setting or would a lisp need to be written to do this? :?

www.cadimage.net/postimages/leader.wmf
rkmcswain
1st May 2006, 07:09 pm
Is it possiable to change the leader to an arc (not a spline) through cad setting or would a lisp need to be written to do this? :?

3rd party routine.
Ako
1st May 2006, 10:58 pm
If it's a "one off" you could explode the leader, delete the line then draw in your own arc.

Dave
fuccaro
3rd May 2006, 05:27 am
Start the QLEADER command and when you are prompted to select the first point press S (meaning "settings"). Check the spline option. Not really an arc but it can be close to an arc.
rkmcswain
3rd May 2006, 12:52 pm
Start the QLEADER command and when you are prompted to select the first point press S (meaning "settings"). Check the spline option. Not really an arc but it can be close to an arc.

Except that the OP specifically said:



to an arc (not a spline)


...and it's pretty difficult to get anything [using the leader command] close to looking like a true ARC.

Not sure why they don't add an ARC option though...
LSA
3rd May 2006, 07:52 pm
Try this.

; ARCLEADR.LSP
; DRAWS ARC WITH STANDARD ARROW HEAD
(defun c:arcleadr (/ startpnt anglepnt endpnt1 endpnt2)
(graphscr)
(command "cmdecho" 0)
(initget 15)
(setq startpnt (getpoint
"\nStarting point for arrow: "))
(setq anglepnt
(getpoint startpnt
"\nSelect angle definition point: ")
)
(setq endpnt1
(polar
startpnt
(angle startpnt anglepnt)
(* 0.1875 (getvar "ltscale"))
)
)
(setq endpnt2 (* 0.0625 (getvar "ltscale")))
(command "pline" startpnt "w" "0.0" endpnt2 endpnt1
"w" "0.0" "0.0" "arc"
)
(princ))
(command "-layer" "s" "0" "")
rkmcswain
3rd May 2006, 08:32 pm
...and another version with a couple of changes to use the DIMSCALE and DIMASZ (arrowhead size defined in the current dimstyle), and added underscores to command line so that it's not english language dependent.



; ARCLEADR.LSP
; DRAWS ARC WITH STANDARD ARROW HEAD
(defun c:aa (/ startpnt anglepnt endpnt1 endpnt2)
(graphscr)
(command "cmdecho" 0)
(initget 15)
(setq startpnt (getpoint
"\nStarting point for arrow: "
)
)
(setq anglepnt
(getpoint startpnt
"\nSelect angle definition point: "
)
)
(setq endpnt1
(polar
startpnt
(angle startpnt anglepnt)
(* (getvar "dimasz") (getvar "dimscale"))
)
)
(setq endpnt2 (* 0.5 (getvar "dimasz") (getvar "dimscale")))
(command "._pline" startpnt "_W" "0.0" endpnt2 endpnt1 "_W" "0.0" "0.0" "_arc")
(princ)
)