是因为所选择的对象无扩展属性,
将程序: - .
- .
- .
- (Vlax-Invoke-Method obj 'GetXData "" 'a 'b)
- (setq typs (vlax-safearray->list a)
- .
- .
- .
改为: - .
- .
- .
- (Vlax-Invoke-Method obj 'GetXData "" 'a 'b)
- (if (not (and a b))
- (vl-exit-with-error (princ "\n所选择的对象无扩展属性!"))
- )
- (setq typs (vlax-safearray->list a)
- .
- .
- .
|