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

标题: 求助SolidWorks 环境光源一键设置宏 [打印本页]
作者: Alex_Wang    时间: 2021-11-11 09:35
标题: 求助SolidWorks 环境光源一键设置宏
有偿求助有能力的大神帮忙做个一键设置宏  把其他光源删除，只留环境光源，且光源数值自动设置到0.8。实用零件和装配体两种格式文件。联系WX：wy664067875。感谢大神联系我！

求助宏

求助宏
作者: Alex_Wang    时间: 2021-11-12 09:08
大神们  伸伸援助之手呗！跪谢！
作者: lwy4558    时间: 2021-11-12 11:35
同求，期待高手出现。
作者: 故李将军    时间: 2021-11-13 20:21
这个不用设置宏，可以直接设置快捷键
作者: Alex_Wang    时间: 2021-11-15 09:14
故李将军 发表于 2021-11-13 20:21
这个不用设置宏，可以直接设置快捷键

可以做到点一下就搞定所有动作么？目前我都是手动一个个设置的，太麻烦！
作者: Alex_Wang    时间: 2021-11-15 09:16
只留下环境光，少了其他光源干扰，我觉得画图时眼睛接受的刺激都少很多，为啥没同行重视呢？
作者: 荒野大表哥    时间: 2021-11-29 17:50
Alex_Wang 发表于 2021-11-15 09:14
可以做到点一下就搞定所有动作么？目前我都是手动一个个设置的，太麻烦！

这个不是可以保存模板吗  
作者: Alex_Wang    时间: 2021-11-30 08:57
荒野大表哥 发表于 2021-11-29 17:50
这个不是可以保存模板吗

哥们说的没错，可以报错模板，但是以前画的积攒的图纸都是有各种光的，偶尔也是要参考一二的，就想着能不能搞个宏，用的时候整一遍光源
作者: gao6300    时间: 2022-8-16 12:16
Alex_Wang 发表于 2021-11-15 09:16
只留下环境光，少了其他光源干扰，我觉得画图时眼睛接受的刺激都少很多，为啥没同行重视呢？

顶一下！！确实有的旧图出现看着不舒服的情况
作者: Alex_Wang    时间: 2022-8-17 08:48
gao6300 发表于 2022-8-16 12:16
顶一下！！确实有的旧图出现看着不舒服的情况

花钱招人开发了一个小插件，解决了我的强迫症
作者: kkov    时间: 2022-8-17 10:53
刚刚研究了这个问题，
目前也找到解决的方法0.0
作者: gao6300    时间: 2022-8-17 13:55
Alex_Wang 发表于 2022-8-17 08:48
花钱招人开发了一个小插件，解决了我的强迫症

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.SetLightSourcePropertyValuesVB("环境光源-1", 1, 0, 16777215, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.8, 0, 0, False)
boolstatus = Part.LockLightToModel(0, False)
Part.GraphicsRedraw
Part.ClearSelection2 True
End Sub
基本解决了问题
作者: kkov    时间: 2022-8-17 16:36
gao6300 发表于 2022-8-17 13:55
Dim swApp As Object

Dim Part As Object

这方法好像~没有办法删除其他的线光源
作者: Alex_Wang    时间: 2022-8-18 09:10
gao6300 发表于 2022-8-17 13:55
Dim swApp As Object

Dim Part As Object

没办法删除线光源，环境光数值可以设置的，离我想要的又近了一步
作者: 懒懒的高贵    时间: 2022-8-19 11:03
很不错，顶一下！
作者: 听见天晴    时间: 2023-12-9 00:07
这个好像不错 的确有时候有这种问题
作者: peng188    时间: 2024-3-6 16:04
gao6300 发表于 2022-8-17 13:55
Dim swApp As Object

Dim Part As Object

有钱人 我要和你做朋友
作者: mrzhonghb    时间: 2024-3-9 10:14
楼主太有才了，膜拜中……
作者: LauYoung    时间: 2024-6-18 13:26
楼主这个问题解决没有 ， 我也遇到这个问题了
作者: Alex_Wang    时间: 2024-6-19 09:50
LauYoung 发表于 2024-6-18 13:26
楼主这个问题解决没有 ， 我也遇到这个问题了

花钱找人解决了
作者: LauYoung    时间: 2024-6-19 11:36
Alex_Wang 发表于 2024-6-19 09:50
花钱找人解决了

有偿  王哥可以分享给我吗?    小弟跪谢了~
作者: jyzas001    时间: 2024-11-16 21:27
楼主太有才了，膜拜中……
作者: bmq9009    时间: 2025-1-28 13:24
多少钱买的？卖我一份收多少钱？



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