---

Hallo zusammen

So und alle Jahre wieder wenn ich mir was lispen will, stell ich fest dass ich voll eingerostet bin.

Da ich gefühlte 1000 wblöcke machen muss dacht ich mir dass lisple ich schnell damit ich die nicht von ahnd anschreiben muss (der Blockname steht immer schön dabei).

Hab hier auch was gefunden
[URL=https://forums.autodesk.com/t5/autocad-forum/wblock-lisp/m-p/5883848#M101636][/URL]

Dachte mir dass kann ich schnell umbauen auf "speichere als dxf"...
...bekomms aber nicht auf die reihe...

Hier mal die aktuelle Fehlermeldung:

Code:

---

Select Block name Text:
Pick Insertion Point:
Select objects: Specify opposite corner: 11 found
Select objects:
_-wblock Enter name of output file: C:\WorkSpace\Designs\.... Path does not exist: C:\WorkSpace\Designs....
Please verify the correct path was given.
Command: 16
Command: QWBLOCK
Unknown command "QWBLOCK".  Press F1 for help.
Command:
Command: <Selection set: 479>

---

Ich hab per "trieal and error" versucht den Fehler zu finden, aber der Zufall hat mir auch nicht geholfen.

Bin sicher die experten schauen eimal 2 Sekunden drauf, amüsieren sich und könne mir die fehlende Klammer oder was auch immer sagen :-)

Und hier der aktuelle code (wie gesagt hab da dran unprofessionell rumgebastelt und etliche Varianten durchgetestet  )

Code:

---

(defun c:qwblock (/ DIR ENTXT SS TXT PT TXT0)
  (setq Dir (getvar "DWGPREFIX"))
  (vl-cmdf "_undo" "be")
  (while (AND (vl-file-directory-p Dir)
      (setq enTxt (car(entsel "\nSelect Block name Text: ")))
      (wcmatch (cdr (assoc 0 (entget enTxt))) "*TEXT")
      (setq txt0 (cdr (assoc 1 (entget enTxt))))
      (not (findfile (setq txt (strcat Dir txt0))))
      (setq pt (getpoint "\nPick Insertion Point: "))
      (setq ss (ssget))
      )
    (progn
        (vl-cmdf "_-wblock" txt 16 "" pt ss "")
      (vl-cmdf "_undo" "back")
      )
    )
  (princ)
  )

---

Grüsse vom Bodensee

------------------
Es ist kein Zeichen geistiger Gesundheit, gut angepasst an eine zutiefst kranke Gesellschaft zu sein.

Jiddu Krishnamurti

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

---

Hi,

eigentlich kann der Code problemlos laufen, steht aber auf wackligen Knien.

Klickst du TEXT oder doch eher MText an?
Falls MText, schau dir den "(M)Text-Inhalt" genau an: (cdr(assoc 1 (entget(car(entsel)))))
oder teste einfach mal mit einem neuen TEXT mit dem Inhalt "12342" oder noch besser "1234.dxf",
denn du überlässt es aktuell dem Zufall ob wblock eine DXF oder DWG schreiben will.

 

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

---

Haha! So ich hab nun mal einen von Hand gemacht und festgestellt dass im Text n "Enter" / "Zeilenumbruch" drinn ist und dass scheint er nich zu mögen...

Gibt es ne Möglichkeit den Zeilenumbruch raus zu nehmen?

Ich hatte mal die Zeile so angepasst (damit wäre das .dxf definiert nicht?)

Code:

---

(vl-cmdf "_-wblock" (strcat txt ".dxf") 16 "" pt ss "")

---

------------------
Es ist kein Zeichen geistiger Gesundheit, gut angepasst an eine zutiefst kranke Gesellschaft zu sein.

Jiddu Krishnamurti

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

---

>>"So ich hab nun mal einen von Hand gemacht und festgestellt dass im Text n "Enter" / "Zeilenumbruch" drinn ist"
Hatte ich also den richtigen Riecher 

>>" Gibt es ne Möglichkeit den Zeilenumbruch raus zu nehmen?"
Ob Zeilenumbruch oder ein A, B oder C, da gibt es kaum einen Unterschied und
man manipulieren wie man mag, dir stehen also alle Funktionen der String-Bearbeitung zur Verfügung.

>>(vl-cmdf "_-wblock" (strcat txt ".dxf") 16 "" pt ss "")
Gut!

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

---

OFFtopic

>> (vl-cmdf "_undo" "back")
SO würde es nur in englischen Versionen laufen, dann könnte man sich auch alle Unterstriche vor den engl. Befehlen&Optionen sparen,
also wäre _back besser - weil lauffähig in allen Sprachversionen.

 

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

---

Naja so nun raucht mir der Kop 

N Teil habi hinbekommen, min zwei Teile nicht.

Ich bin zu doof zu kapieren wie ich den sch... Zeilenumbruch rausbekomme... (nach langem rumprobieren mit paar Zeilen die sonst irgendwo geklaut hab, hab ich festgestellt da stand zwar schön hat geklappt, aber bei mir funktioniert dass Ding im Orginal schon nicht...

und ich hab versucht die Auswahl ss gleich noch aufzulösen, dass hat aber auch noch nicht geklappt...

Vieleicht hast ja nochmal n Tipp 
Ich muss für heute aufgeben und morgen nochmal frisch reinschauen 

Code:

---

(defun c:qwblock (/ DIR ENTXT SS TXT PT TXT0 NEUTEXT L I OBJ)
  (setq Dir (getvar "DWGPREFIX")) ;hole Zeichnugnspfad
  (vl-cmdf "_undo" "be") ;starte "zurück"

  (command "_layer" "_off" "Isolator_omnia_18" "") ;schalte die nicht benötigten layer aus
  (command "_layer" "_off" "Nichtrostender Stahl 1.4301" "") ;schalte die nicht benötigten layer aus
  (command "_layer" "_on" "Isolator_omnia_block_20" "")
  (command "_layer" "_on" "Isolator_omnia_block_30" "")
  (command "_layer" "_on" "Isolator_omnia_block_50" "")
 
  (while (AND (vl-file-directory-p Dir)
      (while (AND (vl-file-directory-p Dir)
      (setq enTxt (car(entsel "\nSelect Block name Text: ")))
      (wcmatch (cdr (assoc 0 (entget enTxt))) "*TEXT")
      (setq txt0 (cdr (assoc 1 (entget enTxt))))
      (not (findfile (setq txt (strcat Dir txt0))))
; (setq neutext (vl-string-subst (chr 10) "\\P\\P" (cdr (assoc 304 txt)) ) )
; (setq txt (subst (cons 304 neutext) (assoc 304 txt) txt))
 
      (setq pt (getpoint "\nPick Insertion Point: ")) ;wähle Einfügepunkt
      (setq ss (ssget))
; (while(and(ss (ssget "_X" (list '(0 . "INSERT")(cons 410 (getvar "CTAB"))))) ;löse alle Blöcke auf
;             (>(setq L (sslength ss))0)
;         )
;     (setq I -1)
;     (repeat L
;       (setq OBJ(ssname ss(setq I (1+ I))))
;       (command "_explode" OBJ)         
;     ) 
;   )      

      )
    (progn
        (vl-cmdf "_-wblock" (strcat neutext ".dxf") 16 "" pt ss "")  ;expotiere als dxf 
      (vl-cmdf "_undo" "_back") ;bende "zurück" (Layer wieder on etc.,..)
      )
    )
  (princ)
)

---

------------------
Es ist kein Zeichen geistiger Gesundheit, gut angepasst an eine zutiefst kranke Gesellschaft zu sein.

Jiddu Krishnamurti

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