|
AutoLisp : Einsatz
Brischke am 10.08.2004 um 14:52 Uhr (0)
Hallo Petra, dieser Code ist eine Subfunktion. Du kannst diesen in deinem Programmcode verwenden. (setq ergebnis (Zchnstr PfadangabeAsString)) Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Einsatz
Brischke am 10.08.2004 um 15:47 Uhr (0)
Hallo Petra, dann fangen wir mal ganz am Anfang an. Was willst du überhaupt machen? a) Du schreibst gerade ein Lisp-Programm, und willst diesen Code verwenden b) Du willst die Pfadangabe einfach irgendwo in der Zeichnung als Text oder Attributwert, oder oder oder haben Schreib mal ganz genau, was du vorhast! Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Einsatz
Brischke am 11.08.2004 um 09:11 Uhr (0)
Hallo Petra, ganz so einfach ist dein Problem nicht zu lösen, denn die im Block augenscheinlich als Text enthaltenen RTEXT-Elemente müssen in der Blockdefinition durch Text-Elemente ersetzt werden, damit diese dann im AutoCAD ohne ETools erkannt werden. Das kann man entweder manuell mit Referenz bearbeiten machen, was natürlich relativ aufwendig ist, wenn man das in 100 Zeichnungen machen muß, und zum anderen hast du dann immernoch nicht die Pfadangabe im Text stehen, was dann zusätzlich eingetragen werd ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : blockattribute in liste auslesen und nachträglich zeichnung über liste bearbeiten
Brischke am 13.08.2004 um 08:23 Uhr (0)
Hallo Heinz, das ist nur eine Teillösung zum Ändern einer über die Blöckbibliothek erstellten Zeichnung. Wenn ich das richtig verstanden habe, dann sollen auch die Blöcke durch Anwählen eines entsprechenden Eintrags in der Tabelle in die Zeichnung eingefügt werden. Meines Erachtens kommt man hier an einer Datenbanklösung nicht vorbei. Deshalb kann ich mir nicht vorstellen, dass es hier eine Freeware-Lösung gibt. Sinnvoller ist wohl mal die Suche nach einer Applikation, denn so neu ist die Aufgabenstellung ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : blockattribute in liste auslesen und nachträglich zeichnung über liste bearbeiten
Brischke am 13.08.2004 um 09:45 Uhr (0)
Hallo Heinz, sorry, habe eben gesehen, dass ich dich im Posting direkt angesprochen hatte. Ich weiß, dass dir das sicher bewußt ist/war. Ob Lisp oder VBA - da kann man drüber diskutieren. Ich würde wahrscheinlich ein Mix aus beiden machen. Datenbankseitig in VB, also Daten anlegen Blöcke zuordnen, Datenpflege usw. Das Zeichnen selbst dann über LISP, hängt eben von der konkreten Aufgabenstellung ab und ist hier letztendlich nicht das Thema. Nochmal Sorry, Heinz. Grüße Holger ------------------ Holger Brisch ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : blockattribute in liste auslesen und nachträglich zeichnung über liste bearbeiten
Brischke am 13.08.2004 um 10:10 Uhr (0)
Na dann ist ja alles gut. Freut mich aber mal wieder zu lesen, dass hier im Forum nicht alles auf die Goldwaage gelegt wird. Man kann sich schon über das Niveau und die Umgangsforem hier freuen - und hoffen dass dies so bleibt. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Einsatz
Brischke am 13.08.2004 um 11:17 Uhr (0)
Hallo Petra, Ergänzend zu CADmiums Posting: Code: (defun c:PIA (/ dwgpath dwg2path dwgverz) (setq dwgverz (cdr (reverse (f:str-teilen (setq dwgpath (getvar DWGPREFIX )) ) ) ) dwg2path (apply strcat (mapcar (lambda (S) (strcat S ) ) (reverse (if ( (length dwgverz) 2) (list (car dwgverz) (cadr dwgverz)) dwgverz ) ) ) ) ) (alert (strcat Ganzes Verzeichnis: dwgpath
letzen 2 Verzeichnisse: dwg2 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Einsatz
Brischke am 13.08.2004 um 11:28 Uhr (0)
Zitat: Original erstellt von Petra_Sp: ... 1. Den Dateinamen ganz einfach mit dieser Funktion (siehe 1. Beitrag) nur als Text wiederzugeben, so das er mir das letzte Verzeichnis und den Dateinamen wiedergibt!!! Wie setzte ich so eine Funktion überhaupt ein wenn ich sie nicht mit einem Befehl aufrufen kann?!?! Oder muß ich das in ein Lisp einbauen und irgendwie dann ansprechen. Wenn ja wie funktioniert das?? Schau dir bitte noch einmal Link in CADmiums ersten Beitrag an. Zitat: Original erstell ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Einsatz
Brischke am 16.08.2004 um 07:57 Uhr (0)
Hallo Petra, du hast dir zuviel kopiert, denn die SUB-Funktion (Zchnstr...) ist in deiner Datei 2x definiert, wobei die zuletzt geladene genommen wird, bei dir die Falsche. Ich habe auch mal Cadmiums und meinen Ansatz gewürfelt. In dem von mir erstellten Block gibt es nun 2 Attribute VERZEICHNIS und VERZEICHNISKURZ . Im Lisp sind 2 Befehle c:UPDATE-Title-Block_ohneDateiname c:UPDATE-Title-Block_mitDateiname Es werden also die Attribute entweder mit oder ohne Dateinamen ausgefüllt. Ich habe allerdings d ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : farbe der blöcke ändern
Brischke am 16.08.2004 um 08:24 Uhr (0)
Hallo MechMex, vielleicht hilft dir ja auch das Tool BLK_COLOR von meiner Seite . Zu finden unter Hilfe- Download- Prog[25]. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : rtext
Brischke am 16.08.2004 um 10:22 Uhr (0)
Hallo Petra, ja, möglich ist das. Dazu musst du die Elemente der Blockdefinition mit einem Lisp durchlaufen und dann eben den RText löschen. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ursprung für alle Layouts
Brischke am 16.08.2004 um 11:14 Uhr (0)
Hallo CeZet, mal eine andere Variant, welche auf das Durchlaufen der Zeichnungsdatenbank verzichtet. Code: (defun c:ExAll (/ as ssla sslao cmdold) (setq cmdold (getvar CMDECHO )) (setvar cmdecho 0) (foreach LAYOUT (mapcar cdr (vl-remove-if-not (lambda (E) (= (car E) 3) ) (entget (cdr (assoc 350 (member (3 . ACAD_LAYOUT ) (entget (namedobjdict)) ) ) ) ) ) ) (command _Layout _se LAYOUT) (setq as (ssget _X ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : rtext
Brischke am 16.08.2004 um 11:28 Uhr (0)
Hallo Petra, ja, aber irgendwo muss man ja anfangen. Schau am besten mal in der Hilfe nach: entnext while if entdel entmake subst tblobjname cons assoc entget car, cdr an. Grundlegend sind für Deine Aufgabe auch Kenntnisse der DXF-Strukturen, Gruppencodes usw. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
