Tipo166 Posted February 27, 2009 Share Posted February 27, 2009 Hello all. I have a dream..... I would like to iterate through all objects in the dwg (that are displayed), select by linetype, and freeze (or not display) objects with that line type. Specifically even if they are in a block reference..... could I change thier line types to "blank" line type ? Hmmmm, only for certain conditions ovbiously....... Thoughts? Quote Link to comment Share on other sites More sharing options...
uddfl Posted February 27, 2009 Share Posted February 27, 2009 I don't know how to do it in VBA but here's a way to do it with AutoLISP: (setq ss1 (ssget "x" (list (cons (6 LINETYPENAME)))) (setq ent-index 0) (repeat (sslength ss1) (setq entname (ssname ss1 ent-index)) (setq entlist (entget entname)) (if (assoc 60 entlist) (setq entlist (subst '(60 . 1) (assoc 60 entlist) entlist)) (setq entlist (append entlist '((60 . 1))))) (entmod entlist) (setq ent-index (1+ ent-index)) ) Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted February 27, 2009 Share Posted February 27, 2009 Uddfl, that will skip entities with linetype set to "bylayer"... Just a thought.. Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted February 27, 2009 Share Posted February 27, 2009 Ahh, and one more thing - watch out for selection sets over 32767 ents... repeat method won't work for these... Quote Link to comment Share on other sites More sharing options...
uddfl Posted February 27, 2009 Share Posted February 27, 2009 Uddfl, that will skip entities with linetype set to "bylayer"... Just a thought.. Well, I just threw a cheap and dirty one out there. I didn't feel like typing that much (yes, Friday). Ahh, and one more thing - watch out for selection sets over 32767 ents... repeat method won't work for these...Hmmm... true. How do you address those? WHILE function? Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted February 27, 2009 Share Posted February 27, 2009 Check this one - ;; Select by Linetype and Make Invisible ~ Lee McDonnell 27.02.09 (defun lsel (ltyp / tdef laylst) (setq laylst "") (while (setq tdef (tblnext "LAYER" (not tdef))) (if (eq (strcase ltyp) (cdr (assoc 6 tdef))) (setq laylst (strcat (cdr (assoc 2 tdef)) (chr 44) laylst)))) (substr laylst 1 (1- (strlen laylst)))) (defun c:test (/ lt ss) (if (and (setq lt (strcase (getstring "\nSpecify Linetype to Select: "))) (tblsearch "LTYPE" lt) (setq ss (ssget "X" (list (cons -4 "<OR") (cons 8 (lsel lt)) (cons 6 lt) (cons -4 "OR>") (if (getvar "CTAB") (cons 410 (getvar "CTAB")) (cons 67 (- 1 (getvar "TILEMODE")))))))) (progn (setq ss (vl-remove-if '(lambda (x) (if (assoc 6 x) (/= lt (cdr (assoc 6 x))))) (mapcar 'entget (mapcar 'cadr (ssnamex ss))))) (foreach e ss (if (assoc 60 e) (entmod (subst (cons 60 1) (assoc 60 e) e)) (entmod (append e (list (cons 60 1))))))) (princ "\nError in Selection Set Retrieval...")) (princ)) Need to account for all situations... On layer with required linetype, with object linetype set to bylayer (need these...) On layer with required linetype, object linetype set to something different (get rid of these..) Not on layer with required linetype, but object set to required linetype. (need these...) Not an easy task... Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted February 27, 2009 Share Posted February 27, 2009 If you didn't want to convert the selection set into a list of entity names, you could use something like this to iterate through ss: (defun c:test (/ ss i ent) (setq ss (ssget) i (sslength ss)) (while (not (minusp (setq i (1- i)))) (setq ent (ssname ss i)) (princ (strcat "\n" (vl-princ-to-string (cdadr (entget ent)))))) (princ)) Silly example I know, but just wanted to show you the idea Quote Link to comment Share on other sites More sharing options...
uddfl Posted February 27, 2009 Share Posted February 27, 2009 ^ you cheated, you used a vl- function! Actually that's a good method to know. Thanks. Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted February 27, 2009 Share Posted February 27, 2009 Haha... I probably could have done it without vl functions, but it would have taken a ton of coding Using the ssnamex to put it into a list is good because instead of shuffling through the set, which is a tedious method - you can use what LISP was meant for: a list. So then you can use all the list functions such as foreach, mapcar.. etc etc. Hope this helps Lee Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted February 27, 2009 Share Posted February 27, 2009 After all this and we haven't even used VBA like the OP wanted Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.