vba 如何控制动态块的可见性状态？

arthurfy

  大家好，我想用vba判断块的 Visibility的属性是“45度”还是“60度”，如何写代码？谢谢
有如下两种：

｛      Block Name: "YTZK"
   Anonymous Name: "*U192"
                at point, X=3145.00000000  Y=3930.00000000  Z=0.00000000
   X scale factor: 1.00000000
   Y scale factor: 1.00000000
   rotation angle:     49
   Z scale factor: 1.00000000
  Scale uniformly: No
  Allow exploding: Yes
       Visibility: 45度｝

｛Block Name: "YTZK"   Anonymous Name: "*U200"                at point, X=3145.00000000  Y=3930.00000000  Z=0.00000000   X scale factor: 1.00000000   Y scale factor: 1.00000000   rotation angle:     49   Z scale factor: 1.00000000  Scale uniformly: No  Allow exploding: Yes       Visibility: 60度｝

poly168

首先选择一个块实体，再用GetAttributes取得属性，遍历各个属性，找到visibility标签对应的值，就可以判断这个属性是否是需要的。因为没有具体的图和要求，不然可以给你一段代码，联系我吧。QQ:38968681