Challenge 23-01 BoundingPoly
There is a commercial product out there that may do it, For Civ3D it starts as Shrinkwrap. What is its name again. Has a Train as one shape and a car engine as another.
Something like this ? Add Gaps and no idea.
Found it TotalBoundary • AutoCAD App for creating outlines of complex drawings
Yep
If it is say text and objects all touching a bpoly approach will work, problem is when there is a gap between objects, so the text has a bounding box frame before running the bpoly.
An example may be worth looking at.
This is a problem say as a block or even text and lines due to gaps need a algorithm to work out a sequence of outer points. Maybe a clock approach.
Some form of checking next angle and distance a double If AND compare to say next. See red lines.
Regards @Sea-Haven
That is the C3D command...
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@john.uhden wrote:
.... to tightly surround a block reference (yes, with attributes) or an MText or MLeader? ....
Can you illustrate what you would mean by tightly surrounding a MultiLeader? Say it's like this, perhaps:
And do I assume correctly that for Mtext of the same without the leaders, you would want something like this, if the simple bounding box does not satisfy?
But then, it could be more convoluted -- say, like this, maybe?
First, I must point out that I am not looking for one of us to come up with a function, but rather that Autodesk provide us a function and which can be applied in background masking, for example:
Ok may be able to do something for Text or Mtext. If you read each line and make a box around each line, then draw a dummy pline outside the mtext, then a boply will create what you want. Erase all the dummy stuff. A mtext mask exposes the 4 corners when exploded.
Ok found it so if remake the mtext into individual mtext with a frame then explode.
Ok John your turn, the method worked need a few Undo's and erases etc 😀
Will find the set to 0 for Paper defined width.
This may be a more useful way to make the boxes.
Have to go away now have a coffee and a think.
Proof of concept, try it John, bit buggy realised no need to copy, next go. The box or line spacing is not quite right perhaps a wrong dxf code value. Hacked another bit of code as my Bricscad does not have txt2mtxt.
(defun c:Mtextbdy (/ ent ss ents)
(defun c:plpts ( / pt)
(setq pt (getpoint "\nStarting point of Pline : "))
(command "_pline" pt)
(while (= (getvar "cmdactive") 1 )
(command (getpoint (getvar 'lastpoint)))
)
)
(setvar "cmdecho" 0)
(setq ent (entsel "\nPick Mtext "))
(setq pt1 (cdr (assoc 10 (entget (car ent)))))
(setq pt2 (getpoint pt1 "\nPick point away from mtext "))
(command "copy" ent "" pt1 pt2)
(command "explode" (entlast))
(setq ss (ssget (list (cons 0 "TEXT"))))
(Repeat (setq x (sslength ss))
(setq ents (ssname ss (setq x (- x 1))))
(setq ent (entget ents))
(entmake (list
(cons 0 "MTEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbMText")
(cons 8 (cdr (assoc 8 ent)))
(cons 42 1)
(cons 43 0)
(cons 44 1)
(cons 7 (cdr (assoc 7 ent)))
(cons 73 (cdr (assoc 73 ent)))
(cons 1 (cdr (assoc 1 ent)))
(cons 11 (cdr (assoc 11 ent)))
(cons 10 (cdr (assoc 10 ent)))
(cons 210 (cdr (assoc 210 ent)))
(cons 40 (cdr (assoc 40 ent)))
(cons 50 (cdr (assoc 50 ent)))
(cons 71 (cdr (assoc 71 ent)))
(cons 72 0)
)
)
(entmod (append (entget (entlast)) '((90 . 16) (63 . 256) (45 . 1.5) (441 . 0))))
(command "explode" (entlast))
(command "erase" ents "")
)
(c:plpts)
(setq bp (entlast))
(command "bpoly" (getpoint "\nPick a point inside pline ") "")
(setq bp2 (entlast))
(command "erase" bp "")
(setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget bp2))))
(command "move" bp2 "" (nth 0 co-ord) pt1)
(princ)
)
(c:Mtextbdy)
@john.uhden wrote:
... I am not looking for one of us to come up with a function, but rather that Autodesk provide us a function and which can be applied in background masking, for example:
[Then the topic heading and the first sentence in Message 1 should have been different. You should go to the >Product Feedback page<. This Forum is for Users, with minimal oversight by Autodesk employees, and those not the ones whose attention you need to get.]
@Sea-Haven wrote:
... realised no need to copy....
.... (command "copy" ent "" pt1 pt2) (command "explode" (entlast)) (setq ss (ssget (list (cons 0 "TEXT")))) ....
But if someone should attempt a routine, big questions for @john.uhden :
What about justification in Mtext? If you don't Copy it, and do the work with the Exploded original, then though you may convert back to Mtext later, you need to go into SEttings to not word-wrap, so justification won't always be Top-Left [although in quick trial sometimes it seems to revert to that, anyway], and so line breaks won't end up in different places [if line lengths are unequal enough caused by internal hard returns]. And it seems Line Space Style always ends up as "At least," which could shift things a little if the original was "Exactly." So I think the better approach would be to Copy it to leave the original and preserve other justification and line breaks, and work with the Exploded copy.
Then there's the question of internal formatting. Exploding seems to leave some of that, breaking up the original into separate Text pieces at each change. Color and size and width factor seem to be preserved, but font changes can affect more than in the original, and tracking or obliquing are not preserved [obliquing survives EXPLODEing, but not TXT2MTXT-ing back], which can lead to incorrect results. [Not that I have any idea how to account for those....]
If Exploding is to be part of the process [whether of the original or a copy], the pieces resulting from that become the Previous selection, so there's no need to have User selection involved in (ssget)-ing them:
....
(command "explode" {whether the original or the copy})
(setq ss (ssget "P"))
....
