如何控制动态块的参数

lostbalance

比如，我做了个矩形，做成动态块，把长度设为动态参数，如何用lisp控制这个长度参数。
用lisp命令查看了下，一旦长度值变化，cad就新建一个同块名的匿名块，也就是说其实是两个块了，这跟属性块不一样啊。

lostbalance

自己顶一下，求高手解答

snddd2000

(setq BlkRef (vlax-ename->vla-object (car (entsel))))
(setq Pros (vlax-invoke BlkRef 'GetDynamicBlockProperties))
(mapcar        '(lambda (X)
           (cons (vlax-get X 'PropertyName) (vlax-get X 'Value))
         )
        Pros
)
上面是取值的，改下就可以赋值了。