5981674937

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].    ⁴⁵

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

)BBSBfl <41 \\

^);if

: AutoLISP Entmake

LINĘ")

"AcDbEntity")

"AcDbLine")

0    (list 0 X 0))

1    (list X V 10 )))))

Rys. 2. Kod programu „IT.LSP”