Leaderboard

I ran it and it made the layers, but I had to hit escape to get control of the cursor again.

The location of the centroid for a 3D shape is the same as the center of mass for an object of uniform density is the same as the center of gravity for an object of uniform density in a uniform gravitational field. However, the these points do not define the 3D shape's center of volume. The centroid is a function of the distribution of the volume. For example, the solid shown below (an extruded 2D shape) has it's centroid located at the noted point. The volume to the left of the red line is almost twice as much as the volume to the right.

Use Lee Mac's Minimum Bounding Box!

I don't know how big your drawing is but depending on how many blocks and entity's their are it could take a min to run thought everything. Just tested it on a drawing with 2500 entity's that is around 1.7MB in size. it took about 2-3 seconds to run. You could copy a small part of the drawing into a new drawing and run the lisp there to see if it works properly. If it does you probably just need to wait for the lisp to run its course in the main drawing.

Okay nvm, try this xD Again with "dd2" intersect.lsp

An external reference is just that--a copy of another (external) drawing that you include (reference) in your current drawing. The XREF is read-only; you can't change it unless you open the original file. It's sort of like projecting the other drawing onto a wall and taping up your drawing so they overlap. The big advantages of XREFs are keeping drawings at manageable sizes, since you can split one big project into different parts, and allowing multiple people to work on one project at the same time. The disadvantages are complexity, since you have to keep track of which things go into which drawings, and having to keep track of where the drawings themselves are. It's possible to BIND an XREF into your drawing. Instead of referencing the other drawing, you bring it into your drawing. The problem with doing that is, you've made a copy of the other drawing, a copy that has no connection to the original. After that point, if someone updates the original, the changes won't be reflected in your drawing. An overlay is a standard XREF. An attachment is the same as a bound XREF, you get a copy. An underlay is not a drawing but a PDF, DWF, or other type of file.

My $0.05 (vl-load-com) (defun c:wowo ( / area1 area2 ) (setq area1 (vlax-get (vlax-ename->vla-object (car (entsel "Pick obj"))) 'area)) (setq area2 (vlax-get (vlax-ename->vla-object (car (entsel "Pick obj"))) 'area )) (alert (strcat "Area is " (rtos (abs (- area1 area2)) 2 3))) ) (c:wowo)

Untested ... (defun c:foo (/ a b c s) ;; RJP » 2022-03-14 ;; Subtract one layer area from another (cond ((setq s (ssget '((0 . "LWPOLYLINE") (8 . " Layer-1,Layer-2")))) (mapcar 'set '(a b) '(0 0)) (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) (setq c (vlax-curve-getarea e)) (if (wcmatch (cdr (assoc 8 (entget e))) "*1") (setq a (+ a c)) (setq b (+ b c)) ) ) (alert (vl-princ-to-string (- a b))) ) ) (princ) )