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

使用ObjectDBX文档Carsten是个好主意!
 
请尝试以下代码:
 
[颜色=绿色];;自动DXF层0-Lee Mac(vl load com)(if(null*保存反应器*)(setq*保存反应器*(vlr编辑器反应器nil'(].dxfout())(dxfout(arg1 arg2if(ssget“\u X”((8。“0”)(410。“Model”)(progn(defun*错误*(msg)(if(和(='vla对象(typedbx))(=BLUE]不是(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

 
杰出的我很高兴它对你有用-如果你对代码有任何问题,尽管问。
谢谢你,祝你周末愉快。
 
页: 1 [2]
查看完整版本: Lisp例程以保存