![](https://img-blog.csdnimg.cn/20201014180756930.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
王小涛_同學
无魔法使用Chatgpt shiyu.chat/shi-yu
1.支持AI语音回复
2.支持AI聊天
3.支持在任意APP内使用Chatgpt
4.支持 Siri集成
展开
-
VB 连接AutoCad 模块代码
Option ExplicitPublic acadapp As AcadApplicationPublic Sub 连接autocad()On Error Resume NextSet acadapp = GetObject(, "autocad.applicatior")If Err Then Err.Clear Set acadapp = creatobject(原创 2015-10-06 23:24:53 · 3532 阅读 · 0 评论 -
VB CAD插件二次开发
Dim acadapp As AcadApplication '在窗体代码声明段定义acadappPrivate Sub Command1_Click()acadapp.Documents.Add '创建新的图形文件End SubPrivate Sub Command2_Click()Dim myfilename As StringMe.CommonDialog1.ShowOp原创 2015-10-07 00:29:15 · 5191 阅读 · 1 评论