如何判断从图中取得的标注是水平的，还是竖向的

subtlation

如何判断从图中取得的标注是水平的，竖向的，还是dimaligned？



他们的type of 都是acaddimenison


也没有objectname属性，


不知道那个属性可以判断出来？

雪山飞狐_lzh

怎么会没有objectname属性，传个图看看

subtlation

lzh741206发表于2004-7-21 11:40:00怎么会没有objectname属性，传个图看看

有objectname属性的，我用下面的代码在监视窗口看水平和竖向标注的属性，里面没有显示有objectname属性，但用debug.print输出倒是可以的。水平和竖向标注的objectname属性都是AcDbRotatedDimension，他们的Rotation属性也都是0。 我在监视窗口中看不出水平和竖向标注哪个属性不同。 Sub test() Dim ent1 As Object, ent2 As Object
Dim p1
ThisDrawing.Utility.GetEntity ent1, p1
ThisDrawing.Utility.GetEntity ent2, p1
Dim dimobj1 As AcadDimRotated, dimobj2 As AcadDimRotated
Set dimobj1 = ent1
Set dimobj2 = ent2
Debug.Print dimobj1.Rotation
Debug.Print dimobj2.Rotation
Debug.Print dimobj1.ObjectName
Debug.Print dimobj2.ObjectName

End Sub

subtlation

不好意思，自己顶一下，望高手帮忙指点一下。

雪山飞狐_lzh

Sub Test()
Dim pVlax As New VLAX
Dim pName As String
Dim pEntity As AcadEntity
Dim pBlock As AcadBlock
ThisDrawing.Utility.GetEntity pEntity, pnt
pVlax.NullifySymbol "blockname"
pVlax.EvalLispExpression "(setq blockname (cdr (assoc 2 (entget (handent """ & pEntity.Handle & """)))))"
pName = pVlax.GetLispSymbol("blockname")
pVlax.NullifySymbol "blockname"
Set pVlax = Nothing
Set pBlock = ThisDrawing.Blocks(pName)
For Each i In pBlock
If i.ObjectName = "AcDbMText" Then MsgBox i.Rotation : Exit For
Next i
End Sub