SSGET two perpendicular pline

SSGET two perpendicular pline

Anonymous
Not applicable
3,635 Views
40 Replies
Message 1 of 41

SSGET two perpendicular pline

Anonymous
Not applicable

Hi all,

 

I have been working on a drawing which contains numerous number of exploded EARTH blocks. Apart from their rotation angle, they are all the same i.e. they are all plines, they have same color, same layer, etc.

 

See screenshot below (other stuff are frozen):

 

1.jpg

 

 

I was wondering if I could use SSGET and replace them with their correspondent block (their angle should be maintained). Again, please see screenshot below:

 

Capture.JPG

 

My idea was to grab all pline objects which are on layer Existing Symbol and have the length of "1". And then check whether there is another pline with the same layer and length of "3" perpendicular to that. From there I would be pretty certain that I have successfully identified an instance of exploded symbol. Next I am going to do another SSGET with "W" option to somehow grab the entire thing, delete it and replace it by the block.

 

That's my plan but for beginning, I am not sure how to do test whether two plines are perpendicular.

 

Can anyone help please?

 

 

Regards

 

 

 

0 Likes
Accepted solutions (1)
3,636 Views
40 Replies
Replies (40)
Message 41 of 41

Anonymous
Not applicable
Indeed it is much better than your previous code. I need to spend some time and analyse what you have added (with my limited LISP knowledge) but, on a quick look, you have added two more defuns (named @Anonymous & @touching).

All I can say is "Thank you"
0 Likes