我认为可以使用“绑定外部参照”,以后可以分解。
(Defun C:bd ( )
(setvar "cmdecho" 0)
(setq oldBT (getvar "BINDTYPE"))
(setq BT (if (not BT) oldBT BT))
(setq BT_tmp
(getstring
(strcat "Input binding type<" (itoa BT) ">: ")
)
)
(if (null BT_tmp) (setq BT_tmp BT))
(setq BT (atoi BT_tmp))
(setvar "BINDTYPE" BT)
(command "-xref" "Bind" "*")
(setvar "BINDTYPE" oldBT)
(princ)
)
嗨,热心的朋友们。
能再帮我一次吗? 您不应该将“xattach”命令放在lisp中,因为每次绘制都会打开一个对话框并暂停例程(尽管您将cmddia设置为0),这会浪费大量时间。
我认为“插入”绘图是合并绘图的最佳方式。
谢谢,但我用你的惯例,画糊涂。
我上传了测试的图纸。
我希望按图纸编号安排。从左到右,从上到下
@我希望你能帮我更新你的日常生活。非常感谢。
测试。拉链 不知道为什么图形实体在插入时会更改其所有位置!!
这也许就是为什么你想使用xattach?
只要在Lisp中使用处理坐标的命令调用,就需要关闭OSNAP以避免跳转到最近对象的捕捉。
我使用INVENTOR TaskScheduler将idw图形批量转换为DWG格式。 也许这样更好。但我不知道汉字是否会影响排序列表。
4
非常感谢!707,太棒了!我喜欢它。
一些小问题。
1、如何设置行间距和列间距?
2、未按图号排序。
3、遇到错误文件。(错误:自动化错误。未提供说明。)此文档可以中断运行。
我上传了错误的文件。再次感谢。
221.idw。图纸
页:
1
[2]