请问老师，如何提供动态块的可见性属性

Humanway

在论坛里找到一段可以提取动态块可见性属性的代码：

1. (defun c:TT ()
   
2. (setq OBJ  (vlax-ename->vla-object (car (entsel))))
   
3. ;;获取动态块的属性
   
4. (setq PROS (vlax-invoke OBJ 'getdynamicblockproperties))
   
5. ;;;----------------------------------------------------------
   
6. ;;获取属性名
   
7. (mapcar '(lambda (V) (vlax-get V 'propertyName)) PROS)
   
8. ;;获取属性是否为只读
   
9. (mapcar 'vla-get-readOnly PROS)
   
10. ;;获取属性是否显示
    
11. (mapcar 'vla-get-show PROS)
    
12. ;;获取所有属性的允许值
    
13. (mapcar '(lambda (V) (vlax-get V 'allowedValues)) PROS)
    
14. ;;获取所有属性的当前值
    
15. (mapcar '(lambda (V) (vlax-get V 'Value)) PROS)
    
16. )

(defun c:TT ()<br /> (setq OBJ  (vlax-ename->vla-object (car (entsel))))<br /> ;;获取动态块的属性<br /> (setq PROS (vlax-invoke OBJ 'getdynamicblockproperties))<br /> ;;;----------------------------------------------------------<br /> ;;获取属性名<br /> (mapcar '(lambda (V) (vlax-get V 'propertyName)) PROS)<br /> ;;获取属性是否为只读<br /> (mapcar 'vla-get-readOnly PROS)<br /> ;;获取属性是否显示<br /> (mapcar 'vla-get-show PROS)<br /> ;;获取所有属性的允许值<br /> (mapcar '(lambda (V) (vlax-get V 'allowedValues)) PROS)<br /> ;;获取所有属性的当前值<br /> (mapcar '(lambda (V) (vlax-get V 'Value)) PROS)<br /> )

但我想从例表中提取动态块的属性：
(setq OBJ  (vlax-ename->vla-object (tblobjname "block" "IPC_-1")))
就无法提取，请问老师，这种情况，可以用什么方式提取，谢谢

edata

block是块定义，你需要指定插入块的块参照(0 . Insert)对象

Humanway

我需要获得列表中已定义好的指定动态块的所有属性的允许值，而不是图纸上已插入块的，需要针对不同可见性，赋不同的值；
1、我要列出出图纸中所有的块；
2、从列表中，选出我要处理的块名；
3、如果该块有可见性属性，需要拿到所有的属性值；
4、对不同的可见性属性，在指定的"ATTRIB“中赋不同的值；比如：型号
主要就是实现上述功能，1、2步都搞定了，第3步卡壳了

guankuiwu

如果该块有可见性属性，需要拿到所有的属性值列表.

Humanway

guankuiwu 发表于 2021-4-9 22:09
如果该块有可见性属性，需要拿到所有的属性值列表.

1. (defun c:getshow (/ ent obj AllowedValues ppts)
   
2.   (setq        ent              (car (entsel))
   
3.         obj              (vlax-ename->vla-object ent)
   
4.         AllowedValues nil
   
5.   )
   
6.   (if (setq obj (vlax-invoke obj 'GetDynamicBlockProperties))
   
7.     (progn
   
8.       (setq ppts (car obj)
   
9.             obj         (cdr obj)
   
10.       )
    
11.       (while
    
12.         (and (not (if (= (type (vlax-get ppts 'Value)) 'STR)
    
13.                     (setq AllowedValues (vlax-get ppts 'allowedvalues))
    
14.                   )
    
15.              )
    
16.              obj
    
17.         )
    
18.          (setq ppts (car obj)
    
19.                obj  (cdr obj)
    
20.          )
    
21.       )
    
22.     )
    
23.   )
    
24.   (if AllowedValues
    
25.         (print allowedvalues)
    
26.         (print "无可见性属性")
    
27.       )
    
28.   (princ)
    
29. )

(defun c:getshow (/ ent obj AllowedValues ppts)<br />   (setq        ent              (car (entsel))<br />         obj              (vlax-ename->vla-object ent)<br />         AllowedValues nil<br />   )<br />   (if (setq obj (vlax-invoke obj 'GetDynamicBlockProperties))<br />     (progn<br />       (setq ppts (car obj)<br />             obj         (cdr obj)<br />       )<br />       (while<br />         (and (not (if (= (type (vlax-get ppts 'Value)) 'STR)<br />                     (setq AllowedValues (vlax-get ppts 'allowedvalues))<br />                   )<br />              )<br />              obj<br />         )<br />          (setq ppts (car obj)<br />                obj  (cdr obj)<br />          )<br />       )<br />     )<br />   )<br />   (if AllowedValues<br />         (print allowedvalues)<br />         (print "无可见性属性")<br />       )<br />   (princ)<br /> )

sunwei2009

谢谢分享 学习了

guankuiwu

Humanway 发表于 2021-4-16 14:51

太谢谢了！！