That looks like a lisp file not a script file.
--
Murph
www.map3d.wordpress.com
"Gehenna" wrote in message
news:6102336@discussion.autodesk.com...
Gordough wrote:
I won't believe it unless I see it. Can you please show me an example.
Thanks.
Here's one - note last line with spaces are same as pressing the Enter key.
; 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" "")