9
25
1
初露锋芒
使用道具 举报
zfyggw50nve.JPG
13
396
5
后起之秀
10
初来乍到
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
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-7-7 10:13 , Processed in 0.554720 second(s), 73 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端