【K:GetProp /K:PutProp 】获取或修改对象特性

kucha007

天正对象的属性
有的有版本有，有的版本又没有。有时候能赋予，有时候又不能，故而写了这两个函数避免出错，希望有用~

1. ;如果属性存在就获取
   
2. (defun K:GetProp (Obj Func)
   
3.   (setq Func (if (= 'SYM (type Func)) Func (function Func)))
   
4.   (if (vlax-property-available-p Obj Func);存在
   
5.       (vlax-Get-property Obj Func)
   
6.   )
   
7. )
   
8. ;如果属性存在且可修改就赋予
   
9. (defun K:PutProp (Obj Func Var)
   
10.   (setq Func (if (= 'SYM (type Func)) Func (function Func)))
    
11.   (if (and
    
12.         (vlax-property-available-p Obj Func T);存在且可修改
    
13.         (not (null Var));不为Nil
    
14.       )
    
15.       (not (vlax-put-property Obj Func Var));返回T
    
16.   )
    
17. )
    

;如果属性存在就获取<br /> (defun K:GetProp (Obj Func)<br />   (setq Func (if (= 'SYM (type Func)) Func (function Func)))<br />   (if (vlax-property-available-p Obj Func);存在<br />       (vlax-Get-property Obj Func)<br />   )<br /> )<br /> ;如果属性存在且可修改就赋予<br /> (defun K:PutProp (Obj Func Var)<br />   (setq Func (if (= 'SYM (type Func)) Func (function Func)))<br />   (if (and<br />         (vlax-property-available-p Obj Func T);存在且可修改<br />         (not (null Var));不为Nil<br />       )<br />       (not (vlax-put-property Obj Func Var));返回T<br />   )<br /> )<br />

用法：

1. (setq obj (vlax-ename->vla-object (car (nentsel))))
   
2. (K:GetProp obj 'ArrowStyle)
   
3. (K:PutProp obj 'ArrowStyle "箭头")
   

(setq obj (vlax-ename->vla-object (car (nentsel))))<br /> (K:GetProp obj 'ArrowStyle)<br /> (K:PutProp obj 'ArrowStyle "箭头")<br />

yefei812678

谢谢分享谢谢分享

lxl217114

高产了高产了