求助SolidWorks 环境光源一键设置宏

Alex_Wang

有偿求助有能力的大神帮忙做个一键设置宏  把其他光源删除，只留环境光源，且光源数值自动设置到0.8。实用零件和装配体两种格式文件。联系WX：wy664067875。感谢大神联系我！

Alex_Wang

大神们  伸伸援助之手呗！跪谢！

lwy4558

同求，期待高手出现。

故李将军

这个不用设置宏，可以直接设置快捷键

Alex_Wang

   经典案例图书

故李将军 发表于 2021-11-13 20:21
这个不用设置宏，可以直接设置快捷键

可以做到点一下就搞定所有动作么？目前我都是手动一个个设置的，太麻烦！

Alex_Wang

只留下环境光，少了其他光源干扰，我觉得画图时眼睛接受的刺激都少很多，为啥没同行重视呢？

荒野大表哥

   经典案例图书

Alex_Wang 发表于 2021-11-15 09:14
可以做到点一下就搞定所有动作么？目前我都是手动一个个设置的，太麻烦！

这个不是可以保存模板吗  

Alex_Wang

荒野大表哥 发表于 2021-11-29 17:50
这个不是可以保存模板吗

哥们说的没错，可以报错模板，但是以前画的积攒的图纸都是有各种光的，偶尔也是要参考一二的，就想着能不能搞个宏，用的时候整一遍光源

gao6300

Alex_Wang 发表于 2021-11-15 09:16
只留下环境光，少了其他光源干扰，我觉得画图时眼睛接受的刺激都少很多，为啥没同行重视呢？

顶一下！！确实有的旧图出现看着不舒服的情况

Alex_Wang

gao6300 发表于 2022-8-16 12:16
顶一下！！确实有的旧图出现看着不舒服的情况

花钱招人开发了一个小插件，解决了我的强迫症

kkov

刚刚研究了这个问题，
目前也找到解决的方法0.0

gao6300

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

gao6300 发表于 2022-8-17 13:55
Dim swApp As Object

Dim Part As Object

这方法好像~没有办法删除其他的线光源

Alex_Wang

gao6300 发表于 2022-8-17 13:55
Dim swApp As Object

Dim Part As Object

没办法删除线光源，环境光数值可以设置的，离我想要的又近了一步

懒懒的高贵

加入QQ群
参与讨论和学习

或扫描二维码加入

很不错，顶一下！

听见天晴

   经典案例图书

这个好像不错 的确有时候有这种问题

peng188

加入QQ群
参与讨论和学习

或扫描二维码加入

gao6300 发表于 2022-8-17 13:55
Dim swApp As Object

Dim Part As Object

有钱人 我要和你做朋友

mrzhonghb

   经典案例图书

楼主太有才了，膜拜中……