宏--图纸比例修改快捷键

feelling2021 · 发表于 2022-3-18 21:54:51

经典图书

不错下来试用下

feelling2021 · 发表于 2022-3-18 22:17:18

很不错，谢谢楼主分享

sunshine0099 · 发表于 2022-3-26 07:54:36

经典图书

谢谢提供

xiaofly888 · 发表于 2022-4-9 15:04:21

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.DropDown

复制代码

加上这个你就发现更帅了

xiaofly888 · 发表于 2022-4-9 15:05:00

经典案例图书

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.DropDown

复制代码

加上这个你就发现更帅了

xiaofly888 · 发表于 2022-4-9 15:05:42

[code]Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.DropDown

复制代码

加上这个你就发现更帅了[/code]

sunsu168 · 发表于 2022-5-2 17:50:53

经典案例图书

T 大，这个更新款有了吗

dzgybao · 发表于 2022-5-2 18:28:20

感谢分享 very good

384432485 · 发表于 2022-5-3 11:43:13

顶一下，坐等高手！

nishuihanjian · 发表于 2022-5-13 10:25:24

经典图书

不错，提速还是有的

hhh001 · 发表于 2022-5-23 14:27:23

谢谢分享，不错！

wscgb123 · 发表于 2022-5-29 19:07:39

感谢楼主分享，很不错！

DFFDSGG114485 · 发表于 2022-6-15 18:19:14

很不错，谢谢楼主分享~！

DFFDSGG114485 · 发表于 2022-6-15 18:19:15

很不错，谢谢楼主分享~！

DFFDSGG114485 · 发表于 2022-6-15 18:19:16

加入QQ群
参与讨论和学习

或扫描二维码加入

很不错，谢谢楼主分享~！

DFFDSGG114485 · 发表于 2022-6-15 18:19:16

经典案例图书

很不错，谢谢楼主分享~！

qq804848912 · 发表于 2022-7-9 09:11:32

加入QQ群
参与讨论和学习

或扫描二维码加入

2022无法打开

dengchenghui · 发表于 2023-5-19 08:29:08

经典案例图书

帖主：可以开发一个宏，一键将工程图中的自定义视图比例全部更改为图纸比例吗？有这样一个的话宏好用

tg000057 · 发表于 2023-5-19 10:36:07

dengchenghui 发表于 2023-5-19 08:29
帖主：可以开发一个宏，一键将工程图中的自定义视图比例全部更改为图纸比例吗？有这样一个的话宏好用

Dim SwApp, swDraw, swView As Variant
Sub Main()
Set SwApp = Application.SldWorks
Set swDraw = SwApp.ActiveDoc
If swDraw Is Nothing Then MsgBox "请打开工程图执行！": Exit Sub
If swDraw.GetType <> 3 Then MsgBox "请打开工程图执行！": Exit Sub
Set swView = swDraw.GetFirstView
Set swView = swView.GetNextView
   Do While Not swView Is Nothing
      If swView.GetOrientationName Like "*轴测" Or swView.GetName2 Like "*剖面*" Or swView.GetName2 Like "*局部*" Then
      Else
         swView.UseParentScale = True
         If Not swView.UseParentScale Then swView.UseSheetScale = True
      End If
      Set swView = swView.GetNextView
   Loop
swDraw.EditRebuild3
End Sub

dengchenghui · 发表于 2023-5-23 09:46:56

tg000057 发表于 2023-5-19 10:36
Dim SwApp, swDraw, swView As Variant
Sub Main()
Set SwApp = Application.SldWorks

贴主，你这个开发的宏太好用了，谢谢，能再开发一个将自定义视图与父比关系的视图比列统一都改为图纸比例吗，如果这样就更完美了，SW图纸转CAD时就不存在图纸比例的问题了，，谢谢

		自动登录	找回密码
密码			立即注册

宏--图纸比例修改快捷键

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献