zyhandw 发表于 2014-4-19 17:35:03

spp_wall 发表于 2013-10-20 10:26 static/image/common/back.gif
谢谢！！！！！！不想给电脑装那么多版本CAD

今天又翻回来看了下错误: Automation 错误的问题，发现是因为xo-infdo函数中处理关于CAD版本信息时的设定时出的问题，可以把基中的
(setq verkey(if (> (atoi (getvar "AcadVer")) 15)
      ".16"
      ""
      )
改为
(setq verkey(if (> (atoi (getvar "AcadVer")) 15)
      ".17"
      ""
      )
就可以了！

llsheng_73 发表于 2014-4-19 19:43:05

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

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

spp_wall 发表于 2014-4-19 21:34:22

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

谢谢！！！！！！最近忙 学得一点lisp知识 又忘得差不多了！！唉难啊！
页: 1 [2]
查看完整版本: 请大家看看这个程序 为什么有些功能无法用！