[Gretech89]

Доброе время суток!

Споткнулся о команду TXTEXP. Цель: передать команде TXTEXP объект (Мтекст) для обработки и продолжить выполнение скрипта после обработки.
Стандартным методом через "command "_.TXTEXP" сделать не получается, возникает ошибка "Неизвестная команда "VLIDE".
Единственным способом, которым мне удалось передать объект команде TXTEXP, это с помощью vla-SendCommand. Полный листинг:

Код:

[Выделить все]

 (defun c:Text2line (/ actdoc ss)
  
(setq actdoc (vla-get-activedocument (vlax-get-acad-object)))
(setq ss (ssget "_X" '((0 . "MTEXT"))))
(sssetfirst nil ss)
(vla-SendCommand actdoc "_.TXTEXP ")

(setq ss (vla-get-ActiveSelectionSet actdoc))
(vla-Clear ss)
(vla-Select ss acSelectionSetAll nil nil (vlax-safearray-fill
(vlax-make-safearray vlax-vbinteger '(0 . 0)) '(0))
(vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 0))
'("POLYLINE")))

(vlax-for p2l ss (vla-Explode p2l))
(vlax-for p2l ss (vla-Delete p2l))

(vla-Clear ss)
(vla-Delete ss)

(princ)
)

Но в этом случае после обработки идёт прерывание и вторая часть лиспа не выполняется. Кто-нибудь знает как можно это побороть?

P.S. Команды WMFOUT/WMFIN (методы vla-Export/vla-Import) работают, но не обрабатывают к сожалению трафаретный шрифт (Trafaret Kit), поэтому не вариант.
P.S.S. Пробовал разбивать лисп на 2 отдельных скрипта и запускать последовательно через сценарий, но безуспешно.

[koMon]

Сообщение от Gretech89 как можно это побороть?

например так

Код:

[Выделить все]

 
(defun c:explode_text_to_lines ()
	(ssget "_x" '((0 . "mtext")))
	(vla-postcommand (vla-get-activedocument (vlax-get-acad-object)) "_txtexp _p  ")
	(vla-postcommand (vla-get-activedocument (vlax-get-acad-object)) "_explode _p  ")
)

[Gretech89]

koMon, как же вы меня выручили, спасибо огромное!

[Gretech89]

koMon, попробовал ради эксперимента зациклить команды и добавить сохранение файлов. Но похоже из txtexp и explode уже чего-то большего не вытянуть..

Лисп для проверки и экспериментов:

Код:

[Выделить все]

 (defun c:explode_text_to_lines ()

(setq actdoc (vla-get-activedocument (vlax-get-acad-object))
      mSpace (vla-get-ModelSpace actdoc)
      path (getvar "dwgprefix")
      pt (vlax-3D-point 0 0 0)
      nums '("1" "2" "3"))

(foreach num nums

  (vlax-for plines mSpace
    (if (= (vla-get-ObjectName plines) "AcDbPolyline")
      (vla-Delete plines)
    )
  )

  (vla-AddMText mSpace pt 0 (setq name (strcat "Drawing_" num)))

  (ssget "_x" '((0 . "mtext")))
  (vla-postcommand (vla-get-activedocument (vlax-get-acad-object)) "_txtexp _p  ")
  (vla-postcommand (vla-get-activedocument (vlax-get-acad-object)) "_explode _p  ")

  (setq path-name (strcat path name))
  (vla-saveas actdoc path-name)

)

(princ)

)

[name02]

23 и 24 строки можно вынести за пределы (foreach num nums ...)

[kp+]

Txtexp - это не стандартная команда, а лисп из et. Можно расковырять и вызывать не команду, а функции.
Ехplode тоже необязательно вызывать командой, лучше метод explode.
Зачем сначала создавать мтекст, а потом взрывать - тоже с утра непонятно ....

[koMon]

Сообщение от kp+ непонятно ....

чтобы получить напр. контуры литер в отрезках.

Сообщение от kp+ расковырять

и без ковыряния понятно, что используется wmfout и wmfin.

[Gretech89]

Как уже указывал выше команды WMFOUT/WMFIN (методы vla-Export/vla-Import) не обрабатывают трафаретный шрифт - Trafaret Kit. В файлик WMF экспортируется текст, вместо кривых..

Код:

[Выделить все]

  (defun c:explode_text_to_lines (/ actdoc mSpace path pt nums wmfScale fname dir ss)

(setq actdoc (vla-get-activedocument (vlax-get-acad-object))
      mSpace (vla-get-ModelSpace actdoc)
      path (getvar "dwgprefix")
      pt (vlax-3D-point 0 0 0)
      nums '("1" "2" "3")
      wmfScale 2
)

(foreach num nums

  (vlax-for plines mSpace
    (if (= (vla-get-ObjectName plines) "AcDbPolyline")
      (vla-Delete plines)
    )
  )

  (vla-AddMText mSpace pt 0 (setq name (strcat "Drawing_" num)))

	    (vla-Regen actdoc acActiveViewport)
	    (setq fname (strcat (getvar "TEMPPREFIX") "text2poly.wmf"))
	    (setq dir (vl-string-subst "" ".wmf" fname))
	    (setq ss (vla-get-ActiveSelectionSet actdoc))
	    (vla-Clear ss)
	    (vla-Select ss acSelectionSetAll nil nil (vlax-safearray-fill
	    (vlax-make-safearray vlax-vbinteger '(0 . 0)) '(0))
	    (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 0))
	    '("MTEXT")))
	    (vla-Export actdoc dir "wmf" ss)
	    (vla-Delete ss)
	    (vla-Import actdoc fname pt wmfScale)
 	    (vl-file-delete fname)

  (setq path-name (strcat path name))
  (vla-saveas actdoc path-name)

)

(princ)

)

----- добавлено через ~2 мин. -----
name02, не.. на выходе нужно получить 3 сохраненных файлика.

[koMon]

Сообщение от Gretech89 Trafaret Kit. В файлик WMF экспортируется текст, вместо кривых..

если отзеркалить текст перед экспортом в wmf (mirrtext = 1), то будут кривые)

[Gretech89]

koMon, благодарствую я вот что-то не дошел до этого, хотя кучу всего перепробовал

----- добавлено через ~8 мин. -----
Ещё вариант обнаружил: менять коэффициент сжатия-растяжения, скажем, на 1.01