Dobrý den,
začínám s Lispem a vyskytl se mi problém který mne zlobí. Když spustím LISP poprvé (příkazem "1") nakreslí rohové části tabulky bez problému. Když ale odzoomuji a spustím ho znovu vykreslí pouze horizontální úsečky. Neví prosím někdo čím je to způsobeno?
http://uloz.to/xyvYRWt/pokus-1-lsp

Ano má to takto fungovat. To je zajímavé, opravdu mi to kreslí v závislosti na zoomu pouze horizontální úsečky (+ kružnice a šrafy). Respektive to vykreslí i vertikální úsečku, ale pouze jeko bod,tzn parametr u funkce polar pro vzdálenost je roven nule. Nevím čím to bude. A takto to funguje i u dalších úseček tabulky které se tam snažím dokreslit. Když jsem dostatečně blízko tak je to OK.Odzoomuji-li stane se to stejné.

Kouknul jsem na kod LSP a je to tak jak píšu v předchozím příspěvku.
Doplňte si do funkce toto:

;těsně před kreslící fukce:

(setq old-osmode (getvar "osmode"))
(setvar "osmode" 0)

;tady budou řádky s kreslením

;těsně za kreslící funkce:
(setvar "osmode" old-osmode)


Jen připomínám, že je potřeba nezapomínat na funkci *error*.
Zejména pokud přenastavujete nějaké systémové proměnné. Jinak pokud funkce spadne tak Vám zůstane vypntý OSNAP.

Pokud používáte jednoduché názvy pro proměnné, které se mohou opakovat, je dobré je nenechávat jako globální. Může to způsobit neočekávané chování zcela jiných funkcí.
Stačí to vyřešit doplněním proměnných, které namají být do prvního řídku funkce za lomítko:

(defun C:1 ( / X1 X2 X3 X4 K1 K2)




Upravil alfred - 18.říj.2012 v 06:38