• Adel
  • Восстановленный участник
  • На форуме с 16 мая 2007г.
  • Сообщений: 56
  • Спасибо: 0

Тема: Как сделать чтобы MText висел на курсоре?

Считываются расширенные данные и из них формируется MText. Как сделать чтобы при вставке MText висел на курсоре?

...................
Dim newText As AcadTextStyle
Set newText = ThisDrawing.TextStyles.Add("ISO_")
newText.SetFont "ISOCPEUR", False, False, 1, 0
newText.Height = 2.5
Set objUtil = ThisDrawing.Utility
With objUtil
 strPrompt = vbCrLf & "Выберите блок: "
 ThisDrawing.Utility.GetEntity blockRefObj, varPnt, strPrompt
 blockRefObj.GetXData "Texn_Position", xT, xD
 xDN = Split(xD(1), "@", -1)
 For i = LBound(xDN) To UBound(xDN)
  str_MText = IIf(i = 0, xDN(i), xDN(i) & "\P" & str_MText)
 Next
 strPrompt = vbCrLf & "Укажите левый верхний угол текста: " '
 .InitializeUserInput 32
  varPnt = .GetPoint(blockRefObj.InsertionPoint, strPrompt)
End With
Set ent_MText = ThisDrawing.ModelSpace.AddMText(varPnt, 0, str_MText)
ent_MText.StyleName = "ISO_"

  • Adel
  • Восстановленный участник
  • На форуме с 16 мая 2007г.
  • Сообщений: 56
  • Спасибо: 0

Re: Как сделать чтобы MText висел на курсоре?

Тогда спрошу по-другому.
Сначало вставляется MText, а затем пускай пользователь его перемещает куда надо.

Dim newText As AcadTextStyle
Set newText = ThisDrawing.TextStyles.Add("ISO_")
newText.SetFont "ISOCPEUR", False, False, 1, 0
newText.Height = 2.5
strPrompt = vbCrLf & "Выберите блок: "
ThisDrawing.Utility.GetEntity blockRefObj, varPnt, strPrompt
blockRefObj.GetXData "Texn", xT, xD
Set ent_MText = ThisDrawing.ModelSpace.AddMText(varPnt, 0, xD(1))
ent_MText.StyleName = "ISO_"
ThisDrawing.SendCommand "_move" & vbCr & "_last" & vbCr & "" & vbCr & varPnt & vbCr

Вместо varPnt вставляла varPnt(0) & "," & varPnt(1) & "," & varPnt(2), но в числах вместо точек запятые. :(
Как правильно сделать перемещение?

  • Fatty
  • Восстановленный участник
  • На форуме с 10 июня 2008г.
  • Сообщений: 25
  • Спасибо: 0

Re: Как сделать чтобы MText висел на курсоре?

> Adel
SendCommand принимает аргумент как строку:
(где-то так)
"_move" & vbCr & "_last" & vbCr & "" & vbCr & Cstr(varPnt(0)) & "," & Cstr(varPnt(1)) & "," & Cstr(varPnt(2)) & "PAUSE" & vbcr
Плюс надо будет с помощью Replace заменить
запятые на точки в координатах
Чтобы проверить в окне Immediate введи
такое выражение:
?Cstr(varPnt(0))
и нажми Enter
~'J'~