|
Lisp : Text in XRef wählen
Rabbit 007 am 29.03.2007 um 18:17 Uhr (0)
Hallo Ist es möglich einen Text der in einem XRef enthalten ist durch anklicken zu erhalten (entsel). Konkreter, in einem Grundriss mit Raumbezeichnung der in einer Zeichnung als XRef vorliegt sollen z.B. Steckdosen als Block eingefügt werden, in denen ein Attribut Raumbezeichnung existiert. Um nicht jedes mal die Raumbezeichnung einzutragen oder kopieren zu müssen kam halt die frage auf ob man so etwas durch ein Lisp lösen kann. In dem man einen Block wählt und die dazugehörige Raumbezeichnung in der XRef ...
|
| In das Form Lisp wechseln |
|
AutoLisp : (dxf 5) Handle ändern wg. Attout/Attin
CADwiesel am 05.06.2003 um 17:21 Uhr (0)
sach mal - wie oft gibt s denn den zu ändernden Block in der Zeichnung? und soll denn in den Attributen aller gleichnamigen Blöcken das gleiche rein? Wenn es nur um globales Ausfüllen von Att in Blöcken geht, mach das doch mit entmod Such über nen ssget AWS alle betreffenden Blöcke raus, geh mit entnext in die Teile Rein, und ersetze Die Attributwerte durch gen neuen Wert. Du kannst ja vorher ne ascii-datei erstellen, worin die Attributnamen mit den neuen Werten stehen. Die liest du per Read-line ein u ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Aktuellen Layer ändern
s.schaefer am 05.04.2007 um 08:32 Uhr (0)
Hallo.Ich möchte bei ca. 1000 Zeichnungen den aktuellen Layer auf "AM_0" ändern. Meine Lisp-Kenntnisse sind schon gewaltig eingerostet... Das hier habe ich dann aber doch noch auf die Reihe bekommen:(defun c:laytsch () (command "-layer" "se" "AM_0" "") (command "_qsave"))Wobei das ja auch keine Kunst ist... Auf einer einzelnen Zeichnung angewendet funktioniert das Programm. Wenn ich das ganze aber als Script auf alle Zeichnungen anwende, ändert sich an den Zeichnungen nichts.Ich würde mich freuen wenn mir ...
|
| In das Form Lisp wechseln |
|
AutoLisp : ActiveX - Auf gschlossene dwg s zugreifen.....
mapcar am 11.04.2003 um 15:04 Uhr (0)
Ich denke, es wird genügen, wenn du in meinem Besipiel mit den Views den vla-copyObjects-Block rausnimmst und dafür vla-put-ActiveLayout reinsetzt, mit den richtigen Argumenten natürlich. Der Name des Layouts reicht nicht, du musst das vlaObject dazu ermitteln (iterieren in der LayoutCollection, nicht einfach mit .item nachsehen, denn das kackt ab, wenn der LayoutName nicht in der Zeichnung vorhanden ist). Irgendwo auf meinen ActiveX-Seiten gibts einen Iterator, der das leistet, aber frag mich jetzt nicht ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Schriftfeld mit Dateiname & Datum, die 99zigste :-)
CAD-Tötti am 27.09.2003 um 20:02 Uhr (0)
Hallo, ich beschäftige mich erst seit kurzem mit der Lisp-Programmierung und habe noch nicht so viel Ahnung davon. Ich habe folgendes Problem, zu dem ich recht schnell eine Lösung benötige: Ich habe einen Schriftfeldblock HEAD mit u.a. den Attributen FILE (=Dateiname ohne .dwg), DATE (=aktuelles Datum z.B. 27.09.2003) & TIME (=aktuelle Zeit z.B. 19:55 UHR). Ich möchte es nun mit einer Lisp-Routine lösen, dass diese Attribute (kein RTEXT mit DIESEL) automatisch aktualisiert werden, jedesmal wenn ich ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Linientypdefinition mit VLISP ermitteln
Andreas Kraus am 03.07.2009 um 17:36 Uhr (0)
Hallo zusammen,wenn ich das mache:(vlax-for lt (VLA-GET-LINETYPES (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-dump-object lt))bekomme ich z.B. sowas:; IAcadLineType: Die Linieneigenschaften bestehend aus Kombinationen von Strichen, Punkten und Leerzeichen; Eigenschaftswerte:; Application (RO) = #VLA-OBJECT IAcadApplication 0000000140d1fc38; Description = "Punkt (2x) . . . . . . . . . . . . "; Document (RO) = #VLA-OBJECT IAcadDocument 0000000037de4860; Handle (RO) = "125153"; HasExte ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Block einfügen mal anders
jemuehh am 27.03.2006 um 15:30 Uhr (0)
Hallo Zusammen, ich habe da mal eine spezielle Frage, und hoffe, dass mir jemand von euch weiterhelfen kann....Ich möchte aus einem Toolbar mit einem Toolbarbutton einen Block einfügen. Dies soll nicht (!!!!!) mit der herkömmlichen Methode passierenID_1 [_Button("Block einfügen", "block.bmp", "ICON_24_BLANK")]^C^C_-insert;block;;;0;sondern folgendermaßen:Beim Drücken des Buttons soll ein 6stelliger Zahlenwert (Typ long) an eine externe Anwendung (z.b. .exe/.dll) übergeben werden. Diese Anwendung gibt einen ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp stürzt ab seit AutoCad2005
WolfgangE am 25.11.2004 um 14:55 Uhr (0)
Hallo Lisp-Profis, hab ein Problem mit einer Lisp. Die Lisp ist anbei. Diese macht nichts weiter, als für alle bestehenden Layouts einen Block (Schriftfeld) einzufügen. Die Layouts werden zuvor noch dynamisch generiert, deshalb auch die Abfragen auf die Namen. Meine Zeichnung hat jetzt also z.B. die Layouts: Modell, PZ, PZ2 und Glas. Die Layouts wurden bisher immer korrekt eingefügt, soll heißen in AutoCad 2000 und AutoCad2004 DX. Verwende ich diese Lisp in AutoCad2005, stürzt AutoCad ab mit der Meldung: u ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Blockeditor im Hintergrund laufen lassen?
alfred neswadba am 02.05.2011 um 16:45 Uhr (0)
Hi, aber bei großen Zeichnungen kann es doch mal 3 sekunden dauernJunge, Junge, was sind das für Sorgen ... Ich möcht nicht wissen, wofür ich schon 3 Sekunden verbraten hätte, ohne mir darüber Gedanken zu machen.Wenn eins fix ist, dann dass ich nicht länger arbeiten muss, weil der Blockeditor 3 Sekunden gebraucht hätte. Die eigentliche Antwort: nein, gibt es nicht (und hätte auch nix mit LISP zu tun).Wendest Du den Blockeditor für Referenzen an, dann wäre es noch denkbar, entweder die Referenz als eigene ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Textdatei importieren
Walter Zettlitzer am 17.11.2003 um 10:38 Uhr (0)
Hallo, ich habe bereits ein lisp, mit dem sich Textfiles erzeugen lassen (s.u.). Ich würde mir daraus gerne eins zusammenbauen, welches Text aus Textfiles importiert und in eine Zeichnung einfügt. Beispiel: Ein Textfile enthält nur das Wort Mustertext . Dieses soll am Usprung eingefügt werden. Ich bin für jeden Tip dankbar (Ich habe leider hier in den Foren und bei cadwiesel nichts gefunden)! Schöne Grüße, Walter ;Textfile erzeugen (Auszug): (if (not (setq listnam (findfile Textfile.txt ))) (setq listna ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fortlaufende Nummern
CADmium am 07.05.2004 um 08:53 Uhr (0)
Zitat: Original erstellt von Bernhard GSD: Ich würde mit (entmake ... )einen Block mit dem entsprechenden Text erstellen und dann geursprungt einfügen. Wäre optisch eleganter als einen Text zu erstellen und zu verschieben. (PROGN (command _insert blockname pause )(command _Explode _L )) Und warum nicht gleich : (command _insert (strcat * blockname) pause ) ? Zitat Hilfe : Einfügen von aufgelösten Blöcken: Wenn Sie ein Sternchen (*) zu Beginn des Blocknamens eingeben, wi ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layouts mit Lisp umbenennen
Doc40 am 03.12.2008 um 14:27 Uhr (0)
Hallo zusammen!Problemstellung:Mittels Lisp sollen die in der Zeichnung vorhandenen Layouts (Layout1, Layout2, ...) in das Schema Blatt_1, Blatt_2, ... umbenannt werden. Lösung meinerseits:Dazu habe ich die angehängte Routine "layren.txt" geschrieben. Diese Routine funktioniert für ein Layout so wie vorgesehen. Ab zwei oder mehr Layouts erfolgt die Umbenennung zwar, jedoch mit Fehlermeldungen im Textfenster (siehe angehängte Datei "layren_textfenster.txt"). Dadurch wird die Verwendung dieser Routine in ein ...
|
| In das Form Lisp wechseln |
|
Lisp : Farbe von Objekt ändern
cadplayer am 01.12.2009 um 10:52 Uhr (0)
Einsame Spitze - beste Hilfestellung und Tips von allen hier die 2 routinenEinmal zum ändern der Farbe eines Layers in der Zeichnung (defun c:fl()(setq obj (entget (car (entsel "
objekt wählen
"))) lname (cdr(assoc 8 obj))) (command "layer" "c" (acad_colordlg 256) lname "") )zum zweiten zum ändern der Farbe eines xrefs-layers(defun c:flx()(setq obj (entget (car (nentsel "
objekt wählen
"))) lname (cdr(assoc 8 obj))) (command "layer" "c" (acad_colordlg 256) lname "") )Gruss cp
|
| In das Form Lisp wechseln |
