关于标注倾斜的编辑，请教高手！！！！

los_su · 发表于 2007-1-26 14:37:00

在VBA中如何把实例图中上一个标注编辑成下一个标注，在ACAD2004中可以使用标注-倾斜命令

在VBA的如何实现

请教高手？

los_su · 发表于 2007-1-26 15:27:00

本帖最后由作者于 2007-1-27 11:03:48 编辑

晕了，图片怎么上传不了？搞不定

文件解释一下，就是一个线性标注在ACAD中用dimedit -o命令修改成

倾斜标注，仅仅是边界线倾斜，文字底线不变，

这样的功能在VBA中如何实现？？

los_su · 发表于 2007-1-27 11:20:00

本帖最后由作者于 2007-1-27 11:26:12 编辑

难道是我写的不明白吗？？图片显示不了，唉

再解释一下，一个正常的标注有3根线，两边界线，一文字底线，

本来边界线和底线是垂直的，现在要把边界线和底线改成不垂直。

在CAD里面可以用dimedit-0或者标注-倾斜可以实现这功能～

求教在VBA里面如何实现！？！？着急啊，救救我啊

wyj7485 · 发表于 2007-1-27 21:31:00

用sendcommand

cracher · 发表于 2007-1-29 10:28:00

设置这个标注对象的箭头为'倾斜'样式即可实现

los_su · 发表于 2007-1-31 14:54:00

楼上的兄弟，你这种方法是改了，不过边界线没倾斜啊,我要的效果是箭头还是正的，边界线倾斜呀！

los_su · 发表于 2007-2-5 10:36:00

连版主都没法帮上忙吗？呜呜～～

los_su · 发表于 2007-2-5 10:38:00

连版主也帮不上忙吗？呜呜～～

wyj7485 · 发表于 2007-2-5 11:03:00

Sub test()
Dim pt As Variant
Dim Obj As AcadDimRotated
Dim hdl As String
Dim ang
ThisDrawing.Utility.GetEntity Obj, pt, vbCrLf & "选择标注:"
ang = ThisDrawing.Utility.GetReal(vbCrLf & "旋转角度:")
hdl = Obj.Handle
ThisDrawing.SendCommand "dimedit" & vbCr & "o" & vbCr & "(handent " & Chr(34) & hdl & Chr(34) & ")" & vbCr & vbCr & ang & vbCr
End Sub

账号		自动登录	找回密码
密码			注册