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

Can someone help me with a lisp file. I'm wanting to draw a series of 45 degrees lines between 2 points to represent a weld see attached.

Also if possible to specify the length of the 45 degree line and spacing of these.

I've not got much experience with lisp files so please help if you can

Couldn't you just combine the line @length

What about bounding box and hatch inside and delete bounding box? Explode hatch after?

I think it is better to use hatch object to get the mark.

note: there is no error traping in the following code:

(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
   ""
   "_Displacement"
   "_NONe"
   (strcat (rtos len) "<" (rtos ang))
 )
 (setq tempobj (entlast))
 (command "_.HATCH" "_User" ang dist "_No" obj tempobj "")
 (entdel tempobj)
)
(C:DrawWeld)

mdbdesign, when I was writing the code, your reply was added to the thread. As you see, I think like you about the solution...

I like it. Already in toolbar.

thanks for the reply guys, thought about the array and hatch but I use this quite alot and was trying to find an easy way round it.....Ahankhah the bit of code you've wrote, does this work?

Just now I tested it in AutoCAD 2012

How do you like work on A2012?

You could always try look into the hatch offset and calculate the scale accordingly, however; I feel compelled to refer you back to my orginal comment, perhaps creating a block with the created lines for neatness. Hopefully not too cheeky a comment:lol:

I know that you have had a lisp written for you, but perhaps the command Measure or Divide with a block, would have given you the desired outcome

Sorry about that Ahankhah it does work . I'm using 2005 at work and 2011 at home. for some reason it works on 2011 but not on 2005 any idea why????

Sorry about that Ahankhah it does work . I'm using 2005 at work and 2011 at home. for some reason it works on 2011 but not on 2005 any idea why????

Thanks, i'll have to try this tomorrow at work

How do you like work on A2012?

I love all versions of AutoCAD:huh: except Version 13 for DOS:sweat:.

How about a Linear Array...

LinearArray.lsp

How about a Linear Array...

 

[ATTACH]26749[/ATTACH]

Hat's off to you Lee; great use of the grread function

Thanks SOliver

This whole thread may be of interest...

http://www.theswamp.org/index.php?topic=37459.0

Sorry about that Ahankhah it does work . I'm using 2005 at work and 2011 at home. for some reason it works on 2011 but not on 2005 any idea why????

"Displacement" wasn't supported in a version that old. Change it to '(0. 0. 0.).

As I can remember,it was supported in earlier versions as de facto. Just replace "Displacement" with "" in the code.