|
Lisp : Kreise durch Punkte ersetzen
CADmium am 12.03.2009 um 08:50 Uhr (0)
ok .. so hätte ich s gemacht :(defun C:kreiszupunkt (/ VSET I OBJLIST L1) (if(setq VSET (ssget ((0 . "CIRCLE")))) (progn (setq I -1) (repeat (sslength VSET) (setq OBJLIST(cons(ssname VSET(setq I(1+ I)))OBJLIST)) ) (setq L1(mapcar (lambda(X / Y LAY) (if(and(setq Y(entget X)) (/=(logand(cdr(assoc 70 (entget(tblobjname "LAYER"(cdr(assoc 8 Y))))))4)4) (entmake (list (0 . "POINT") (assoc 10 Y) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Ersetzen über Lisp
tom.berger am 18.06.2004 um 15:44 Uhr (0)
Zitat: Original erstellt von Kleiner_pally: Danke tom, aber ich wüsste 1. nicht wie ich es umschreiben könnte und 2. keine Ahnung wo ich hinschreiben kann (z.B. old=%%225 new=ß) sowas in der art suche bz.w brauche ich. In der Bemaßung muss es nicht unbedingt sein... aber MTEXT und Text wäre super Oben im Kommentar des Programms steht doch drin, wie es aufgerufen wird (das Beispiel oben war für die Umsetzung des DOS-Zeichensatzes nach Windows bzw Unix): (GSR nil ( ( alt1 neu1 ) ( alt2 neu2 ) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Linientyp in der ganzen Zeichnung ersetzen
autocart am 26.11.2010 um 17:44 Uhr (0)
Danke, Holger, für die Antwort am späten Freitag Nachmittag.Das mit der Programmiersprache war aber nur ein Nebengedanke. Meine Hauptfrage ist: Wie gehe ich es grundsätzlich an, dass ich mit möglichst wenig Aufwand möglichst sicher alle in der Zeichnung vorhandenen Referenzen auf den Linientyp erwische.Es gibt ja so viele Orte, an denen ein Linientyp referenziert sein kann. Und wie soll ich am besten mit der Möglichkeit umgehen, dass eine Referenz auf den Linientyp vielleicht auch in div. benutzerdefiniert ...
|
| In das Form Lisp wechseln |
|
Lisp : Element aus Liste ersetzen
reltro am 29.05.2013 um 16:18 Uhr (0)
Hey...Ich hätte da eine Funktion die das ganze vorhaben für beliebig tiefe assoc-Listen bewerkstelligt...Bzw. sind es 2 Funktionen wobei die eine Werte setzt, und die andere Werte holt...Vielleicht sind sie für dein Vorhaben nützlich.Die Funktionen arbeiten "anonym"-rekursiv...das laden der funktion gibt eine Funktion vom type SUBR zurück die gefüttert werden will...Wird als Wert nil gesetzt wird der Eintrag entfernt...Code:( (lambda (setter /) (eval (list lambda (data key newValue / ) (list setter set ...
|
| In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
CADmium am 16.11.2009 um 10:59 Uhr (0)
Zitat:Original erstellt von iwa:Hallo, ich danke Euch für Eure schnellen Antworten. Was mache ich denn nun mit dem code, den Ihr mir gegeben habt. Kommt er in eine Datei, oder gebe ich den in die Befehlszeile ein?naja .. scheints ja wirklich null Erfahrung zu haben .. eigentlich kannste das zur Demo in die Befehlszeile kopieren .. da wird aber niur was angezeigt ...Versteh ich jetz die Aufgabenstellung so richtig :Du hast eine Textdatei wo z.B. sowas drin steht :[STANDARD-SHX]romans.shx[STANDARD-TTF]arial ...
|
| In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
alfred neswadba am 16.11.2009 um 10:31 Uhr (0)
Hi,herzlich willkommen bei CAD-de! Da brauchst Du nicht unbedingt programmieren. Denn unter der Voraussetzung, dass es mehrere Zeichnungen gibt, die immer mit der gleichen Übersetzungstabelle behandelt werden sollten, dann:Mach Dir eine leere Zeichnung, in der die Textstile mal richtig eingestellt sind (auf die richtigen Fonts zeigen). Dann kopierst Du die Geometrieelemente aus Deiner Zeichnung in diese neue Zeichnung, ev. holst Du die Layouts dann auch noch per DesignCenter dazu und hast eine neue Zeichn ...
|
| In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
iwa am 16.11.2009 um 11:17 Uhr (0)
Zitat:oder willst du die Anzahl der (dann identischen )Schriftstile auch verringern und den Objekten (Text, Mtext usw) denselben Schriftstil zuordnen und die überflüssigen Textstile dann bereinigen ?Das wäre natürlich noch besser.Unsere Schriftzuordnungsdatei sieht im Moment so aus:COMPLEX;Swis721 BTCOMPLEX.SHX;Swis721 BTDIJK-S.SHX;CommercialScriptDIJK-S.shx;CommercialScriptDIN;Swis721 Lt BTDIN.SHX;Swis721 Lt BTDIN.shx;Swis721 Lt BTdin;Swis721 Lt BTFUTL-S.shx;Swis721 Lt BTFUTL-S.SHX;Swis721 Lt BTFUTM-H.sh ...
|
| In das Form Lisp wechseln |
|
Lisp : Linientyp in der ganzen Zeichnung ersetzen
autocart am 26.11.2010 um 14:25 Uhr (0)
Hallo Leute!Bei mir soll ein Linientyp in der ganzen Zeichnung durch einen anderen ersetzt werden. Das könnte ich zwar über die CAD-Standards machen, aber es sind mehrere Linientypen betroffen und das soll alles automatisch über eine Mappingtabelle gehen (beim CAD-Standards-Tool muss ich immer für jeden Linientyp einen Ersatzlinientyp händisch wählen).So weit so gut. Das Problem ist, dass ich davon ausgehen muss, dass beide Linientypen (der, der ersetzt werden soll, sowie der andere, durch den ersetzt wird ...
|
| In das Form Lisp wechseln |
|
Lisp : Kreise durch Punkte ersetzen
Steff179 am 11.03.2009 um 21:14 Uhr (0)
Hallo zusammenich habe mir vorher ein kleines lisp geschrieben das mir alle gewählten kreise durch punkte ersetzt.funktioniert bestens.würde mich freuen wenn jemand zeit und lust hat, dies anzuschauen, ein wenig kritik hinterlassen würde.;Kreise in Punkte umwandeln;---------------------------------------------------------(DEFUN C:kreiszupunkt ()(setq vZAEHLER 0)(setq vPOSIT 0)(setq vSET (ssget))(setq vLAENGE (- (sslength vSET) 1))(setq vWargesperrt 0)(while(= vPOSIT vLAENGE) (setq vTrueKreis (cdr(assoc 0(e ...
|
| In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
Der Turl am 04.05.2011 um 17:15 Uhr (0)
Ich möchte diesen alten Thread wiederbeleben :-)also ich hab da ein ähnlich gelagertes problem welches sich bei der übernahme von architekturzeichnungen in extrem vielen TEXTSTILE nach dem schema STIL 1 = ARIAL STIL 2 = ARIAL ..STIL 234 = ARIAL STIL 235 = VERDANASTIL 236 = VERDANASTIL 237 = VERDANA..STIL 333 = VERDANAusw äußert. somit sind unzählige schriftstile mit jedoch nur einigen SCHRIFTARTEN vorhanden.mein ziel ist es diese Stile zu belassen aber global in zB. SIMPLEX abzuändern wobei jedoch auch bes ...
|
| In das Form Lisp wechseln |
|
Lisp : Element aus Liste ersetzen
reltro am 31.05.2013 um 14:25 Uhr (0)
Hello cadplayer...nun ja, diese Funktionen sind Teil eines größeren Projekts bei dem ich keine Funktionen benennen will bzw. war das die einzigste möglichkeit eine annoyme Rekursion zu berwerkstelligen.die vielen verschachtelungen mittels lambda ist mach ich damit ich nicht vergesse variablen als local zu deklarieren Nun ja, Die funktion hat wie gesagt keinen Namen und wird durch den Aufruf eigentlich erst erzeugt.Verwende sie so, wenn du ihr einen namen geben willst...Code:(setq dieFunktion ( (lamb ...
|
| In das Form Lisp wechseln |
|
Lisp : RText mit Field ersetzen
Gargarot am 10.06.2009 um 11:16 Uhr (0)
Hallo!Da DWG TrueView keine RTexte mit Dieselausdrücken (aus den Expresstools?) anzeigen kann, habe ich nun was zusammengebastelt welche diese RTexte mit feldern in einem MTExt ersetzt. Diese befinden sich auf unseren Titelblättern mit Verweis auf den Dateinamen. Funktionieren soll dies in ACAD 2007 + 2009.Ich hab dies zum Anlass genommen mich etwas in LISP einzuarbeiten und folgendes ist herausgekommen:;--------------------------------------------;HAC v1 10.06.2009(defun c:r2f ( / echo unit rtext ref base ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Editieren der DB-Bezeichnungsvorlagen
CAD-Huebner am 15.09.2004 um 00:46 Uhr (0)
Na, diesen Beitrag hatten wir doch schon. Also DXF erzeugen, und-color: #FFFF99'>Suchen und Ersetzen, DXF importieren - geht. #(#( gegen #( ersetzen und und )) gegen ) ersetzen, dann wieder importieren. DXF Export über ein Script. und-color: #FFFF99'>Suchen und Ersetzen in allen Dateien mit geeignetem Texteditor (z. B. Ultraedit) Bei der Beispielzeichnung fehlt noch eine geeignete Datenbank für ODBC_ACCESS z.B. G:...MMWundid So ist es echt müsam, die Datei zum laufen zu bringen, wenn man sich erst selbst eine Datenbank stricken muss. Mit f ...
|
| In das Form AutoLisp wechseln |
