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

标题: 【改编】色卡颜色宏 [打印本页]
作者: tg000057    时间: 2023-4-16 11:58
标题: 【改编】色卡颜色宏
原贴是A神的：【改良】RAL及国标色卡颜色宏
1.修改了界面，
2.增加了pantong色号，
3.删除了对装配体的上色，所有的涂色都是对零件文档的。
4.A神原版的删除色，不知道为什么对本人的建模特征色不生效，只能打开零件才生效，故修改为打开上色。
5.此宏本意为出效果图给客户看，应用为装配体或零件中对一个或多个零件，或其一个或多个面上色，没应用其特征或实体上色。
6.此宏修改后没有多版本测试，版权仍为原贴作者所有，此仅供交流使用，请谨慎下载。
7.其余说明请看图片！

QQ截图20230416113820.png

设置颜色.zip

（277.38 KB, 下载次数: 86 售价: 8 金币 ）

作者: duanli96    时间: 2023-4-17 13:32
用不了用不了用不了用不了用不了

111.jpg
作者: tg000057    时间: 2023-4-17 14:29
标题: 新版视频
更新了一下版本，新版代码就不上传，只上传个视频，给大家一个参考。
注意只有视频，谨慎下栽！

QQ截图20230417143154.jpg

0416.mp4

（2.26 MB, 下载次数: 99 ）

作者: tg000057    时间: 2023-4-17 14:35
duanli96 发表于 2023-4-17 13:32
用不了用不了用不了用不了用不了

看扫盲贴！
作者: 1194753477    时间: 2023-4-17 14:37
感谢楼主分享，很不错！
作者: duanli96    时间: 2023-4-17 14:53
tg000057 发表于 2023-4-17 14:35
看扫盲贴！

运行后这是这样，扫什么盲？

222.jpg
作者: tg000057    时间: 2023-4-17 15:04
duanli96 发表于 2023-4-17 14:53
运行后这是这样，扫什么盲？

然后再看下我上面说明，没有多版本测试，仅供交流！

QQ截图20230417150239.jpg
作者: xx123458xx    时间: 2023-4-27 10:13
这个潘通色卡值是907色的那个，色值不是很准，截图右侧是修正过的颜色色值，潘通C卡1~7号一共有2390色。



作者: 念心nx    时间: 2023-4-27 12:08
感谢楼主分享，很不错！
作者: tg000057    时间: 2023-4-28 09:08
xx123458xx 发表于 2023-4-27 10:13
这个潘通色卡值是907色的那个，色值不是很准，截图右侧是修正过的颜色色值，潘通C卡1~7号一共有2390色。

...

907色是网上找的下载的，没有具体的核对过色值，修改过的色值色号你有资料吗，能不能分享一下？
作者: xx123458xx    时间: 2023-4-28 09:56
tg000057 发表于 2023-4-28 09:08
907色是网上找的下载的，没有具体的核对过色值，修改过的色值色号你有资料吗，能不能分享一下？

分享一个给你。2390色，潘通C卡1~7号段。

CASE.txt (384.51 KB, 下载次数: 34, 售价: 5 金币)
DIC.txt (48.93 KB, 下载次数: 154, 售价: 5 金币)




作者: tg000057    时间: 2023-4-28 10:33
xx123458xx 发表于 2023-4-28 09:56
分享一个给你。2390色，潘通C卡1~7号段。

感谢大佬的资料，共有2390色号值弄上去。
投桃抱李，
我把新更改的宏传上来，
直接用字典储存色号与其值，比现在用case的简便多了。
而且增加了其他功能，自行发现....


补充的内容 (2023-5-5 17:10):
为了不必要麻烦，新功能说明直接在后面上传个视频吧，不太清楚功能的，就多用一个金币下载视频看看。

000.jpg

设置颜色-.zip

（333.08 KB, 下载次数: 124 售价: 12 金币 ）

作者: 念心nx    时间: 2023-4-28 19:54
感谢楼主分享，很不错！
作者: 331459561    时间: 2023-4-29 07:16
楼主太厉害了
作者: 念心nx    时间: 2023-4-30 22:40
新传的好像用不了0.0

Snipaste_2023-04-30_22-41-09.png
作者: 风一样的男子    时间: 2023-5-4 16:42
感谢楼主分享，很不错！
作者: igxoqve    时间: 2023-5-5 07:19
楼主有点不太地道,即然收费了就应该给完整的代码,来下载的就是想直接下下来使用,要么就是看看有没有好的方法思路,懂代码的修改后才可以用
作者: igxoqve    时间: 2023-5-5 07:31
楼主有点不太地道,即然收费了就应该给完整的代码,来下载的就是想直接下下来使用,要么就是看看有没有好的方法思路,懂代码的修改后才可以用,我不能上传图片,也不能上传附件,所以只能打字说说:第一把设置颜色模块里的
'If Dir("C:\ma_t_f", vbDirectory) = "" Then MkDir "C:\ma_t_f"
'Dim Ma_p_n_ As String
'Ma_p_n_ = Application.SldWorks.GetCurrentMacroPathName
'Ma_p_n_ = Left(Ma_p_n_, InStrRev(Ma_p_n_, "\") - 1)
'Ma_p_n_ = Left(Ma_p_n_, InStrRev(Ma_p_n_, "\") - 1)
'Application.SldWorks.RunMacro Ma_p_n_ & "\宏启动器.swp", "ms_ms", "msms"
'If Dir("C:\ma_t_f", vbDirectory) <> "" Then Exit Sub
这些删除
第二在usfSetColor用户窗体里代码增加'选择零件
Private Sub CommandButton2_Click()
   
    Dim swPart              As SldWorks.ModelDoc2
    Dim swSelectionMgr      As SldWorks.SelectionMgr
    Dim count               As Integer
    Dim i                   As Integer
    Dim swModel2()          As Variant
   
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    PathName = swModel.GetPathName
   
    If swModel.GetType = 1 Then
        Set_Bo = 3
        Label5.Caption = "已选择当前<零件>对象！"
        swModel.ClearSelection2 True                 '取消选择
        set_color
    ElseIf swModel.GetType = 2 Then
        Set swSelectionMgr = swModel.SelectionManager
        count = swSelectionMgr.GetSelectedObjectCount2(-1)
        If count = False Then MsgBox "请选择对象!": Exit Sub
        Set Path_Arr = CreateObject("Scripting.Dictionary")   '文档路径
        
        For i = 0 To count - 1
            ReDim Preserve swModel2(i)
            Set swModel2(i) = swSelectionMgr.GetSelectedObjectsComponent4(i + 1, -1)
        Next i
        
        h = 0
        For i = 0 To count - 1
            If swModel2(i).GetSuppression = 1 Then swModel2(i).SetSuppression2 2
            Set swPart = swModel2(i).GetModelDoc2
            If swPart.GetType = 1 Then
                If Path_Arr.Exists(swPart.GetPathName) = False Then
                  Path_Arr(swPart.GetPathName) = ""
                  ReDim Preserve Set_Co(h)
                  Set Set_Co(h) = swPart
                  h = h + 1
                End If
            Else
                asm_get swPart '遍历子装配体内零件
            End If
        Next i
        
        Set_Bo = 2
        Label5.Caption = "已选择" & Path_Arr.count & "个<零件>对象！"
        swModel.ClearSelection2 True       '取消选择
        set_color
    End If
   
End Sub
增加了这两行代码: set_color

作者: tg000057    时间: 2023-5-5 09:25
igxoqve 发表于 2023-5-5 07:19
楼主有点不太地道,即然收费了就应该给完整的代码,来下载的就是想直接下下来使用,要么就是看看有没有好的方 ...

改编版和升级版均是完整代码，贴说明第6点讲了“交流使用，请谨慎下载”。
作者: tg000057    时间: 2023-5-5 09:44
igxoqve 发表于 2023-5-5 07:31
楼主有点不太地道,即然收费了就应该给完整的代码,来下载的就是想直接下下来使用,要么就是看看有没有好的方 ...

第一点是我这边配合宏启动器使用的，可以删除不要。第二点不用修改。
作者: igxoqve    时间: 2023-5-5 10:55
tg000057 发表于 2023-5-5 09:44
第一点是我这边配合宏启动器使用的，可以删除不要。第二点不用修改。

不修改,你哪个设定颜色能运行,鬼信
作者: tg000057    时间: 2023-5-5 11:47
igxoqve 发表于 2023-5-5 10:55
不修改,你哪个设定颜色能运行,鬼信

贴说明都没去看的人，爱信不信！
作者: tg000057    时间: 2023-5-5 12:19
igxoqve 发表于 2023-5-5 10:55
不修改,你哪个设定颜色能运行,鬼信

靓仔，这一段代码是获取零件的，要双击色号才是应用到零件的，你看了贴说明了吗？
其作用是：选择零件后可以切换不同颜色看整体效果。
，

另外，这个是交流贴，并不是售卖贴，没有人要你的金币，金币也换不了人民币，把这里的代码拿到某宝上面卖的人多了去，给过一分钱原作了吗？
代码有没有问题可以交流，人地不地道不需要评论，我能发出来，代表我有交流的意向，总比一直做伸手党的强。
作者: Allate    时间: 2023-5-5 13:14
tg000057 发表于 2023-5-5 11:47
贴说明都没去看的人，爱信不信！

估计他就是不会看说明的人，难怪连图片都发不出来。
作者: igxoqve    时间: 2023-5-5 15:18
Allate 发表于 2023-5-5 13:14
估计他就是不会看说明的人，难怪连图片都发不出来。

可能吧,我只想问版主,你有没有运行过本宏,我下下来,F8调试后,没有SET_CORLE这句代码后面的改变颜色也不会运行,还好我会写代码,只不过我下下为看看作都的思路方法而已
作者: igxoqve    时间: 2023-5-5 16:21
tg000057 发表于 2023-5-5 12:19
靓仔，这一段代码是获取零件的，要双击色号才是应用到零件的，你看了贴说明了吗？
其作用是：选择零件后 ...

首先向你致谢,你能分享出来做了贡献,但你的代码明显是做了手脚,把后面调用设置颜色的代码删了,你自己看看你的代码,要不然你的Private Sub set_color() 功能过程不会起作用,这个过程里最后还是调用改变颜色的过程函数代码(ChangeColor swDoc ),难道是我说错了?
作者: tg000057    时间: 2023-5-5 16:30
igxoqve 发表于 2023-5-5 16:21
首先向你致谢,你能分享出来做了贡献,但你的代码明显是做了手脚,把后面调用设置颜色的代码删了,你自己看看 ...

看清楚点吧!

001.jpg

002.jpg
作者: igxoqve    时间: 2023-5-5 16:54
tg000057 发表于 2023-5-5 16:30
看清楚点吧!

难道作都的思路是,先选零 件或面,点应用到零 件或面这个按钮,再双击颜色?如果这样的思路就怪,让人看到应用到面或应用到零 件这两个按钮误导,刚试了下,选择好,再点应用,再点颜色,可以运行,但我现在把代码改了下,点应用零件或面直接上色,先选对象,选颜色,再点应用一样可以上色,又击颜色也一样可以上色
作者: tg000057    时间: 2023-5-5 17:08
igxoqve 发表于 2023-5-5 16:54
难道作都的思路是,先选零 件或面,点应用到零 件或面这个按钮,再双击颜色?如果这样的思路就怪,让人看到应 ...

怎么怪是我的做法，贴说明有写，视频也有。有没有误导是你的事，一出现不理解的就指责别人。
现在是不是要说一下，“地道”，“鬼信”和“做手脚”了。



作者: tg000057    时间: 2023-5-5 17:29
tg000057 发表于 2023-4-28 10:33
感谢大佬的资料，共有2390色号值弄上去。
投桃抱李，
我把新更改的宏传上来，

更新上传的使用视频。

555555555555.mp4

（3.85 MB, 下载次数: 31 ）

作者: igxoqve    时间: 2023-5-5 18:59
tg000057 发表于 2023-5-5 17:08
怎么怪是我的做法，贴说明有写，视频也有。有没有误导是你的事，一出现不理解的就指责别人。
现在是不是 ...

不好意思,是我没看透你的代码思路,对不起
作者: UDF998    时间: 2023-5-7 23:48
很不错，顶一下！
作者: igxoqve    时间: 2023-5-8 13:49
Allate 发表于 2023-5-5 13:14
估计他就是不会看说明的人，难怪连图片都发不出来。

用了楼主的一部份代码，改了一部份用户窗体，瞎玩了一把，发不出图片是IE的问题，我用QQ浏览器就不行

124.gif

123.gif
作者: igxoqve    时间: 2023-5-8 14:28
igxoqve 发表于 2023-5-8 13:49
用了楼主的一部份代码，改了一部份用户窗体，瞎玩了一把，发不出图片是IE的问题，我用QQ浏览器就不行

增加了一定的提示，让用户看一眼就会用

1233.png
作者: LIUSMAN    时间: 2023-5-9 16:53
这种东西感觉太高科技了
作者: igxoqve    时间: 2023-5-9 17:39
LIUSMAN 发表于 2023-5-9 16:53
这种东西感觉太高科技了

打铁佬很少用得上的，只是拿来玩玩
作者: dragon045    时间: 2023-5-19 07:31
感谢楼主分享，很不错！
作者: kinyon    时间: 2023-5-19 08:23
igxoqve 发表于 2023-5-8 14:28
增加了一定的提示，让用户看一眼就会用

大哥把宏命令发上来分享一下啊
作者: superanyway    时间: 2023-6-30 15:50
最新版是2023吗  楼主能不能做成插件用，比较方便
作者: cocoly    时间: 2023-7-1 21:42
楼主太有才了，膜拜中……
作者: 852746249    时间: 2023-7-2 10:02
看蒙了,这更新的,哪一版是最新的,下了一版不是图片那样的
作者: SW初学00    时间: 2023-7-2 10:38
好东西，努力学习学习！
作者: peng188    时间: 2023-7-5 13:26
我就是想收录下 哈哈
作者: lujing115    时间: 2023-7-7 14:01
tg000057 发表于 2023-5-5 17:29
更新上传的使用视频。

楼主大才，学习了
作者: 893159804    时间: 2023-7-8 11:22
都是神人！
作者: 懒懒的高贵    时间: 2023-8-4 14:10
感谢楼主分享，很不错！
作者: 念心nx    时间: 2023-8-5 09:12
igxoqve 发表于 2023-5-8 14:28
增加了一定的提示，让用户看一眼就会用

大佬能分享一下吗？
作者: 冬眠2022    时间: 2023-8-7 13:29
楼主太有才了，膜拜中……
作者: 夕梦恋    时间: 2023-8-7 19:41
楼主太有才了，膜拜中……
作者: doszmw    时间: 2023-10-8 15:41
感谢楼主分享，很不错！
作者: zxt0824    时间: 2023-11-2 08:23
感谢楼主分享，很不错！
作者: lq878185274    时间: 2023-11-11 16:56
楼主太有才了，膜拜中……
作者: 随遇而安9528    时间: 2023-11-11 20:27
下载下来看看，应该会有用！
作者: dije159    时间: 2023-11-15 10:11
谢谢楼主，辛苦了！
作者: dengchenghui    时间: 2023-12-26 13:45
igxoqve 发表于 2023-5-8 14:28
增加了一定的提示，让用户看一眼就会用

大神你这个更改颜色的宏能发一个给我吗？谢谢、、、、649798756@qq.com
作者: richiwei    时间: 2023-12-29 18:56
不错，下载学习一下
作者: wxn153    时间: 2023-12-30 08:47
不做效果图的打铁匠
作者: zj78711340    时间: 2024-1-1 01:39
感谢楼主分享，很不错！
作者: yni621    时间: 2024-1-5 11:14
igxoqve 发表于 2023-5-8 14:28
增加了一定的提示，让用户看一眼就会用

兄弟，你这个还可以，分享一下呗
作者: 看不见的妳    时间: 2024-1-10 16:00
tg000057 发表于 2023-4-17 15:04
然后再看下我上面说明，没有多版本测试，仅供交流！

能运行，但是点击应用之后没反应，引用也都勾选了，我是sw2020sp5，引用都对应勾选为2020的版本了，excel是勾选16.0的。跟电脑里安装wps有关系吗？实在是不知道怎么回事这个宏看着太好了，出设备效果图的神器。sw切换成英文也试过，都没反应，宏的窗口倒是会弹出来。

补充内容 (2024-1-10 17:04):
不好意思，是我没看明白操作演示那个动图，根据34楼的文字提示搞明白怎么操作了。感谢大神无私奉献，膜拜大佬
作者: zj78711340    时间: 2024-1-10 17:23
楼主辛苦了！
作者: zj78711340    时间: 2024-1-10 17:40
楼主 找不到工程或库是什么意思

作者: zj78711340    时间: 2024-1-10 22:10
大佬，我扫盲后，点击运行宏什么反应都没有是什么原因？

Snipaste_2024-01-10_22-08-59.jpg
作者: 看不见的妳    时间: 2024-1-13 09:28
zj78711340 发表于 2024-1-10 22:10
大佬，我扫盲后，点击运行宏什么反应都没有是什么原因？

你的引用里面Microsoft Excel 14.0 object library勾选没？
看你安装的excel版本，16版的话那就是Microsoft Excel 16.0 object library
出现窗口之后，先选面，再选应用到面，再双击你想要的颜色
作者: zj78711340    时间: 2024-1-15 15:25
看不见的妳 发表于 2024-1-13 09:28
你的引用里面Microsoft Excel 14.0 object library勾选没？
看你安装的excel版本，16版的话那就是Micros ...

我的里面没有这个，我安装的是wps
作者: 看不见的妳    时间: 2024-1-16 09:28
zj78711340 发表于 2024-1-15 15:25
我的里面没有这个，我安装的是wps

把office也安上就可以
作者: richiwei    时间: 2024-1-16 10:15
学习学习，感谢分享
作者: hjr123    时间: 2024-1-16 10:57
活到老学到老！
作者: zj78711340    时间: 2024-1-17 12:37
看不见的妳 发表于 2024-1-16 09:28
把office也安上就可以

好的，好的，谢谢大佬
作者: 海上的兵    时间: 2024-1-17 16:33
楼主太有才了，膜拜中……
作者: zj78711340    时间: 2024-1-18 19:28
看不见的妳 发表于 2024-1-16 09:28
把office也安上就可以

大佬 我的还是没有反应，是不是我的sw版本太低了？

Snipaste_2024-01-18_19-25-01.jpg
作者: zj78711340    时间: 2024-1-18 21:37
zj78711340 发表于 2024-1-15 15:25
我的里面没有这个，我安装的是wps

点击运行宏，什么反应都没有，也没有提示，宏窗口也不弹出来，大佬出来看看呗@tg000057

Snipaste_2024-01-18_21-35-50.jpg
作者: 看不见的妳    时间: 2024-1-19 11:24
zj78711340 发表于 2024-1-18 19:28
大佬 我的还是没有反应，是不是我的sw版本太低了？


有个引用你没勾选上                                       

Snipaste_2024-01-19_11-22-56.jpg
作者: zj78711340    时间: 2024-1-19 20:21
看不见的妳 发表于 2024-1-19 11:24
有个引用你没勾选上                       
                               
  • 全选
                                   
  • 反选

    • 跟你顺序都设置一样了还是不行

    Snipaste_2024-01-18_21-35-50.jpg
    作者: 看不见的妳    时间: 2024-1-20 10:33
    zj78711340 发表于 2024-1-19 20:21
    跟你顺序都设置一样了还是不行

    窗口都不弹出来吗？如果是窗口弹出来了，你操作没反应，可能是你操作没按顺序来，要是窗口都不弹出来那我就知道怎么搞的了，把A大的宏扫盲贴对照着看你是不是有其中的一项
    作者: xiaomao008    时间: 2024-1-23 14:35
    用不了哦
    作者: zj78711340    时间: 2024-1-25 21:49
    看不见的妳 发表于 2024-1-20 10:33
    窗口都不弹出来吗？如果是窗口弹出来了，你操作没反应，可能是你操作没按顺序来，要是窗口都不弹出来那我 ...

    连窗口都不弹的，两台电脑都是这样
    作者: zj78711340    时间: 2024-3-18 11:55
    看不见的妳 发表于 2024-1-20 10:33
    窗口都不弹出来吗？如果是窗口弹出来了，你操作没反应，可能是你操作没按顺序来，要是窗口都不弹出来那我 ...

    我现在是可以用了，但是必须到编辑页面打开窗体，点运行才弹窗（只有点开窗体这个地方），其他界面（包括点击模块运行）不弹窗，包括增加宏按钮都是不弹窗。

    Snipaste_2024-03-18_11-51-50.png
    作者: 随遇而安9528    时间: 2024-3-19 08:21
    感谢楼主分享，很不错！
    作者: 随遇而安9528    时间: 2024-3-19 08:28
    楼主辛苦了！
    作者: jyzas001    时间: 2024-3-19 08:34
    感谢分享
    作者: byrhxj    时间: 2024-4-11 20:14
    宏做的很好，谢谢分享
    作者: taolai89    时间: 2024-4-24 22:06
    很不错，希望能共享模型，谢谢！



    欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/) Powered by Discuz! X3.2