---

Hallo zusammen,

bin gerade dabei etwas zu programmieren, komme aber an manchen stellen nicht weiter.

1. Mit dem befehl "open" und "write-line" schreibe ich Textdateien  für anderer Programme. Diese müssen aber in einem bestimmten Ordner liegen. Um zu prüfen ob ein Ordner vorhanden ist, habe ich diesen code gefunden (vl-directory-files "C:/....../....."). Aber wie erstelle ich einen neuen Ordner?

2. Wie kann ich mittels lisp herrausfinden, wie oft ein bestimmter block in einer Zeichnung vorhanden ist. Mit dem ergebnis möchte ich dann in lisp weiterarbeiten. Habe schon im Forum gesucht, aber nur den Befehl "blocklist" gefunden. Dieses ist mir aber zu umständlich weil damit alle Blöcke in einer Datei geschrieben werden, und ich diese dann wieder auslesen muss.

Bin für jede Hilfe dankbar.

mfg Alfonso

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

---

Zu 1.)
http://ww3.cad.de/foren/ubb/Forum145/HTML/000088.shtml 

zu 2.)

schau mal bei den ETools die Datei count.lsp an - dort ist die Funktion bcount enthalten

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

Thomas

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

---

mit (vl-file-directory-p filename)  kannst du feststellen, ob ein Verzeichnis existiert.

mit
(vl-mkdir ..
kannst du ein neues Verzeichnis erzeugen.

(sslength(ssget "_X" (list(0 . "INSERT")(cons 2 BLOCKNAME))))

liefert dir die unverschachtelten Referenzen..
über die entgetliste der Blockdef kannst du dir auch eine Liste aller Referenzen erstellen
------------------
      - 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

---

Hallo,

vielen Dank für eure Hilfe. Das mit dem Verzeichnis erstellen funktioniert super.

Das mit dem Abfragen der Blocke funktioniert auch.

(setq anzahl (sslength (ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer")))))

Es gibt aber noch ein Problem. Wenn der Block noch nicht in der Zeichnung vorhanden ist, wir das Lisp-Programm mit einer Fehlermeldung abgebrochen. Habe es schon gelöst, indem ich bei jedem start den Block einfüge und ihn nacher wieder lösche. Dieses scheint mir aber keine elegante Lösung zu sein. Gibt es da noch andere Lösungswege?

mfg Alfonso

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

---

Lösungsansatz dafür:

Code:

---

(if (tblsearch "BLOCK" "CNC-Nummer")
  (progn
    (setq anzahl (sslength (ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer")))))
  )
)

---

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

Thomas

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

---

Hallo Thomas,

das war ja mal eine schnelle Antwort. Die Funktion "tblsearch" gibt mir aber nur nil aus, wenn der Block noch nicht vorhanden ist. Bei mir ist der Block schon vorhanden, aber noch nicht in der Zeichnung eingefügt.
Ich hoffen ich drücke mich richtig aus.

mfg Alfonso

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

---

Hier bekommt man nur schnelle Antworten...   

Dann musst du es in diese Richtugn irgendwie lösen (ich glaub bei mir versteckt sich noch ein kleiner Fehler...)

Code:

---

(if (>= (sslength (ssget "x" (list (cons 0 "INSERT") (cons 2 "ZCNC-Nummer")))) 1)
  (progn
      (setq anzahl (sslength (ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer"))))))
  )
  (progn
    (princ "Keine Objekte eingefügt")
  )
)

---

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

Thomas

[Diese Nachricht wurde von tunnelbauer am 16. Jan. 2007 editiert.]

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

---

Hallo Alfonso,
dann bau doch ein IF direkt für den Auswahlsatz ein:

Code:

---

(if (setq aws (ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer"))))
  (setq anzahl (sslength aws))
  (setq anzahl 0))

---

------------------
viele Grüße

Jörn

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

---

Hallo Jörn,

dein ansatz habe ich sofort umgesetzt und es funktioniert.

(if (/= (ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer"))) nil)
(setq anzahl (sslength (ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer")))))
(setq anzahl 0)
)

vielen dank an euch.

nfg Alfonso

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

---

Zitat:

---

Original erstellt von Alfonso:
Hallo Jörn,

dein ansatz habe ich sofort umgesetzt und es funktioniert.   

(if (/= (ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer"))) nil)
(setq anzahl (sslength (ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer")))))
(setq anzahl 0)
)

vielen dank an euch.

nfg Alfonso

---

den Ansatz von Jörn hast du nicht umgesetzt, sondern verschlimmbessert .. :
1. (ssget "x" ..) liefert einen Auswahlsatz oder nil, da muß ich nicht nochmal auf (if(/=..) testen ..
2. du läßt zweimal einen Auswahlsatz erstellen.. das kostet Rechenzeit, auch wenn du eine Variable sparst ..

Sorry, aber die Kritik konnte ich jetzt mal nicht lassen..

es geht übrigens auch mit einem and/or Konstrukt:
(or(and(setq AWS(ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer"))))
      (setq anzahl (sslength AWS))
  )         
  (setq anzahl 0)
)

------------------
  - 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

---

Hallo CADmium

ich dachte immer, das der Testausdruck bei einer if Abfrage immer sowas wie (ist gleich) oder (kleiner als) beinhalten muss.

Durch deine Kritik habe ich schon wieder etwas gelernt!

(if (setq AWS (ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer"))))
(setq anzahl (sslength AWS))
(setq anzahl 0)
)

mfg Alfonso

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

---

Zitat:

---

Original erstellt von Alfonso:

Durch deine Kritik habe ich schon wieder etwas gelernt!

---

besser als in Mapcars Tutorial kann ich das auch nicht erklären .. vielleicht liest du es mal in einer freien Minute..

------------------
  - 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

---

Hallo Alfonso,
na dann verweise ich auch nochmal direkt auf Mapcar's Stilblüten, da ist das Problem von oben super erklärt: http://www.autolisp-tutorial.mapcar.net/stilfragen2.html

Zitat:

---

Und was hat nun T damit zu tun? T ist ein Symbol, nichts weiter. Es gibt aber eine Art Vereinbarung, dass Funktionen das Symbol T zurückgeben, wenn inhaltlich ein true gemeint ist. Was würde sich ändern, wenn alle Funktionen, die bisher im Wahr-Fall T zurückgeben, ab morgen X oder SCHOENES-WETTER-HEUTE  zurückgäben? Nichts! Entweder gibt eine Funktion nil zurück, dann wissen wir, dass es der Falsch-/Unwahr-/Nichts-Fall war, oder sie gibt etwas anderes zurück - dann war es der Wahr-/Richtig/Ichts-Fall. Aber was die Funktion im Einzelnen zurückgibt, spielt keinerlei Rolle. Und damit kommen wir zur AutoLisp-Stilblüte schlechthin:

(if (/= irgendeine-liste nil)
  (dann-mach-weiter ...)
  (dann-lass-stecken ...)
)
                 

Wer die Anfangskapitel dieses Tutorials aufmerksam gelesen hat, kennt die Regeln: Die Argumente werden von links nach rechts verarbeitet, also ist die Klammer mit der Funktion (/= ...) zuerst dran. irgendeine-liste evaluiert dann zu nil, wenn die Liste leer ist. Was testen wir dann? Es wird getestet, ob nil ungleich nil ist. Das kann auf jden Fall nur 'wahr' ergeben.

Wesentlich ist hier das Wissen, dass irgendeine-liste sowieso zu 'wahr' evaluiert, wenn sie nicht leer ist. Also warum nicht gleich so:

(if irgendeine-liste
  (dann-mach-weiter ...)
  (dann-lass-stecken ...)
)
                 

---

------------------
viele Grüße

Jörn

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

---

Hallo Alfonso,

hier noch eine kleine nette Erweiterung:

(if (setq AWS (ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer"))))
(alert (strcat (itoa (sslength AWS)) " Blöcke"))
(alert "0 Blöcke")
)

Das
(ssget "x" (list (cons 0 "INSERT") (cons 2 "CNC-Nummer")))
kannst du verkürzen zu
(ssget "x" '((2 . "CNC-Nummer")))
da:
- du das Objekt "Inserts" direkt über den Gruppencode 2 suchst kann
  somit auch (cons 0 "INSERT") entfallen
- das '((2 . "CNC-Nummer")) so stark verkürzt wird, da du den Blocknamen ja nicht variabel hälst und somit als nicht-auszuwertende Liste an ssget übergibst

Wolfgang

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

---

Vorsicht Wolfgang   .. da mußt du aber z.B. sicher sein, das z.B. keine Schrafurren mit Mustername "CNC-Nummer" vorhanden sind .. oder Mlines mit einem Stil solchen Namens.. auch wenn das nur hypotetisch ist, man kann gar nicht so quer denken .. deshalb ..lass das (0 . "INSERT") drin , dann ist es eindeutig

------------------
      - 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