设为首页收藏本站
开启辅助访问 切换到宽版

SolidWorks机械工程师网——最大的SolidWorks学习平台

 找回密码
 立即注册

QQ登录

只需一步，快速开始

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 粗糙度插入宏
123下一页
返回列表 发新帖
查看: 10517|回复: 59
打印 上一主题 下一主题

粗糙度插入宏

  [复制链接]
shinvis

4

主题

198

帖子

617

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1693

最佳新人活跃会员热心会员宣传达人灌水之王
跳转到指定楼层
楼主
 楼主| 发表于 2024-12-17 11:42:42 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

   经典图书
工程图插入粗糙度也是一个多次重复操作工作，于是做了个宏。2016版本编写

宏使用时，先在工程图点边线（零件和装配体也可以插入），再点需要的公差

宏有个BUG，2016版本没找到简单的自动识别办法：当边线在左侧时，方向会相反，这里就不再判断并反转方向了，有时间的大佬也可以去弄一下

粗糙度.gif

粗糙度.rar

（10.98 KB, 下载次数: 201 售价: 2 金币 ）

评分

参与人数 1威望 +5 金币 +52 贡献 +5 收起 理由
洪七公 + 5 + 52 + 5 赞一个!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏5 转播转播 分享教程|习题|模型|技巧 点赞点赞1 拍砖拍砖
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复

使用道具 举报

feelling2021

10

主题

90

帖子

787

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2786

最佳新人活跃会员热心会员宣传达人
推荐
发表于 2025-1-3 14:31:28 | 只看该作者
手痒忍不住写了一个

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

使用道具 举报

shinvis

4

主题

198

帖子

617

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1693

最佳新人活跃会员热心会员宣传达人灌水之王
板凳
 楼主| 发表于 2024-12-17 11:45:14 | 只看该作者

   经典图书
用了取坐标点的方法，下一期将是形位公差
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

harben82

9

主题

14

帖子

1403

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1726
QQ
地板
发表于 2024-12-17 12:39:20 | 只看该作者
很不错，顶一下！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

Kerwin1314

15

主题

322

帖子

284

金币

传奇

Rank: 8Rank: 8

积分
3847

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
5#
发表于 2024-12-17 13:47:30 | 只看该作者

   经典案例图书
shinvis 发表于 2024-12-17 11:45
用了取坐标点的方法，下一期将是形位公差

老大，要是标注其余粗糙度，应该咋改啊
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

shinvis

4

主题

198

帖子

617

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1693

最佳新人活跃会员热心会员宣传达人灌水之王
6#
 楼主| 发表于 2024-12-17 13:55:43 | 只看该作者
Kerwin1314 发表于 2024-12-17 13:47
老大，要是标注其余粗糙度，应该咋改啊

有没有图示？做工程有图才清楚你想要怎么样的
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

Kerwin1314

15

主题

322

帖子

284

金币

传奇

Rank: 8Rank: 8

积分
3847

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
7#
发表于 2024-12-17 14:06:04 | 只看该作者

   经典案例图书
shinvis 发表于 2024-12-17 13:55
有没有图示？做工程有图才清楚你想要怎么样的

显示这个样式

2024-12-17_140526.png
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

shinvis

4

主题

198

帖子

617

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1693

最佳新人活跃会员热心会员宣传达人灌水之王
8#
 楼主| 发表于 2024-12-17 14:25:23 | 只看该作者
Kerwin1314 发表于 2024-12-17 14:06
显示这个样式

这个应该做在工程图模板里
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

shinvis

4

主题

198

帖子

617

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1693

最佳新人活跃会员热心会员宣传达人灌水之王
9#
 楼主| 发表于 2024-12-17 14:38:51 | 只看该作者
Kerwin1314 发表于 2024-12-17 14:06
显示这个样式

Set mySFSymbol = Part.Extension.InsertSurfaceFinishSymbol3(1, 0, X, Y, 0, 0, 1, "其余", "", "", "", CCDZ, "", "")
找到这一句更改，新建按钮，另起一个SUB
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

shinvis

4

主题

198

帖子

617

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1693

最佳新人活跃会员热心会员宣传达人灌水之王
10#
 楼主| 发表于 2024-12-17 14:40:16 | 只看该作者

   经典图书
Kerwin1314 发表于 2024-12-17 14:06
显示这个样式

(1, 0, X, Y, 0, 0, 1, "其余", "", "", "", CCDZ, "", "")
新建SUB，增加按钮
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

Kerwin1314

15

主题

322

帖子

284

金币

传奇

Rank: 8Rank: 8

积分
3847

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
11#
发表于 2024-12-17 15:02:03 | 只看该作者
shinvis 发表于 2024-12-17 14:38
Set mySFSymbol = Part.Extension.InsertSurfaceFinishSymbol3(1, 0, X, Y, 0, 0, 1, "其余", "", "", "" ...

嘿嘿，再追问一句要是显示这个是改动第几位

2024-12-17_150113.png
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

shinvis

4

主题

198

帖子

617

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1693

最佳新人活跃会员热心会员宣传达人灌水之王
12#
 楼主| 发表于 2024-12-17 15:17:26 | 只看该作者
Kerwin1314 发表于 2024-12-17 15:02
嘿嘿，再追问一句要是显示这个是改动第几位

InsertSurfaceFinishSymbol3
打开API帮助，配合翻译助手，那里讲解的更详细。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

qxzch

0

主题

200

帖子

1726

金币

传奇

Rank: 8Rank: 8

积分
5852

最佳新人活跃会员热心会员宣传达人灌水之王
13#
发表于 2024-12-17 16:02:00 | 只看该作者
很不错，顶一下！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

3869

0

主题

612

帖子

458

金币

传奇

Rank: 8Rank: 8

积分
3680

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
14#
发表于 2024-12-17 16:13:31 | 只看该作者
感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

liyuyin007

20

主题

1355

帖子

170

金币

传奇

Rank: 8Rank: 8

积分
6765

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
15#
发表于 2024-12-18 08:14:41 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

活到老学到老！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

3869

0

主题

612

帖子

458

金币

传奇

Rank: 8Rank: 8

积分
3680

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
16#
发表于 2024-12-18 08:22:21 | 只看该作者

   经典案例图书
使用时窗口不显示？怎么设置
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

hdgd501

8

主题

678

帖子

983

金币

实习版主

Rank: 7Rank: 7Rank: 7Rank: 7

积分
6217

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
17#
发表于 2024-12-18 08:24:11 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

nbxhynbxhy

1

主题

281

帖子

657

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2502

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
18#
发表于 2024-12-18 08:30:57 | 只看该作者

   经典案例图书
很不错，顶一下！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

shinvis

4

主题

198

帖子

617

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1693

最佳新人活跃会员热心会员宣传达人灌水之王
19#
 楼主| 发表于 2024-12-18 08:40:24 | 只看该作者
3869 发表于 2024-12-18 08:22
使用时窗口不显示？怎么设置

首先，VBA并不强大，只能简单的画一个窗口
做这个时，用了多种设置，但也不能很好的处理一个问题：默认设置运行宏时，出现的窗口有一定机率置顶且不可点动其他地方，限定在弹出的窗口，就没法执行后面操作了。

运行时一定要先启动   Main主程序。
form 没show,当然不会显示
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

董东咚

41

主题

2309

帖子

2972

金币

传奇

Rank: 8Rank: 8

积分
8939

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
20#
发表于 2024-12-18 09:06:23 | 只看该作者
这跟你那不一样啊？咋回事？
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

shinvis

4

主题

198

帖子

617

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1693

最佳新人活跃会员热心会员宣传达人灌水之王
21#
 楼主| 发表于 2024-12-18 09:11:18 | 只看该作者
董东咚 发表于 2024-12-18 09:06
这跟你那不一样啊？咋回事？

怎么不一样法？
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

手机版|小黑屋| GMT+8, 2025-5-23 07:30 , Processed in 0.345536 second(s), 25 queries , Memcache On.

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

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

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