[Apelsinov]

Намедни решил сделать кнопочку для вставки листа из шаблона, однако не получается как хочу:

Код:

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

(VL-CMDF "_.LAYOUT" "_T" "shablon.dwg")

не появляется окно диалога выбора листа, весь диалог через ком. строку. Как окошко можно вытянуть?

[VVA]

Код:

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

(VL-CMDF "_.LAYOUT" "_T" "~")

[Apelsinov]

VVA
тильда стоит вместо имени файла, по идее будет диалог выбора файла, а мне нужен диалог выбора листа. Кстати если тильду поставить вместо листа, то добавятся все листы из шаблона, но все мне не нужны, нужен выбор.

[VVA]

Получилось через одно место.

Код:

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

(setvar "filedia" 0)
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "_.LAYOUT _T shablon.dwg\n")

Надо только отлавливать, чтобы вернуть filedia назад.

[Apelsinov]

Гм..., засада , однако

Код:

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

(defun temp ( templ_path / )
  (setvar "FILEDIA" 0)
   (vla-sendcommand
    (APEL-ACTIVE_DOCUMENT)
    (strcat "_.LAYOUT _T " templ_path "\n")
  )
  (setvar "FILEDIA" 1)
)

вот так не работает

Код:

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

(temp "shablon.dwg")

то есть, если filedia заранее выставить в 0, то все нормально, а через функцию - облом

[VVA]

Так я не зря написал

1. Получилось через одно место
2. Надо только отлавливать, чтобы вернуть filedia назад

Наверное реактор на завершение команды

[VVA]

Удалось обмануть гада. Пришлось еще глубже залезть в одно место

Код:

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

(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object))
 "_.LAYOUT '_.SETVAR FILEDIA 0 _T shablon.dwg\n'_.SETVAR FILEDIA 1\n")

[sm155]

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

Извини, но на все сразу у меня шансов нуль (да вдобавок что-то ошибки рисуются, разбираться просто некогда). Спробуй добить такое:

Код:

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

(defun _kpblc-dir-path-and-splash (path)
  (strcat (vl-string-right-trim "\\" path) "\\")
  ) ;_ end of defun

;|=============================================================================
*    функция возвращает интерфейс IAxDbDocument (для работы с файлами DWG без
* их открытия). Если интерфейс не поддерживается, возвращает nil. Проверено
* на ACAD 2002, 2004, 2005, 2006
*    Автор - Fatty aka Олег jr. Моего только адаптация под общую систему и
* переименование
*    Параметры вызова:
*	нет
*    Примеры вызова:
(_kpblc-odbx)
=============================================================================|;
(defun _kpblc-odbx (/ dbx_doc)
  (cond
    ((< (_kpblc-acad-version) 15.06)
     (kpblc-msg-alert
       "ObjectDBX method not applicable\nin this AutoCAD version"
       ) ;_ end of KPBLC-MSG-ALERT
     nil
     )
    ((= (fix (_kpblc-acad-version)) 15)
     (if (not (vl-registry-read
		"HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
		) ;_ end of vl-registry-read
	      ) ;_ end of not
       (startapp "regsvr32.exe"
		 (strcat "/s \"" (findfile "axdb15.dll") "\"")
		 ) ;_ end of startapp
       ) ;_ end of if
     (setq dbx_doc (vla-getinterfaceobject
		     (vlax-get-acad-object)
		     "ObjectDBX.AxDbDocument"
		     ) ;_ end of vla-getinterfaceobject
	   ) ;_ end of setq
     )
    (t
     (setq dbx_doc (vla-getinterfaceobject
		     (vlax-get-acad-object)
		     "ObjectDBX.AxDbDocument.16"
		     ) ;_ end of vla-getinterfaceobject
	   ) ;_ end of setq
     )
    ) ;_ end of cond
  ) ;_ end of defun

(defun test
       (/ obj filename layout_lst dcl_id dcl_file_name dcl_file_hadnle lay)
  (setq	obj	 (_kpblc-odbx)
	filename (strcat
		   (_kpblc-dir-path-and-splash
		     (vla-get-templatedwgpath
		       (vla-get-files (vla-get-preferences (vlax-get-acad-object)))
		       ) ;_ end of vla-get-TemplateDwgPath
		     ) ;_ end of _kpblc-dir-path-and-splash
		   "acadiso.dwt"
		   ) ;_ end of strcat
	) ;_ end of setq
  (vla-open obj filename)
  (vlax-for item (vla-get-layouts obj)
    (setq layout_lst (append layout_lst (list (vla-get-name item))))
    ) ;_ end of vlax-for
  (setq	obj nil
	layout_lst
	 (vl-sort (vl-remove-if
		    '(lambda (x) (member (strcase x) '("МОДЕЛЬ" "MODEL")))
		    layout_lst
		    ) ;_ end of vl-remove-if
		  '<
		  ) ;_ end of vl-sort
	dcl_file_name
	 (strcat (_kpblc-dir-path-and-splash
		   (vla-get-tempfilepath
		     (vla-get-files
		       (vla-get-preferences (vlax-get-acad-object))
		       ) ;_ end of vla-get-files
		     ) ;_ end of vla-get-TempFilePath
		   ) ;_ end of _kpblc-dir-path-and-splash
		 "temp.dcl"
		 ) ;_ end of strcat
	dcl_file_hadnle
	 (open dcl_file_name "w")
	) ;_ end of setq
  (foreach str '("temp : dialog 	{label=\"Выбор листа для вставки\";"
		 ":column{"
		 ":popup_list	{key=\"lst\";"
		 "is_enabled=true;"
		 "label=\"Имя листа\";"
		 "}"
		 "}"
		 "ok_button;"
		 "}"
		 )
    (write-line str dcl_file_hadnle)
    ) ;_ end of foreach
  (close dcl_file_hadnle)
)

А дальше простым dcl-файлом работай, получай имя листа и вставляй его.

[luser]

из файла шаблона вставляет конкретный лист "list"
(VL-CMDF "_.LAYOUT" "_T" "shablon.dwg" "list")

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

Я так понял, что имя листа заранее не определено, задается пользователем.

[acyxou]

Появилась необходимость создания небольшой прогруммулины для быстрой вставки настроенного листа (Layout) в текущий файл.

Прогу писал сам, поэтому буду рад любой критике. Error handler не делал, так как мозгов еще не хватает...

Прога работает при наличии файла Sheet (millimeters).dwt, расположенного в одной из папок путей поиска (Support File Search Path).

Хотелось бы добавить к приложению:

1. Error Handler естественно
2. возможность удалять пустые листы

Добавлено 27.10.09
Спасибо Евгений А. и Do$ за доведение программулины до ума В аттаче обновленная версия!