HELP! Want to draw a series of 45 degrees lines between 2 points

[mrbradley1]

I've changed the "Displacement" to ""

 

(defun C: DrawWeld ()
(setq len (getdist "\nSpecify length: "))
(setq ang 45.0)
(setq obj-pt (entsel "\nSelect object: "))
(setq obj (car obj-pt))
(setq dist (getdist "\nSpecify distance between lines: "))
(command "_.COPY"
obj
""
""
"_NONe"
(strcat (rtos len) "<" (rtos ang))
)
(setq tempobj (entlast))
(command "_.HATCH" "_User" ang dist "_No" obj tempobj "")
(entdel tempobj)
)
(C: DrawWeld)

 

but it errors out after 'distance between lines' with the following:-

 

Select objects: Specify base point or displacement, or [Multiple]:

Point or option keyword required.

; error: Function cancelled

Specify base point or displacement, or [Multiple]:

 

any ideas?

Edited December 3, 2013 by SLW210

[Ahankhah]

mrbradley1,

this code works in all versions of AutoCAD after Release 12:

(defun C:DrawWeld ()
 (setq len (getdist "\nSpecify length: "))
 (setq ang 45.0)
 (setq obj-pt (entsel "\nSelect object: "))
 (setq obj (car obj-pt))
 (setq dist (getdist "\nSpecify distance between lines: "))
 (command "_.COPY"
   obj
   ""
   "_NONe"
   (strcat (rtos len) "<" (rtos ang))
   ""
 )
 (setq tempobj (entlast))
 (command "_.HATCH" "_User" ang dist "_No" obj tempobj "")
 (entdel tempobj)
 (princ)
)
(C:DrawWeld)

Please let me know you get the goal.

[mrbradley1]

That's it thanks., everyone

[Ahankhah]

That's it thanks., everyone

You are welcome mrbradley1.