|
Rund um AutoCAD : Datei von 2000 auf 12 herunterkonvertieren
CADmium am 22.06.2008 um 09:35 Uhr (0)
Du willst also nur immer einen bestimmten Layer mit entsprechenden Eigenschaften in jeder geöffneten ACAD-Zeichnung haben, oder? Das geht einfacher mit ein paar Zeilen Lisp, in der acaddoc.lsp, die in jeder Zeichnung beim Öffnen ausgeführt wird.z.B:(command "_.-layer" "_m" "14_Nummer" "_c" 7 "14_Nummer" "_lt" "Continuous" "14_Nummer" "")------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Polylinien vereinfachen und Linien zu Bögen
RL13 am 23.09.2015 um 09:56 Uhr (1)
Hallo Udo,und einfach den Befehl _ARC verwenden geht nicht?Anfangspunkt - irgendeinen Zwischenpunkt - EndpunktDie LISP zum Auflösen von Bögen, die ich kenne, setzen auch nur Stützpunkte auf die Bögen um eine zusammenhängende Polylinie zu generieren. Umgedreht kannst Du die Punkte auch wieder fangen um den Bogen zu zeichnen.Aber wahrscheinlich suchst du nach einer Lösung bei welcher der Start und Endpunkt selbständig gefunden wird? ------------------mfg Roman
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Buckup Einstellungen AutoCAD 2004
F - WI 49 am 12.08.2008 um 10:28 Uhr (0)
1. MenüdateienMenüdatei *.MNU (MNS, MNR und MNC werden daraus automatisch erzeugt)Menüdatei *.MNL (Lisp-Dateien, falls vorhanden)Damit ist der Inhalt der Menüs, Werkzeugkästen, Bildkachelmenüs abgedeckt.2. PalettenPalettendateien (Catalog-ATC, Paletten-ATC und Icons)Damit sind die Werkzeugpaletten abgedeckt3. Einstellungen und AnordnungenProfildatei (Export sichert aktuelle Anordnung und diverse Einstellungen, die unter Options vorgenommen wurden. Import stellt dies wieder her.)Das sollte eigentlich reiche ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lipsdateien dekompilieren
criecky am 13.07.2016 um 07:32 Uhr (1)
Hallo,ich würde mir die Lisp-Dateien mal anschauen und anpasssen, wenn Du sie mir senden kannst. Am besten erst mal häppchenweise z.B. Layer.lsp und Layer.dcl.Gruss crieckyAutoCad- Tools unter www.Cbyte.eu------------------Softlan macht das Netzwerk weich![Diese Nachricht wurde von criecky am 13. Jul. 2016 editiert.][Diese Nachricht wurde von criecky am 13. Jul. 2016 editiert.]
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP-Datei
cadffm am 19.10.2013 um 10:33 Uhr (1)
Ich denke du wirst die Definition der DCL-Datei geändert haben ?Diese existiert jedoch bereits und wird nicht neu erzeugt.Code:(progn (if (setq dclfname (findfile (strcat (NumInc:GetSavePath) "LMAC_NumInc_V" (vl-string-translate "." "-" NumIncVersion) ".dcl" ) ) ) (progn (vl-file-delete dclfname)(c:NumInc)) (alert (strcat "Schau mal hier nach: " (NumInc:GetSavePath))) ) ) ------------------CAD on dem ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Layer nach Präfix AN/AUS schalten
CADmium am 07.12.2006 um 11:26 Uhr (0)
Erstmal schließe ich mich dem Kommentar von Tunnelbauer an und dann ist hier noch ein Switcher in Lisp:(defun C:SWITCH-LA_BIT(/ LAYER L) (while (setq LAYER(tblnext "LAYER" (null LAYER))) (if (wcmatch (cdr(assoc 2 LAYER)) "LA_BIT_*") (and (setq L (tblobjname "LAYER" (cdr(assoc 2 LAYER)))) (setq L (entget L)) (entmod(subst (cons 62(* -1(cdr(assoc 62 L))))(assoc 62 L)L)) ) ) ))------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschrei ...
|
| In das Form Rund um Autocad wechseln |
 |
Rund um AutoCAD : Lisp funktioniert nicht mehr
cadffm am 05.07.2018 um 14:32 Uhr (15)
Zitat:Original erstellt von bit:...momentan sieht es so aus: Code:(if(assoc 62 OBJEKTDATEN) ; Objektfarbe auf "VONBLOCK" setzen (setq OBJEKTDATEN(subst(cons 62 0)(assoc 62 OBJEKTDATEN)OBJEKTDATEN)) )Nach wie vor setzt du nur die Farbe auf VonBlock wenn die Farbe zuvor nicht VonLayer war..Schau dir doch mal die Objektdaten von einem Kreis an der die Farbea) Rot=1 hat oderb) VonLayer(assoc 62 (setq OD (entget(car(entsel)))))
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Trojaner in DWGs, ist das neu, oder ein alter Hut?
Bernd P am 01.12.2018 um 12:42 Uhr (1)
Servus,Naja, pishing aber da kann man gleich die Daten per Hand schicken.[QUOTE]Dazu missbrauchen die Angreifer eine Möglichkeit des weit verbreiteten Programms AutoCAD, LISP-Skripte als Teile einer Projektdatei nachzuladen......Die Angreifer müssen das Opfer dann dazu kriegen, die Projektdateien an bestimmte Orte im Dateisystem zu kopieren und zu öffnen.[/CODE]----------------------- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark Bernd P.
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Blöcke eauflösen
CADmium am 18.10.2006 um 15:59 Uhr (0)
Schnellauswahl .. Blockreferenzen ... alle wählen und dann _explode eingebenoder (sssetfirst (setq a(ssget "_X" ((0 . "INSERT"))))a) und dann _explodeoder gleich ein Lisp das das macht ( sollte hier im Forum zu finden sein) .. das kann dann auch so gestalltet werden, das auch verschachtelte Blöcke bis zum letzten aufgelöst werden.z.B.hier..was waren eigentlich deine Suchbegriffe? ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälft ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Darstellung der Benutzeroberflächenanpassung
Entsorger01 am 20.02.2008 um 13:28 Uhr (0)
Das mich auch aufregt, bin ich mal auf die Suche gegangen und hab auch einige Seiten gefunden, in denen immer dieser Lösungsweg vorgeschlagen wird. Leider funktioniert die Geschichte so nicht bei mir. Beim öffnen einer Zeichnung wird QUICKCUI ausgeführt und dann bleibt der Dialog offen.Vielleicht kann ja mal einer der Lisp-Kundigen beschreiben, woran eventuell der Fehler liegt.------------------GrußMichi"Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen,dass sie die Reibung ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Mehrere Zeichnungen ändern
cadffm am 09.01.2007 um 16:14 Uhr (0)
angenommen du meckerst nicht über mein Mal-Buch-Lisp-Code hier mal gaanz einfach dargestellt, DWG-Files sind fix vorgegebenund die Sub "Editiere.." aus einfachen Commands zusammengehauen:Code:(defun SUB_EDIT (myfile)(alert myfile)(command "_.open" myfile)(command "_.-purge" "_all" "*" "_n")(command "_.zoom" "_e")(command "_.qsave"));_defun(defun c:Tesafilm ()(setvar "LISPINIT" 0) ;---WICHTIG!(setq myfilelist ("c:1.dwg" "c:2.dwg" "c:3.dwg"))(foreach n myfilelist (SUB_EDIT n)));_defun
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Lisp für Textstilfont wechsel und Bereinigung
CADmium am 25.07.2008 um 10:13 Uhr (0)
probier damit und versuch es zu verstehen :(defun c:Xrein (/ TX_ST) (vl-load-com) (setq TX_ST (vla-get-Textstyles (vla-get-ActiveDocument (vlax-get-acad-object)) ) ) (vlax-for i TX_ST (if (or(=(strcase(vla-get-fontFile i)) "TXT.SHX") (=(strcase(vla-get-fontFile i)) "TXT") ) (vla-put-fontFile i "simplex.shx") ) ) (command "_audit" "_y") (command "_purge" "a" "*" "n") (princ "...ausgeführt!")(princ))(princ "Programm geladen - mit XREIN starten")------------------ ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : UCS drehen - Texte lesbar machen?
s.wickel am 19.01.2006 um 10:08 Uhr (0)
So, jetzt hab ichs weiterverfolgt.Folgendes Lisp macht es ganz einfach. Nur das entsprechende Ansichtsfenster aktivieren und starten. Ich habe den Befehl auf einer Schaltfläche liegen.Code:(defun c:Ansicht_drehen ( / old_viewctr winkel) ;;;/ winkel old_viewctr old_viewsize) (setq winkel (getstring "Winkel: ")) (command "_.dview" "" "_twist" (atof winkel) ""))Funktioniert sogar im Modellbereich! Es wird einfach nur das was man sieht um den angegebenen Winkel gedreht. Keine Probleme mit Texten u. ä. Viel Spa ...
|
| In das Form Rund um Autocad wechseln |
