|
AutoLisp : Text automatisch ersetzen
P S I am 30.09.2004 um 15:24 Uhr (0)
Hallo nochmals evtl. habe ich mich nicht genau ausgedrückt also ich habe 75 dwg s mit der Bezeichnung: 001EM001.dwg 001EM002.dwg 001EM003.dwg und so weiter....001EM075.dwg doch im Plankopf ist eine Zeichnungsnummer 4-14586.15.423 und als separates Attribut der Index z.B. A nun wird eine Änderung gemacht und in allen 75 dwg s muss der Index auf B korrigiert werden. Wie kann ich dies Automatisieren mit einem Script für AutoCAD 2004 so das die Zeichnungen dann selber durch geackert werden.Im selben Prinzip wi ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
CADmium am 16.11.2009 um 10:23 Uhr (0)
Wenn es nur um die Fonts geht .. und nicht um die Zusammenführung der verschiedenen Textstile , reicht es , die Textstile entsprechend zu bearbeiten.Dazu kann man mit(vl-load-com)(vlax-for ITEM (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))) (setq LISTE (cons (list(vla-get-name ITEM) (vla-get-fontfile ITEM) ITEM) LISTE)) )sich eine Liste der Textstyle mit den Fonts estellen ,da eine Zuordnung schaffen und mit (vla-put-fontfile .. einen neuen zuordnen------------------ - Thomas -"Bei ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Text automatisch ersetzen
CADmium am 29.09.2004 um 11:42 Uhr (0)
Auch wenn das hier kein Wunschbrunnen ist .... (defun Tausche (Altertext Neuertext / Auswahl Index OBJEKTDATEN) (if(and(=(type Altertext) str) (=(type Neuertext) str) (setq AUSWAHL(ssget _x (list (0 . *TEXT )(cons 1 ALTERTEXT)))) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX))))) (entmod(subst(cons 1 NEUERTEXT) (assoc 1 OBJEKTDATEN)OBJEKTDATEN)) ) ) ) ) ersetzt in ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Linientyp in der ganzen Zeichnung ersetzen
Wolfgang S am 29.11.2010 um 08:22 Uhr (0)
Grüß Euch!Ich bin dieses Problem schon einmal angegangen.folgende Hinweise:- XREF-Linientypen beachten, evt. mit Switch im Programm, Namenssuche mit dem *|*- Layer Linetypes ändern- alle losen Elemente mit LT=/ByLayer oder ByBlock und mit dem gesuchten LT- alle Blockdefinitionen die nicht xrefabhängig sind durchgehen- alle Attribute durchgehen - SEQEND-Layer - alle Blockreferenzen durchgehen - SEQEND-Layer ich hab bei mir gleich mal den falschgeschriebenen Continous-Linetype und den AUSGEZOGEN Linientyp mi ...
|
| In das Form Lisp wechseln |
|
Lisp : String in Liste ersetzen
JC Wasti am 30.10.2006 um 14:36 Uhr (0)
Zitat:Original erstellt von joern bosse:Hallo Wasti,ich bin der Meinung, subst funktioniert auch bei nur Strings in Listen. Ich habe mal 2 Beispiele gemacht, und es klappt mit beiden.Beim ersten habe ich die String erst in eine Liste gepackt, dann gesubst, und dann wieder ausgepackt. Die zweite Funktion zeigt aber, das es eigentlich nicht notwendig ist.Rückgabe in beiden Fällen: ("A0" "A1" "A=" "A3" "A4")Code:(defun c:test (/) (setq obf (list "A0" "A1" "A2" "A3" "A4")) (mapcar (lambda (A) (car A)) (subst ...
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 10.06.2009 um 10:44 Uhr (0)
Wahnsinn! Wie du das immer hin bekommst. Du brauchst zum effektiven rotieren nur eine Zeile: Leider bekomme ich beim ausführen:Code:; error: bad argument type: listp 40 hab dann nachgeschaut wo der Fehler ist. Und zwar ist das der DELAY wert, also wenn ich das ausführe: Code:(ROTATE (car(entsel"
Objekt wählen:")) (getpoint "
Drehpunkt wählen: ") (*(/ 1.0 180.0)PI) 50) bekomme ichCode:; error: bad argument type: listp 50Mit numberp prüfst du das ja ab, verstehe daher nicht warum der Fehler kommt.[ ...
|
| In das Form Lisp wechseln |
|
Lisp : Linientyp in der ganzen Zeichnung ersetzen
Brischke am 29.11.2010 um 07:31 Uhr (0)
... dann versuch doch erst einmal den einfachsten Weg.Der Linientyp ist ja zunächst mal als Stil zu betrachten. Folglich sollte es genügen, wenn du den Stil manipulierst .. dort also die neue Linientyp-Datei zuweist. Danach (von mir aus auch davor) kannst du ja den Stil umbenennen und fertig ist die Kiste bei minimalsten Aufwand. Funktionieren wird das allerdings nur, wenn der neue Linientyp nicht schon in der Zeichnung verwandt wird.Ansonsten gibts wirklich nur den Weg, dass du an alles denken musst, was ...
|
| In das Form Lisp wechseln |
|
Lisp : Kreise durch Punkte ersetzen
joern bosse am 12.03.2009 um 08:21 Uhr (0)
Hallo Steff,ich habe Deinen Code mal ein bißchen schlanker gemacht, auf ein paar Variablen verzichtet und diese lokal deklariert. Zudem habe ich aus der While-Schleife ein Repeat gemacht. Vergleiche einfach mal die Codes, aber denke jetzt bitte nicht, das ist der ultimative Code, es ist nur eine andere Variante (da hat zum Glück jeder seinen eigenen Stil)Code:(DEFUN C:kreiszupunkt ( / VPOSIT VSET VWARGESPERRT VZAEHLER) (if (setq vSet (ssget (list (cons 0 "CIRCLE")))) (progn (setq vZAEHLER 0 vPOSIT ...
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 10.06.2009 um 00:08 Uhr (0)
Hier nun mein heutiges Ergebnis. Habe lange gebraucht da ich nicht wirklich gewusst habe, wie ich bei meiner Polylinie alle Koordinatenelemente am einfachsten bekomme (da alle mit 10 beginnen und assoc ja nur das erste liefert), um diese dann durch neue (gedrehte) zu ersetzen.Wäre daher über jeden Verbesserungsvorschlag dankbar.Außerdem ruckelt es beim ersten Durchlauf noch immer. Beim Zweiten läuft es dann aber einigermaßen flüssig wie man sehen kann.Wollte außerdem noch das eine Schraffur (die Fläch ...
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
CADmium am 10.06.2009 um 08:35 Uhr (0)
ok .. mal eine etwas universellere Rotatefunktion ....(vl-load-com)(defun ROTATE (OBJ PKT DELTA DELAY / ENDE) (if(and(setq OBJ(cond ((=(type OBJ)VLA-OBJECT)OBJ) ((=(type OBJ)ENAME)(vlax-ename-vla-object OBJ)) ) ) (numberp DELTA) (numberp DELAY) (=(type PKT) LIST) (=(length PKT) 3) (vl-every numberp PKT) ) (repeat 1000 (vla-rotate OBJ (vlax-3d-point PKT) DELTA) (vla-update OBJ) (setq ENDE (+(getvar "MILLISECS")DELAY)) (While((getvar "MILLISECS") ...
|
| In das Form Lisp wechseln |
|
AutoLisp : durch ersetzen
mapcar am 25.10.2004 um 11:46 Uhr (0)
Ich sehe das Problem immer noch nicht. Der Backslash ist in Lisp-Zeichenketten das Steuerzeichen: c: est ist der Text C:est mit einem Tab-Vorschub nach dem Doppelpunkt, und c: test ist eine gültige Pfadangabe. Der springende Punkt ist aber der, dass Lisp durchaus in der Lage ist, einen Backslash zu lesen: *** Datei test.dat *** c:foldermyfile.txt *** Ende Datei *** (defun test( / fhand) (setq fhand(open(findfile test.dat ) r )) (read-line fhand) ) (test) = c:foldermyfile.txt Wie man sieht ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
CADchup am 16.11.2009 um 10:28 Uhr (0)
Hi und herzlich willkommen,wenn du (noch) nicht lispeln kannst, warum versuchst dus nicht mit einem Skript? Das ist ein relativ schmerzloser Einstieg in die "Programmierung" und in deinem Fall durchaus sinnvoll. Einfach alle deine Stile durchgehen und am Ende die überflüssigen bereinigen. Die Anzahl der Leerzeilen musst du selbst rausfinden:Code:_-styleSTILNAME1TTF-oderSHXNAMESTILNAME2TTF-oderSHXNAME_-purge_st*_nDie wichtigsten Dinge dazu: Versuch, die Befehls- und Optionsnamen gleich in englischer Sprache ...
|
| In das Form Lisp wechseln |
|
Lisp : Ersetzen von Attributwerten beim Export
cadffm am 13.04.2017 um 10:27 Uhr (1)
Du postest hier im Lispforum, also Programmierung und wenn man selbst programmiert ist (fast) Alles möglich?Man könnte per Programmierung aus Attributwerten eine Textobjekt mit entsprechendem oder anderen Textwert erstellen.Oder den Wert ändern und die csv erstellen,oder die csv erstellen und darin im Anschluss die Werte ändern.Wie arbeitest du bisher?Wie/womit findet der Export statt?An welcher Stelle genau hast du eine (Lisp-)Frage?Für jemanden der NICHT programmieren kann:Je nach Häufigkeit und Anzahl d ...
|
| In das Form Lisp wechseln |
