Search the Community

I use groups to verify that I have selected all blocks that make up a single precast panel. Would it be possible to modify lisp GRP , to also add/remove elements to an existing group? In this moment I use (command "_Group"...) but I would prefer to use the VL-xxx commands but of these I am not expert.

Hello Smart friends, Looking for a lisp where I can select multiple objects and any objects that are overlapping and the same color get grouped together. I have hundreds of these "arrows" in a dwg that I need individually grouped or block referenced. So they're easier to move and rotate in the future. Thanks so much for any advise!! arrows.dwg

I was hoping someone in the community could help me out. I've found a design for some 3D printed Mickey Ears that I really like that I'd like to import into Tinkercad. The problem is the file has too many pieces and Tinkercad won't import it because it's too complicated. I've tried to join in AutoCAD, but I'm a novice, and when I try, it finds errors and won't join everything into one, simpler, object. If anyone could give me some pointers or help me out, I'd really appreciate it. I've attached two files, one where I grouped all the objects, hoping it would then join (to no avail), and the other one is everything separate. Thanks in advance to any who could offer assistance. -Kent Blank Ear Grouped.dwg Blank Ear.dwg

Find and correctly map wrong layers in ACAD group Hi, I have a problem with layers grouped in Acad groups. These layers are partially in the wrong group. Short description: There are several groups in my drawing in which different layers have to be grouped uniformly. Certain groups must contain specific layers. For example, a group includes layers that are somewhere in the layer name "Layer 1". There is no layer in the drawing that does not belong to a group. There must be no nested groups. For example, in: Group A will be all Layer 1. In group B all Layer 2. In group C all layers 3. etc....... However, it can happen that a wrong layer or several wrong layers were mistakenly assigned to a group. How can I find the wrong layers in the groups and remove them from the groups and then the right one Assign groups? A solution would be a great help. Martin Beispielzeichnung.dwg

Hello, I have taken the following code lines from the formum and tried something to change. My problem is that it does not always work. Unfortunately, I can not see the reason why it often works and often not. This Lisp should: There are many groups of objects in the drawing. The drawing already contains some default hatching. 1) The user selects an existing hatching and then fills different areas belonging to different groups With this hatching. 2) When the user has finished the "_ADDSELECTED" command, the Lisp should add each individual hatch to the group that they have encloses. It works often but not always! Why? Please help. Martin Lisp: ;;----------------------=={ Inside-p }==----------------------;; ;; ;; ;; Predicate function to determine whether a point lies ;; ;; inside a supplied LWPolyline. ;; ;;------------------------------------------------------------;; ;; Author: Lee Mac - www.lee-mac.com ;; ;; Using some code by gile (as marked below), thanks gile. ;; ;;------------------------------------------------------------;; ;; Arguments: ;; ;; pt - 3D WCS point to test ;; ;; ent - LWPolyline Entity against which to test point ;; ;;------------------------------------------------------------;; ;; Returns: T if supplied point lies inside supplied LWPoly ;; ;;------------------------------------------------------------;; (defun LM:Inside-p (pt ent / _GroupByNum lst nrm obj tmp) (defun _GroupByNum (l n / r) (if l (cons (reverse (repeat n (setq r (cons (car l) r) l (cdr l) ) r ) ) (_GroupByNum l n) ) ) ) (if (= (type ent) 'VLA-OBJECT) (setq obj ent ent (vlax-vla-object->ename ent) ) (setq obj (vlax-ename->vla-object ent)) ) (setq lst (_GroupByNum (vlax-invoke (setq tmp (vlax-ename->vla-object (entmakex (list (cons 0 "RAY") (cons 100 "AcDbEntity") (cons 100 "AcDbRay") (cons 10 pt) (cons 11 (trans '(1. 0. 0.) ent 0)) ) ) ) ) 'IntersectWith obj acextendnone ) 3 ) ) (vla-delete tmp) (setq nrm (cdr (assoc 210 (entget ent)))) ;; gile: (and lst (not (vlax-curve-getparamatpoint ent pt)) (= 1 (rem (length (vl-remove-if (function (lambda (p / pa p- p+ p0 s1 s2) (setq pa (vlax-curve-getparamatpoint ent p)) (or (and (equal (fix (+ pa (if (minusp pa) -0.5 0.5 ) ) ) pa 1e-8 ) (setq p- (cond ((setq p- (vlax-curve-getPointatParam ent (- pa 1e- ) ) (trans p- 0 nrm) ) ((trans (vlax-curve-getPointatParam ent (- (vlax-curve-getEndParam ent) 1e- ) 0 nrm ) ) ) ) (setq p+ (cond ((setq p+ (vlax-curve-getPointatParam ent (+ pa 1e- ) ) (trans p+ 0 nrm) ) ((trans (vlax-curve-getPointatParam ent (+ (vlax-curve-getStartParam ent) 1e- ) 0 nrm ) ) ) ) (setq p0 (trans pt 0 nrm)) (<= 0 (* (sin (angle p0 p-)) (sin (angle p0 p+)))) ;; LM Mod ) (and (/= 0. (vla-getBulge obj (fix pa))) (equal '(0. 0.) (cdr (trans (vlax-curve-getFirstDeriv ent pa) 0 nrm) ) 1e-9 ) ) ) ) ) lst ) ) 2 ) ) ) ) (defun c:hatch2group (/ ss i lst pt ent drehwink pt1 as OBJ AWS mypick) (setq mypick (getvar "pickstyle")) (setvar "pickstyle" 0) (setq OBJ (entlast)) (command "_ADDSELECTED" Pause (setq pt1 (getpoint "\nPick Point: ")) ) (while (/= (getvar "CMDACTIVE") 0) (command pause)) (setq AWS (ssadd)) (while (setq OBJ (entnext OBJ)) (ssadd OBJ AWS)) (sssetfirst AWS AWS) (setq as (entlast)) (if (and (setq ss (ssget "_X" '((0 . "LWPOLYLINE")))) (repeat (setq i (sslength ss)) (setq lst (cons (ssname ss (setq i (1- i))) lst)) ) (setq pt pt1) ) ;(if (setq ent (car (vl-member-if (function (lambda (x) (LM:Inside-p (trans pt 1 0) x)) ) lst ) ) ) ;(vla-put-color (vlax-ename->vla-object ent) acRed) ) (princ) (command "_groupedit" ent "H" AWS "") (while (/= (getvar "CMDACTIVE") 0) (command pause)) (setvar "pickstyle" mypick) (princ) ) (princ)

Morning All, Habitual LT user here - so no lsp before. Been given 2 month access to a 2014 license to get this job out of the door. I'm trying to create a lsp that grabs the content of a drawing, selects objects by layer and groups them using the layer name as the group name. I've found a couple of lsps that do some of what I want so I've been pulling them to bits and trying to create what I need, but I'm stuck. I've managed to get to a point where I've got a list of the layers and start the group command but I cant get the group names to work. I'm not demanding a full lsp, but would very much appreciate some guidance on how to approach this one. I've gone through the tutorials on Afralisp and some of the other threads but I just don't seem to be making any progress. There's 41 layers in most of these drawings, I don't really fancy doing it manually... PS I cant access any of Autodesks online help as apparently our IT guys have classified it as an "unsafe site".

Hi to all, Any one knows a Lisp that could insert many files (sheets) on only one dwg file? Thanks in advance!...

If I make a group of blocks (select all the blocks I want, GROUP in command, enter), it then won't let me remove certain blocks from that group. When I try to Explode the group, it explodes all the individual blocks as well... I know that Ctrl-H can turn on and off the Groups option, but short of erasing the block I don't want to be included anymore, how can I manipulate what goes on within a group? And I know I can UNGROUP to completely separate out all the components... there just seems like there should be a way to go "into" the group and select-out or add-in individual components... Thanks

I am new to AutoCAD from another CAD software (DynaScape). I am a landscape architect and I am wanting to combine multiple blocks (ie: shrubs, trees, etc) and then trim any overlapping lines/plines. Any help on creating and editing these blocks on AutoCAD MAC would be most helpful!