item 属性怎样写

liu_kunlun

在集合对象A中，要得到它的第一个对象，在VB中为A.item(1)；获得名称为"nn"的对象，在VB中为A.item("nn")；

但在Vlisp中，（vlax-get  a  'item 1)，（vlax-get  a  'item "nn")，（vlax-get  a  'item '("nn"))等多种方法都不成功，请高人赐教

xianaihua

举一个例子，模型空间的某个对象

(vl-load-com)
(setq *AcadApp*
       (vlax-get-acad-object)
) ;_ end of setq
(setq *ActiveDocument*
       (vla-get-ActiveDocument
         *AcadApp*
       ) ;_ end of vla-get-ActiveDocument
) ;_ end of setq
(setq *ModelSpace*
       (vla-get-ModelSpace
         *ActiveDocument*
       ) ;_ end of vla-get-ModelSpace
) ;_ end of setq

（vla-item *ModelSpace* name)

xianaihua

使用vla-item 在集合中检索时，如果没有该对象，易出错，所以可以这样使用：

2. (defun GetItem (col name / obj)
3.   (vl-catch-all-apply
4.     '(lambda () (setq obj (vla-item col name)))
5.   )
6.   obj
7. )

(defun GetItem (col name / obj)   (vl-catch-all-apply     '(lambda () (setq obj (vla-item col name)))   )   obj )

wangqin

;;也可以这样写

(setq *MSP* (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
      coun (vla-get-count *MSP*));_ end of setq

(if (< n coun);;; n为整数
  (vla-item *MSP* n)
  )

liu_kunlun

谢谢各位帮助。

我是从Excel中的集合对象Worksheets中，获得规定名称的Worksheet。似乎上述方法都不奏效。

目前的笨办法是用vlax-for遍列，找出规定名称的Worksheet，但我觉得应该有更好的方法。

谢谢各位。

wangqin

对非CAD对象操作应该用vlax-类方法。