这个好像是WKai的源码,又像是zhf的,我找找缺的函数
ss2lst函数如下(z_time函数未找到,直接删除了)
 - (defun ss2lst (ss vla / a e i)
- (if (= (type ss) (quote PICKSET))
- (progn
- (setq i -1)
- (while (setq e (ssname ss (setq i (1+ i))))
- (if vla
- (setq e (vlax-ename->vla-object e))
- nil
- )
- (setq a (cons e a))
- )
- )
- nil
- )
- )
|