command "line" werkt niet goed

[A3]

als ik in een DCL bestand een lengte en breedte invul van bv 1000 dan worden er vier hoekpunten berekend in het LSP bestand en vervolgens zou er een vierkant getekend moeten worden van 1000x1000 mm. Toch worden er maar 3 zijden van het vierkant getekend. Ik kom er niet uit. Kan iemand me helpen.

LISP bestand

(defun lamel (/)
     (command "layer" "s" "werk" "")

   (setq nummer (load_dialog "c:/rooster/lsp/lamel.dcl")) (new_dialog "BOX2" nummer)

   (action_tile "9lengte" "(setq 99lengte (atof $value))")
   (action_tile "9breedte" "(setq 99breedte (atof $value))")

   (start_dialog)

   (unload_dialog nummer)

   (setq 99plaats (getpoint "Plaatsingspunt linksboven : "))

   (setq 99punt2 (list (+ (car 99plaats) 99breedte) (cadr 99plaats) (caddr 99plaats)))
   (setq 99punt3 (list (car 99punt2) (- (cadr 99plaats) 99lengte) (caddr 99plaats)))
   (setq 99punt4 (list (car 99plaats) (cadr 99punt3) (caddr 99plaats)))

   (command "line" 99plaats 99punt2 99punt3 99punt4 99plaats "")
)


DCL bestand

BOX2 : dialog {
   label="LAMELLENROOSTERS";
   : text {label="Invoer roostergegevens"; }
   : spacer {height=1;}
   : edit_box {label="Roosterlengte   "; key="9lengte";edit_width=10;value="";}
   : edit_box {label="Roosterbreedte  "; key="9breedte";edit_width=10;value="";}
   ok_cancel;

   }   

[roy_043]

Volgens mij werkt de lisp prima. Heb je misschien een osnap aanstaan? Probeer het dan eens met alle osnaps uit.
Zie hier: http://www.cadsite.be/smf/index.php?topic=3701.0

Ter overweging: waarom geen polylijn i.p.v. vier losse lijnen:

Code Selecteer Uitklappen

...
(command "pline" 99plaats 99punt2 99punt3 99punt4 "close")
...

[A3]

Hoe simpel kan het zijn.

Hartelijk dank, forum werkt voortreffelijk.

Adri