[求助]：如何用lisp程序修改2006动态图块的自定义参数

zdarc

如何用lisp程序修改2006动态图块的自定义参数，比如下面这个动态图块中的下划线长度（opm可以修改，自定义参数）

YueFeng

最初由 y-004 发布
[B]支持 [/B]

如何得到这些参数呢？

heluyuan

支持,
刚接触autolisp,
急需知道如何传入参数,望楼主能指点一下传入参数的格式,
谢谢~~

eachy

2. 
   
3. (defun c:tt (/ obj ln var ln)
   
4.   (setq        obj (vlax-ename->vla-object (car (entsel)))
   
5.         ln  (car (safearray-value
   
6.                    (variant-value (vla-GetDynamicBlockProperties obj))
   
7.                  )
   
8.             )
   
9.   )
   
10.   (princ (strcat "\n当前" (setq str (vla-get-PropertyName ln))))
    
11.   (princ (setq var (variant-value (vla-get-value ln))))
    
12.   (vla-put-value ln (/ var 2))
    
13.   (princ (strcat "\n新的" str))
    
14.   (princ (/ var 2))
    
15.   (princ)
    
16. )

<br /> (defun c:tt (/ obj ln var ln)<br />   (setq        obj (vlax-ename->vla-object (car (entsel)))<br />         ln  (car (safearray-value<br />                    (variant-value (vla-GetDynamicBlockProperties obj))<br />                  )<br />             )<br />   )<br />   (princ (strcat "\n当前" (setq str (vla-get-PropertyName ln))))<br />   (princ (setq var (variant-value (vla-get-value ln))))<br />   (vla-put-value ln (/ var 2))<br />   (princ (strcat "\n新的" str))<br />   (princ (/ var 2))<br />   (princ)<br /> )