Часто задаваемые вопросы (ЧаВо) по AutoLISP

В этом разделе Вы видите ответы на вопросы, которые чаще всего задаются как по почте, так и устно на занятиях. Если список надо продолжить - пишите :)

Функция TBLSEARCH

Лучше всего поясняет ситуацию пример. Рассмотрен пример, в котором производится создание нового стиля текста. На вход подается название нового стиля и размер шрифта. Если такой стиль существует, его надо активизировать, если нет - то сначала создать.

;-------------------------------------------------------------------------------
; Функция установки и создания стилей текста
;-------------------------------------------------------------------------------
; входные параметры:
;---------------------------------------

(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 ")

Команда штрихования HATCH

; ОбЛАСТЬ ДОЛЖНА бЫТЬ ОбОЗНАЧЕНА ТОЧКАМИ 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 "")

Создание кнопки на панели инструментов (в AutoCAD 2000)

В меню View выбираете пункт Toolbars:

Переходите на закладку Command, выбираете пункт UserDefined, выбираете UserDefined Button и перетаскиваете её на выбранную панель инструментов (в будущем можно и свои создавать).

После этого - правой клавишей мыши вызываете контекстное, меню и выбираете пункт "Properties".

Заполняете окно, нажимаете Apply и Close.

Запуск Acad из командной строки

Запуск файла чертежа с командной строки осуществляется так:

acad.exe -r D:\\dir1\\dir2\\...\\файл.dwg

 

Если есть еще пожелания к дальнейшим действиям, они записываются в файл *.SCR.
В таком файле пишутся команды так, как в ACAD.

Запуск файла чертежа и директив *.SCR осуществляется так:

acad.exe -r D:\\dir1\\dir2\\...\\файл.dwg -b D:\\dir1\\dir2\\...\\файл.scr

Содержимое файла *.SCR

(load "D:\\dir1\\dir2\\...\\файл.lsp")

grid on
_vlide

Здесь происходит загрузка файла с программами, включение режима видимой сетки и запуск среды VLISP. В таком файле можно записать ту последовательность событий, которая Вам необходима. Желаю успехов!

Copyright © Толстоба Н.Д.