（XD::VLA:SetProperty）设置VLA对象的属性值

marting

1. (defun XD::VLA:SetProperty (obj props / a)
   
2.   (if (atom (car props))
   
3.     (setq props (list props))
   
4.   )
   
5.   (mapcar
   
6.     '(lambda (a)
   
7.        (if (vlax-property-available-p obj (car a))
   
8.          (vlax-put-property obj (car a) (cdr a))
   
9.        )
   
10.      )
    
11.     props
    
12.   )
    
13.   obj
    
14. )
    

(defun XD::VLA:SetProperty (obj props / a)<br />   (if (atom (car props))<br />     (setq props (list props))<br />   )<br />   (mapcar<br />     '(lambda (a)<br />        (if (vlax-property-available-p obj (car a))<br />          (vlax-put-property obj (car a) (cdr a))<br />        )<br />      )<br />     props<br />   )<br />   obj<br /> )<br />

q3_2006

请教大师..如何读取U盘物理序列号..

marting

q3_2006 发表于 2017-9-1 09:58

开源函数库有WMI通用查询函数，XD::SYSTEM:WMI-QUERY用这个函数名搜索下这个论坛。

q3_2006

marting 发表于 2017-9-1 10:01

谢谢..我找找..

pxt2015

楼主好人做到底，把常用的属性列出来吧

pxt2015

那些属性字符串不好记

Lispboy

pxt2015 发表于 2017-9-1 23:01

查手册，列也是拷贝粘贴手册的。还没手册的格式检索、查询方便。

qyming2000

再来个获得属性值列表函数
来自: 微社区