create a contour rectangle of a polygon

[NickNaylor]

Hey, guys, I'm new here.
I signed up to exploit your knowledge... and here starts the slander:
Is there an autocad command that creates a minimum boundary rectangle of a polygon? ? ?
on other software the command is well present but in autocad I do not find it and I always have to arrange as I can (ucs or rotations + quilting.. in immense rupture)
in my work ( marbles) would be very useful to me,
thanks for the possible answer

 

[tir]

bounding box reactor

 

[NickNaylor]

bounding box reactor

synthetic
I try and let you know
In the meantime thank you:finger:

 

[NickNaylor]

synthetic
I try and let you know
In the meantime thank you:finger:

I didn't understand it from the demo, but before I said, I wanted to be sure:
creates a rectangle aligned with the bird, not the minimum rectangle that includes it.


I think this story is impossible: I also use dmr (cnc program certainly not at the cat level) and this command is called "contour angle"

I would be very useful to speed up the preventive procedure of scales and contour coatings.

 

[NickNaylor]

No one else? to quantify the stone that serves to cut a pedoca for example. . .

 

[GP.]

by the same author: minimum bounding boxfor greater precision, at the expense of calculation time, look for the line below and decrease the value I have highlighted:(map '(lambda(p)(cons 10 p))) (lm:minboundingbox s 0.01))

 

[NickNaylor]

I also try this (the name promises well but I have a pc under my hand now. In the meantime thank you 1000 :d

 

[NickNaylor]

I also try this (the name promises well but I have a pc under my hand now. In the meantime thank you 1000 :d

I can't make it work. I copied the contents of the first black box, saved it with notes block and renamed.. then loaded into autocad - autolips charge application.
Should I be right?
only that the commands to make it work correspond to other commands translated into ita.
ss scale and pr properties.

Is the problem just this or not? If you just change the letters in the right lisp?
Thank you.

 

[GP.]

you have to paste the contents of the two black boxes into one file, then throw the lisp with "test".
the result is approximated according to the precision value I indicated above.


edit: if you want to change the command for launch, replace this that I upgrade with the string you want
(defun c:test ( / s ) .................

 

[NickNaylor]

you have to paste the contents of the two black boxes into one file, then throw the lisp with "test".
the result is approximated according to the precision value I indicated above.


edit: if you want to change the command for launch, replace this that I upgrade with the string you want
(defun c:test ( / s ) .................

select objects:
; error: no function definition: vlax-ename->vla-object

cmq launch test and gives me this error but I do not understand then how to overcome the problem of the ss commands (which autocad ita has scale) and pr (that autocad ita has the properties)

are really a niubbi in lisp

 

[GP.]

insert (vl-load-com) at the end of the list and reload the lisp.

 

[tir]

select objects:
; error: no function definition: vlax-ename->vla-object

cmq launch test and gives me this error but I do not understand then how to overcome the problem of the ss commands (which autocad ita has scale) and pr (that autocad ita has the properties)

are really a niubbi in lisp

(vl-load-com)

 

[NickNaylor]

All right?

Thank you
Thank you

 

[Giuseppe Mauro]

I allowed myself to change the list of lee mac (which God forgives me for the chord), to insert the suggestion of gp (precision modification) from command line, and the appropriate controls

in red aggiunte

(defun c: test (/ s) val)
(setq val (getint "precision: 1-1000: "))
(if (> val 1000)
(progn)
(alert "value input too large - limited to 1000")
(setq val 1000)
)
)
(if)
(progn)
(alert "submitted value too low - limited to 1")
(Sectq val 1)
)
)
(setq val (/ 0.1 val))
(if (setq s (ssget "_:l"))
(entmakex
(append
(list
(cons 0 "lwpolyline")
(cons 100 "acdbentity")
(cons 100 "acdbpolyline")
(cons 90 4)
(cons 70 1)
)
(mapcar '(lambda ( p ) (cons 10 p)) (lm:minboundingbox s val)
)
)
)
(princ)
)

the choice to limit to 1000 the factor is because beyond this value the precision gain is infinitesimal, but autocad goes easily in "out of memory"

Actually, it's already over 100 that just increases precision, but in the face of a long wait, something gets it.
over 1000 the wait becomes unnerving. at 10,000 autocad remains planted for full minutes and eventually comes out with "out of memory" without result

p.s. default value of the original list of lee mac corresponds to 10

 

[NickNaylor]

I will try this customization thanks

 

[NickNaylor]

I'm gonna give you a little... great!!! !

thank you all for the collaboration and a nice compliment also to the site: I like notification of email responses.
beautiful people around here, I think cad3d will add it to my tour of navigation sites. . .

Thank you.