Dynamic Block Values with Lisp

[r.zinke1960]

Hello AUGI Users –

I’m looking for some help to grab information from a dynamic block and place that information into an attributed table in the same drawing.

The dynamic block has 2 stretch parameters and 2 linear parameters. These parameters allow the user to stretch the polyline to the desired width and height. I’m looking to grab the ‘Value’ from each of linear parameters and place those values into the attributed table (I have included the dynamic block linear properties below from the attached drawing. The format of those values should be fractional (precision set to 1/32).

I have attached a sample drawing with both blocks mentioned above.

Thank you in advanced for your help with this.

; IAcadDynamicBlockReferenceProperty: AutoCAD Dynamic Block Property Interface
; Property values:
;   AllowedValues (RO) = nil
;   Description (RO) = ""
;   PropertyName (RO) = "Unit Height"
;   ReadOnly (RO) = 0
;   show (RO) = -1
;   UnitsType (RO) = 2
;   Value = 8.87409
; No methods


; IAcadDynamicBlockReferenceProperty: AutoCAD Dynamic Block Property Interface
; Property values:
;   AllowedValues (RO) = nil
;   Description (RO) = ""
;   PropertyName (RO) = "Unit Width"
;   ReadOnly (RO) = 0
;   show (RO) = -1
;   UnitsType (RO) = 2
;   Value = 6.25492
; No methods

[peter]

Something like this

;___________________________________________________________________________________________________________|
;
; Written By: Peter Jamtgaard C.E., P.E., S.E. copyright 2019 All Rights Reserved
;___________________________________________________________________________________________________________|
;
; Any use by unauthorized person or business is strictly prohibited.
; Include Shorthand.lsp
;___________________________________________________________________________________________________________|

;___________________________________________________________________________________________________________|
;
; Comand line function list
;___________________________________________________________________________________________________________|

;* C:Augi5
;* Command line function to read a dynamic block and put height and width into an attributes block

;___________________________________________________________________________________________________________|
;
; General Function Header List
;___________________________________________________________________________________________________________|

;  Function List Argument1 Argument2 Arguement3

;* (AttributeSublists objSelection)
;* Function to get attribute sublists ('tagstring 'textstring obj)

;* (DynamicPropertiesList objDynamicBlock)
;* Function to Get a list of sublists including dynamic block property names and objects.

;* (ErrorTrap symFunction)
;* Function to trap errors


;$ EndHeader

;___________________________________________________________________________________________________________|
;
; Command Line Function to change attributes to be width and height of dynamic block
;___________________________________________________________________________________________________________|

(defun C:Augi5 (/ entSelection 
                  lstDynamics
                  lstOfSublists
                  lstSublist 
                  objBlockInfill 
                  objDynamicBlock 
                  sngUnitHeight 
                  sngUnitWidth 
                  ssSelections
               )
 (and (princ "\nSelect Boundary Dynamic Block: ")
      (setq ssSelections    (ssget ":S:E" (list (cons 0 "insert"))))
      (setq entSelection    (ssname ssSelections 0))
      (setq objDynamicBlock (vlax-ename->vla-object entSelection))
      (setq lstDynamics     (DynamicPropertiesList objDynamicBlock))
      (setq sngUnitWidth    (cadr (assoc "Unit Width"  lstDynamics)))
      (setq sngUnitHeight   (cadr (assoc "Unit Height" lstDynamics)))
      (setq ssSelections    (ssget "x" (list (cons 0 "insert")(cons 2 "Infill_Row"))))
      (setq entSelection    (ssname ssSelections 0))
      (setq objBlockInfill  (vlax-ename->vla-object entSelection))
      (setq lstOfSublists   (AttributeSublists objBlockInfill))
      (setq lstSublist      (assoc "U_WIDTH" lstOfSublists))
      (errortrap           '(vla-put-textstring (caddr lstSublist) (rtos sngUnitWidth 2 2)))
      (setq lstSublist      (assoc "U_HEIGHT" lstOfSublists))
      (errortrap           '(vla-put-textstring (caddr lstSublist) (rtos sngUnitHeight 2 2)))
 )
)


;___________________________________________________________________________________________________________|
;
; Function to get attribute sublists ('tagstring 'textstring obj)
;___________________________________________________________________________________________________________|

(defun AttributeSublists (objSelection / lstAttributes);
 (if (and (= (vla-get-hasattributes objSelection) :vlax-true)
          (setq lstAttributes (vlax-invoke objSelection "getattributes"))
     )
  (mapcar '(lambda (objAttribute) (list (strcase (vla-get-tagstring  objAttribute))
                                        (vla-get-textstring  objAttribute)
                                        objAttribute
                                  )
           )
           lstAttributes
  )
 )
)


;___________________________________________________________________________________________________________|
;
; Function to Get a list of sublists including dynamic block property names and objects.
;___________________________________________________________________________________________________________|


(defun DynamicPropertiesList (objDynamicBlock 
                              / 
                              lstProperties
                              X
                              lstReturn
                             )

 (if (and (vlax-property-available-p objDynamicBlock "IsDynamicBlock")
          (= (vla-get-IsDynamicBlock objDynamicBlock) :vlax-true)
          (setq lstProperties (errortrap  '(vlax-safearray->list 
                                            (variant-value 
                                             (vla-GetDynamicBlockProperties objDynamicBlock)
                                            )
                                           )
                              )
          )
          (setq lstReturn (mapcar '(lambda (x)(list (vla-get-propertyname X) (vlax-get X "value"))) lstProperties))
     )
  (while (setq lstSublist (assoc "Origin" lstReturn))
   (setq lstReturn (vl-remove lstSublist lstReturn))
  )
 )
 lstReturn
)



;___________________________________________________________________________________________________________|
;
; Function to trap errors
;___________________________________________________________________________________________________________|

(defun ErrorTrap (symFunction / objError result)
 (if (vl-catch-all-error-p
      (setq objError (vl-catch-all-apply
                     '(lambda (X)(set X (eval symFunction)))
                      (list 'result))))
  nil
  (if result result 'T)
 )
)

(princ)
(vl-load-com)

[r.zinke1960]

Peter –

Thank you for your fast reply. I tried the code and receive the following error after I select the dynamic block:

; error: no function definition: TOOBJECT

Also could the code be changed to select the dynamic block without any action from the user? Then the attributed block would automatically populate.

[peter]

You can just remove that line it is unnecessary.

I revised my post before to erase that line and add a header.

P=

[r.zinke1960]

Peter -

I removed that line and the program works. Thank you!!

One last question for you... when you run the program can the dynamic block be selected WITHOUT action by the user? This program will be used as part of a batch process. I tried an ssget and that does not seem to work. Most likely I have the format wrong. See below:

(setq ssSelections (ssget ":S:E" (list (cons 0 "insert")))) your code
(setq ssSelections (ssget "x" (list (cons 0 "insert") (cons 2 "Unit_Size")))) my try