[求助]：怎样实现两个选择集按照位置来一一对应，通过lisp传递特性(properties)

yinzhenyu

类似于格式刷，将源集的各个物体若干特性（properties）传递到目标集上。通过lisp程序按照自己的需要编程，实现只改变某一种特性的功能（如只刷尺寸的箭头，圆的直径，文字的内容，直线的线形）

我试过用(ssname ss n)这个命令，但它好像是按物体产生的顺序来对应的，不能实现按位置来对应。

陌生人

按位置在实际操作中因情况多种多样，难以确保“安全”执行

yinzhenyu

那可以告诉我选择集里的物体是怎样排序的吗？

wkai

用表来保存
表A ( entname_1a entname_2a entname_3a ...   )
表B ( entname_1b entname_2b entname_3b ...   )

aeo

按实体类型分类。

在原来的先得到各种信息:
(("LINE" "dashed")("CIRCLE" 200)("DIMENTION" "DIMA").....)


刷时，再按实体类型付上特性.
(cond ((=(dxf 1 en)"LINE") ....
         ((= ... "CIRCLE") ...
)

lsjjm

最初由 yinzhenyu 发布
[B]那可以告诉我选择集里的物体是怎样排序的吗？ [/B]

选择集里的实体是按其生成的次序排序的.按位置排序需要编程.
请参考:
(defun sortsets (ents / slist n ss)   
  (setq ss (ssadd))
  (setq n 0)
  (while (< n (sslength ents))
    (pt (ssname ents n))
    (setq slist (append slist (list (list (ssname ents n) pt1 pt2))))
    (setq n (1+ n))
  )
  (setq slist (vl-sort slist '(lambda (x1 x2)
    (if (equal (car (cadr x1))(car (cadr x2)) 0.001)
      (< (car (last x1))(car (last x2)))
      (< (car (cadr x1))(car (cadr x2)))
    )
  )))
  (foreach i slist (setq ss (ssadd (car i) ss)))
  ss
)
pt-求实体端点的子程序
;