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