乐筑天下

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

关于标注倾斜的编辑,请教高手!!!!

[复制链接]

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2007-1-26 14:37:00 | 显示全部楼层 |阅读模式
在VBA中如何把实例图中上一个标注编辑成下一个标注,在ACAD2004中可以使用标注-倾斜命令
在VBA的如何实现
请教高手?
回复

使用道具 举报

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2007-1-26 15:27:00 | 显示全部楼层

晕了,图片怎么上传不了?搞不定
文件解释一下,就是一个线性标注在ACAD中用dimedit -o命令修改成
倾斜标注,仅仅是边界线倾斜,文字底线不变,
这样的功能在VBA中如何实现??

file:///D:/Documents%20and%20Settings/Los/My%20Documents/My%20Pictures/实例.jpg
回复

使用道具 举报

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2007-1-27 11:20:00 | 显示全部楼层

难道是我写的不明白吗??图片显示不了,唉
再解释一下,一个正常的标注有3根线,两边界线,一文字底线,
本来边界线和底线是垂直的,现在要把边界线和底线改成不垂直。
在CAD里面可以用dimedit-0或者标注-倾斜可以实现这功能~
求教在VBA里面如何实现!?!?着急啊,救救我啊

zfyggw50nve.JPG

zfyggw50nve.JPG

回复

使用道具 举报

13

主题

396

帖子

5

银币

后起之秀

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

铜币
448
发表于 2007-1-27 21:31:00 | 显示全部楼层
用sendcommand
回复

使用道具 举报

1

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
14
发表于 2007-1-29 10:28:00 | 显示全部楼层
设置这个标注对象的箭头为'倾斜'样式即可实现
回复

使用道具 举报

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2007-1-31 14:54:00 | 显示全部楼层
楼上的兄弟,你这种方法是改了,不过边界线没倾斜啊,我要的效果是箭头还是正的,边界线倾斜呀!
回复

使用道具 举报

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2007-2-5 10:36:00 | 显示全部楼层
连版主都没法帮上忙吗?呜呜~~
回复

使用道具 举报

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2007-2-5 10:38:00 | 显示全部楼层
连版主也帮不上忙吗?呜呜~~
回复

使用道具 举报

13

主题

396

帖子

5

银币

后起之秀

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

铜币
448
发表于 2007-2-5 11:03:00 | 显示全部楼层
  1. Sub test()
  2. Dim pt As Variant
  3. Dim Obj As AcadDimRotated
  4. Dim hdl As String
  5. Dim ang
  6. ThisDrawing.Utility.GetEntity Obj, pt, vbCrLf & "选择标注:"
  7. ang = ThisDrawing.Utility.GetReal(vbCrLf & "旋转角度:")
  8. hdl = Obj.Handle
  9. ThisDrawing.SendCommand "dimedit" & vbCr & "o" & vbCr & "(handent " & Chr(34) & hdl & Chr(34) & ")" & vbCr & vbCr & ang & vbCr
  10. End Sub
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 10:13 , Processed in 0.554720 second(s), 73 queries .

© 2020-2025 乐筑天下

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