将一些现有的类似代码(因此使用了哑变量名…)组合在一起
- (defun c:foo ()
-
-
- (setq C3Ddoc
- (vla-get-activedocument
- (vla-getinterfaceobject
- (vlax-get-acad-object) "AeccXUiLand.AeccApplication.11.0") ;; number will vary, this is for 2017
- )
- )
- (setq gnl (vlax-get C3Ddoc 'GeneralNoteLabelStyles))
- (setq std (vlax-get-property gnl 'item "Standard")) ;; Name of the style here.
- (setq xxxx (vlax-get std 'TextComponents))
- (setq yyyy (vlax-get-property xxxx 'item 0))
- (setq zzzz (vlax-get yyyy 'BorderStyle))
- (vlax-put-Property zzzz 'BackGroundMask :vlax-false)
- )
你的里程数可能会有所不同,因为这里有很多假设,这只是一种风格的样本。
基本上,您只需深入到要修改的对象,然后对其进行修改。但是,不能保证您可能要修改的每个对象都存在API。 |