Würzen der Behandlung

[Angelo2449]

Hallo alle,
Mit diesem Code bekomme ich die Zurückhaltung geschlossener Bereiche.

 (defun fills (/ ctrllayer dots controlx riemp)

(setq controlx nil)

(sing)

(Setq-Punkte (getpoint "\nclick the inner point of a Closed area (rechts bis end))))

(wenn (= Kontrollx nil)
(Progn)
(setq ctrllayer)

(wenn (= ctrllayer nil)
(Befehl "_layer" "_new" Farbe "_color" Farbe "")
;

(cond)

((und (= cods "s") (= codt "s")); fester String
(Befehl "_bhatch" "_pr" "_s" Zeiger)
(setq riemp 1)
;

((und (= Kods "n") (= Kodt "s"));
(Befehl "_bhatch" "_pr" "_s" Zeiger)
(setq riemp 1)
;

((und (= cods "s") (= codt "t"));
(Befehl "_bhatch" "_pr" "ansi31" (von distx) Winkelu puntoins ")
(setq riemp 1)
;

;

(sing)
(Progn)
(Befehl "_change" "_last" "_p" "_layer" Farbe "")
(setq riemp nil)
;
;

(setq controlx nil)
;
;

;

(Setq-Farbe nil)
(Setq-Farben nil)
(Einsatz)
(princ "\ncommand beendet")
(princ "\n")

;

Ich möchte die Ausführung des Befehls "_change" auf das Ergebnis der Variablen > riemp < konditionieren, aber seine Valorisierung erfolgt unabhängig vom Ergebnis von "_bhatch" und dem Befehl "_change", es funktioniert immer noch.
Wie kann ich das machen?
führen Sie den Befehl "_bhatch" direkt auf der Ebene > Farbe i <, wie?
Danke.

 

[Angelo2449]

Ich habe es so gelöst:

(defun riempis (/ ctrllayer puntins controllox oldlayer)

(setq controllox nil)

(while)

(setq puntoins (getpoint "\nclicca il punto interno di un'area chiusa (tasto destro per terminare))))

(wenn (= Steuernummer)
(Prog.)
(setq ctrllayer (tblsearch "layer" colorei))

(wenn (= ctrllayer nil)
(Befehl "_layer" "_new" colorei "_color" colorei "")
; falls

(setq oldlayer (getvar 'clayer))
(setvar 'clayer colorei)

(cond)

((und (= cods "s") (= codt "s"))
(Befehl "_bhatch" "_pr" "_s" puntoins "")
; falls

(und (= Kodten "n") (= Kodt "s")) ;; numero tratteggio
(Befehl "_bhatch" "_pr" "_s" puntoins "")
; falls

(und (= cods "s") (= codt "t"))
(Befehl "_bhatch" "_pr" "ansi31" (von distx) angolou puntoins ")
; falls

),

(setvar 'clayer oldlayer)
(setq controllox nil)
),
; falls

;

(setq colorei nil)
(Setq-Farben nil)
(Einsatz)
(princ "\ncomando terminato")
(princ "\n")

);