Lisp例程以保存

Lee Mac · 发表于 2022-7-6 08:16:41

使用ObjectDBX文档Carsten是个好主意！

请尝试以下代码：

[code][颜色=绿色]；；自动DXF层0-Lee Mac（vl load com）（if（null*保存反应器*）（setq*保存反应器*（vlr编辑器反应器[color]nil'（[color=BLUE vlr:vlr beginsave].dxfout（））（[color=BLUE defundxfout（arg1 arg2[color=BLLST sel vrs）（if（ssget“\u X”（（8。“0”）（410。“Model”）（progn（defun*错误*（msg）（if（和（='vla对象（typedbx））（=BLUE]不是[color](vlax-object-released-pdbx））（vlax-release-objectdbx））（princ（strcat“\n错误：“msg”）（setqfnm（fnsplitl（cadrarg2））app（vlax get acad object）doc（vla get activedocumentapp）dbx（vla getinterfaceobjectapp（if（

Carsten Trolle · 发表于 2022-7-6 08:21:28

嗨，李，

这很管用！我将用下午剩下的时间思考如何以及为什么。

你（再次）提高了我的应用程序的级别，所以我只需要自己跟上。
非常感谢，祝你周日愉快
卡斯滕

Lee Mac · 发表于 2022-7-6 08:25:14

杰出的我很高兴它对你有用-如果你对代码有任何问题，尽管问。
谢谢你，祝你周末愉快。

李

[编程交流] Lisp例程以保存

发表回复

精选推荐