找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 21184|回复: 4
打印 上一主题 下一主题

请教各位:如何将Solidworks工程图中仿宋体长宽比改成国标

[复制链接]
跳转到指定楼层
1
发表于 2004-11-16 17:25:16 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
公司标准化做,正常比例的仿宋体字不行,请教各位如何改成国标要求的0.7的比例.谢谢啦..
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
发表于 2004-11-16 19:08:40 | 只看该作者
我也在寻找设置的方法
3
发表于 2004-11-16 20:23:35 | 只看该作者
为什么要搞成国标,那么死板!不影响交流就可以了嘛!
4
发表于 2004-11-16 22:35:43 | 只看该作者
SolidWorks工程图助手(GBDrawing)
  
https://www.mcadtools.net/show.asp?id=256
5
发表于 2009-11-11 20:50:47 | 只看该作者
根本不用那么麻烦,直接在api帮助里找到 increase width of text 实例教程下的代码,然后在SolidWorks中新建一个宏,然后把代码贴进去,就OK了。方便的话自己建个按钮,并指定宏。其中字体的长宽比可自己修改宏代码中的值。具体代码如下:
使用时选中要修改的字体,然后运行宏即可。
Sub main()
    Dim swApp                       As SldWorks.SldWorks
    Dim swModel                     As SldWorks.modelDoc
    Dim swSelMgr                    As SldWorks.SelectionMgr
    Dim swAnnObj                    As Object
    Dim swAnnotation                As SldWorks.Annotation
    Dim swTextFormat                As SldWorks.textFormat
    Dim dWidth                      As Double
    Dim bRet                        As Boolean
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager
    Set swAnnObj = swSelMgr.GetSelectedObject5(1)
    Set swAnnotation = swAnnObj.GetAnnotation
    Set swTextFormat = swAnnotation.GetTextFormat(0)
    dWidth = swTextFormat.WidthFactor
    Debug.Print "Old width = " & dWidth
    swTextFormat.WidthFactor = 2# * dWidth
    bRet = swAnnotation.SetTextFormat(0, False, swTextFormat)
    dWidth = swTextFormat.WidthFactor
    Debug.Print "New width = " & dWidth
End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2025-2-25 03:19 , Processed in 0.023171 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2025 www.iCAx.org

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