更改为现有lisp。。。

V-SAM · 发表于 2022-7-6 06:24:41

好啊我有一个当前的lisp，允许我选择一个块，然后它会要求一个点作为引线和文本来报告块的名称。我希望它做的是允许我打开窗口并选择所有块，然后在块附近的某个地方自动添加引线和名称。。。有人想看看这个吗？？

;列名
;版权所有2011
;版本1.0.0
（defun C:ColName（）；使用此命令执行。根据需要调用其他函数。
（setq列（car（nentsel“选择列：”））；选择列
（setq数据（entget列））；从单击的列中获取数据。
（setq NuvuItem（cdr（assoc 0数据）））；这是项目的名称
（setq a（cdr（assoc 10数据）））；a是柱的插入点
（if（=NuvuItem“NUVUCOLUMN”）（ColID）（end））；检查以确保它是一列，如果不是，则结束
)
（Defun ColID（）
（setq NuvuBeamType（cdr（assoc 301数据））；设置列类型
;（命令“_.mtext”a“H”“6”“R”“45”“J”“BR”（getpoint）NuvuBeamType“”）
;与领导者合作更好
（命令“_.leader”a（getpoint）“F”“”“N”“NuvuBeamType”“）；为列添加标签
（END2）；清洁端
（普林斯）
（普林斯）
)

（defun end（）
（Princ“非列”）；如果不是柱，则清洁末端
（普林斯）
)
（DEFUN END2（）
（普林斯）
)

[编程交流] 更改为现有lisp。。。

发表回复

精选推荐