lisp to close boxes with 3d rotation

[Stefano2012]

Good evening. I put this lisp together to close boxes. I wanted to ask how it was possible to set all the various lines of fold as variables to be able to then recall to the occurrence. this because the selection is sometimes not very simple. Thank you.

 

[GP.]

more than the image, it is better to attach the dwg.

 

[Stefano2012]

Meanwhile I continued because it was slender to select the lines of the parts to rotate. I found that creating regions (with high hpgaptol) it was easier to select them. I create a layer (full) that lock so you can select better. But I also realized that once rotation began, the fold lines (red) move into space. So I think they should be archived as an object by assigning them for example a number. better still to be able to name also the regions in order to be able for example: region to ..... on fold 1..... 90 degrees

 

[GP.]

but the regions are already drawn and just rotate them? attach a dwg with the "initial" situation, if I have time to watch it on the weekend.

 

[Stefano2012]

hello and thanks for the attention. the regions I create them with "fill". this because they are easier to select and give the idea of the box.
I also insert the design of a "pharmaceutical" case because the concept is always that.
the end of the program is to create a simulation of the final result but I also need to check if the design is done correctly. Thank you.

 

[Stefano2012]

...exchange the annex

 

[GP.]

I changed the approach according to my preferences, to use with global ucs, the individual faces must be drawn "good".
minimally tested, do some evidence.

 

[Stefano2012]

Hello and in the meantime thank you 1000. I quickly tried to make it turn but it gives me that there is no vlax-get-acad-object function. looking for me is told that I have not autocad updated. I look calmer in the morning. Thanks again.

 

[GP.]

It's also a feature in the lisp you posted, you should solve by adding (vl-load-com) at the end of the list:

 

[Stefano2012]

I remembered. Everything works perfectly. we say that the problem as you said is that it must be perfectly designed. I remember seeing some "private" cads that had the voice "find holes" and "repair holes".....but this is another story. Thanks again.

 

[Stefano2012]

I changed the approach according to my preferences, to use with global ucs, the individual faces must be drawn "good".
minimally tested, do some evidence.
View attachment 57577

Hello in my version does not appear the "by which side", is a later version?

 

[GP.]

Hello in my version does not appear the "by which side", is a later version?

There is only one version, the "from which side?" appears at the time of the choice of the orthogonal rotation, strange that you do not appear.

 

[Stefano2012]

I'll send you the screen. Anyway it works the same.

 

[GP.]

imposta cmdecho = 0

 

[Stefano2012]

...was quello.

 

[Stefano2012]

Bye. without wanting to abuse your courtesy but since you understood the problem perfectly and solved it perfectly when you want, you would have the opportunity to let me choose the corner because right this morning I had to make a pyramid. thank you anyway.

 

[Stefano2012]

Bye. I tried but it is impossible to calculate the closing angle. instead the thing becomes simple with align3d. at first as a reference I drew the height but it is more real if I design the base rotated. then I saw that for the sides it is to be selected as the first point that "free" and then the two points of the axis that are the same also for the rotation. instead for the tabs you must first select the two sides of the axis and then the third and what refers to the opposite side (I was not very clear).