有没有懂动态块的大师啊，帮帮忙啊

伪书虫86

动态块的一个“可见性”下一般有好几个“可见性状态”
我现在想获得其中某一个“可见性状态”下所包含的图元
我尝试了entnext和vlax-for两种方法，最后得到的都是整个动态块所包含的图元
请教下大师们，这个问题该怎么破呢

ivde

可见性就是把其中一些图元的 visible 属性设为 :vlax-false (不可见），可见图元 visible 属性为 :vlax-true

lucas_3333

最好上传动态块

伪书虫86

lucas_3333 发表于 2015-9-28 16:36
最好上传动态块

动态块已上传

lucas_3333

1. ;; Get Dynamic Block Visibility State  -  Lee Mac
   
2. ;; Returns the value of the Visibility Parameter of a Dynamic Block (if present)
   
3. ;; blk - [vla] VLA Dynamic Block Reference object
   
4. ;; Returns: [str] Value of Visibility Parameter, else nil
   
5. 
   
6. (defun LM:getvisibilitystate ( blk )
   
7.     (LM:getdynpropvalue blk (LM:getvisibilityparametername blk))
   
8. )
   
9. 
   
10. ;; Get Visibility Parameter Name  -  Lee Mac
    
11. ;; Returns the name of the Visibility Parameter of a Dynamic Block (if present)
    
12. ;; blk - [vla] VLA Dynamic Block Reference object
    
13. ;; Returns: [str] Name of Visibility Parameter, else nil
    
14. 
    
15. (defun LM:getvisibilityparametername ( blk / vis )  
    
16.     (if
    
17.         (and
    
18.             (vlax-property-available-p blk 'effectivename)
    
19.             (setq blk
    
20.                 (vla-item
    
21.                     (vla-get-blocks (vla-get-document blk))
    
22.                     (vla-get-effectivename blk)
    
23.                 )
    
24.             )
    
25.             (= :vlax-true (vla-get-isdynamicblock blk))
    
26.             (= :vlax-true (vla-get-hasextensiondictionary blk))
    
27.             (setq vis
    
28.                 (vl-some
    
29.                    '(lambda ( pair )
    
30.                         (if
    
31.                             (and
    
32.                                 (= 360 (car pair))
    
33.                                 (= "BLOCKVISIBILITYPARAMETER" (cdr (assoc 0 (entget (cdr pair)))))
    
34.                             )
    
35.                             (cdr pair)
    
36.                         )
    
37.                     )
    
38.                     (dictsearch
    
39.                         (vlax-vla-object->ename (vla-getextensiondictionary blk))
    
40.                         "ACAD_ENHANCEDBLOCK"
    
41.                     )
    
42.                 )
    
43.             )
    
44.         )
    
45.         (cdr (assoc 301 (entget vis)))
    
46.     )
    
47. )
    

;; Get Dynamic Block Visibility State  -  Lee Mac<br /> ;; Returns the value of the Visibility Parameter of a Dynamic Block (if present)<br /> ;; blk - [vla] VLA Dynamic Block Reference object<br /> ;; Returns: [str] Value of Visibility Parameter, else nil<br /> <br /> (defun LM:getvisibilitystate ( blk )<br />     (LM:getdynpropvalue blk (LM:getvisibilityparametername blk))<br /> )<br /> <br /> ;; Get Visibility Parameter Name  -  Lee Mac<br /> ;; Returns the name of the Visibility Parameter of a Dynamic Block (if present)<br /> ;; blk - [vla] VLA Dynamic Block Reference object<br /> ;; Returns: [str] Name of Visibility Parameter, else nil<br /> <br /> (defun LM:getvisibilityparametername ( blk / vis )  <br />     (if<br />         (and<br />             (vlax-property-available-p blk 'effectivename)<br />             (setq blk<br />                 (vla-item<br />                     (vla-get-blocks (vla-get-document blk))<br />                     (vla-get-effectivename blk)<br />                 )<br />             )<br />             (= :vlax-true (vla-get-isdynamicblock blk))<br />             (= :vlax-true (vla-get-hasextensiondictionary blk))<br />             (setq vis<br />                 (vl-some<br />                    '(lambda ( pair )<br />                         (if<br />                             (and<br />                                 (= 360 (car pair))<br />                                 (= "BLOCKVISIBILITYPARAMETER" (cdr (assoc 0 (entget (cdr pair)))))<br />                             )<br />                             (cdr pair)<br />                         )<br />                     )<br />                     (dictsearch<br />                         (vlax-vla-object->ename (vla-getextensiondictionary blk))<br />                         "ACAD_ENHANCEDBLOCK"<br />                     )<br />                 )<br />             )<br />         )<br />         (cdr (assoc 301 (entget vis)))<br />     )<br /> )<br />

1. (setq obj (vlax-ename->vla-object (car (entsel "\nSelect Block: "))))
   
2. (setq blk_vb (LM:getvisibilitystate obj))
   

(setq obj (vlax-ename->vla-object (car (entsel "\nSelect Block: "))))<br /> (setq blk_vb (LM:getvisibilitystate obj))<br />

e2002

应该是有办法获得块定义对象中各个VS下的对象的，查下帮助看看？

lucas_3333

e2002 发表于 2015-9-28 18:03
应该是有办法获得块定义对象中各个VS下的对象的，查下帮助看看？

1.插入动态块的一个临时的参考
2.设置可见性状态参数,如 "三联单控开"
3.检索临时参考的匿名块名称。
4.遍历匿名块的定义

伪书虫86

lucas_3333 发表于 2015-9-28 20:10
1.插入动态块的一个临时的参考
2.设置可见性状态参数,如 "三联单控开"
3.检索临时参考的匿名块名称。

没有用的，难道你试过成功了？

伪书虫86

e2002 发表于 2015-9-28 18:03
应该是有办法获得块定义对象中各个VS下的对象的，查下帮助看看？

是的，按道理是应该有个参数或者什么是用来记录这个的，只是目前尝试的方法还没找到。。。

lucas_3333

伪书虫86 发表于 2015-9-28 20:57
没有用的，难道你试过成功了？

难道你试过？不成功？ ，贴出你的代码。。。