Topic: Manipulate dynamic blocks by code

[FOUAD ABOU RJEILY]

I am trying to insert a Dynamic block and manipulate its parameters programmaticaly:  'width', 'length', etc...
The block has linear parameters and stretch actions.  After inserting the block, how can I, by using lisp, update the specific parameters value to get it properly displayed
Your support is really appreciated. Thanks

[Lee Mac]

You might find these functions helpful: Dynamic Block Functions

[Crank]

Code: [Select]

(defun PushDBProps (objent lst / blkprops propname propvalue n )
;; (PushDBProps ename|object '(("Visibility" . "No Shelves")("Width" . 36.0)...))
;; objent: ename or object of dynamicblock
;; lst: list of dotted pairs '((propname1 . newvalue1)(propname2 . newvalue2)...)
(if (= 'ENAME (type objent))(setq objent (vlax-ename->vla-object objent)))
(setq blkprops
(vlax-safearray->list
(vlax-variant-value (vla-getdynamicblockproperties objent))
)
)
(foreach prop lst
(setq n 0)
(setq propname (car prop))
(setq propvalue (cdr prop))
(while (< n (length blkprops))
(if (= propname (vlax-get-property (nth n blkprops) "PropertyName"))
(progn
(vlax-put-property (nth n blkprops) "Value" propvalue)
(setq n (length blkprops))
)
(setq n (1+ n))
)
)
)
)

[FOUAD ABOU RJEILY]

Thanks a lot.