|
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 |
|
Lisp : Fehlende Schriften / Fontalt Aktivierung melden
Peter2 am 15.04.2008 um 17:06 Uhr (0)
Wenn ich eine alte Zeichnung öffne, wird immer wieder eine Schrift nicht gefunden und dann passiert das:Code:Öffnet eine AutoCAD 2004-Datei.Setzt [WINGDING.TTF] für [ROMANS8.SHX] ein.Das ist auch gut so, läuft aber sehr dezent nur im Protokoll mit. Das möchte ich aber irgendwie mit einer "alert" Meldung oder so bewusst anzeigen. Gibt es eine Möglichkeit, die "Aktivierung von Fontalt" abzufragen, damit ich eine grosse Meldung dranhängen kann? Oder musss ich alle Stile auf "findfile" abfragen?Peter---------- ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer Ansichtsfenster Farbe mit lisp ändern
nebuCADnezzar am 25.09.2025 um 12:06 Uhr (1)
HihiAlso glaube der command Knopf funktioniert (bin nur am Rande itnegriert da... :-) Auch kann das Ansichstfenster in der dwt Vorlage richtig voreingestellt werden und bei neuen Ansichtfenstern mittels "eigenschaften übertragen" übernommen werden. Ist halt nicht ganz so automatisiert wies schön wär, aber geht...Hintergrund ist im übrigen dass die dwgs in so nem Autodesk webviewer gezeigt wereden sollen und der Viewer kann scheinbar nix darum muss das optische Erscheinungsbild im Ansichtsfenster eingestell ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Einsatz
Petra_Sp am 15.08.2004 um 14:51 Uhr (0)
Hallo CADmium Danke für deine Antwort und das du dir am Sonntag dafür Zeit genommen hast!!! 1. Das mit dem RText ist so eine Sache. Für den ständigen Gebrauch ist es super in einem Plankopf, aber wehe man muß mal so etwas in einigen Planköpfen ändern weil irgend jemand auf einmal nur mehr die letzten beiden Verzeichnisse und den Dateinamen haben!!?? Dann ist so etwas mit einem Attribut und Lisp-File Kombination einfacher zu lösen. 2. Irgendwie funktioniert das Lisp File noch nicht richtig. Er schreibt mir ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Änderung mehrerer Objekte
namsokrok am 26.05.2010 um 16:21 Uhr (0)
Hallo,ich versuche mich mal wieder daran, einen häufig wiederkehrenden Prozess zu automatisieren.Aufgabenstellung:Alle Elemente der Zeichnung, die die Farbe 10 haben, sollen mit dem Truecolor-Farbwert 255,0,0 darstellt werden.Bei einem einzelnen Objet habe ich das auch schon hinbekommen, aber meine Lisp-Idee funktioniert nicht bei einem Auswahlsatz.Bislang sieht´s so aus:(defun c:farbe ()(setq c10 (ssget "_X" (list (cons 62 10))))(cons 420 16711680)(list (cons 420 16711680))(setq c10 (append c10 (list (con ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer in allen Blöcken automatisch konvertieren
CADmium am 26.09.2013 um 10:34 Uhr (1)
Propsedit z.B. kann das ... kann man auch für Mehrfach-Konvertierungen in einer Zeichnung laut einer Liste aufbohren oder via Script auf mehrere Zeichnungen oder ganze Verzeichnisse loslassen .. nur mal so als Idee ..aber wenn du Mechanical hast und eine ordentliche Vorlage und eine ordentliche "Layerstruktur" in den alten Zeichnungen, hilf vielleicht schon der Befehl amsetupdwg ... ?!Auch diesen kann man so automatisieren, das er ganze Verzeichnisse in einem Rutsch erledigt ...------------------Also ich f ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Textstil ohne command erstellen/ändern
mkl-cad am 16.11.2005 um 18:19 Uhr (0)
Ich werde noch porös!Wenn ich mit der Funktion (TEXTSTYLE-MAKE (("NAME" . "TEST")("BREITE" . 1.0)("FONT" . "ARIALNEU.SHX")))einen Textstil, der vorher eine *.TTF als Schriftart hatte, dem eine *.SHX Datei zuordne ist auch alles OK. Wenn ich die Zeichnung aber neu aufmache ist wieder die *.TTF Datei im Textstil. Das passiert nicht wenn ich das manuell übern Textstileditor mache. "Fontalt" steht auch auf die SHX Datei. Wenn man nur unter SHX Dateien wechselt funktionierts. Aber nicht wenns vorher eine TTF Da ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : odcl - eigene icons werden nicht angezeigt
tappenbeck am 28.07.2004 um 11:42 Uhr (0)
hallo leute, ich habe mir einen dialog erstellt und mir eigene bilderchen für die schaltfläche erstellt (mit dem von odcl ausgelieferten iconeditor). wenn ich meinen dialog das erste mal aufrufen - alles in butter ! wird die funktion zu einem späteren zeitpunkt erneut geöffnet bzw. temp. ausgeblendet (z.b. um eine strecke in der zeichnung abzugreifen) dann verschwinden meine bilderchen. andere programme von mir arbeiten einwandfrei! ich hatte schon einmal vermutet, dass dieses mit eventuellen fehlern im pr ...
|
| In das Form AutoLisp wechseln |
|
Lisp : script zur Bereinigung von Export DXF/DWG
Kodat am 18.10.2011 um 16:04 Uhr (0)
So. Jetzt hab ich es mal zusammengesetzt, aber es geht nicht.Ich bekomm immer nach Aufruf eine Eingabe angezeigt.Ich denke da hab ich etwas verwechselt.Die Zeichnung ist imer am Anfang im Layout.Siehts so aus ??;;;=========ScriptSTART===============_.MODEL_.-STYLE"ARIAL NARROW"(if (setq AWS (ssget "_X" ((-4 . "or")(0 . "MTEXT")(100 . "AcDbRotatedDimension")(-4 . "or")))) (foreach ITEM (vl-remove-if listp (mapcar cadr (ssnamex AWS))) (if(assoc -3 (entget ITEM ("AcadAnnotative"))) (entmod (append(e ...
|
| In das Form Lisp wechseln |
|
Lisp : Mechanical Partlist mit Lisp auslesen
CAD-Huebner am 24.06.2004 um 01:10 Uhr (0)
Die Zeichnung wurde mit AutoCAD Mechanical 2004 DX erstellt, ohne ACM 2004 DX hat man nur Proxy Entities.Hier mal ein paar Codeschnipsel, um die partlist auszulesenCode:(DEFUN C:PRINTPARTLIST ( / elname eliste acmbom acmbomrow) (SETQ elname (CAR (ENTSEL "
Teileliste wählen:")) eliste (ENTGET elname) ) (IF (AND elname (= "ACMPARTLIST" (CDR (ASSOC 0 eliste))) ) (PROGN ; ACMBOM = Bill of Material (SETQ acmbom (ENTGET (CDR (ASSOC 330 eliste)))) (FOREACH ele acmbom (IF (= (CAR ele) 350) ...
|
| In das Form Lisp wechseln |
|
Lisp : LAYTRANS und acet-laytrans liefern unterschiedliche Ergebnisse
JohannW. am 07.04.2014 um 10:46 Uhr (5)
Hallo!Ich versuche gerade unsere Layerkonvertierung mithilfe von Lisp etwas zu vereinfachen und habe dazu vergleichsweise eine bereits bestehende *.dws einmal mittels acet-laytrans und einmal mittels LAYTRANS in meine Zeichnung geladen.Naiverweise ging ich davon aus, dass das Ergebnis dasselbe sein wird - dem ist leider nicht so, bei acet-laytrans werden manche Mappings übernommen, manche nicht.Hat jemand schon mal dieselbe Erfahrung gemacht? Alternativ müsste ich die Funktionalität in Lisp nachbilden, was ...
|
| In das Form Lisp wechseln |
|
AutoLisp : direkt speichern
bu am 14.03.2006 um 13:32 Uhr (0)
Tach Leute, bei diesem Stück Quellcode möchte ich automatisch eine 2te Datei speichern im Format 2000 mit erweitertem Namen *-2000.dwg. Jedoch läuft die Routine nicht ganz durch sondern muss am Ende mit Return bestätigt werden. Wenn ich jedoch die letzte Zeile um das Return erweitere bekomme ichCommand: VLIDE Unknown command "VLIDE". Press F1 for help.zurück. Hat jemand einen Plan? (initdia) (command "_saveas") (princ "
Zeichnung gespeichert !")(princ) (setq name(strcat (getvar "dwgprefix")(subs ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layer anlegen
Dober Heinz am 20.04.2011 um 10:39 Uhr (0)
HalloEine Frage. Wenn ich einen Layer neu anlege, wird mir der Linientyp Verdeckt angelgt, ist ok so.(if (not (tblsearch "LAYER" "Test")) (command "_-layer" "neu" "Test" "L" "VERDECKT" "Test" "fa" "1" "Test" "") (command "_-layer" "se" "Test" "") )Wenn ich aber einen Layer mit Mache erstelle, dann wird mir der Linientyp nicht mitübernommen. (if (not (tblsearch "LAYER" "Test")) (command "_-layer" "m" "Test" "L" "VERDECKT" "Test" "fa" "1" "Test" "") (command "_-layer" "se" "Test" "") )Mach ich da was falsc ...
|
| In das Form Lisp wechseln |
