---

Hi, habe endlich das hier gefunden für meine Anordnung von Symbolen in einen Raum:
(defun c:raum (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)
(setq corner1 (getpoint "erste Ecke im Raum: ")
corner2 (getpoint "gegenüber liegende Ecke: ")
columns (getint "Anzahl X Richtung: ")
rows (getint "Anzahl Y Richtung: ")
roomwidth (abs (- (car corner1) (car corner2)))
roomheight (abs (- (cadr corner1) (cadr corner2)))
colspacing (/ roomwidth columns)
rowspacing (/ roomheight rows)
lowerleft
(list
(min (car corner1) (car corner2))
(min (cadr corner1) (cadr corner2))
); end list
); end setq
(command "_insert" "taster1" (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0)"" "")
(command "_array" "l" "" "R" rows columns rowspacing colspacing)
)

wieso geht es nur wen Taster drinn steht, ich muß also alle Symbole Taster nennen, weißt einer ob man es ersetzen kann durch Blockwahl oder Blocknamen wählen oder eingeben?
Habe es of versucht aber es will nicht klappen....
Noch ne Frage    wieso mach der die Symbolanordnung nicht Symetrisch im Raum....bei einen Symbol geht es aber wenn ich jetz zwei i X Richtung mache und 1 in Y Richtung dann gint es ein Versatz.
Bin für jede Hilfe dankbar.....
Gruß

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

---

zu deinem 1.Teil der Frage - Ganz klar du übergibst dem Befehl insert ja auch den Namen Taster1 der eingefügt werden soll.
Wenn ein anderer Blockname genommen werden soll, musst du diesen z.b. weiter oben erstmal eingen, indem du (getstring"Blockname:") einbaust.

Zu deinem 2. Teil der Frage evtl. hast du einen Fang aktiviert

Diese Antwort wurde gesponsort by CADwiesel

------------------
   

Richtig Fragen * Nettiquette * alte Suchfunktion * System-Info * Unities

[Diese Nachricht wurde von Pro_Blem am 05. Dez. 2008 editiert.]

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

---

Hallo Przemo

So müsste es gehn

(defun c:raum (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)
(setq Blockn (getstring "Blockname? "))
  (setq corner1 (getpoint "erste Ecke im Raum: ")
corner2 (getpoint "gegenüber liegende Ecke: ")
columns (getint "Anzahl X Richtung: ")
rows (getint "Anzahl Y Richtung: ")
roomwidth (abs (- (car corner1) (car corner2)))
roomheight (abs (- (cadr corner1) (cadr corner2)))
colspacing (/ roomwidth columns)
rowspacing (/ roomheight rows)
lowerleft
(list
(min (car corner1) (car corner2))
(min (cadr corner1) (cadr corner2))
); end list
); end setq
(command "_insert" Blockn (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0)"" "" "")
(command "_array" "l" "" "R" rows columns rowspacing colspacing)
)

------------------
Heinz 

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

---

Hallo Przemo
so gehts auch mit einer Zeile

(defun c:raum (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)
(setq Blockn (getstring "Blockname? "))
(setq corner1 (getpoint "erste Ecke im Raum: ")
corner2 (getpoint "gegenüber liegende Ecke: ")
columns (getint "Anzahl X Richtung: ")
rows (getint "Anzahl Y Richtung: ")
roomwidth (abs (- (car corner1) (car corner2)))
roomheight (abs (- (cadr corner1) (cadr corner2)))
colspacing (/ roomwidth columns)
rowspacing (/ roomheight rows)
lowerleft
(list
(min (car corner1) (car corner2))
(min (cadr corner1) (cadr corner2))
); end list
)
(setq punktx (+(car lowerleft) (/ colspacing 2.0)))
(setq pukty  (+(car lowerleft) (/ rowspacing 2.0)))

(command "_insert" Blockn (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0) "" "" "")
(if (= rows 1)
  (command "_array" "l" "" "R" rows columns colspacing)
  (command "_array" "l" "" "R" rows columns rowspacing colspacing)
  )
  )

------------------
Heinz 

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

---

Hallo, danke für eure schnelle Unterstützung.
Das funktioniert ja so wie ich es mir gewünscht habe....!!!!!!
Noch eine Funktion und dann lasse ich euch auch in Ruhe 
Kann mir noch einen Zeile für Skalierung eintippen.....
Vielen Dank im Vorraus

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

---

Hi, erstmal großen Respekt......
wenn ich schon so gute Leute hier habe dann macht mir noch bitte die Ausrichtung also Drehung da rein wenn es geht und wenn es möglich ist, also Drehung am Uhrsprung.

[Diese Nachricht wurde von Przemo am 08. Dez. 2008 editiert.]

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

---

wieso nicht?
Die Jungs haben viel Ahnung von den Sachen und es ist die letzte Funktion die so ein Lisp Programm perfekt machen würde, ich denke es ist auch sehr hilfreich für ander Nutzer .....und nicht nur für mich
Ich habe davon keine Ahnung bin aber in sehr vielen Auto Forums angemeldet wo ich den Leuten sogar Hilfestellung per Telefon gebe.....

naja ich denke es ist hier nicht zu viel verlangt.....

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

---

Ich meinte nur das ich von Lisp keine Ahnung habe aber in anderen Forums mit Hilfestellungen unterwegs bin.

[Modedit]unpassendes gelöscht[/Modedit]

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