TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: MSTG007 on July 16, 2015, 02:34:57 PM

Title: Update a Attributed Block by selecting entities for Count
Post by: MSTG007 on July 16, 2015, 02:34:57 PM
Wondering if there was someway to select objects (lines or circles or whatever) and it adds us the count of those objects then you can select an attributed block to update the count too. Any ideas like that?
Title: Re: Update a Attributed Block by selecting entities for Count
Post by: roy_043 on July 16, 2015, 03:57:29 PM
Something like this:
Code - Auto/Visual Lisp: [Select]
  1. (defun c:test ( / ss enme)
  2.   (if
  3.     (and
  4.       (setq ss (ssget))
  5.       (setq enme (car (nentsel "\nSelect attribute: ")))
  6.     )
  7.     (vla-put-textstring (vlax-ename->vla-object enme) (itoa (sslength ss)))
  8.   )
  9.   (princ)
  10. )
Title: Re: Update a Attributed Block by selecting entities for Count
Post by: MSTG007 on July 16, 2015, 04:12:06 PM
Thanks a lot! Does this need to be a specific attributed block name or any attributed block?

By the way, I can always burst the block and use text like you have it. Works great!
Title: Re: Update a Attributed Block by selecting entities for Count
Post by: roy_043 on July 17, 2015, 06:46:06 AM
The block name is irrelevant. Below is an improved version. The old version would also change items nested in blocks.
Code - Auto/Visual Lisp: [Select]
  1. ; (_Sys_ObjectOwner (vlax-ename->vla-object (car (nentsel))))
  2. (defun _Sys_ObjectOwner (obj)
  4. )
  5.  
  6. (defun c:test2 ( / attLst doc obj selLst ss)
  8.   (if (= 8 (logand (getvar 'undoctl) 8))
  9.     (vla-endundomark doc)
  10.   )
  12.   (if
  13.     (and
  14.       (setq ss (ssget))
  15.       (setq selLst (nentsel "\nSelect attribute, (m)text or block (first attribute will be changed): "))
  16.     )
  17.     (progn
  18.       (setq obj (vlax-ename->vla-object (car selLst)))
  19.       (cond
  20.         ;; Attribute reference:
  21.         ((= "AcDbAttribute" (vla-get-objectname obj))
  22.           (if (= :vlax-true (vla-get-islayout (_Sys_ObjectOwner (_Sys_ObjectOwner obj))))
  23.             (vla-put-textstring obj (sslength ss))
  24.             (princ "\nError: nested (m)text or attribute ")
  25.           )
  26.         )
  27.         ;; Mtext, text and attribute definition:
  28.         ((vlax-property-available-p obj 'textstring)
  29.           (if (= :vlax-true (vla-get-islayout (_Sys_ObjectOwner obj)))
  30.             (vla-put-textstring obj (sslength ss))
  31.             (princ "\nError: nested (m)text or attribute ")
  32.           )
  33.         )
  34.         ;; Nested entity in block selected. First attribute reference is updated:
  35.         (
  36.           (and
  37.             (cdddr selLst)
  38.             (setq obj (vlax-ename->vla-object (last (cadddr selLst))))
  39.             (= "AcDbBlockReference" (vla-get-objectname obj))
  40.             (setq attLst (vlax-invoke obj 'getattributes))
  41.           )
  42.           (vla-put-textstring (car attLst) (sslength ss))
  43.         )
  44.         (T
  45.           (princ "\nError: invalid object ")
  46.         )
  47.       )
  48.     )
  49.   )
  51.   (princ)
  52. )

EDIT: Renamed c:test to c:test2.
EDIT: Changed (car (cadddr ...)) to (last (cadddr ...)).
Title: Re: Update a Attributed Block by selecting entities for Count
Post by: MSTG007 on July 17, 2015, 07:19:48 AM
Awesome. Cant wait to try this out!
Title: Re: Update a Attributed Block by selecting entities for Count
Post by: roy_043 on July 17, 2015, 02:25:22 PM
I have updated the code in my previous post.
The code below achieves the same but is more concise.
Code - Auto/Visual Lisp: [Select]
  1. (defun c:test3 ( / attLst doc obj selLst ss)
  3.   (if (= 8 (logand (getvar 'undoctl) 8))
  4.     (vla-endundomark doc)
  5.   )
  7.   (if
  8.     (and
  9.       (setq ss (ssget))
  10.       (setq selLst (nentsel "\nSelect attribute, (m)text or block (first attribute will be changed): "))
  11.     )
  12.     (cond
  13.       ;; Nested object. First attribute reference is updated:
  14.       ((cdddr selLst)
  15.         (if (setq attLst (vlax-invoke (vlax-ename->vla-object (last (cadddr selLst))) 'getattributes))
  16.           (vla-put-textstring (car attLst) (sslength ss))
  17.           (princ "\nError: invalid nested object ")
  18.         )
  19.       )
  20.       ;; Non-nested mtext, text and attribute definition:
  21.       ((vlax-property-available-p (setq obj (vlax-ename->vla-object (car selLst))) 'textstring)
  22.         (vla-put-textstring obj (sslength ss))
  23.       )
  24.       (T
  25.         (princ "\nError: invalid object ")
  26.       )
  27.     )
  28.   )
  30.   (princ)
  31. )
Title: Re: Update a Attributed Block by selecting entities for Count
Post by: MSTG007 on July 28, 2015, 07:20:59 AM
Roy,
I forgot to thank you again for your help on this guy. I have another dumb question to ask. Is it possible to select objects thru an xref? If circles are on another drawing that is xref'd into the current one, can the lisp still select those objects for a count. Currently it works great when everything is in a current drawing! Again thanks!
Title: Re: Update a Attributed Block by selecting entities for Count
Post by: roy_043 on July 29, 2015, 07:12:47 AM
You cannot create a selection set 'through an xref'. You can use (nentsel) for single picks. Or count all circles in an xref. See code below for an example of the latter.

Code - Auto/Visual Lisp: [Select]
  1. (defun _Conv_Pickset_To_EnameList (ss / i ret)
  2.   (if ss
  3.     (repeat (setq i (sslength ss))
  4.       (setq ret (cons (ssname ss (setq i (1- i))) ret))
  5.     )
  6.   )
  7. )
  8.  
  9. ; (CountCircles (ssget '((0 . "CIRCLE,INSERT"))))
  10. (defun CountCircles (ss / N_CheckObj_P blkDef blks i xrefDb)
  11.  
  12.   (defun N_CheckObj_P (obj)
  13.     (and
  14.       (= "AcDbCircle" (vla-get-objectname obj))
  15.       (= "0" (vla-get-layer obj))
  16.       ; ... ; Add more tests.
  17.     )
  18.   )
  19.  
  20.   (setq i 0)
  22.   (foreach obj (mapcar 'vlax-ename->vla-object (_Conv_Pickset_To_EnameList ss))
  23.     (cond
  24.       ((/= "AcDbBlockReference" (vla-get-objectname obj))
  25.         (if (N_CheckObj_P obj)
  26.           (setq i (1+ i))
  27.         )
  28.       )
  29.       ((setq xrefDb (vla-get-xrefdatabase (setq blkDef (vla-item blks (vla-get-name obj)))))
  30.         (vlax-for obj (vla-get-modelspace xrefDb)
  31.           (if (N_CheckObj_P obj)
  32.             (setq i (1+ i))
  33.           )
  34.         )
  35.       )
  36.       (T ; Normal block.
  37.         (vlax-for obj blkDef
  38.           (if (N_CheckObj_P obj)
  39.             (setq i (1+ i))
  40.           )
  41.         )
  42.       )
  43.     )
  44.   )
  45.   i
  46. )
  47.  
  48. (defun c:test4 ( / attLst doc i obj selLst ss)
  50.   (if (= 8 (logand (getvar 'undoctl) 8))
  51.     (vla-endundomark doc)
  52.   )
  54.   (if
  55.     (and
  56.       (setq ss (ssget '((0 . "CIRCLE,INSERT"))))
  57.       (setq i (CountCircles ss))
  58.       (princ (strcat "\nCount is: " (itoa i)))
  59.       (setq selLst (nentsel "\nSelect attribute, (m)text or block (first attribute will be changed): "))
  60.     )
  61.     (cond
  62.       ;; Nested object. First attribute reference is updated:
  63.       ((cdddr selLst)
  64.         (if (setq attLst (vlax-invoke (vlax-ename->vla-object (last (cadddr selLst))) 'getattributes))
  65.           (vla-put-textstring (car attLst) (itoa i))
  66.           (princ "\nError: invalid nested object ")
  67.         )
  68.       )
  69.       ;; Non-nested mtext, text and attribute definition:
  70.       ((vlax-property-available-p (setq obj (vlax-ename->vla-object (car selLst))) 'textstring)
  71.         (vla-put-textstring obj (itoa i))
  72.       )
  73.       (T
  74.         (princ "\nError: invalid object ")
  75.       )
  76.     )
  77.   )
  79.   (princ)
  80. )
  81.