从选定对象获取属性
大家好。我是lisp新手，所以我需要你的帮助。
我有一个不同线条的图表。我需要分别选择每一行，并更改其颜色和线宽。
我现在有一个问题。
这是我的选择集行的示例
(setq ssLine (ssget "X"(list (cons 0 "LWpolyline")(cons 8 "0")(cons 62 253))))
我想保持一切不变，除了最后的缺点（缺点62 253）。我希望它从我将在绘图中选择的对象中获取颜色值。
首先，我需要一些命令或变量来提示我选择一行。之后，我需要选择集将最后一个cons从222色更改为选定对象的颜色。
非常感谢。
AB公司 考虑一下这个例子：
(defun c:test ( / e )
(if
(and
(setq e (car (entsel "\nSelect LWPolyine: ")))
(eq "LWPOLYLINE" (cdr (assoc 0 (entget e))))
)
(sssetfirst nil
(ssget "_X"
(list
(cons 0 "LWPOLYLINE")
(cons 8 "0")
(cond ( (assoc 62 (entget e)) ) ( (cons 62 256) ))
)
)
)
)
(princ)
)
页:
[1]