|
Lisp : Text durch Block ersetzen
mahe01 am 10.01.2007 um 14:45 Uhr (0)
Hallo zusammen,Ich habe folgendes Problem:Ich bekomme Zeichnungen, in denen Symbole mittels Fonts dargestellt werden (z.B. Buchstabe "A" ist eigentlich der Pfeil einer Bemaßung).Ich bräuchte jetzt ein Tool oder Script, welches mir alle Buchstaben "A" in den Block Namens "A" ersetzt, mit gleichen Einfügepunkt und Drehwinkel.Ich hab das schon probiert: http://ww3.cad.de/foren/ubb/Forum145/HTML/000151.shtml Funktioniert aber nicht (was mus ich in der Eingabeaufforderung eingeben? Hab schon einiges probiert).V ...
|
| In das Form Lisp wechseln |
|
Lisp : String in Liste ersetzen
joern bosse am 30.10.2006 um 14:23 Uhr (0)
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 ("A=") ("A2") (mapcar (lambda (A) (list ...
|
| In das Form Lisp wechseln |
|
Lisp : load ersetzen durch irgendwas mit vl...
Andreas Kraus am 17.02.2011 um 09:42 Uhr (0)
Probierts mal aus.Ich hab mal eine Datei als Beispiel zum Testen angehängt.Die Datei ist in Ordnung und kann geladen werden.Aber mach mal z.B. die letzte Klammer weg und lade dann.Wenn ich dann mit:(not(vl-catch-all-error-p (setq RESULT(vl-catch-all-apply load (list DATEINAME "ERROR") ) ) ))lade erhalte ich keinen Programmabbruch mit Fehlermeldung.Mit:(not (load DATEINAME t))leider schon.Oder ist das bei euch anders ?------------------Geht nicht, gibts nichtGrußAndreashttp:// ...
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 10.06.2009 um 11:08 Uhr (0)
Sorry meine Blödheit natürlich funktioniert dein Code - Unities sind unterwegs. Von wo hast du eigentlich die Systemvariable "MILLISECS" her. Die ist nirgends dokumentiert. Startet die in dem Moment wo ACAD gestartet wird? Zitat:Nachtrag: Infos dazu habe ich hier gefunden - http://ww3.cad.de/foren/ubb/Forum145/HTML/002385.shtmlDanke an CADmium für seine tolle und hilfreiche Arbeit hier im Board.[Diese Nachricht wurde von THE_ONE am 10. Jun. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : RText mit Field ersetzen
Gargarot am 10.06.2009 um 14:53 Uhr (0)
OkeiAuswahl funktioniert tiptop und in der Befehlszeile wird auch alles anzegeigt wies soll. Das mit dem Layer ändern lass ich vorerst einmal, ist zu 99% sowieso gleich. Habe anfangs auch versucht direkt einen MText zu erstellen, aber wie kann man einen Text mit "" (von den Feldern) drin mit Lisp verarbeiten?Und diese ActiveX Dinger scheinen echt toll zu sein... eber eins nach dem andern Dank dir vielmals!------------------3 kleine Weisheiten-Man kann ein Problem nicht mit den gleichen Denkstrukturen löse ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Text automatisch ersetzen
P S I am 29.09.2004 um 11:18 Uhr (0)
Liebe Programmierfreaks Also folgendes wird gewünscht: Ich habe in einem Ordner z.B. 75 dwg s die haben alle Folgende Zeichnungs Nr. 4-14586.15.423 nun gibt es eine Änderung und es kommt ein Index A dazu, also sollte nun im Plan 4-14586.15.423A stehen. Dies sollte ich jedoch über alle 75 dwg s gemachen werden. Kann mir jemand helfen wie ich dies am einfachsten lösen kann, wo ich in einem script den neuen text eingeben kann und dann alle dwg s im selben Ordner durchgerattert werden. Wir hatten eine Software ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Kreise ersetzen
Meldin am 15.11.2011 um 10:15 Uhr (0)
(defun c:Plausibilität (@Dorfy @Jörn @CADchup / ) (foreach Benutzer-Beitrag (list @Dorfy @Jörn @CADchup) (if (wcmatch Benutzer-Beitrag "* *,* *") (princ "Ja, da bin ich gleicher Meinung. ") (progn (princ "Wat ?! Warum sollte man eine Art von Plausibilität hier anwenden.") ;;(setvar "Kopfschütteln" "An") ; Kann bei Bedarf eingeschaltet werden. (princ "Also wenn du auf einen Fehler hingewiesen wirst, machst du also munter und falsch weiter! Weil irgendwann wird dir der Fehler ja selbst auffa ...
|
| In das Form Lisp wechseln |
|
Lisp : Kreise durch Punkte ersetzen
Steff179 am 12.03.2009 um 09:53 Uhr (0)
hallo zusammenbesten dank für die vielen anregungen. hab einiges dazugelernt.@jörn besten dank für den hinweis der bitcodierten werte das hab ich nicht gewusst...@dorfy "" werde ich mir merken keine ahnung wiso ich das nicht so gelöst habe...@CADmium ich brauche glaube ich noch ein paar jahre bis meine lisps so kompakt werden. im moment bin ich nur froh wenn ich verstehe was ich mache L1 ist sicher nie schlecht mann weiss ja nie was noch kommt.so jetzt mal die pause nutzen und in ruhe nochmal alles ans ...
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
Brischke am 11.11.2011 um 09:45 Uhr (0)
Zitat:Original erstellt von mundal: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) (rep ...
|
| In das Form Lisp wechseln |
|
Lisp : Kreise durch Punkte ersetzen
CADmium am 11.03.2009 um 21:27 Uhr (0)
Warum keine lokale Variablen ?Warum ssget nicht gleich nur auf Kreise anwenden?Warum keine ordentliche Verzweigung , falls der Auswahlsatz leer ist?Warum keine Umwandlung Auswahlsatz-Objektliste und dann Weiterarbeien mit der Liste, z.B mit mapcar ...Aber wenn es deinen Ansprüchen genügt, soll es ok sein ... (meine ich jetzt positiv) denn du bist derjenige, der es einsetzten soll, und der mit etwaigen Mucken klarkommen muss..Haste dich nun schon mit dem Tutorial vom Mapcar befaßt ?------------------ - Th ...
|
| In das Form Lisp wechseln |
|
Lisp : Text durch Block ersetzen
cadffm am 10.01.2007 um 16:04 Uhr (0)
eigentlich ist das ja ein Forum zur selbsthilfe beim erlernen von LISP, aber naja..(mapcar (lambda (NAME / as) (setq as (ssget "_X" (list (-4 . "and") (0 . "TEXT") (cons 1 NAME) (-4 . "and") ) ) ) (mapcar (lambda (E) (command "_.INSERT" (strcat NAME);Hier Blocknamen in Abhängigkeit des Textwertes festlegen (cdr(assoc 10 (entget E))) "" ...
|
| In das Form Lisp wechseln |
|
Lisp : Linientyp in der ganzen Zeichnung ersetzen
Brischke am 26.11.2010 um 16:01 Uhr (0)
Zitat:Original erstellt von autocart:...Frage:Wie würdet ihr es am besten angehen, mit AutoLISP (oder wenns nicht anders geht auch mit .NET) die ganze Zeichnung nach dem "alten" Linientyp zu durchkämmen und die entsprechenden Elemente zu ändern?... Hallo,im Grunde ist es doch egal, in welcher Programmiersprache du das Thema angehst. Es ist am Ende in jedem Fall schneller, als bei einer Änderung von Hand.Aber um Deine Frage zu beantworten: Ich würde es in C#.Net machen. Ist in der Anwednung schneller und m ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp soll nach Blöcken und-color: #FFFF99'>suchen
Wolli am 07.04.2009 um 13:52 Uhr (0)
Hallo Thomas,in die ACADdoc.lsp kann ich es nicht reinstellen da wenn ohne PDM gearbeitet wird die alten Rahmen erlaubt sind.Es soll nur bei Statuswechsel im PDM geprüft werden.Dann wird folgendes Lisp abgearbeitet.; support script for plotting HPGL with cdb acad integration; ; The following symbols will be passed to this script:; ; cdb_erzeug_system: cdb application this doc was created with; layout_names: the name of all layouts to generate sec reps for; layout_files: the file names to use thereby; l ...
|
| In das Form Lisp wechseln |
