[原创]用纯粹的几何计算的方法实现了Autocad的Curve类

新鲜8

问版主一个问题怎么用vba代码关闭CAD（不保存关闭）

zzyong00

新鲜8 发表于 2017-10-20 12:14
问版主一个问题怎么用vba代码关闭CAD（不保存关闭）

1. Public Sub ss()
   
2. Dim objDoc As AcadDocument, objcad As AcadApplication
   
3. Set objcad = ThisDrawing.Application
   
4. For Each objDoc In objcad.Documents
   
5.     objDoc.Close False
   
6. Next
   
7. objcad.Quit
   
8. 
   
9. End Sub

Public Sub ss()<br /> Dim objDoc As AcadDocument, objcad As AcadApplication<br /> Set objcad = ThisDrawing.Application<br /> For Each objDoc In objcad.Documents<br />     objDoc.Close False<br /> Next<br /> objcad.Quit<br /> <br /> End Sub

新鲜8

zzyong00 发表于 2017-10-20 19:29

谢谢楼主完美退出

新鲜8

zzyong00 发表于 2017-10-20 19:29

楼主谅解   刚刚入本论坛     


  谢谢 了  

JHX948954875

谢谢楼主分享

zsjlyg

CAD2018 无法使用啊，楼主可否分享一下CAD2018 版本的

zsjlyg

太好了，我现在卡在这儿了

言戲無軍

zzyong00 大神在吗，能否分享下VBA Curve类支持CAD2016的版本
论坛里的只支持CAD07~12，万分感谢

tongji007

zzyong00 大神在吗，能否分享下VBA Curve类支持 中望CAD2020 的版本  万分感谢

ayslh

我的电脑是win10系统 ，安装的是cad20087。注册dll时提示失败！恳请楼主指点一下！谢谢