通过VBA分解多行文字实体

MSasu · 发表于 2009-6-11 01:02:06

你好，
由于AutoCAD的VBA中的MText实体不支持。爆炸方法我试图通过使用SendCommand将它们转换为Text类型，这在过去是完全避免的，因此缺乏线索。
有人能告诉我如何将当前实体从选择集传递到SendCommand语句吗？

Dim ItemsSSet As AcadSelectionSet
Dim FType(0) As Integer
Dim FData(0) As Variant
Dim theItem As Variant
FType(0) = 0
FData(0) = "MTEXT"
Set ItemsSSet = CrDrawing.SelectionSets.Add("SS1")
ItemsSSet.Select Mode:=5, FilterType:=FType, FilterData:=FData
For Each theItem In ItemsSSet
    CrDrawing.SendCommand "EXPLODE" & vbCr & ????? & vbCr
Next theItem

谢谢！

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Bryco · 发表于 2009-6-15 20:38:55

ThisDrawing.SendCommand"EXPLODE"&vbCr&Send指令选择（t）&vbCr&vbCr
其中t是mtext
Function Send指令选择（ent As AcadEntity）As String
Send指令选择="（handent"&Chr（34）&ent.Handle&Chr（34) & ")"
End Function
（函数可能从沼泽中被盗Jeff？）

通过VBA分解多行文字实体

发表回复

精选推荐