cad二次开发

along7599 2005-07-13 11:06:29
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
...全文
118 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
asuo8 2006-04-23
  • 打赏
  • 举报
回复
还是建议你用MicroDraw CAD控件。比VBA开发要快些。。。
TechnoFantasy 2005-07-13
  • 打赏
  • 举报
回复
你可以到:
http://www.vba.cn/object/acad2004/

参考一下。
TechnoFantasy 2005-07-13
  • 打赏
  • 举报
回复
你的AcadApp.ActiveDocument存在吗?是不是应该先创建一个Document。
along7599 2005-07-13
  • 打赏
  • 举报
回复
Dim Pt1(0 To 2), Pt2(0 To 2), Pt3(0 To 2), Pt4(0 To 2) As Double
原来是这里的问题,晕死了
along7599 2005-07-13
  • 打赏
  • 举报
回复
Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle(cenPt, radius)
我用这个画圆就可以

2,459

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧