| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Block im Bestimmten Verzeichnis Speichern (1219 mal gelesen)
|
redfrog Mitglied
Beiträge: 56 Registriert: 07.04.2006 Win XP Acad 2006
|
erstellt am: 22. Jun. 2006 23:37 <-- editieren / zitieren --> Unities abgeben:
Guten Abend Ich habe bereits im Forum "Rund um Autocad" einen Beitrag mit dem gleichen Frage aber kamm ich nicht ganz ans Ziel. Da mir gesagt wurde das es mit LSP funktioniert frag ich einfach mal da nach. Ich möchte gerne aus einer Zeichnung ein Bauteil als Block in ein bestimmten Pfad Speichern. - Befehl ausführen - Gewünschte Objekte wählen - Einügepunkt wählen - Blocknamen eingeben - Fertig Block wird erzeugt und im Pfad "U:\User" abgelegt Gibt es so was?? Andrea
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 23. Jun. 2006 07:30 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
|
redfrog Mitglied
Beiträge: 56 Registriert: 07.04.2006 Win XP Acad 2006
|
erstellt am: 23. Jun. 2006 20:12 <-- editieren / zitieren --> Unities abgeben:
|
redfrog Mitglied
Beiträge: 56 Registriert: 07.04.2006 Win XP Acad 2006
|
erstellt am: 26. Jun. 2006 12:49 <-- editieren / zitieren --> Unities abgeben:
Hallo CadWiesel Also ich habe den Code von Axel versucht. aber ga passiert gar nichts bei mir. auch keine fehlermeldung. (defun c:USERBLOCK( / name bname o_expert path) (setq path"U:/USER/") ; Hier ändern! (setq name(getvar"dwgname")name(substr name 1(-(strlen name)4))) (if(or(tblsearch"block"(setq bname(strcat name"Z"))) (tblsearch"block"(setq bname(strcat name"ZS"))) ) (progn (setq o_expert(getvar"expert")) (command"_wblock"(strcat path name".dwg")16 bname) (setvar"expert"o_expert) ) ) ) Ist diser code fertig von Axel oder nur eine Auschnitt?? Weiss bin in einem LSP forum und sollte nicht solche fragen stellen. aber wie ihr ja sicher bemerkt habt verstehe ich im moment noch nicht sehr viel vom Programmieren (LSP) Andrea Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004
|
erstellt am: 26. Jun. 2006 18:03 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
Hallo Andrea, ich vermute auf die Schnelle (Feierabend!), daß die erwartetet Syntax nicht stimmt... Zitat: (command"_wblock"(strcat path name".dwg")16 bname)
Gib mal "_.-wblock" in die ACAD-Befehlszeile ein und notiere Dir die exakte Abfolge des Dialoges (oder Textfenster - F2). Diese muß mit Deinen Lisp-Angaben übereinstimmen. Viel Glück! Freddy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dabrunz Mitglied
Beiträge: 127 Registriert: 28.05.2003
|
erstellt am: 27. Jun. 2006 12:38 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
Tag zusammen. Zitat: Original erstellt von redfrog: Hallo CadWieselAlso ich habe den Code von Axel versucht. aber ga passiert gar nichts bei mir. auch keine fehlermeldung. [..] Ist diser code fertig von Axel oder nur eine Auschnitt?? Weiss bin in einem LSP forum und sollte nicht solche fragen stellen.
Der Code ist fertig, passt aber nicht auf deinen Anwendungsfall. Halte dich am besten an CadWiesels Vorschlag und benutze wblock - spricht meiner Meinung nach nix dagegen, denn der Befehl arbeitet doch genau so, wie du es haben möchtest oder? Achim Dabrunz ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
redfrog Mitglied
Beiträge: 56 Registriert: 07.04.2006 Win XP Acad 2006
|
erstellt am: 27. Jun. 2006 13:29 <-- editieren / zitieren --> Unities abgeben:
Hallo Achim ja ich kenne den Wblock, ist was ich will. aber ohne das Menu den das ist für nichts. Denn das ist viel zu umständlich und treibt mich in den wahnsinn! Dauert ja ewig bis ich einen block abgelegt habe damit, da immer wieder das Menu kommt. Andrea Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 27. Jun. 2006 15:39 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
hier mal was unter 2002 geht Code:
(if(and (setq a(ssget) b(getpoint "\nEinfügepunkt: ") c(getstring"\nBlockname: ") ) (null(findfile(setq d(strcat "U:\\User\\"(vl-filename-base c)".dwg")))) ) (command "_.wblock" d "" b a "") )
------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
redfrog Mitglied
Beiträge: 56 Registriert: 07.04.2006 Win XP Acad 2006
|
erstellt am: 28. Jun. 2006 10:13 <-- editieren / zitieren --> Unities abgeben:
|
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004
|
erstellt am: 28. Jun. 2006 12:31 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
Hallo Andrea, hallo CADwiesel - bitte um Verzeihung, daß ich mich einmische . CADwiesels Code war als Denkanstoß gedacht - eine nahezu fertige Funktion. Nur das "defun" außenrum fehlt noch. Also: Code: (defun test (/ a b c d); Deklaration der Variablen, lokal ...[CADwiesels Code, siehe oben]... );_und Schluss
Nochwas zum schmökern: http://www.autolisp.mapcar.net/ FrederikEine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 28. Jun. 2006 12:57 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 28. Jun. 2006 12:57 <-- editieren / zitieren --> Unities abgeben: Nur für redfrog
Zitat: Original erstellt von Paulchen: (defun test (/ a b c d)...
nimm besser einen anderen Funktionsnamen, denn c:test ist ein geschütztes Symbol ( wo auch immer ) ------------------ - 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 |
redfrog Mitglied
Beiträge: 56 Registriert: 07.04.2006 Win XP Acad 2006
|
erstellt am: 28. Jun. 2006 13:06 <-- editieren / zitieren --> Unities abgeben:
|