VBA
cad二次开发
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区Dim AcadApp As AcadApplication
Dim CarObj As AcadSolid
Function Car(x)
Dim Pt1(0 To 2), Pt2(0 To 2), Pt3(0 To 2), Pt4(0 To 2) As Double
Pt1(0) = x(0) - 0.25: Pt1(1) = x(1) + 0.25: Pt1(2) = 0
Pt2(0) = x(0) + 0.25: Pt2(1) = x(1) + 0.25: Pt2(2) = 0
Pt3(0) = x(0) - 0.25: Pt3(1) = x(1) - 0.25: Pt3(2) = 0
Pt4(0) = x(0) + 0.25: Pt4(1) = x(1) - 0.25: Pt4(2) = 0
Set CarObj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Pt1, Pt2, Pt3, Pt4)运行的时候这里提示无效的过程调用或参数，应该怎么改？
CarObj.Color = acBlue
End Function
Dim CarObj As AcadSolid
Function Car(x)
Dim Pt1(0 To 2), Pt2(0 To 2), Pt3(0 To 2), Pt4(0 To 2) As Double
Pt1(0) = x(0) - 0.25: Pt1(1) = x(1) + 0.25: Pt1(2) = 0
Pt2(0) = x(0) + 0.25: Pt2(1) = x(1) + 0.25: Pt2(2) = 0
Pt3(0) = x(0) - 0.25: Pt3(1) = x(1) - 0.25: Pt3(2) = 0
Pt4(0) = x(0) + 0.25: Pt4(1) = x(1) - 0.25: Pt4(2) = 0
Set CarObj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Pt1, Pt2, Pt3, Pt4)运行的时候这里提示无效的过程调用或参数，应该怎么改？
CarObj.Color = acBlue
End Function
...全文
相关推荐
CAD二次开发实例源码
包含100多个CAD开发实例，非常有用，欢迎大家下载学习
AUTOCAD二次开发源码共享.zip_CAD二次开发_CAD开发_cad 二次开发_cad二次_二次开发
十分推荐，含大量CAD二次开发源码共享。。
revit二次开发读取cad信息并生成构件
revit二次开发，利用Teigha读取cad的图形和文字信息，并在revit中生成构件，可用做revit翻模案例的参考
1000个小CAD二次开发LISP程序源码
1000个小CAD二次开发LISP程序源码，开源代码，使用AutoCAD加载可以使用。
python查看CAD扩展属性，CAD二次开发python
python读取CAD的扩展属性，并展示在界面上，python二次开发CAD扩展属性，pyqt5设计界面，cass扩展属性的提取，里面包含源代码及打包好exe。
