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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 2787|回复: 4
打印 上一主题 下一主题

宏程序设置“文档属性”“系统选项”的生效问题。

  [复制链接]

17

主题

148

帖子

1294

金币

传奇

Rank: 8Rank: 8

积分
4076

最佳新人活跃会员热心会员宣传达人灌水之王

跳转到指定楼层
楼主
 楼主| 发表于 2023-5-6 09:34:44 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

   经典图书
打开零件
录制了一个宏,操作内容
设置-》文档属性-》尺寸-》字体  修改选择的字体和字高-》确定。
直接这样设置,设置内容是实时生效的,草图文字直接变成了需要的效果。

但是如果是运行这个宏,设置内容不生效,重新生成,保存,重开图都不生效。
可气的是检查设置的时候发现,所需设置在设置的页面里显示已经设置好了,但就是不生效。


下面是录制的宏
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
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Dim myTextFormat As Object
Set myTextFormat = Part.Extension.GetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingDimensionTextFormat, swUserPreferenceOption_e.swDetailingDimension)
myTextFormat.TypeFaceName = "黑体"
myTextFormat.CharHeight = 0.005
boolstatus = Part.Extension.SetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingDimensionTextFormat, swUserPreferenceOption_e.swDetailingDimension, myTextFormat)

End Sub


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

使用道具 举报

2

主题

138

帖子

941

金币

审核员

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

积分
3112

最佳新人活跃会员热心会员宣传达人灌水之王

推荐
发表于 2023-5-6 10:16:47 | 只看该作者
将你要更改的弄成新的绘图标准然后更换就好了https://www.swbbsc.com/thread-368559-1-1.html?_dsign=7e04c6e2
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,使用IE和Edge浏览器,浏览个别网页以及下载文件时,会误报“***不安全”,此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载,另外,本网站不含任何不安全的文件,已联系微软公司解决,纯属IE和Edge浏览器误报)
回复 支持 1 反对 0

使用道具 举报

17

主题

148

帖子

1294

金币

传奇

Rank: 8Rank: 8

积分
4076

最佳新人活跃会员热心会员宣传达人灌水之王

板凳
 楼主| 发表于 2023-5-6 09:37:01 | 只看该作者

   经典图书
再明确一下  是 :“文档属性“,不是“属性“
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

17

主题

148

帖子

1294

金币

传奇

Rank: 8Rank: 8

积分
4076

最佳新人活跃会员热心会员宣传达人灌水之王

地板
 楼主| 发表于 2023-5-6 13:34:01 | 只看该作者
1194753477 发表于 2023-5-6 10:16
将你要更改的弄成新的绘图标准然后更换就好了https://www.swbbsc.com/thread-368559-1-1.html?_dsign=7e04c ...

已解决,谢谢
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

2

主题

25

帖子

384

金币

堂主

Rank: 4

积分
519
QQ
5#
发表于 2023-5-10 16:45:15 | 只看该作者

   经典案例图书
好东西,努力学习学习!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

手机版|小黑屋| GMT+8, 2025-6-2 20:31 , Processed in 0.313385 second(s), 21 queries , Memcache On.

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

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

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