---

Hallo

Ich hab folgendes Problem:
Ich habe ein Programm das Kreise verschiedener Größen zeichnet.
soweit so gut...
Jetzt soll Autocad aber, wenn ein Kreis gezeichnet ist, diesen mit einer Schraffur füllen.
Wie gehts das? Mein Versuch will nicht so recht funktionieren.

(setq koorpkt (list (atof rechtswert) (atof hochwert)))
(if(/= radius 0)
  (progn
    (command "layer" "mach" "layer1" \r)
    (command "kreis" koorpkt radius)
    (Command "layer" "mach" "layer2" \r)
    (command "layer" "farbe" "t" "255,63,0" "layer2" \r \r)
    (command "-gschraff" "a" "letzte" \r \r)       
  )
)

Ich hab es jetzt schon mit dem Befehlen "-schraff" , "-gschraff" und "_bhatch" probiert. Will aber mit keinen von den funktionieren.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wozu hast du du die Zeichen \r eingefügt? Sollte das ein Enter werden?
Andere Steuercodes wie "\n" = newline, "\t" = Tabulator wierden wie "\r" immer in Anführugnszeichen gesetzt.
Beispiel:

Code:

---

(prompt "Zeile 1: 123\nZeile 2:4567\t89\nZeile3:wirdgelöscht\rRest von
Zeile 3")

---

Hier das lauffähige Porgramm:

Code:

---

(defun c:KREISmitSCHRAFFUR ()
  (Prompt "Kreis mit Schraffur - CAD.de Sample - Udo Hübner")
  (setq radius 10.0)
  (setq koorpkt (getpoint "Kreismittelpunkt angeben:"))
  (if(> radius 0)
   (progn
    (command "_-layer" "_make" "layer1" "")
    (command "_circle" koorpkt radius)
    (Command "_layer" "_make" "layer2" "")
    (command "_-layer" "_color" "_True" "255,63,0" "layer2" "")
    (command "_-bhatch" "_select" "_last" "" "")      
   )
  )
)

---

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 06. Jul. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

vielen Dank jetzt funktioniert es 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP