请尝试以下代码:
[颜色=绿色];;自动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( 嗨,李,
这很管用!我将用下午剩下的时间思考如何以及为什么。
你(再次)提高了我的应用程序的级别,所以我只需要自己跟上。
非常感谢,祝你周日愉快
卡斯滕
杰出的我很高兴它对你有用-如果你对代码有任何问题,尽管问。
谢谢你,祝你周末愉快。
李
页:
1
[2]