|
Lisp : load ersetzen durch irgendwas mit vl...
Andreas Kraus am 16.02.2011 um 18:39 Uhr (0)
Ja, natürlich kann ich mit einer ERROR-Funktion arbeiten aber ich will ja einfach im Programm weitermachen so als wäre alles in Ordnung. Das bedeutet ich möchte nicht auf den Fehler ragieren sondern durch eine entsprechende Rückgabe von vl-catch-all-error-p die nachfolgende Auswertung steuern.Es soll nicht abgebrochen werden.------------------Geht nicht, gibts nichtGrußAndreashttp://kraus-cad.de
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
mundal am 11.11.2011 um 09:32 Uhr (0)
Hallo Zusammen,hier das Ergebnis welches so heiss begehrt ist.Bitte nehmt zur Kenntnis dass ich kein Hauptberuflicher LISPLER binAber wenn ich schon mal in Aktion bin dann möchte ich mein Lispprogramm erweitern indem ich noch die Durchmesser begrenze.Beispiel:Alle Kreise mit Durchmesser 5 "tauschen".Ihr könnt mir dabei gerne wieder helfen :-)Wie bereits erwähnt-- ich bin kein Profi !!! GrußHeinz(defun c:k2r () (setq AWS (ssget "_X" ((0 . "CIRCLE"))) ) (setq I -1) (repeat(sslength AWS) (setq OBJ(ssnam ...
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
Brischke am 09.11.2011 um 10:42 Uhr (0)
Zitat:Original erstellt von mundal:Hallo,ich habe Grundkenntnisse in LISPKann (mit viel zeit und Aufwand) vorhandene Programme anpassen.GrußHeinzna dann:1) Auswahlsatz über alle kreise bilden(ssget "_X" ((0 . "CIRCLE")))2) Schleife über den Auswahlsatz bauen(while ..2.a) Elementdaten aus dem aktuellen Kreis auslesen(entget ..)2.b) Elementdaten ändern(subst ..)2.c) Element aktualisieren(entmod ..)Ich denke, die Hinweise genügen, dass man daraus ein Tool basteln kann.Bei (konkreten) Fragen ...Grüße Holger-- ...
|
| In das Form Lisp wechseln |
|
Lisp : Kreise durch Punkte ersetzen
Dorfy am 12.03.2009 um 06:24 Uhr (0)
Hallo Steff,Es geht doch vorran , weiter so...Deine Ausgabe/Rückmeldungen kannst du mit "strcat" und "rtos" noch ein wenig zusammenfassen.In diesem Zuge kannst du "setq" auch gleich zusammenfassen.(setq a 1 b 2 c 3)(setq vLAENGE (- (sslength vSET) 1))-- hier ziehst du 1 ab(= vPOSIT vLAENGE) -- hier vergleichst du gegen =?? ohne Abzug gegn vergleichen ??mfg heiko
|
| In das Form Lisp wechseln |
|
AutoLisp : Text automatisch ersetzen
WolfgangGutke am 30.09.2004 um 17:04 Uhr (0)
Hallo, Thomas hat hier einen kleinen Tippfehler gemacht: (defun c:UPDATE-Title-Block () (UPDATE-Title-Block nil BLOCKNAME ATTRIBUTNAME B ) (command _.regen ) ) muss auf (defun c:UPDATE-Title-Block () (UPDATE-Title-Block BLOCKNAME ATTRIBUTNAME B ) (command _.regen ) ) geändert werden. VG Wolfgang
|
| In das Form AutoLisp wechseln |
|
Lisp : Kreise ersetzen
Meldin am 10.11.2011 um 15:30 Uhr (0)
Hallo also mal zu @Holger und @Thomasich würde es mir bis aufs äußerste verkneifen diese Code Zeilen zu verwenden.Code:(bau_elemli ALISTE)(defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli (cons (ssname asatz n) elemli) n (1+ n) ) ) elemli)da diese wohl sehr unübersichtlich sind und das ganze wohl auch nicht viel schneller oder auch langsamer ist als das.Code:(mapcar cadr (ssnamex ALISTE)) ------------------Gruß Wolfgang Alias: Rabbit007 und Wolli1 die aus unerklärlic ...
|
| In das Form Lisp wechseln |
|
Lisp : Nächstgelegenes Objekt und-color: #FFFF99'>suchen
fuchsi am 10.08.2010 um 14:42 Uhr (0)
also(setq ss1 (ssget "_wp" ...)) ; speichert alle gefundenen Objekte ind er Lispvariable ss1Möglichkeit 1Alle Objekte durchlaufenCode:(setq i1 0)(repeat (sslength ss1) (setq ename (ssname ss1 i1)) ; mach was mit dem Element (Elemntname) (setq i1 (1+ i1)))Möglichkeit 2Ändern aller gefundene Objekte auf Farbe rotCode:(command "._chprop" ss1 "" "_color" "_red" "")Buch. nein kann ich keins empfehlen. Aber die Hilfe in der VLIDE Zitat:Selection sets can contain objects from both paper and model space, but when ...
|
| In das Form Lisp wechseln |
|
Lisp : Ersetzen von Attributwerten beim Export
cm-Zeichner am 13.04.2017 um 10:16 Uhr (1)
Guten Morgen!In der Planlieferung muss einer von vielen Attributwerten als Text dargestellt werden, zB "ER" für Eisenrohr. Bei der Datenlieferung an die Behörde jedoch als entsprechender Zahlencode, zB 129 in einer CSV-Datei geliefert werden.Es gibt 15 unterschiedliche Texte (=Abkürzungen) denen jeweils ein fixer Code zuzuordnen ist.Gibt es eine Möglichkeit beim Extrahieren der Attributdaten mit einer Vorlagendatei diese "Übersetzung" gleich zu Berücksichtigen?------------------Grüße Bernd
|
| In das Form Lisp wechseln |
|
Lisp : load ersetzen durch irgendwas mit vl...
Andreas Kraus am 16.02.2011 um 16:59 Uhr (0)
Geht leider nicht bei (setq liste (load pfad)) steht der Dateiinhalt in liste.vl-load-all gibt aber nur T zurück und das nutzt mir nix.Was macht denn eigentlich vla-load ? Hab ich in der Hilfe gar nicht gefunden Geht da was ?------------------Geht nicht, gibts nichtGrußAndreas http://kraus-cad.de [Diese Nachricht wurde von Andreas Kraus am 16. Feb. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : RText mit Field ersetzen
Dorfy am 10.06.2009 um 13:50 Uhr (0)
hi,habe nur mal so überflogen... zu 1. (setq catchit (vl-catch-.... )) und Auswertung oder(while (= ents nil) (setq ents (entsel "
Dateinamen-RTEXT anwählen")) (if ents (progn (setq rtext (entget (car ents))) (cond ((= "RTEXT" (cdr (assoc 0 rtext))) (princ "
Toll - RTEXT gewählt") ) ((/= "RTEXT" (cdr (assoc 0 rtext))) (setq ents nil) (princ "
Kein RTEXT gewählt") ) ) ) ))zu 2. cmdecho 1 n-mal (princ "
") + (princ "Erfolgreich - Haste fein gemacht")zu 3. vla-put-truecolor oder war es color, ...
|
| In das Form Lisp wechseln |
 |
Lisp : Diverse Blöcke ersetzen
Merci-Dir am 17.12.2020 um 09:44 Uhr (15)
Servus an die CAD-Gemeinde,erstmal HERZLICHEN Dank für eure Hilfestellung in den letzten Jahre!!!Folgenden Befehlsstring(ersetzt bestimmten Block) möchte ich abändern^C^C_-insert;TypA=c:/test/TypA.dwg;_y;^C^CJetzt sollen alle Blöcke die mit Typ anfangen (Typ*) - TypB oder TypC oder TypD mit TypA ersetzt werden. Ich komme mit der Syntax * (Sternchen) nicht weiter. ^C^C_-insert;Typ*=c:/test/TypA.dwg;_y;^C^CWas kann ich anstelle des Sternchen nehmen?Hoffe es verständlich erklärt zu habenVielen Dank vorab für ...
|
| In das Form Lisp wechseln |
|
Lisp : String in Liste ersetzen
JC Wasti am 30.10.2006 um 14:40 Uhr (0)
Zitat:Original erstellt von spider_dd:Hallo Wasti,also bei mit klappt beides, mit und ohne (getestet in der Befehlszeile).Mal ein paar Frage:- Deine Variable obf wird bei (setq obf ... ) richtig belegt?Ja die Variable wird richtig belegt!- wie sieht sie nach dem subst aus?nach dem subst sieht sie immer noch so aus wie vorher!- gibt es eine Fehlermeldung, wenn ja welche?Es gibt auch keine Fehlermeldung!Ich erstelle gerade ein eigenes LISP-Programm, also ohne ACAD! Es soll dann unabhängig vom CAD-System fun ...
|
| In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
wronzky am 04.05.2011 um 18:52 Uhr (0)
Da hast Du schlechte Karten mit Scripts, da Du nicht weißt, wie die einzelnen Stile heißen, und über den Befehl "_-style" nur einzeln geändert werden können. Mit Thomas Lisp-Zeilen könnte es so gehen:Code:(vl-load-com)(vlax-for ITEM (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))) (vla-put-fontfile ITEM "SIMPLEX.SHX"))Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
