---

Hallo,

ich habe hier ein sehr schönes Lisp, was auch ganz gut funzt.

(defun c:bel (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)
(setq corner1 (getpoint "erste Ecke angeben: ")
corner2 (getpoint "zweite Ecke angeben: ")
columns (getint "Anzahl wagerecht: ")
rows (getint "Anzahl senkrecht: ")
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" "E-Beleuchtung" (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0)"" "" "")
(command "_array" "l" "" "R" rows columns rowspacing colspacing)
)

Das dumme ist nur das bei der Eingabe von:

rows (getint "Anzahl senkrecht: ")

eine 1 eingeben wird das Lisp nicht mehr funzt.

Es müßte eine zweite Variable eingefügt werden z.B. rows2.
Dieser wird dann zum berechen des Absandes benutzt in der Zeile:

rowspacing (/ roomheight rows2)

Leider bekomme ich es aber nicht hin zu sagen das die neue Varable rows2 = rows sein soll aber mindestens eine größe von 2.

Des weiteren wird bei der Eingabe von 1 der Zeilen oder Spaltenabstand nicht mehr abgefragt.

Hat einer noch eine Idee wie man das lösen kann 

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

---

Du weist aber schon wie der Befehl ansich funktioniert und was die "1" bewirkt?

Die "1" besagt nämlich, dass es keine Reihen oder Spalten gibt, sondern alles in dieser einen Reihe/Spalte stattfndet. Und wie willst du den Abstand zwischen 1 (einem) Objekt ermitteln? Da gibt es keinen...

Wenn du das Ereignis (=1) abfangen willst müsstest du mit "(cond" arbeiten...

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Habe gerade gesehen das die Abstände richtig berechnet werden. Das mit der Variablen rows2 ist also quatsch.

Bleibt das Problem mit der 1

Zitat:

---

Original erstellt von tunnelbauer:

Wenn du das Ereignis (=1) abfangen willst müsstest du mit "(cond" arbeiten...

---

Danke tunnelbauer - aber wie soll es denn aussehen mit "(cond"

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

---

Hallo XEM

Hier habe ich was.

(defun c:raum (/ Blockn 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

---

@Dober:

Das ist die Hälte der Miete; Was ist jetzt nämlich bei columns = 1?

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

  Danke Heinz 

es funzt 

vieleicht werd ich ja mal LISP komplett versehen - 

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

---

Zitat:

---

Original erstellt von tunnelbauer:
@Dober:

Das ist die Hälte der Miete; Was ist jetzt nämlich bei [i]columns = 1?

[/i]

---

So langsam komme ich hinter das Geheimnis des LISP 

so funzt es in beide Richtungen:

(defun c:bel (/ Blockn 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
)
(setq punktx (+(car lowerleft) (/ colspacing 2.0)))
(setq punkty (+(car lowerleft) (/ rowspacing 2.0)))

(command "_insert" "E-Beleuchtung" (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0) "" "" "")

(if (= columns 1)
  (command "_array" "l" "" "R" rows columns rowspacing)

(if (= rows 1)
  (command "_array" "l" "" "R" rows columns colspacing)

  (command "_array" "l" "" "R" rows columns rowspacing colspacing)
  )
  )
  )

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

---

ach nö,

Zitat:

---

Original erstellt von xem:

Danke tunnelbauer - aber wie soll es denn aussehen mit "(cond"

---

vlide
F1
Reiter Inhalt
  AutoLISP Reference
    AutoLISP Functions
      C Functions
        Cond

... so.

mfg heiko

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

---

Zitat:

---

Original erstellt von Dorfy:
ach nö,

vlide
F1
Reiter Inhalt
  AutoLISP Reference
    AutoLISP Functions
      C Functions
        Cond

... so.

mfg heiko

---

Ich weiß - kann den Teil der Hilfe aber nicht öffnen.

Internet Explorer-Skriptfehler

blablabla

JA/Nein

und das wars.

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

---

http://support.microsoft.com/kb/902225/ 

Kam hier (auf cad.de) aber auch schon 100x vor...

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

ne ne

cond

mfg heiko

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

---

Warum sichert ihr eure Progs eigentlich nicht minimal gegen abkacken wegen fehlerhafter Usereingaben ab ?

z.B. so : (ungetestet nur in den Editor geschrieben..)

(defun c:bel (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)
(if(and(or(setq corner1 (getpoint "\nErste Ecke angeben: "))
          (prompt  "\nUngültiger 1. Punkt")
        ) 
        (or(setq corner2 (getpoint "\nZweite Ecke angeben: "))
          (prompt  "\nUngültiger 2. Punkt")
        ) 
        (or(and(setq columns (getint "\nAnzahl wagerecht: "))
              (> columns  0)                ;--> kann man auch initget für nutzen
          )
          (prompt  "\nUngültiger Anzahl waagerecht")
        ) 
        (or(and(setq rows (getint "\nAnzahl senkrecht: "))
              (> rows 0)
          )
          (prompt  "\nUngültiger Anzahl senkrecht")
        ) 
        (setq roomwidth (abs (- (car corner1) (car corner2))))
        (setq roomheight (abs (- (cadr corner1) (cadr corner2))))
        (setq colspacing (/ roomwidth columns))
        (setq rowspacing (/ roomheight rows))
        (setq lowerleft (list (min (car  corner1) (car  corner2))
                              (min (cadr corner1) (cadr corner2))
                        )
        )
        (or(tblobjname "BLOCK" "E-Beleuchtung")
          (prompt "\nBLOCK : \"E-Beleuchtung\" nicht gefunden!!")
        ) 
    )
    (progn
      (command "_insert" "E-Beleuchtung" (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0)"" "" "")
      (cond
        ((= columns 1)
          (command "_array" "l" "" "R" rows columns rowspacing)
        )
        ((= rows 1)
          (command "_array" "l" "" "R" rows columns colspacing)
        )
        ((and(> rows 1)(> columns 1))
          (command "_array" "l" "" "R" rows columns rowspacing colspacing)
        )
      )
    )
  )
)

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Geiles Programm, funktioniert !

Ist es möglich, da noch irgendwo ne Abfrage einzubauen welcher Block eingefügt werden soll ?
Jetzt wird ja immer der "E-Beleuchtung" gesetzt, cool wäre aber wenn ich auf ein Symbol klicken kann, welches dann vom Programm genommen wird.

Ich kann auch ohne diese Funktion leben, aber wär halt schöner :-)

Gruss Attilio

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

---

hi,
siehe weiter ober bei Dober Heinz...

diese Zeile musst du geschickt in CADmium sein Zeilen einbauen...

(setq Blockn...
...
(command "_insert" Blockn ...

versuch es mal ist garnet so schwer...

mfg heiko

[Diese Nachricht wurde von Dorfy am 15. Jan. 2009 editiert.]

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

---

auf die schnelle so...

(defun c:bel (/   blockn      corner1   corner2
      columns   rows       roomwidth   roomheight
      colspacing  rowspacing
    )
  (if (and (or
    (tblobjname
      "BLOCK"
      (setq blockn (getstring "\nBlockname eingeben?: "))
    )
    (prompt (strcat "\nBLOCK : " blockn " nicht gefunden!!"))
  )
  (or (setq corner1 (getpoint "\nErste Ecke angeben: "))
      (prompt "\nUngültiger 1. Punkt")
  )
  (or (setq corner2 (getpoint "\nZweite Ecke angeben: "))
      (prompt "\nUngültiger 2. Punkt")
  )
  (or (and (setq columns (getint "\nAnzahl wagerecht: "))
    (> columns 0) ;--> kann man auch initget für nutzen
      )
      (prompt "\nUngültiger Anzahl waagerecht")
  )
  (or (and (setq rows (getint "\nAnzahl senkrecht: "))
    (> rows 0)
      )
      (prompt "\nUngültiger Anzahl senkrecht")
  )
  (setq roomwidth (abs (- (car corner1) (car corner2))))
  (setq roomheight (abs (- (cadr corner1) (cadr corner2))))
  (setq colspacing (/ roomwidth columns))
  (setq rowspacing (/ roomheight rows))
  (setq lowerleft (list (min (car corner1) (car corner2))
(min (cadr corner1) (cadr corner2))
  )
  )
      )
    (progn
      (command "_insert"
      blockn
      (list (+ (car lowerleft) (/ colspacing 2.0))
    (+ (cadr lowerleft) (/ rowspacing 2.0))
    0
      )
      ""
      ""
      ""
      )
      (cond
((= columns 1)
(command "_array" "l" "" "R" rows columns rowspacing)
)
((= rows 1)
(command "_array" "l" "" "R" rows columns colspacing)
)
((and (> rows 1) (> columns 1))
(command "_array"  "l" ""   "R"
  rows     columns rowspacing colspacing
)
)
      )
    )
  )
  (princ)
)

mfg heiko

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