• На форуме с 4 апреля 2008г.
  • Сообщений: 76
  • Спасибо: 0

Тема: вставка текста с привязкой к курсору

Возник вопрос с вставкой текста: хотелось бы реализовать команду, чтобы до указания точки вставки, текст отображался над курсором - это наглядно и удобно. Подобную тему обнаружил ветке по ЛИСПу, но пока ничего не выходит.
Благодарю за внимание!

  • Boxa
  • Активный участник
  • Откуда: С-Пб
  • На форуме с 25 июля 2009г.
  • Сообщений: 133
  • Спасибо: 10

Re: вставка текста с привязкой к курсору

На VBA этого не сделать. Смотрите в сторону .NET и Jig.
Возможно Вам поможет вот эта ссылка Jig

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: вставка текста с привязкой к курсору

Буянов пишет:

Возник вопрос с вставкой текста: хотелось бы реализовать команду, чтобы до указания точки вставки, текст отображался над курсором - это наглядно и удобно. Подобную тему обнаружил ветке по ЛИСПу, но пока ничего не выходит.
Благодарю за внимание!

Вот вроде то что надо, но грубоватый метод:

Option Explicit
     Public Sub Huh()
     Dim oText As AcadText
     Dim txt As String
     Dim ht As Double
  
ht = CDbl(ThisDrawing.GetVariable("textsize"))

  Dim ip(2) As Double
 
Dim i

 For i = 0 To 1

   ip(i) = -10000

 Next

  txt = "How about, dude?"

     Set oText = ThisDrawing.ModelSpace.AddText(txt, ip, ht)
  
  ThisDrawing.SendCommand "move L  (list -10000 -10000 0) pause" & vbCr
  
End Sub

Только не меняй ничего в строке SendCommand!

[FONT=Arial]~'J'~[/FONT]

  • На форуме с 19 февраля 2010г.
  • Сообщений: 26
  • Спасибо: 1

Re: вставка текста с привязкой к курсору

fixo пишет:

Вот вроде то что надо, но грубоватый метод:

С Вашего позволения, может так получше?

Option Explicit
Public Sub Huh()

Dim txt As String
txt = "How about, dude?"

Dim ht As Double
ht = CDbl(ThisDrawing.GetVariable("textsize"))

Dim ip(2) As Double

Dim oText As AcadText
Set oText = ThisDrawing.ModelSpace.AddText(txt, ip, ht)

ThisDrawing.SendCommand "_.copybase (list 0 0 0) (entlast) " & vbCr
ThisDrawing.SendCommand "_.erase (entlast) " & vbCr
ThisDrawing.SendCommand "_.pasteclip pause "
   
End Sub