В этом разделе Вы видите ответы на вопросы, которые чаще всего задаются как по почте, так и устно на занятиях. Если список надо продолжить - пишите :)
Лучше всего поясняет ситуацию пример. Рассмотрен пример, в котором производится создание нового стиля текста. На вход подается название нового стиля и размер шрифта. Если такой стиль существует, его надо активизировать, если нет - то сначала создать.
;-------------------------------------------------------------------------------
; Функция установки и создания стилей текста
;-------------------------------------------------------------------------------
; входные параметры:
;---------------------------------------
(defun tru_style (namfnt / )
; Если стиль с таким именем существует
(if (/= (tblsearch "STYLE" namfnt) nil)
; Тогда: переключение на данный стиль
(command "_.style" namfnt "" "" "" "" "" "" "")
; Иначе: создание такого стиля
(cond
((= namfnt "Dop")
(command "_.style" namfnt "TXT" 2.7 "1.0" "0"
"" "" ""))
((= namfnt "Size") (command "_.style"
"Size" "TXT" "3.5" "0.8" "15"
"" "" ""))
((and (/= namfnt "Dop") (/= namfnt
"Size"))
(command "_.style" namfnt "TXT" fnt "0.8" "15"
"" "" "")
)
)
)
)
(prompt "tru_style ")
; ОбЛАСТЬ ДОЛЖНА бЫТЬ ОбОЗНАЧЕНА ТОЧКАМИ p1, p2 ..., ang - угол наклона, h_mash - масштаб.
(command "hatch" "glass" h_mash ang "" "" p1 p2 "a" "s" p3 p4 "l" p5 p6 p7 "a" "s" p8 p9 "")
acad.exe -r D:\\dir1\\dir2\\...\\файл.dwg
Если есть еще пожелания к дальнейшим действиям, они записываются в файл *.SCR.
В таком файле пишутся команды так, как в ACAD.
acad.exe -r D:\\dir1\\dir2\\...\\файл.dwg -b D:\\dir1\\dir2\\...\\файл.scr
(load "D:\\dir1\\dir2\\...\\файл.lsp")
grid on
_vlide
Здесь происходит загрузка файла с программами, включение режима видимой сетки и запуск среды VLISP. В таком файле можно записать ту последовательность событий, которая Вам необходима. Желаю успехов!
Copyright © Толстоба Н.Д.