cd:ACX_AddLine

Tworzy obiekt typu LINE

(cd:ACX_AddLine Space Ps Pe ActUcs)

Argumenty:

Space	[VLA-Object]	kolekcja Model/Papier + Blok
Ps	[LIST]	punkt początkowy
Pe	[LIST]	punkt końcowy
ActUcs	[T/nil]	dopasuj do aktywnego ucs: nil = nie T = tak

Zwraca:

VLA-Object nowo utworzonej linii

Przykład:

(defun c:TestLine (/ a b)
(command "_.ucs" "x" "32")
(setq a (cd:ACX_AddLine (cd:ACX_ASpace) '(2 4 0) '(10 5 0) nil)
b (cd:ACX_AddLine (cd:ACX_ASpace) '(2 4 0) '(10 5 0) T)
)
(cd:ACX_SetProp a '(("Color" . 1) ("Thickness" . 4.0)))
(cd:ACX_SetProp b '(("Color" . 2) ("Thickness" . 4.0)))
(command ".-view" "_swiso")
(princ)
)

Polecenie: TESTLINE

Powiązane z:

cd:ENT_MakeLine