[求助]：如何创建对象数组?...............

zhanzujie

下面这段代码的第三行为何有错(1-2行可能有笔误,大概是这样的)
(setq  o_array(vlax-make-safearray vb-object  '(0 1)))
(setq en1(car(entsel)) en2(car(entsel))
(vlax-safearray-fill o_array '(en1 en2))

另外还有一个问题
如何对直线选择集中的直线依其长度进行排序

eachy

最初由 zhanzujie 发布
[B]下面这段代码的第三行为何有错(1-2行可能有笔误,大概是这样的)
(setq  o_array(vlax-make-safearray vb-object  '(0 1)))
(setq en1(car(entsel)) en2(car(entsel))
(vlax-safearray-fill o_array '(en1 en2))

... [/B]

1 转贴一个函数

2. 
   
3. ;|转换选择集为变体数组
   
4. 功  能  返回一个由选择集内容填满的子对象的变体数组。
   
5. 参  数  ss: 选择集
   
6. 返回值  变体数组
   
7. 示  例  (selectionsetToArray mySS)
   
8. 注意
   
9. 使用该函数可以将选择集转换为数组传递给ActiveX函数。
   
10. 如果需要其它的子类型，只需更改引用vlax-vbObject。
    
11. |;
    
12. (defun selectionsetToArray (ss / c r)
    
13.   (setq c -1)
    
14.   (repeat (sslength ss)
    
15.     (setq r (cons (ssname ss (setq c (1+ c))) r))
    
16.   )
    
17.   (setq r (reverse r))
    
18.   (vlax-safearray-fill
    
19.     (vlax-make-safearray vlax-vbObject (cons 0 (1- (length r))))
    
20.     (mapcar 'vlax-ename->vla-object r)
    
21.   )
    
22. )
    

<br /> ;|转换选择集为变体数组<br /> 功  能  返回一个由选择集内容填满的子对象的变体数组。<br /> 参  数  ss: 选择集<br /> 返回值  变体数组<br /> 示  例  (selectionsetToArray mySS)<br /> 注意<br /> 使用该函数可以将选择集转换为数组传递给ActiveX函数。<br /> 如果需要其它的子类型，只需更改引用vlax-vbObject。<br /> |;<br /> (defun selectionsetToArray (ss / c r)<br />   (setq c -1)<br />   (repeat (sslength ss)<br />     (setq r (cons (ssname ss (setq c (1+ c))) r))<br />   )<br />   (setq r (reverse r))<br />   (vlax-safearray-fill<br />     (vlax-make-safearray vlax-vbObject (cons 0 (1- (length r))))<br />     (mapcar 'vlax-ename->vla-object r)<br />   )<br /> )<br />

2 先将选择集构造一个这样的表
((linelength1 lineentity1) (linelength2 lineentity2) ... (linelengthn lineentityn))
然后使用 vl-sort  排序就可以实现

lsjjm

最初由 zhanzujie 发布
[B]....如何对直线选择集中的直线依其长度进行排序? [/B]

试试这个程序: (可扩展为任意曲线)
[php]
(defun c:test (/ ll)
  (setq ss (ssget '((0 . "line")))) ;; 构造直线选择集
  (setq ll (acet-ss-to-list ss)) ;;将选择集子实体列表
  (setq ll (vl-sort ll   (function   (lambda (e1 e2)(< (len e1)(len e2)))))) ;; 以实体长度排序
)
(defun len (e);;求实体长度子函数
  (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
)
[/php]