oarrow 发表于 2022-7-6 07:03:48

在设置XDa中使用变量

我正在使用AutoLISP向用户绘制的线条添加扩展数据。以下代码可以正常工作：
 


(setq CLoop "CIRC1")
(if (not (tblsearch "APPID" CLoop))
   (regapp CLoop)
);end if
(setq xdList '((-3 ("CIRC1" (1000 . "Circuit 1") (1000 . "Reactor Effluent")))))

 
我很难将变量替换为“CIRC1”、“回路1”和“反应器出水”。。。我试过：


(setq LNo "Circuit 1"
       desc "Reactor Effluent"
)
(setq xdList '((-3 ("CIRC1" (cons 1000 LNo) (cons 1000 desc)))))

我还想用变量替换“CIRC1”。
 
这给了我一个糟糕的DXF组码错误。我尝试了各种列表和缺点的组合，并引用，但似乎无法得到它！
 
请帮忙-谢谢！

MSasu 发表于 2022-7-6 07:30:48

通过usign quote，您阻止对列表进行评估；请尝试以下操作：
(setq xdList (list (list -3 (list "CIRC1" (cons 1000 LNo) (cons 1000 desc)))))

SLW210 发表于 2022-7-6 07:40:38

请阅读代码发布指南，并在代码中添加代码标签。

oarrow 发表于 2022-7-6 08:02:14

我迷失在“名单”中。。。
 
这解决了我的问题-谢谢！

oarrow 发表于 2022-7-6 08:08:13

我很抱歉，今后将遵循代码发布指南-谢谢。
页: [1]
查看完整版本: 在设置XDa中使用变量