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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1061|回复: 7
打印 上一主题 下一主题

[求助]插入草图文本并修改字体大小

  [复制链接]

23

主题

354

帖子

957

金币

传奇

Rank: 8Rank: 8

积分
4961

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

跳转到指定楼层
楼主
 楼主| 发表于 2025-3-29 20:52:25 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

使用道具 举报

6

主题

10

帖子

507

金币

堂主

Rank: 4

积分
786
QQ
沙发
发表于 2025-3-29 21:11:21 | 只看该作者
在 SolidWorks API 中,使用 InsertSketchText 插入草图文本后,直接通过参数无法直接修改字体大小,但可以通过操作返回的 SketchText 对象动态调整字体高度(即字体大小)。以下是具体方法:

1、插入草图文本并获取对象
使用 InsertSketchText 插入文本时,保存返回的 SketchText 对象:


  1. Dim swSketchText As SldWorks.SketchText
  2. Set swSketchText = swSketchManager.InsertSketchText(Ptx, Pty, Ptz, Text, Alignment, FlipDirection, HorizontalMirror, WidthFactor, SpaceBetweenChars)
复制代码


2、修改字体高度(即大小)
通过 SketchText 对象的 Height 属性调整字体大小:

  1. swSketchText.Height = 0.01  ' 单位:米(例如 0.01 米 = 10mm)
复制代码


3、更新模型
修改后强制重建模型以应用更改:

  1. swModel.EditRebuild
复制代码


完整代码示例(VBA)

  1. Dim swApp As SldWorks.SldWorks
  2. Dim swModel As SldWorks.ModelDoc2
  3. Dim swSketchManager As SldWorks.SketchManager
  4. Dim swSketchText As SldWorks.SketchText

  5. Set swApp = Application.SldWorks
  6. Set swModel = swApp.ActiveDoc
  7. Set swSketchManager = swModel.SketchManager

  8. ' 插入草图文本(示例参数)
  9. Dim Ptx As Double: Ptx = 0
  10. Dim Pty As Double: Pty = 0
  11. Dim Ptz As Double: Ptz = 0
  12. Dim Text As String: Text = "Hello World"
  13. Dim Alignment As Long: Alignment = swSketchTextAlignCenter
  14. Dim FlipDirection As Boolean: FlipDirection = False
  15. Dim HorizontalMirror As Boolean: HorizontalMirror = False
  16. Dim WidthFactor As Double: WidthFactor = 1.0
  17. Dim SpaceBetweenChars As Double: SpaceBetweenChars = 1.0

  18. ' 插入文本并获取对象
  19. Set swSketchText = swSketchManager.InsertSketchText(Ptx, Pty, Ptz, Text, Alignment, FlipDirection, HorizontalMirror, WidthFactor, SpaceBetweenChars)

  20. ' 修改字体高度(调整大小)
  21. If Not swSketchText Is Nothing Then
  22.     swSketchText.Height = 0.015  ' 设置为15mm高度
  23.     swModel.EditRebuild  ' 重建模型
  24. End If
复制代码

关键参数说明

参数/属性        作用
Height        字体高度(单位:米),直接控制字体大小。
WidthFactor        宽度比例(默认1.0),调整字符宽高比(非直接大小)。
EditRebuild        强制更新模型,确保修改后的字体生效。

注意事项
单位系统
SolidWorks API 使用米(m)作为默认单位,例如 0.01 表示 10 毫米。

依赖草图环境
需确保当前处于草图编辑模式,否则 InsertSketchText 会失败。

文本位置
若调整字体大小后需重新定位,可通过 SketchText.GetTextPoint 和 SketchText.SetTextPoint 操作坐标。

通过上述方法,可动态调整插入文本的字体大小。参数/属性
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,使用IE和Edge浏览器,浏览个别网页以及下载文件时,会误报“***不安全”,此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载,另外,本网站不含任何不安全的文件,已联系微软公司解决,纯属IE和Edge浏览器误报)
回复 支持 反对

使用道具 举报

23

主题

354

帖子

957

金币

传奇

Rank: 8Rank: 8

积分
4961

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

板凳
 楼主| 发表于 2025-3-29 23:12:59 | 只看该作者

   经典图书
lihui_cc123 发表于 2025-3-29 21:11
在 SolidWorks API 中,使用 InsertSketchText 插入草图文本后,直接通过参数无法直接修改字体大小,但可以 ...

哥有没有测试过,好像不行啊,这个是哪个大模型回答的,我问了好几个都不行,应该是Height这个属性不对
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

23

主题

354

帖子

957

金币

传奇

Rank: 8Rank: 8

积分
4961

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

地板
 楼主| 发表于 2025-4-1 10:25:27 | 只看该作者
顶一下,坐等高手!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

1

主题

33

帖子

127

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
275
QQ
5#
发表于 2025-4-1 12:30:28 | 只看该作者

   经典案例图书
z460515477 发表于 2025-3-29 23:12
哥有没有测试过,好像不行啊,这个是哪个大模型回答的,我问了好几个都不行,应该是Height这个属性不 ...

deepseek也不靠谱吗????
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

23

主题

354

帖子

957

金币

传奇

Rank: 8Rank: 8

积分
4961

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

6#
 楼主| 发表于 2025-4-1 21:30:54 | 只看该作者
lingchenfly 发表于 2025-4-1 12:30
deepseek也不靠谱吗????

没那么智能啊,大部分方法都不对
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

850

帖子

865

金币

传奇

Rank: 8Rank: 8

积分
4162

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

7#
发表于 2025-4-2 10:03:18 | 只看该作者

   经典案例图书
活到老学到老!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

23

主题

354

帖子

957

金币

传奇

Rank: 8Rank: 8

积分
4961

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

8#
 楼主| 发表于 2025-4-6 21:24:34 | 只看该作者
顶一下,坐等高手!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

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

本版积分规则

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

手机版|小黑屋| GMT+8, 2025-5-26 00:28 , Processed in 0.162107 second(s), 23 queries , Memcache On.

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

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

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