Někdy se stane, že zákazník požaduje výkres, kde vyžaduje jak vlastní hladiny, vlastní text a dokonce i speciální nastavení jednotlivých parametrů. Z toho důvodu  jsem si vytvořil lipovský prográmek „NV.LSP, který reaguje na dané  požadavky. Níže uvádím zkrácenou verzi.

=================================

;   Nastavení nového výkresu pro Mechsoft pomocí prográmku

;   (NV.LSP) => NVMECH

;   NASTAVENÍ HLADIN

(defun HL ( )

  (command "regen")

  (command "-hladina" "pracovní" "0" "barva" "7" "" "typč" "continuous" "" "tlčáry" "0.25" "" "")

  (command "-hladina" "pracovní" "B3" "barva" "10" "" "typč" "dot" "" "tlčáry" "0.35" "" "")

  (command "-hladina" "pracovní" "R3" "barva" "9" "" "typč" "PHANTOM" "" "tlčáry" "0.18" "" "")

  (command "-hladina" "pracovní" "KOTY" "barva" "3" "" "typč" "continuous" "" "")

  (command "-hladina" "pracovní" "BLOKY" "barva" "7" "" "typč" "continuous" "" "")

  (command "-hladina" "nastav" "O2" "")

)

;           Nastavení typu písma

(defun PIS ( )

    (command "-písmo" "STANDARD" "SIMPLEX.SHX" "0.0" "1.0" "0" "N" "N" "")

    (command "-písmo" "SIMPLEX" "SIMPLEX.SHX" "0.0" "1.0" "0" "N" "N" "")

    (command "_textfill" "1")

  )

;       Nastavení rozlišení

 (defun ROZ ( )

   (command "_viewres" "A" "10000")

  )

;       Nastavení nastavení měřítka čar

 (defun LTSC ( )

   (command "_LTSCALE" "1")   ;  Nastavení globálního měřítka

   (command "_PSLTSCALE" "0") ;  Nastavení měřítka čar pro výkresový prostor "0"

   )

  ; Nastavení kótovacího stylu K1_50 pro měřítko 1:50

(defun KS ( )

  (command "-DIMSTYLE" "U" "K1_50" "A")

  (setvar "DIMADEC" 0)

  (command "SYSPAR" "DIMALT" "NE")

  (setvar "DIMZIN" 8)

  (command "-DIMSTYLE" "U" "K1_50" "A")

  ; Nastavení kótovacího stylu  K1_20 pro měřítko 1:20

  (setvar "DIMSCALE" 20.00)

  (setvar "DIMLFAC" 1.000)

  (setvar "DIMTXT" 2.5)

  (command "-DIMSTYLE" "U" "K1_20" "A")

  )

;           Celkové vytvoření nového výkresu

(defun C:NVMECH ( )

  (HL)              ; Nastavení hladin

  (ROZ)                       ; Nastavení rozlišení

  (PIS)             ; Načtení typu písma

  (LTSC)          ; Načtení nastavení měřítka čar

  (KS)

 )

Pro zjednodušené používání potom jsem si vytvořil uživatelské tlačítko obsahující např. Makro:

^C^C; (load "D:/Dokumenty/1-Software/AutoCAD2004/ NV"); NVMECH;

Kde:

" D:/Dokumenty/1-Software/AutoCAD2004/ NV "

je  název souboru „NV.lsp“ včetně cesty k němu bez lsp

„NVMECH“

je dáno v Lipovském souboru 

„(defun C:NVMECH ( )“

Po skončení kreslení se hladiny, kótovací styly a písma vyčistí a kdykoliv mi chybí potřené hladiny stlačení 1 tlačítka si je kdykoliv načtu.