发一个动态属性块的动态属性控制源码

菜卷鱼

我的也是东拼西凑整合的

1. (defun DynamicValueCtrl (ent mark rusult / BlockRef plist i a b c Property )
   
2. (setq BlockRef (vlax-ename->vla-object ent))
   
3. (setq plist (vlax-invoke BlockRef 'GetDynamicBlockProperties))
   
4. (setq i 0)
   
5. (mapcar        '(lambda (X)
   
6. (setq a   (vlax-get X 'PropertyName)
   
7. ;;;;;;     b   (vlax-get X 'Value)
   
8.       c   (vlax-variant-type(vla-get-value x)) )
   
9. 
   
10. (if (= a mark)            ;;;属性标记
    
11. (progn
    
12. (setq Property
    
13.    (vlax-safearray-get-element
    
14.       (vlax-variant-value (vla-GetDynamicBlockProperties blockref))  i))
    
15.   (vla-put-value
    
16.         Property
    
17.         (vlax-make-variant
    
18.           rusult          ;;;修改的值
    
19.           c
    
20.         )
    
21.       )
    
22. ))
    
23. (setq i(1+ i))
    
24.          )
    
25.        plist
    
26.          )
    
27. (prin1)
    
28. )
    
29. 
    
30. ;;;;;举例
    
31. (defun c:dted ( )
    
32. (setq a(car (entsel)))
    
33. (setq b(getreal "\n输入属性值:"))
    
34. (DynamicValueCtrl a "翻转状态" b)
    
35. (prin1))

(defun DynamicValueCtrl (ent mark rusult / BlockRef plist i a b c Property )<br /> (setq BlockRef (vlax-ename->vla-object ent))<br /> (setq plist (vlax-invoke BlockRef 'GetDynamicBlockProperties))<br /> (setq i 0)<br /> (mapcar        '(lambda (X)<br /> (setq a   (vlax-get X 'PropertyName) <br /> ;;;;;;     b   (vlax-get X 'Value) <br />       c   (vlax-variant-type(vla-get-value x)) )<br /> <br /> (if (= a mark)            ;;;属性标记<br /> (progn<br /> (setq Property <br />    (vlax-safearray-get-element <br />       (vlax-variant-value (vla-GetDynamicBlockProperties blockref))  i))<br />   (vla-put-value<br />         Property<br />         (vlax-make-variant<br />           rusult          ;;;修改的值<br />           c<br />         )<br />       )<br /> ))<br /> (setq i(1+ i))<br />          )<br />        plist<br />          )<br /> (prin1)<br /> )<br /> <br /> ;;;;;举例<br /> (defun c:dted ( )<br /> (setq a(car (entsel)))<br /> (setq b(getreal "\n输入属性值:"))<br /> (DynamicValueCtrl a "翻转状态" b)<br /> (prin1))

伪书虫86

不明觉厉
话说工作中没感受到属性块的好处

davide888

感谢分享   纠结好久的问题  一直用的LM

lucas_3333

话说，怎么通过LISP方便的修改属性块中的某个 “标记”与提示 ？

菜卷鱼

lucas_3333 发表于 2014-11-14 15:55
话说，怎么通过LISP方便的修改属性块中的某个 “标记”与提示 ？

这是修改动态块的动态属性提示，不是ATTDEF文字的属性！

lucas_3333

菜卷鱼 发表于 2014-11-14 16:18
这是修改动态块的动态属性提示，不是ATTDEF文字的属性！

所以我才请教你 如何快速修改ATTDEF的 tag啊

菜卷鱼

vla-get-TagString 跟 vla-put-TagString 啊

lucas_3333

菜卷鱼 发表于 2014-11-15 08:26
vla-get-TagString 跟 vla-put-TagString 啊

Ok,谢啦

czcxxx

谢谢分享！！！！！！！！！！！！！！！！！！！！！！！

etoxp

楼主可否演示一下！！！不然看了也不知道做什么用的。