; 错误: 参数类型错误: VLA 。怎么改这行代码？（SSGET与VALAX-FOR问题）

artken

[code](vl-load-com) (defun c:t ( / ss item blk)   (if (setq ss (SSGET '((0 . "HATCH,dimension,INSERT"))));;选择对象这句有问题。SSGET怎么去VALAX-FOR?该怎么写,,CAD提示错误: 参数类型错误: VLA 对象集合: <Selection set: 1297>     (vlax-For item ss       (if (equal (type item) 'vla-object)           (setq blk (vlax-vla-object->Ename item))           (setq blk item)       )       ;还有些其它的操作       (vlex-ChangeAttributes (list blk (cons "tag1" "95959595")))       (terpri)     )   ) ) [/code]



; 错误: 参数类型错误: VLA 对象集合: <Selection set: 1297>,怎么改？

王咣生

修改:

(defun c:t ( / ss len i blk)
  (if (setq ss (SSGET '((0 . "HATCH,dimension,INSERT"))));;选择对象这句有问题。SSGET怎么去VALAX-FOR?该怎么写,,CAD提示错误: 参数类型错误: VLA 对象集合: <Selection set: 1297>

    (progn
      (setq len (sslength ss)
     i 0)
      (repeat len
 (setq blk (ssname ss i))
 
        ;还有些其它的操作
        (vlex-ChangeAttributes (list blk (cons "tag1" "95959595")))
        (setq i (1+ i))
      );repeat
    )
  );if
)

龙龙仔

(vlax-for ITEM (vla-get-activeselectionset
       (vla-get-activedocument (vlax-get-acad-object))
     )
      ;;記得把vla-get-activeselectionset的缺點修正
      ;;不然程序會出錯,如何修正?站內尋找看看,

=>用2樓的程序比較沒有問題

artken

搞定了。

感谢啊。。。

两位版主真是好人。。。

xotoo

没看懂如何修改，楼主可不可以把修改完的发上来……