在设置XDa中使用变量

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

我正在使用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”和“反应器出水”。。。我试过：

copy


(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，您阻止对列表进行评估；请尝试以下操作：

copy

(setq xdList ([color=red]list[/color] ([color=red]list[/color] -3 ([color=red]list[/color] "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

我很抱歉，今后将遵循代码发布指南-谢谢。

[编程交流] 在设置XDa中使用变量

发表回复

精选推荐