请大家看看这个程序 为什么有些功能无法用！

zyhandw

spp_wall 发表于 2013-10-20 10:26
谢谢！！！！！！不想给电脑装那么多版本CAD

今天又翻回来看了下错误: Automation 错误的问题，发现是因为xo-infdo函数中处理关于CAD版本信息时的设定时出的问题，可以把基中的

1. (setq verkey  (if (> (atoi (getvar "AcadVer")) 15)
   
2.         ".16"
   
3.         ""
   
4.       )

(setq verkey  (if (> (atoi (getvar "AcadVer")) 15)<br />         ".16"<br />         ""<br />       )

改为

1. (setq verkey  (if (> (atoi (getvar "AcadVer")) 15)
   
2.         ".17"
   
3.         ""
   
4.       )

(setq verkey  (if (> (atoi (getvar "AcadVer")) 15)<br />         ".17"<br />         ""<br />       )

就可以了！

llsheng_73

这是高人的作品，由于我不懂dbx，所以只简单看了几分钟，它不支持2008的一个最重要的原因，当时还没2008出来

而现在版本已经到2015了，除了要按楼上那样进行一些修改外
后边的Set ObjDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")可能也要根据版本多写几个支持库才能更好的支持一些别的版本

spp_wall

zyhandw 发表于 2014-4-19 17:35
今天又翻回来看了下错误: Automation 错误的问题，发现是因为xo-infdo函数中处理关于CAD版本信息时的设定 ...

谢谢！！！！！！最近忙 学得一点lisp知识 又忘得差不多了！！唉  难啊！