Leaderboard

Lee Mac has this on his website: https://lee-mac.com/boundingbox.html and you can modify the test function to be a selection set and loop through that, not sure if that is any use?

Maybe you can create insted of Arc a Polyline Arc, like from this Lee Mac Bulge Conversion Functions. It will look like this: Try with that and see if it helpful.

Right. Autocad is still a technical drawing program, mimicing pen and paper. The user can tilt the paper (UCS), and then draws on that plane. So a circle or an arc means that you set the needle on thet plane, then you draw on that plane. You can't elevate the start or endpoint. You can elevate the whole arc, you can tilt the plane on which the arc is drawn... If you could elevate just 1 start or endpoint then it's no longer an arc. That's the general idea, it's not absolutely true, since there are things like 3D polylines

I seem to remember that you can't change the elevation of the start/end points, which is why they're greyed out in the properties. You can change the center point's elevation, which makes things easier.

AFAIK, you cannot. How to batch remove the "-Model" suffix from plotted files name in AutoCAD I use a program called Bulk Rename Utility to rename files or you could try the suggested method in the link above. This LISP solution might work... How do I plot to PDF with only the filename (without the layout name) - Autodesk Community Also mentioned that PDFCreator can do this.

An Arc has - a Center point: code 10 - a radius: code 40 (which is usually a scale code) - a start angle: code 50 - a end angle: code 51 Which is the most logical way of coding an arc, I would say. The same codes apply for the circle, if the circle were to be full. Except of course that circle doesn't have a start and endpoint --- For a block INSERT code 10 is the insertpoint, ... but yes, often code 10 in the start point, as you say

@CADSURAY sorry to burst your bubble but Protected lisp is easy to convert back to plain text. It was introduced say at least 30 years ago. That why these days we have VLX and DES.

Nice try!

@thecocuk07 See attached .. it's a point grouped to an mleader with a field linked to it. example.dwg

Hi @thecocuk07, Yes, it is possible. You can make dynamic block with those properties and every time when you change the position of the "base point of the block", you will get desired X, Y, Z position. Best regards.

Give this a try .. seemed to work OK on your example drawing. (defun c:uunion (/ _off b e off reg regions s s2 sp tmp x) ;; RJP 09.18.2017 ;; UGLY effin code, but works on sample drawing .. can it be broken? But of course ;-) (defun _off (o d f / out tmp) (foreach di (list d (- d)) (if (not (vl-catch-all-error-p (setq tmp (vl-catch-all-apply 'vlax-invoke (list o 'offset di)))) ) (setq out (cons (car tmp) out)) ) ) (cond ((= 2 (length out)) (setq out (vl-sort out '(lambda (a b) (f (vla-get-area a) (vla-get-area b))))) (vla-delete (cadr out)) (car out) ) (car out) ) ) (or (setq off (getdist "\nPick distance to check < 15 >: ")) (setq off 15)) (if (and (setq sp (vlax-get (vla-get-activedocument (vlax-get-acad-object)) (if (= (getvar 'cvport) 1) 'paperspace 'modelspace ) ) ) (setq s (ssget ":L" '((0 . "insert")))) (setq s (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))) (setq s (mapcar '(lambda (x) (car (vlax-invoke x 'explode))) s)) (setq s2 (mapcar '(lambda (x) (car (_off x off >))) s)) (setq regions (vlax-invoke sp 'addregion s2)) ) (progn (mapcar 'vla-delete s) (mapcar 'vla-delete s2) (foreach reg regions (mapcar (function (lambda (x) (vl-catch-all-apply 'vla-boolean (list reg acunion x)))) (vl-remove reg regions) ) ) (setq b (vlax-ename->vla-object (setq e (entlast)))) (entmod (subst '(8 . "RJP_Outline") (assoc 8 (entget e)) (entget e))) (vlax-invoke b 'explode) (if (setq s (ssget "_x" '((0 . "line,arc,lwpolyline") (8 . "RJP_Outline")))) (if (= 1 (getvar 'peditaccept)) (command "_.pedit" "Multiple" s "" "Join" 0.0 "") (command "_.pedit" "Multiple" s "" "y" "Join" 0.0 "") ) ) (vla-delete b) (setq b (vlax-ename->vla-object (entlast))) (_off b off <) (vla-delete b) ) ) (princ) ) (vl-load-com)