插入块并设置属性
大家好，我现在有一个。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）
（普林斯）
)
任何帮助都将不胜感激。
非常感谢！ 不是我最好的代码，但应该做你的出价
也可以试试我的Point Manager程序。 李，
非常感谢您的快速回复。
我无法让那个特定的代码工作。当我运行它时，我在命令行中得到以下消息：
值必须为非零。
输入Y比例因子：
如果我错过了一些东西，我很抱歉，这些东西对我来说是新的！
再次感谢，
干杯
Rob，我认为程序可能使用了错误的点块，它有太多的属性。创建一个新块，并将其命名为类似点1的名称，该点只有一个名为“structure”的属性。修改Lees代码，现在查找名为point1或其他的新块。把它保存到acad可以找到的地方，我认为一切都会很酷。
史蒂夫 抱歉，Rob，我在LISP中不太经常使用“-Insert”命令，但提示似乎因版本而异-我现在更新了上面的代码，以明确说明比例和旋转，并绕过提示。
李
页:
[1]