我找到了一种获取可见性状态的方法。。但是我找不到它。
有没有一种方法可以选择图形中已经存在的块,然后将它们放在entlast中,而不选择对象。
- (setq Boom (entlast))
- (setq Boom (vlax-ename->vla-objet Boom))
- (vlax-dump-object Boom)
- (setq dbp (vla-getdynamicblockproperties Boom))
- (setq dbp (vlax-variant-value dbp))
- (setq dbp (vlax-safearray->list dbp))
- (setq bp (car dbp))
- (vlax-dump-object bp)
- (setq ListeAdmis (vlax-safearray->list (vlax-variant-value (vla-get-AllowedValues bp))))
- (setq ListeAdmis (mapcar 'vlax-variant-value ListeAdmis))
- (vla-put-value bp B-Radius)
测验图纸 |