关于VB对CAD二次开发的一个小问题
首先是引用了CAD的，然后也声明了CAD对象我在模块中这样写的：PublicSubBack_Point(ByRefArr()asdouble)DimPointobjasA...
首先是引用了CAD的，然后也声明了CAD对象
我在模块中这样写的：
Public Sub Back_Point (ByRef Arr() as double)
Dim Pointobj as Acadpoint '声明点对象
set PointObj = Acadapp.AvtiveDocument.Modelspace.Addpoint(Arr) '创建点
Acadapp.ActiveDocument.SetVariable "PDMODE", 32 '设置点样式
Acadapp.Zble "PDSIZE", 0.1 '设置点大小
Acadapp.ActiveDocument.SetVariate Acadapp.Caption 'CAD获取焦点
Acadapp.ZoomExtents '极限放大
End sub
然后我在窗口的一个按钮控件中这样写，数组中所包含的值都有
Call Pointobj (Location())
结果是传递参数没问题就是在Set的时候提示
我没有使用With语句。 展开
我在模块中这样写的：
Public Sub Back_Point (ByRef Arr() as double)
Dim Pointobj as Acadpoint '声明点对象
set PointObj = Acadapp.AvtiveDocument.Modelspace.Addpoint(Arr) '创建点
Acadapp.ActiveDocument.SetVariable "PDMODE", 32 '设置点样式
Acadapp.Zble "PDSIZE", 0.1 '设置点大小
Acadapp.ActiveDocument.SetVariate Acadapp.Caption 'CAD获取焦点
Acadapp.ZoomExtents '极限放大
End sub
然后我在窗口的一个按钮控件中这样写，数组中所包含的值都有
Call Pointobj (Location())
结果是传递参数没问题就是在Set的时候提示
我没有使用With语句。 展开
1个回答
2013-05-09 · 知道合伙人教育行家
杨杨玄
知道合伙人教育行家
采纳数：5028
获赞数：9553
1、熟悉各种职业教育 2、熟悉Office2007办公软件的使用 3、熟悉建筑学基础知识 4、熟悉CAD、cass的使用
向TA提问 私信TA
关注
![]()
展开全部
你想实现啥功能啊！
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
