 |
Lisp : Block auflösen - Elemente auf Layer setzen
Bernhard GSD am 21.11.2018 um 11:53 Uhr (15)
Versuche es einfach mal mit dem Autocad-Befehl "BURST" Burst ist Bestandteil der Express-Tools. Aufruf aus Lisp: (C:BURST)------------------Gruß aus WienBernhard [Diese Nachricht wurde von Bernhard GSD am 21. Nov. 2018 editiert.][Diese Nachricht wurde von Bernhard GSD am 21. Nov. 2018 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Xrefs binden und exportieren
Harry Plotter am 05.12.2018 um 08:34 Uhr (1)
Guten Morgen,ich habe mir über die Jahre mit eurer Hilfe folgenden Code zusammengebaut.Dabei soll die Datei schreibgeschützt geöffnet werden, die Xrefs gebunden, die Datei bereinigt und im Format 2018 exportiert werden.Leider funktioniert er nicht mehr in ACAD 2019. Er bleibt bei "bindtype" nil hängen.Vielleicht kann mal ein Profi einen Blick drauf werfen.Vorerst vielen DankCode:(defun *error*(msg)(setvar "modemacro" ".")(setvar "bindtype" oldBnType)(setvar "cmdecho" 1)(princ "Xrefs Loesen/Pruefen/Binden/B ...
|
| In das Form Lisp wechseln |
|
Lisp : Xrefs binden und exportieren
-ikarus- am 05.12.2018 um 10:00 Uhr (1)
Hallo,du hast bei (A2A) das (A2A-2018) vergessen, denke ich mal.Gruß Jürgen
|
| In das Form Lisp wechseln |
|
Lisp : Xrefs binden und exportieren
Harry Plotter am 05.12.2018 um 15:20 Uhr (15)
Hallo Jürgen, ja das (ACA-2018) war der entscheidende Hinweis, danke!command-s musste ich nicht einfügen.
|
| In das Form Lisp wechseln |
 |
Lisp : Informationen aus einer TTF-Schrift auslesen
Bernd10 am 13.12.2018 um 14:06 Uhr (1)
Schrift 2 für GegenüberstellungIch habe für die Gegenüberstellung diese beiden Schriften (siehe auch noch meinen letzten Beitrag). Schrift 1 ist meine zuletzt gekaufte Schrift URW DIN medium und Schrift 2 die Schrift Cambia fett. Für beide Schriften ermittle ich in Mechanical für die Variable sboldwindows den gleichen Wert :vlax-true, aber nur die Cambia ist tatsächlich eine BOLD-Schrift.Für die Schrift Cambia fett muss ich somit diesen Programmcode hinzufügen, damit sie im Programm Unilet korrekt gefunden ...
|
| In das Form Lisp wechseln |
|
Lisp : Objekthöhe in vorh. Text übertragen/überschreiben...
runkelruebe am 18.09.2019 um 12:02 Uhr (2)
Ja, ich hatte bereits etliche Punkte (so an die 1500 Stück)mit Namen angeschrieben, und brauche jetzt unten drunter die Höhe,Das machst Du aber doch hoffentlich nicht zu Fuß an und mit Einzelobjekten?Lt. Sysinfo hast Du auch ein Civil3D, das kann (im Gegensatz zu Vanilla-ACAD) in seinen COGO-Punkten auch mit Punktnummer, Punktnamen usw. umgehen...AutoCAD Civil 3D Hilfe: Informationen zu Punkten http://help.autodesk.com/view/CIV3D/2018/DEU/?guid=GUID-3481A6B7-B16E-4636-8FC0-F28119CEC0FD Just saying ------- ...
|
| In das Form Lisp wechseln |
|
Lisp : Linientypen in Xrefs aktualisieren
cadking am 18.11.2019 um 12:13 Uhr (1)
Hallo Thomas, hallo Sebastian,die Zeit die ihr mir für die Lösung meines Problems widmet treibt mir vor Rührung Tränen in die Augen. Vielen vielen Dank.Die Zeichnungen die dieses Problem erzeugen wurden bereits vor 2009 mit einer Vorlagezeichnung erstellt, in der die Linientypen aus der ACAD.lin importiert wurden.Diese Vorlage wird noch heute für Architekturzeichnungen (Einheit Meter) verwendet. Das große Problem besteht darin, wenn man nun TGA-Zeichnungen (Einheit Millimeter) referenziert. Es gibt dann nä ...
|
| In das Form Lisp wechseln |
|
Lisp : Atribut Auslesen - Speichern unter
nebuCADnezzar am 12.12.2019 um 14:28 Uhr (1)
So nu hatte ich doch nen anderen Ansatz gefunden aber noch zwei Probleme:[URL https://forums.augi.com/showthread.php?163765-Select-a-block-by-name-in-paperspace][/URL]Bei Befehl: AED_GETNUMBER; Fehler: Fehlerhafter Argumenttyp: lselsetp nilBei Befehl: SPEICHERNAFG; Fehler: no function definition: FILEDIACode:(defun C:AED_GetNumber ( / blk tag val enx) (setq ssSelections (ssget "x" (list (cons 0 "insert")(cons 2 "Plankopf Arbonia")(cons 410 (getvar "ctab"))))) ; Change "myBlock" to name of your block (setq ...
|
| In das Form Lisp wechseln |
|
Lisp : Atribut Auslesen - Speichern unter
cadffm am 12.12.2019 um 16:29 Uhr (1)
Und hier weiß der Helfer wieder nicht was es mit Test2:AttListe auf sich hat und warum du eine attlesen:AttListe postest.Aufräumen wäre mein erster Tip, dann stolpert man weniger. Wenn dann alles geradeaus läuft so hilft sicher anstatt einen AutoCAD-Befehl zu definieren mit (DEFUN C:ein einfaches (DEFUN zu nutzen.Das Ergebnis ist dann aber evtl eine LISTE, da ich die verwendete Funktion von dir aber nicht kenne: Keine Ahnung.Wenn es so ist, dann wäre (if (setq name (attlesen)) (command "_SAVEAS" "2018" (ca ...
|
| In das Form Lisp wechseln |
|
Lisp : Atribut Auslesen - Speichern unter
nebuCADnezzar am 02.06.2020 um 14:30 Uhr (1)
Hallo zusammenSo umgestellt auf win10 und acad2021 und schon wills nicht mehr... Aus Gründen die ich nicht nachvollziehen kann will ACAD immer inC:Program FilesAutodeskAutoCAD 2021 speichern?Ich weiss dass ist jetzt wahrscheinlich absolute Grundlagenfrage:Ich wollte ja nur dass das "setq name" vorne dem Pfad "H:" mit angibt (verketten...)z.B."Testzeichung.dwg" zu "H:Testzeichung.dwg" Code:(defun c:speichernAFG () (if (/= 1 (length(setq name "H:" (attlesen "Plankopf_Arbonia" "05_DOKUMENTNR")))) (alert (st ...
|
| In das Form Lisp wechseln |
|
Lisp : Automatisierung
Stefan-Schirge am 26.10.2020 um 08:40 Uhr (15)
Guten Morgen zusammen,wir bearbeiten momentan ein Projekt , wo wir tausende Dateien PDF-en und Etransmit erstellen müssen. Ich wollte hierzu nun eine Automatisierung erstellen.Ich habe leider keine Ahnung von "LISP".Im Prinzip soll folgendes passieren.Layout "PDF" öffnenZoom GrenzenDrucken wie vorgegebenWechsel zu ModellbereichZoom GrenzenBereinigenEtransmitSo nun hänge ich allerdings an der Optionswahl.Wie schaffe ich es, dass er auf den ersten Punkt "Übertragungspaket erstellen" springt? Es wäre auch sch ...
|
| In das Form Lisp wechseln |
|
Lisp : Automatisierung
Stefan-Schirge am 26.10.2020 um 12:19 Uhr (1)
Hallo,danke für deine Tipps. Es funktioniert jetzt erstmal so, wie ich es gern hätte.Nur wie bekomme ich die ganze Sache in einen Kurzbefehl? Also dass ich dann beispielsweise nur noch "BP40" eingeben muss und meine lisp abläuft?Kannst du mir da helfen? Ich hab echt null Ahnung von LISP. (setvar "ctab" "PDF")(command "zoom" "g")(command "plot" "nein" "PDF" "*PDF*" "" "" "" "")(setvar "ctab" "Modell")(command "zoom" "g")(command "bereinig" "AL" "" "N" "")(command "_qsave")(command "etransmit" "E" "" (setq ...
|
| In das Form Lisp wechseln |
|
Lisp : Automatisierung
Stefan-Schirge am 26.10.2020 um 12:23 Uhr (1)
Achso und die beiden Zoom Befehle sind Absicht, da verlangt wird, dass sowohl das Layout , wie auch der Modellbereich so gespeichert wird. Wenn geöffnet wird, soll der Modellbereich passend gezoomt erscheinen.------------------AutoCad 2018
|
| In das Form Lisp wechseln |
