使用创建多个层

Thon · 发表于 2022-7-6 08:19:44

我的头撞在墙上。。。

我写了一些简单的Lisp来帮助我的日常Cad工作。

这是我的问题，我试图编写一个例程，使用公共变量创建一组层。

例子：
变量=Lot-01
产生的层；
Lot-Boundary-Lot-01标段
Lot-Annot-Perimiter-Lot-01
Lot-Annot-Name-Area-Lot-1
标段-1
Lot-Annot-Tie-Lot-1标段

它还将设置图层的颜色和线型。

谢谢你的帮助

BIGAL · 发表于 2022-7-6 08:37:30

一个简单的方法可以做很多更聪明的事情

copy


(setq ans (getstring "\nEnter variable :"))
(setq newans (strcat "Lot-Boundary-" ans))
(command "la" "N" newans "C" 1 "")
repeat last 2 lines as required

Thon · 发表于 2022-7-6 08:48:45

非常感谢。

我的问题是如何正确使用变量。

MSasu · 发表于 2022-7-6 09:07:01

为了获得更大的灵活性，您可以修改提供给您的代码BIGAL，以解析前缀列表：

copy

(foreach newans '("Lot-Boundary-" "Lot-Annot-Perim[color=red]i[/color]ter-" "Lot-Annot-Name-Area-" "Lot-Set-Backs-" "Lot-Annot-Tie-")
(setq newans (strcat newans ans))
(command "la" "N" newans "C" 1 "")
)

当做
米尔恰