社区 › VBA/VB/ActiveX/API 编程技术 › [原创]用纯粹的几何计算的方法实现了Autocad的Curve类

新鲜8 发表于 2017-10-20 12:14:17

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

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

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


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

End Sub

新鲜8 发表于 2017-10-21 07:31:12

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


谢谢楼主完美退出

新鲜8 发表于 2017-10-22 10:06:45

本帖最后由 新鲜8 于 2017-10-22 13:24 编辑

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


楼主谅解   刚刚入本论坛   


谢谢 了

JHX948954875 发表于 2018-11-7 10:41:55

谢谢楼主分享

zsjlyg 发表于 2019-1-8 22:45:17

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

zsjlyg 发表于 2019-1-14 19:17:02

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

言戲無軍 发表于 2019-7-25 22:45:21

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

tongji007 发表于 2019-12-9 11:55:26

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

ayslh 发表于 2019-12-26 18:03:53

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

查看完整版本: [原创]用纯粹的几何计算的方法实现了Autocad的Curve类