[MrBrown]

Здравствуйте!
На просторах интернета нашел подходящий макрос для переноса текста из вордовского документа в МТЕКСТ автокада .

Код:

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

 ;;; Перенос текста из Вордовского документа (с расширением .doc) в автокад в форме МТЕКСТ
;;; http://cad.ru/ru/forum/?PAGE_NAME=read&FID=22&TID=1892&PAGEN_1=4
;;; Запускается командой OUTWORD
(vl-load-com)
(defun ba-string-subst (chars_new chars_old string / new_string)
(setq new_string (vl-string-subst chars_new chars_old string))
(while (not (equal new_string string))
(setq string new_string new_string (vl-string-subst chars_new chars_old string))
);_ end while
new_string
);_ end defun 

(defun mSpace (/ doc)
  (setq doc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (if (= 1 (getvar "TILEMODE"))
    (vla-get-ModelSpace doc)
    (vla-get-PaperSpace doc)
  )
)
(defun openWord (fname flg / Documents myDoc mySelect myTxt insPt txtW)
  (setq Documents (vlax-get-property *msw* 'Documents))
  (setq myDoc (vlax-invoke-method Documents 'Open fname))
  (setq myCon (vlax-get-property myDoc 'Content))
  (setq myTxt (vlax-get-property myCon 'Text))
(setq myTxt (ba-string-subst "\\P" "\r" myTxt))
  (if (setq insPt (getpoint "\nУкажите точку вставки текста [Выход]:"))
    (if (setq txtW (getreal "\nВведите ширину текста [Выход]"))
      (vla-AddMText (mSpace) (vlax-3d-point insPt) txtW myTxt)
    ) ;_ end if
  ) ;_ end if
  (vlax-invoke-method myDoc 'Close)
  (if(= flg 1)
    (progn
      (vlax-invoke-method *msw* 'Quit)
      (setq *msw* nil)
    )
  )
)
(defun c:outWord (/ fname)
  (if(setq fname(getfiled "Выбор файла" "" "doc" 0))
    (if(not(setq *msw* (vlax-get-object "Word.Application")))
      (if(setq *msw* (vlax-create-object "Word.Application"))
   (openWord fname 1)
   (princ "\nWord недоступен!")
      )
      (openWord fname 0)
    );;;(if(not(setq msw
    (princ "\nНе выбран файл!")
  );;;(if(setq fname
  (princ)
)

Да вот проблема: он (макрос) вытаскивает инфу лишь из расширения .doc, а .docx не видит.
Замена расширения с .doc на .docx в строчке

Код:

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

 (if(setq fname(getfiled "Выбор файла" "" "doc" 0))

позволяет решить проблему, но тоже однобоко.
Помогите усовершенствовать макрос, подскажите, как записать в этой строке открытие файлов обоих расширений.
Спасибо.
p.s. подбросьте ссылочку-другую, если кто знает более продвинутые варианты переноса информации в автокад из Word, Excel.

[Кулик Алексей aka kpblc]

Код:

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

 (getfiled "Выбор файла" "" "doc;docx" 0)

[kp+]

Сообщение от MrBrown Здравствуйте! На просторах интернета (http://cad.ru/ru/forum/?PAGE_NAME=re...1892&PAGEN_1=4) нашел подходящий макрос для переноса текста из вордовского документа в МТЕКСТ автокада (#70 - #71).

Битая ссылка Поправьте, пожалуйста, или выложите сюда.

[MrBrown]

kp+, Да, почему-то уже битая...
Поправил в вопросе.
Кулик Алексей aka kpblc, не работает.
Почитал про нолик в самом конце строчки, исправил на "4". Теперь работает.
Всем спасибо.
___
Упс... Работает, но нужно выбирать расширение файлов. А как сделать, чтобы одновременно показывались и doc, и docx ?
И как увеличить диалоговое окно выбора файлов? А лучше, чтобы можно было менять его размеры, протягивая за края.
Хотя это уже из серии комфорта. Но ведь на то и макросы, чтобы работать комфортнее
___
Offtop: Как здесь, на форуме, свернуть код макроса, чтобы он открывался по нажатию на плюсик? А то сам вопрос занимает много места.
___
Уже не надо, сам нашел

[Кулик Алексей aka kpblc]

(getfiled "Выбор файла" "" "doc*" 4)

Сообщение от MrBrown И как увеличить диалоговое окно выбора файлов? А лучше, чтобы можно было менять его размеры, протягивая за края.

Вариантов 3:
1. Написать свое окно на .NET / arx / VBA
2. Использовать конструкцию типа

Код:

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

(acet-ui-getfile "Select file" "" "doc*" "" 2)

3. Использовать Shell.Application (за подробностями в MSDN)

[MrBrown]

Кулик Алексей aka kpblc, моя благодарность - тебе в карму. Спасибо.