从选定对象获取属性

aboychuk · 发表于 2022-7-6 09:56:02

大家好。
我是lisp新手，所以我需要你的帮助。
我有一个不同线条的图表。我需要分别选择每一行，并更改其颜色和线宽。
我现在有一个问题。

这是我的选择集行的示例

(setq ssLine (ssget "X"(list (cons 0 "LWpolyline")(cons 8 "0")(cons 62 253))))

我想保持一切不变，除了最后的缺点（缺点62 253）。我希望它从我将在绘图中选择的对象中获取颜色值。
首先，我需要一些命令或变量来提示我选择一行。之后，我需要选择集将最后一个cons从222色更改为选定对象的颜色。

非常感谢。

AB公司

Lee Mac · 发表于 2022-7-6 10:57:20

考虑一下这个例子：

copy


(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)
)

[编程交流] 从选定对象获取属性

发表回复

精选推荐