插入块并设置属性

robwalker24 · 发表于 2022-7-6 09:26:17

大家好，

我现在有一个。txt文件，其中包含x和y坐标以及大约200个项目的IDname。我想创建一个lisp例程来读取这个文本文件，并在坐标中插入一个块（point.dwg），然后将IDname输入到Name属性中。

文本文件的格式如下：
60000.000 6000000.000结构1

到目前为止，我发现这很有帮助，但不知道如何修改它以满足我的需要：

（defun c：插入块（/txtFile xyData expertVar attreqVar）
（setq expertVar（getvar“专家”））
（setq attreqVar（getvar“attreq”））
（setvar“专家”2）
（setvar“attreq”0）
（setq txtFile（打开“c:\\cad\\textfile.txt”“r”）；给出x，y数据的路径和文件名
（while（setq xyData（读取行txtFile））
（命令“-insert”“point”xyData“1”“1”“0”）
)
（关闭txtFile）
（setvar“专家”expertVar）
（setvar“attreq”attreqVar）
（普林斯）
)

任何帮助都将不胜感激。

非常感谢！