设为首页收藏本站

开启辅助访问切换到宽版

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › GENERALTABLEFEAT和BomFeature的应用

发新帖

查看: 1417|回复: 1

上一主题

下一主题

GENERALTABLEFEAT和BomFeature的应用

7 主题	71 帖子	39 金币

Rank: 2 Rank: 2

积分: 163

电梯直达

跳转到指定楼层

楼主

发表于 2016-3-17 19:17:26 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

经典图书

Private Sub ll()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Dim tmp, SwGenFeat As GeneralTableFeature
tmp = SwModel.Extension.SelectByID2("General Table1", "GENERALTABLEFEAT", 0, 0, 0, False, 0, Nothing, 0)
Set SwGenFeat = SwSelMgr.GetSelectedObject5(1)
Debug.Print SwGenFeat.GetFeature.Name
End Sub

复制代码

''
Private Sub ll1()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Dim SwBomFeat As BomFeature
Set SwBomFeat = SwSelMgr.GetSelectedObject5(1)
Debug.Print SwBomFeat.GetFeature.Name
End Sub

复制代码

Private Sub ll()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Dim SwTabAnn As TableAnnotation
Set SwTabAnn = SwSelMgr.GetSelectedObject5(1)
Dim SwAnn As Annotation
With SwTabAnn
For ii = 0 To .RowCount - 1
Set SwAnn = .GetAnnotation
Debug.Print SwAnn.GetName
SwAnn.Select False
Stop
Next ii
Stop
End With
End Sub

复制代码

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏1 转播 教程|习题|模型|技巧0 点赞8246 拍砖65

SolidWorks机械工程师网

提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）

回复

使用道具举报

20 主题	80 帖子	111 金币

Rank: 3 Rank: 3 Rank: 3

积分: 297

沙发

发表于 2016-3-17 19:21:45 | 只看该作者

远东卓越

佩服你，能发这么好的帖子，厉害

SolidWorks机械工程师网

提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）

回复支持反对

使用道具举报

发新帖

SOLIDWORKS 2023 机械设计从入门到精通

手机版|小黑屋| GMT+8, 2025-7-23 09:41 , Processed in 0.807662 second(s), 24 queries , Memcache On.

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明：本网言论纯属发表者个人意见，与本网立场无关。
如涉版权，可发邮件： admin@swbbsc.com

快速回复 返回顶部 返回列表