[OSIP]

Здравствуйте! Знаю, что уже заезженная тема, но вот такой вопрос у меня появился!
Как в командной строке AutoCADa задать имя файла и путь куда сохранять PDF-ку и другие параметры???

PS. Когда я в командной строке заканчиваю ввод всех необходимых параметров, AutoCAD открывает диалоговое окно для сохранения файла pdf!
А я хочу пропустить это окно, чтобы туда сразу прописывалась строка типа "D:\qwerty\file.pdf"

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

А поискать? Насколько я помню, решения были.

[OSIP]

Сообщение от Кулик Алексей aka kpblc А поискать? Насколько я помню, решения были.

Решения в темах я не нашел!
Там только треп про сторонние PDF-принтеры, а мне нужно через стандартный AutoCAD-овский принтер!
=(

[Profan]

Код:

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

(command "_PLOT" "_Y" "" "" "" "" orient "_N" "_W" (nth k ptx) (nth k pty) scl "" "_Y" ""
                     "_Y" "_A"
                     (strcat (getvar "DWGPREFIX") (vl-filename-base (getvar "DWGNAME")) "_0" (itoa (+ k0 k)) ".pdf")
                    "_Y"  "_Y")

Взято для примера отсюда:
http://www.caduser.ru/forum/index.ph...D=44&TID=27854

[kakt00z]

тогда тебе нужны такие объекты как:
vla-get-plot (IAcadPlotConfigurations: A collection of named plot settings)
view, viewport, и т.д. недавно рыл эту тему, и где то видел параметр задающий путь для сохранения таких файлов по умолчанию если он не задан
то ли в preferences то ли еще где , на работе могу найти, но тут дома проблематично

[OSIP]

Сообщение от kakt00z тогда тебе нужны такие объекты как: vla-get-plot (IAcadPlotConfigurations: A collection of named plot settings) view, viewport, и т.д. недавно рыл эту тему, и где то видел параметр задающий путь для сохранения таких файлов по умолчанию если он не задан то ли в preferences то ли еще где , на работе могу найти, но тут дома проблематично

Если Вас не затруднит, буду очень благодарен!

[kakt00z]

1. чем не нравится вариант Profanа? там последний параметр насколько я помню и есть "preview"
у меня это выглядело так

Код:

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

 (defun tst (pts format /
		     printer
		     pt1 pt2
		     fit
		     plotstyle
		     line-weight
		     Plot-not-prew
		     orient
		     )
  (setq
    pt1 		(car pts)
    pt2		(cadr pts))
  (setq
    fit			"_fit"
    plotstyle		"monochrome.ctb"
    line-weight		"_Y"
    Plot-not-prew 	"_Y"
    
    orient		;"_L"				;Landscape / Portrait   "_L" "_P"
     (if (> (abs (- (car pt1) (car pt2)))
	    (abs (- (cadr pt1) (cadr pt2))))
       "_L"
       "_P"
       );if orient
    printer				;;;тут нужно указать .pc3 файл принтера
     (if (= orient "_L")
       "pdf-w.pc3"			;;;; у меня они такие
       "pdf-v.pc3"
       );if printer
      format		;"A4"
    
    )

   (vl-cmdf "_.plot" 		;сама команда 
             "_Yes" 		;нужны настройки 
             "model" 		; Имя листа или [?] <Модель>: 
             printer 		;Имя устройства вывода или [?] <HP2200-PCL6.pc3>: 
             format 		;Формат листа бумаги или [?] <A4>: 
             "Millimeters" 	;Единицы измерения размеров листа [Дюймы/Миллиметры] <дюйм>:
             orient 		;Ориентация чертежа [Книжная/Альбомная] <Книжная>: 
             "_No" 		;Перевернуть чертеж? [Да/Нет] <Нет>:
             "_Window" 		;Печатаемая область [Экран/Границы/Лимиты/Вид/Рамка] <Рамка>:
             pt1 		;Первая точка окна 
             pt2 		;Вторая точка окна 
             fit 		;[Вписать] <Вписать>: ("_fit")
             "_center" 		;Смещение от начала (x,y) или [Центрировать] <Центрировать>: 
             "_yes" 		;Учитывать стили печати? [Да/Нет] <Да>:
             plotstyle 		;Имя таблицы стилей печати или [?] (. если нет) <monochrome.ctb>:
             line-weight 	;Учитывать веса линий? [Да/Нет] <Да>:
             "As displayed" 	;Режим вывода раскрашенных ВЭ [Обычный/Каркас/Скрытие линий/Тонирование] <Обычный>:
             "_No" 		;Запись чертежа в файл [Да/Нет] <Н>:
             "_yes" 		;Сохранить изменения параметров листа [Да/Нет]? 
             Plot-not-prew 	;Перейти к печати [Да/Нет] <Д>: 
    ) ;_ end of command
  )