Understanding/Using pline in lisp

[Kenter]

Hey all,

I think I am posting this in the right area. This is my first post. I have a project on the go and got stuck at this spot. I am not good at using 'pline' to make object mostly because I do not understand it. Attached is a picture of what I am working on. Any help is appreciated.

 

'Block' is an image of a set of coordinates that i have set as variables.

'Block 2' is an image of my needed end result

'temp4' is the autocad drawing saved in 2004 so most can access it I hope.

 

Here is what I have so far:

 

(setq

b1 (mapcar '+ pUL (list -0.3351 -0.14 0))

b2 (mapcar '+ pUR (list 0.3351 -0.14 0))

b3 (mapcar '+ pUL (list -0.6231 -2.14 0))

b4 (mapcar '+ pUR (list 0.6231 -2.14 0))

b5 (mapcar '+ pLL (list -0.6231 2.14 0))

b6 (mapcar '+ pLR (list 0.6231 2.14 0))

b7 (mapcar '+ pLL (list -0.3351 0.14 0))

b8 (mapcar '+ pLR (list 0.3351 -0.14 0))

TF (* (/ 25.0 180) pi)

)

(command

"_.pline"

b3

"_width"

0.04

""

(polar b3 0 0.375)

(polar (/ 2 pi) 0.75)

(polar pi 0.265)

(polar (/ 2 pi) 0.863)

(polar - TF (/ 2 pi) 0.8535)

(polar b4 pi 0.375)

(polar (/ 2 pi) 0.75)

(polar (

 

"_close"

 

) ;end command

 

I know the polar stuff is wong, I was just getting down idea's. all the pLL, pUL variables are just the corners of a box that surrounds this object. ( pLL = plate lower left, pUR = plate upper right etc.) Any help is much obliged. Thanks in advance!

 

Cheers

-Kenter

temp 4.dwg

[Tharwat]

First you should give a point to each corner of the pose, and for you to know how to deal with polyline it is not a big deal look at the following example;

(command "_.pline" pt1 "_w" 0.04 "" pt2 pt3 pt4 pt5 ......

But you sould know how to deal with polar function here is an examlpe;

(polar pt ang dist)
Arguments
pt
A 2D or 3D point.
ang
An angle expressed in radians relative to the world X axis. Angles increase in the counterclockwise direction, independent of the current construction plane.
dist
Distance from the specified pt.
Return Values
A 2D or 3D point, depending on the type of point specified by pt.
Examples
Supplying a 3D point to polar:
Command: (polar '(1 1 3.5) 0.785398 1.414214)
(2.0 2.0 3.5)
Supplying a 2D point to polar:
Command: (polar '(1 1) 0.785398 1.414214)
(2.0 2.0)

Regards

 

Tharwat

[Lee Mac]

This looks astoundingly similar to this...

[Kenter]

Holy crap. I know that guy, he works in my office. I guess I can ask him since I didn't get an answer here.

[alanjt]

Holy crap. I know that guy, he works in my office. I guess I can ask him since I didn't get an answer here.

[Michaels]

Holy crap. I know that guy, he works in my office. I guess I can ask him since I didn't get an answer here.

To whom you are reporting your message?

Thanks

[Lee Mac]

Holy crap. I know that guy, he works in my office. I guess I can ask him since I didn't get an answer here.

 

Brilliant lol

[Kenter]

Not sure what you mean?