|
Lisp : Layer frieren
Bernd P am 20.01.2014 um 16:11 Uhr (1)
ServusMit dem Lisp kann man z.B. alle Layer die im Namen "Wand", "Steher" ... (zur freien Eingabe) einfrieren.Code:(progn (princ "Layerteil: ") (setq layt(getstring)) (command "_-layer" "_on" (strcat "*" layt "*") ""))(progn (princ "Layerteil: ") (setq layt(getstring)) (command "_-layer" "_off" (strcat "*" layt "*") ""))----------------------- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist MordRekorde: Scalelis ...
|
| In das Form Lisp wechseln |
|
AutoLisp : externe Referenzen
Bernd P am 25.05.2005 um 10:27 Uhr (0)
Servus Was für ein Autocad verwendest du? Systeminfo eintragen sieh linkes feld. Wieso siehe unten. Ist in der Zeichnung ein Block mit gleichen Namen? Hat das löschen der Layerstati geholfen? Hast du versucht das Xref zu bereinigen,prüfen und wiederherzustellen?Hast du versucht die Zeichnung zu bereinigen,prüfen und wiederherzustellen? und zum schluss Wieso hast du die frage Lisp-Forum gestellt? im Rund um Autocad wäre sie besser aufgehoben. ------------------ Warum Einfach es geht auch kompliziert . Sc ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Voreinstellung für Texthöhe
Bernd P am 03.05.2005 um 15:20 Uhr (0)
Servus Kenn fast jeder verschiedene Massstäbe verschiedene Textgrössen verschiedene Zeichnungseinheiten welche Textgrösse muss ich nehmen. Hab mit für diesen Fall ein Lisp gebastelt. Aufruf (Dialogfeld erscheint zum auswählen) Texthöhe auswählen Zeichnungseinheiten auswählen Massstab auswählen Fertig Wer sich ein bisschen auskennt kann natürlich Zeichnungseinheiten, Texthöhen und Massstäbe hinzufügen bzw. entfernen. nochmals danke an spider_dd ------------------ Warum Einfach es geht auch komplizi ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Schraffuren (Solids) in Symbolen verlaufen ständig
Bernd P am 07.06.2004 um 15:49 Uhr (0)
Zuerst das mit 0Punkt checken. Assoziation löschen? (zuerst die Blöcke sichern) Gibt LISP´s von www.Cadwiesel.de oder www.Defun.de . Muss ich dafür den Block nicht auflösen und die Schraffur dann bearbeiten? Das sind nämlich ca. 100 Stück. Oder kann man die fertigen Blöcke auch noch bearbeiten? Hast du die Blöcke in einer DWG od. sind es meherer? Warum ist der Abstand vom Nullpunkt entscheidend? Ist ACAD intern (hat was mit den Stellen die gespeichert werden müssen zu tun, um so weiter weg von 0P ...
|
| In das Form Rund um Autocad wechseln |
 |
Rund um AutoCAD : Xref Pfad per Lisp Ändern
Bernd P am 25.11.2016 um 07:53 Uhr (15)
Zitat:Original erstellt von fmfm:Mit dem Referenzmanager bin ich aber nicht schneller da er keinen Pfad Automatisch verfolgen kann.Bei REDIR wird nix "Automatisch verfolgen" (was immer das bedeuten soll) sie suchen und ersetzen nur Pfadteile. Und um nochmal auf den Referenzmanager zurück zu kommen. Kann der Referenzmanger, locker, über mehrere Zeichnungen, über mehrere Verzeichnisse hinweg.ps.: Ihre Ordnerstruktur ist ziemlich sagen wir komplex... (ich weiß Userrechte anderes Beitrag), in welcher Branche ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : AutoCAD-Supportpfade über Registry
Bernd P am 24.05.2012 um 08:00 Uhr (0)
gelöst bzw. gefunden http://ww3.cad.de/foren/ubb/Forum54/HTML/011986.shtml#000005 Zitat:Original erstellt von CADmium:mach ir ein Lisp wasdie Zeile(n)(setenv "ACAD" "D:MDT2008EINSTELLUNGEN; D:MDT2008EINSTELLUNGENSUPPORT; D:MDT2008EINSTELLUNGENMENU; D:MDT2008EinstellungenLISP; ... C:PROGRAMMEGEMEINSAME DATEIENAUTODESK SHARED; ") enthält und gut ist... dieses File wird dann einmal vom User ins ACAD gezogen und fertigServus, gibt’s einen weg wie ich die Pfade ergänzen? So werden die Pfade überschrie ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Werte von Attributen in Blöcken ändern
Bernd P am 20.01.2021 um 11:35 Uhr (1)
Servus,hab mir das LISP angepasst, es wird kein Block eingefügt sondern es muss einer ausgewählt werden.Hab 3 Fragen dazu.1. Die Auswahl von dynamischen Blöcken funktioniert mit "(setq obj_ename (car(entsel "
Block wählen: ")))" nicht. mit "(setq obj_ename (vlax-ename-vla-object (car (entsel))))" bekomme ich "Fehlerhafter Argumenttyp: lentityp #VLA-OBJECT IAcadBlockReference 00000173bd877d88"2. Wenn die Attribute einen Mehrzeiligen Inhalt hatten funktioniert es auch nicht mehr. 3. Kann man den Inhalt aus e ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Linientyp beim Layer-Erstellen falsch
Bernd P am 01.03.2005 um 09:38 Uhr (0)
Da wir sowieso 1 Verzeichniss haben in denn die Supportdaten (DWT/LIN/PAT/STB/CTB/PC3/Toolbar´s/LISP/Werkzeugpalette/...) stehen, brauch ich bei einer Neuinstallation nur das Verzeichniss kopieren die ACAD Lin/Pat löschen und ein aktuelles Profil laden. Das Verzeichniss wird auch über Batch im Netzwerk upgedatet (ist lokal gespeichert wegen Geschwindigkeit). Änderung in der Registrie sind finde ich schwerer wieder Rückgängig zu machen und auch schwerer nachzuvollziehen, als einfach Dateien zu löschen (Die ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Getstring mit Vorgabe
Bernd P am 11.05.2006 um 11:47 Uhr (0)
HiHab mir das Lisp gebastelt. siehe untenDarin soll der Block "Kanal_Schacht" eingefügt und die Eingabe der Attribute erfolgen.Das Problem ist das ich den Vorherwert der vorherigen Eingabe bei Strang bzw Schacht gerne hätte.Code:(defun c:Kanal_Schacht (/ punkt Strang Schacht) (prompt "Schachtmitte: ") (setq punkt (getpoint)) (if (= Strang_vorher nil) (setq Strang (getstring T "Strang: " )) (setq Strang (getstring T "Strang vorher: " Vorherwert) ) (setq Strang_vorher Strang) (if (= Schacht_vorher nil) ...
|
| In das Form Lisp wechseln |
|
Lisp : Hyperlink Attribut
Bernd P am 10.02.2011 um 13:30 Uhr (0)
ServusIch hab mehrere Blöcke mit dem Attribut Hyperlink in dem steht das Layout das angezeigt werden soll.Hab im Netz dieses LISP gefunden, es wandelt den Inhalt von Attribut Hyperlink zu einen Hyperlink um.Blöder weise erkennt er nicht das es sich dabei um eine "Ansicht dieser Zeichnung handelt" (AdZh).Hab das (strcat "#," hinzugefügt, jetzt erkennt er nach aufrufen von Hyperlink bei gewählten Objekt das es ein AdZh ist.Code:(defun c:BLK_Attribut2Hyperlink ( / ss ) (vl-load-com);; © JM 2010(if (ssget ((0 ...
|
| In das Form Lisp wechseln |
|
Lisp : TBLnext durch Objekte
Bernd P am 29.03.2023 um 13:33 Uhr (1)
Servus,Nachdem wir viele Fremdzeichnungen haben und die immer wieder Probleme verursachen, hab ich ein LISP das die Layer durchläuft und sie in mit WBLOCK in neue Zeichnungen schreibt....Jetzt würde ich das Ganze auch für Objekte machen. Also alle Linien, Plinien, Blöcke, Kreise.... Geht das auch mit tblnext?Code:(defun c:Foreach_layer_Wblock ( / flag f lay layname Auswahl)(Command "_layout" "l" "layer")(Command "_-purge" "_all" "*" "n")(Command "_-purge" "_all" "*" "n")(Command "_laythw")(setvar "clayer" ...
|
| In das Form Lisp wechseln |
|
Lisp : pdftk commandline option
Bernd P am 07.02.2024 um 09:09 Uhr (1)
servus,Ich versuch PDFTK.exe über Lisp zu steuern. Ziel ist zwei PDF in Abhängigkeit des Layoutnamens zu verbinden. LAST und TEMP1 sollen in PLANLAUF verbunden werden.Und jetzt häng ich wie ich den Befehl ausführe. Startapp und Shell hab ich versucht und scheitere. Hat jemand eine Tipp für mich?"C:Program Files (x86)PDFtkinpdftk.exe" "C:UserspongratzDocumentsPDF-Entwuerfe200.000 Last.PDF" "C:UserspongratzDocumentsPDF-Entwuerfe200.000TEMP.PDF" cat output "C:UserspongratzDocumentsPDF-Entwuerfe200.000.PDF"Co ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Textsize mit Lisp steuern
Bernd P am 17.11.2005 um 11:32 Uhr (0)
ServusKann mir jemand bei der Erweiterung helfen. Es soll die Möglichkeit zur Auswahl geben Aktuelle Höhe bei dieser Auswahl soll Masstab und Einheit übersprungen (fett markiert im Code)werden. Die Variable Thohe auf den aktuellen Wert von textsize gesetzt werdenCode:(defun c:Texthöhe (/ THohew LEinheit LEinheit2 LMasstab Thohe Objekte) (setq Objekte (ssget)) (setq THohew (atof (DIA:Liste ("Aktuelle Höhe" "1" "1.25" "1.5" "1.75" "2" "2.25" "2.5" "2.75" "3" "3.25" "3.5" "3.75" "4" "4.5" "5" "5.5" "6" ...
|
| In das Form AutoLisp wechseln |
