乐筑天下

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

[求助]文字镜像的问题

[复制链接]

5

主题

7

帖子

3

银币

初来乍到

Rank: 1

铜币
27
发表于 2004-3-14 19:38:00 | 显示全部楼层 |阅读模式
我用这个
SetVariable "MIRRTEXT", 0
然后用mirror这个函数镜像出来的文字还是倒过来的?
为什么?该怎么做?谢谢
回复

使用道具 举报

26

主题

177

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
281
发表于 2004-3-14 19:55:00 | 显示全部楼层
把你的代码放上来,别人试一下,看是否有你说的情况。
回复

使用道具 举报

5

主题

7

帖子

3

银币

初来乍到

Rank: 1

铜币
27
发表于 2004-3-14 20:33:00 | 显示全部楼层
Sub 镜像()
Dim 用户选择集合 As AcadSelectionSet
Dim 轴线集合 As AcadSelectionSet
Dim 标注集合 As AcadSelectionSet
Dim 轴线(0 To 0) As AcadLine
Dim 标注(0 To 0) As AcadText
SetVariable "MIRRTEXT", 0
MsgBox "MIRRTEXT的值是:" & GetVariable("MIRRTEXT")
Set 用户选择集合 = ThisDrawing.SelectionSets.Add("用户选择集合")
Set 轴线集合 = ThisDrawing.SelectionSets.Add("轴线集合")
Set 标注集合 = ThisDrawing.SelectionSets.Add("标注集合")
' 提示用户选择对象并将它们添加到选择集中。
' 要完成选择,按回车。
用户选择集合.SelectOnScreen
' 在选择集中循环并将每一对象的颜色改为蓝色。
'''
'''过虑选择集,筛选出垂直钢筋和paixs
'''
For Each 图元 In 用户选择集合
Select Case 图元.EntityName
Case "AcDbLine"
                         Set 轴线(0) = 图元
                         If 图元.Layer = "PAXIS" And _
                         图元.StartPoint()(0) - 图元.EndPoint()(0)  Abs(标注文字的x坐标 - 对称轴线.StartPoint()(0)) Then
                                 最小值 = 标注文字的x坐标 - 对称轴线.StartPoint()(0)
                                 最近的x坐标 = 对称轴线.StartPoint()(0)
                                 End If
                 Next 对称轴线
                 ' 定义镜像轴
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
point1(0) = 最近的x坐标: point1(1) = 0: point1(2) = 0
point2(0) = 最近的x坐标: point2(1) = 1: point2(2) = 0
'MsgBox "被镜像的文字是:" & _
'&"镜像的坐标是:" &最近的x坐标
Dim 镜像文字 As AcadText
Set 镜像文字 = 标注文字.Mirror(point1, point2)
         
Next 标注文字
End Sub
       
这段代码还会时不时的出错
不知道是为什么
在autocad2000里面可以运行而且文字镜像好好的,但是在r14里面不可以
昨天是不可以,刚刚就出错了,在"For Each 图元 In 用户选择集合"这个位置
谢谢
回复

使用道具 举报

26

主题

177

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
281
发表于 2004-3-15 08:43:00 | 显示全部楼层
镜像文字时不会有问题。
程序在创建选择集时没有判断选择集是否已经存在。这样第二次运行时就会出错。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 12:42 , Processed in 2.755002 second(s), 60 queries .

© 2020-2025 乐筑天下

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