乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 62|回复: 5

修改文本

[复制链接]

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2004-12-16 17:16:27 | 显示全部楼层 |阅读模式
我有一些文本输出为数字,例如96,代表英寸。 这很好,很花哨,但我想做的是将其从“96”更改为8' - 0”。  希望这是有道理的。 我拥有的程序通过使用边界框将矩形的尺寸放在中心。 如果有人有想法,请把它从我身边拍下来。 再次提前致谢!

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-12-16 17:25:19 | 显示全部楼层
用VBA写的程序是什么我假设...如果是这样的话...那么
  1. Var = ThisDrawing.Utility.RealToString(Var, acArchitectural, Precision)

Var是您的变量变体96
精度是一个整数0-14
返回值是表示您的Var的字符串值
回复

使用道具 举报

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2004-12-16 17:29:43 | 显示全部楼层
我会试试的谢谢伙计
回复

使用道具 举报

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2004-12-16 17:40:55 | 显示全部楼层
Keith,
如果我发布我的代码,我仍然有麻烦,你能给它一个tweek吗??我不确定你上一次发布的声明应该放在哪里...
  1. Sub TextDemo()
  2.     Dim objsset As AcadSelectionSet
  3.    Dim ObjEnt As AcadEntity
  4.     Dim minExt As Variant
  5.     Dim maxExt As Variant
  6.     Dim text1 As Double
  7. Dim text2 As AcadText
  8. Dim text3 As Double
  9. Dim text As String
  10. Dim text4 As AcadText
  11. Dim height As Double
  12. height = 4
  13. Dim inst(0 To 2) As Double
  14. Dim var As Variant
  15. inst(2) = 0
  16. Set objsset = ThisDrawing.PickfirstSelectionSet
  17. objsset.Select acSelectionSetAll
  18. For Each ObjEnt In objsset
  19. If ObjEnt.Layer = "0" Then
  20.     ObjEnt.GetBoundingBox minExt, maxExt
  21.     text1 = maxExt(1) - minExt(1)
  22.     text3 = maxExt(0) - minExt(0)
  23.     inst(0) = (maxExt(0) - (text3 / 2)) - 6
  24.     inst(1) = maxExt(1) - (text1 / 2)
  25.     text = "x"
  26.     Set text4 = ThisDrawing.ModelSpace.AddText(text, inst, height)
  27.     inst(1) = inst(1) + 5
  28.     text = text1
  29.     Set text4 = ThisDrawing.ModelSpace.AddText(text, inst, height)
  30.     inst(1) = inst(1) - 10
  31.     text = text3
  32.     Set text4 = ThisDrawing.ModelSpace.AddText(text, inst, height)
  33.     End If
  34. Next
  35. objsset.Delete
  36. End Sub

回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-12-16 21:00:20 | 显示全部楼层
非常感谢,伙计!!这是最棒的部分,我明白了!!非常感谢
回复

使用道具 举报

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2004-12-17 09:21:50 | 显示全部楼层
没问题..很高兴这对你有用...
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 17:39 , Processed in 2.059679 second(s), 64 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表