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

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

(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，以解析前缀列表：
 
(foreach newans '("Lot-Boundary-" "Lot-Annot-Perimiter-" "Lot-Annot-Name-Area-" "Lot-Set-Backs-" "Lot-Annot-Tie-")
(setq newans (strcat newans ans))
(command "la" "N" newans "C" 1 "")
)
 
当做
米尔恰

Lee Mac 发表于 2022-7-6 09:18:11

这篇文章可能有助于：
 
http://www.cadtutor.net/forum/showthread.php?65302-创建LISP&p=447101&viewfull=1#post447101的图层

Thon 发表于 2022-7-6 09:22:00

谢谢大家的帮助。
 
这是我第一次在lisp中使用用户输入。我很接近，但没有得到正确的使用。
它可以快速、正确地创建所需的层。我还添加了一行，用于复制基本布局并将其命名为用户输入。
页: [1]
查看完整版本: 使用创建多个层