论坛首页    职业区    学术与写作    工程技术区    软件区    资料区    商务合作区    社区办公室
 您好! 欢迎 登录注册 最新帖子 邀请注册 活动聚焦 统计排行 社区服务 帮助
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
  • 2118阅读
  • 0回复

求助:关于CAD VBA的封装问题(高额奖励) [复制链接]

上一主题 下一主题
离线lyc198004
 

发帖
496
土币
4744
威望
768
原创币
0
只看楼主 倒序阅读 使用道具 楼主  发表于: 2016-03-15
各位老师好,最近学习CAD VBA,写了代码,不会封装(就是不会做成加载文件后可以输入命令的那种),若有哪位老师肯帮忙教一下怎么封装,将赠送500~1000土币,谢谢。

比如封装如下代码:

Public Sub HelloVBA()
    '定义点
    Dim pt(0 To 2) As Double
    
    '为点赋值
    pt(0) = 100
    pt(1) = 100
    pt(2) = 0
    
    '显示对话框,并添加文字
    Dim value As Integer
    value = MsgBox("Hello,VBA!" & vbNewLine & "是否在图形中添加?", vbYesNo, "获得用户选择")
    If value = 6 Then   '6代表vbYes
        ThisDrawing.ModelSpace.AddText "Hello,VBA!", pt, 100
        '放在thisDrawing模块中的代码,可以省略thisDrawing对象
        'ModelSpace.AddText "Hello,World!", pt, 10
        'pt 为点坐标 10为字体高度
    End If
    
End Sub
神马都是浮云!
快速回复
限100 字节
温馨提示:欢迎交流讨论,请勿纯表情、纯引用!
 
上一个 下一个

      https://beian.mps.gov.cn/ 粤公网安备 44010602012919号 广州半山岩土网络科技有限公司 粤ICP备2024274469号

      工业和信息化部备案管理系统网站