autolisp programele

Sveiki,

Niekaip nesugalvoju kaip sukurti antra polygona(trikampis) ir apsukti ji 180 laipsniu kampu,t.y apversti.Figura susideda is vieno apversto ir vieno neapversto trikampiu ,kuriu centrai sutampa.Gal kas turit kokiu ideju?

Mano kodas:

(defun c:Zvaigzde ()

(vl-cmdf

"._Polygon"

"3"

(getpoint "\Specify center of polygon: ")

"_C"

(* (getreal "\nEnter diameter: ") 0.5)

)

(princ)

)

P.S taip turetu atrodyti figura

http://upload.wikimedia.org/wikipedia/commons/thumb/4/49/Star_of_David.svg/160px-Star_of_David.svg.png

Kodėl nebraižai kaip atskirų linijų? Atsidėt taškus tereiktų nuo centro.

Kodėl nebraižai kaip atskirų linijų? Atsidėt taškus tereiktų nuo centro.

Pabandysiu,kaip tu sakai.Bet manau geresnis variantas butu su polygon