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

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

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

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

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

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

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

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

zfyggw50nve.JPG

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

copy


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

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

发表回复

精选推荐