Język programowania AutoLISP i środowisko VisualLISP programu AutoCAD/^ wykorzystane do opracowania nowego polecenia które umożliwia wproj w obszarze modelu programu AutoCAD obiektów za pomocą funkcji command i vla-add [4]. 45
Nowoopracowane polecenie „it” umożliwia automatyczne wprowadzenie w obsźąfże modelu testowych obiektów graficznych w postaci linii o zmiennej długości. Kod prógjgłm^,IT.LSP” przedstawiony jest poniżej [4],
(defun c:it()
(setuar "cmdecho" O)
(setq STL (getuar "osmode"))
(setuar "osmode" 16381)
;inicjacja poleceń ulax (ul-load-com)
: pobranie parametrów obszaru Modelu (setq _acad_ (ulax-get-acad-object)
_model_ (ula-get-ModelSpace (ola-get-flctioeDocumept )
(princ "\n") '
(princ "Wybierz typ wprowadzanych obiektów:
1 - LINIE-Command.
2 - LINIE-UisualLISP_ULfiX.
3 - LINIE-fiutoLISP_Entmake\n")
(setq N (getint "WVBIERZ 1,2 lub 3 i naciśnij.
(princ "\n")
(princ "Podaj liczbę wprowadzanych elementów:
(setq ILE (getint "PODAJ LICZBĘ ELEMENTÓW I (setq i 0)
(setq Timer (getuar "MilliSecs”))
(repeat ILE ;COMMAND
(if (= N 0 vv n
(progn
(setq i (+ i 1)) ^^=7
(setq P1 (list O (w i 10)
(setq P2 (list (* i 10) ^<vjt=3j0n0))
(command "_line" P1 P2 );progn
):if
|UisualLISP ULAX
(if (= N 2)
(progn
10) 0)
(setq i (♦ i 1)) n (ula-AddLine _model_Hulax-3D-Point 0 (« (ulax-3D-Poin1Tpf*5vl0) (w i 10) O))
);if
: AutoLISP Entmake
LINĘ")
"AcDbEntity")
"AcDbLine")
0 (list 0 X 0))
1 (list X V 10 )))))
Rys. 2. Kod programu „IT.LSP”