Select objects inside a boundary
This is not a Dynamic Block question.
But a short answer: Not included in the basic AutoCAD. In the web you will find any tools (LISP) to solve it. If you ask in another forum again you should give more informations about the "boundary" (one object or several objects, polyline(s) or spline(s) or ellipse (arcs) or lines or mixed of all or ...).
cadder
Jürgen Palme
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.
Do a little Searching. This has come up many times in this Forum alone. You will find a variety of approaches, as well as discussion of possible difficulties [in particular, the effect of arc segments in Polylines as boundaries].
Kent Cooper, AIA 
@Lindsay-CAD wrote:
Can that program be modified to select just specific sized circles within the boundary. ....
[Should you be asking this of @Anonymous rather than of me?]
Routines that use (ssget), as many of those I was referring to in suggesting a Search, can filter for entity type and for various other things, including the radius for Circles. I don't think a routine based on a SELECT command, as in Message 3, can do that.
Kent Cooper, AIA
@Lindsay-CAD I would need some more details about your request regarding how you would like your
circles to be selected but try this
(defun c:selectcirclesinside ( / *error* pick_poly take pointlist2d coords eo)
(defun *error* ( msg )
(if (not (member msg '("Function cancelled" "quit / exit abort")))
(princ)
)
(princ)
)
(defun pick_poly ()
(setq e (car(entsel "\nSelect boundary lwpolyline >")))
(if (and (not e) (= (getvar 'Errno) 7)) (pick_poly) e)
)
(defun take (amount lst / ret)(repeat amount (setq ret (cons (car lst) (take (1- amount) (cdr lst))))))
(defun pointlist2d (lst / ret) (while lst (setq ret (cons (take 2 lst) ret) lst (cddr lst))) (reverse ret))
(setq eo (vlax-ename->vla-object (pick_poly)))
(cond
((vlax-property-available-p eo 'coordinates)
(sssetfirst
nil
(ssget
"_CP"
(pointlist2d (vlax-get eo 'coordinates))
(list (cons 0 "CIRCLE") (cons 40 (getreal "\nEnter circle radius > ")))
)
)
)
)
(princ)
)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@Lindsay-CAD wrote:
.... I will attach a CAD file as an example. The CAD file is a DXF export .... The Cad file might give you a better picture ....
[Nothing attached]
Kent Cooper, AIA
If you're replying as an email response to an email notification of traffic on your Topic, with something like a cell phone, you can't attach things that way. You need to come to the website in a "real" browser.
Kent Cooper, AIA
Instead of circles inside panel you have inserts (blocks). I understand what you want to achieve and it is not difficult to make a program for this. Lets assume that all objects that have to be dimensioned are block.
1) collect all vertexes of panels and insertion points of all different blocks and retain only unique point i.e remove duplicates
2) on left side and bottom side create create dimensions related to panel size
3) on top and right side create dimensions related to inserted blocks
Creation of block dimensions i.e. right sequence can be defined by user quarry or predefined
I have some program for auto dimensioning and I know @Kent1Cooper has it too. His programs are probably better regarding US dimension units since I predominantly work with SI units
If he can attach his dimensioning script I can make modifications to my code posted above and we can have your program created soon.
You can also start a new post. It will be more interesting to other forum users, and it makes possible for solution creator(s) to receive solution points. In this request attach sample drawing and detailed description of what you want to achieve.
I can work on it during the weekend. Meanwhile you can write how exactly you want your dimensioning program to work as I described above.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
