|
Lisp : 1.attribut auslesen
archtools am 06.07.2008 um 00:27 Uhr (0)
Zitat:Original erstellt von Bauvermesser:ja, ja ich geb es ja zu . Habe leider keine Ahnung was die Welt und Autocad zusammen hält. Hatte in meinem laienhaften Wahn gedacht mit dem austausch einer Befehlszeile komme ich zum Ziel, aber denkste. Für mich war die Befehlszeile"(setq att (entnext en))" die Lösung!"Du hättest doch bloß meine drei Lisp-Ausdrücke via Copy&Paste zu übernehmen brauchen .."....-- aber an welche stelle ?Die Hinweise "dann mit dem Attributwert noch ein simmples (Command "Text" ...)ode ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Nochmal Urheberecht..
mapcar am 30.07.2004 um 14:49 Uhr (0)
Hi Thomas, es bleibt dabei: Wer s nicht lesen will, der muss es ja auch nicht. Auf diese Frage bin ich glaube ich schon mal eingegangen (in dem Zusammenhang, als ich CADchups Programm als trivial bezeichnet habe). Ein unbeabsichtigtes Plagiat kann nicht nur passieren, sondern es ist unvermeidbar! Damit sich keiner auf den Schlips getreten fühlt, nehme ich diesmal Beispiele von mir selber. Mein Sysvar-Tool, das ich hier veröffentlicht habe, gehört auch zu den trivialen: Jeder Programmierer, der Lisp beher ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Daten von verschachtelten XData auslesen
mAciD am 18.12.2008 um 14:55 Uhr (0)
Hallo Leute,ich möchte gerne in Blöcke Punkte einbauen, und diese mit div. XData versehen damit ich sie später nach diesen Attributen aus der Zeichnung lesen kann und somit ihre Koordinaten verwenden kann.Ich bin schon so weit, die Punkte zu erstellen. Ich habe ihnen auch einen eindeutigen Text zugewiesen. Gruppencode 1000.Diese Punkte kann ich auch finden, aber nur wenn sie nicht in einem Block stecken.Ich kann via entget vom Block die Daten ansehen, aber wie komme ich an die Block-Unterelemente ran.Also ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Aufbau DCL-Masken
mapcar am 05.09.2005 um 23:32 Uhr (0)
So, nun habe ich mal Zeit gehabt, mir das auszupacken und anzusehen.Zunächst mal ein paar Erläuterungen: In allen möglichen Programmiersprachen gibt es globale Variablen und lokale Variablen. Wenn man mal von komplizierteren Mechanismen wie Packages und Namespaces absieht, bedeutet das: Globale Variablen sind immer und überall sichtbar, lokale Variablen ausschließlich in der Funktion, in der sie deklariert werden. Und dann gibt es noch eine dritte Variante - da mir keine bessere Bezeichnung einfällt, nenne ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Mit Lisp Blöcke auslesen und Teile des Inhalts in Textzeilen abbilden
joern bosse am 26.11.2024 um 08:11 Uhr (1)
Hallo 100dpi,ich habe auch mal ChatGPT gefragt was mein Code so alles macht, eine erstaunlich gute Erklärung (finde ich):Erkläre mit bitte folgenden AutoLISP-Programmcode:(defun TextMitteZentrisch (ename / P VLA-OBJ)(setq vla-obj (vlax-ename-vla-object ename))(setq p (vla-get-InsertionPoint vla-obj))(vla-put-alignment vla-obj 10)(vla-move vla-obj (vla-get-InsertionPoint vla-obj)p)(vla-update vla-obj))ChatGPT:ChatGPTDieser AutoLISP-Code definiert eine Funktion namens TextMitteZentrisch, die darauf abzielt, ...
|
| In das Form Lisp wechseln |
|
AutoLisp : rtos - Error?
Zweistein am 07.07.2005 um 14:12 Uhr (0)
Hallo! Das folgende Lisp-Modul soll Messpunkte aus einer *.txt lesen und auswerten. Dabei sollen Attribute eines Blocks mit den Einzelinformationen Punktnummer, x-Wert, y-Wert,z-Wert,bestückt werden. Wenn z.B. pkt-re (atof (substr zeile 14 11)) an den Block übergeben wird, dann habe ich zu viele sichtbare Nachkommastellen in den Attributen eingetragen. = mein Versuch mit (setq pkt-re (rtos (atof (substr zeile 14 11)) 2 3)) führt zwar zu dem gewünschten Format, jedoch scheint rtos hier falsch umzurec ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layer die eine Farbe haben eine andere Farbe sowie eine Linienstärke zuweisen
-ikarus- am 25.04.2014 um 07:24 Uhr (1)
Hab noch was ergänzt.Das Lisp schreibt jetzt erst ein Sicherungs DWG raus.Außerdem kann kann man den INI Pfad angeben.Code:; mit dem Viewer http://www.noliturbare.com/plot-print/print-ctbs-and-more die CTB in eine *.INI speichern; und in der letzten Zeile der INI ENDE eintragen(princ "
Am Ende der INI in die letzte Zeile bitte ENDE eintragen konvlayer" )(defun parse_nums (st / a k lst)(setq k 1)(setq a "")(setq lst nil)(repeat (strlen st)(if (= (substr st k 1) " ")(progn(setq lst (append lst (list a)))(set ...
|
| In das Form Lisp wechseln |
|
Lisp : Mtext mit Führung umrechnen
cadffm am 23.06.2021 um 23:01 Uhr (1)
Hi,zunächst: Der Code sollte an und für sich funktionieren!"Leider werden die MText mit Führungslinie bei der ersten Auswahl völlig fasch berechnet, denn es wird der Wert der vorgegeben Konstanten eingesetzt."Das mag im Ergebnis so aussehen, aber ich bin GANZ sicher es wird das Ergebnis von (atof (cdr(assoc 1 OBJEKTDATEN))) zu dem Wert von Z1 addiert,also muss der Wert von Z2 nicht das von dir erwartete sein, nämlich 0."Ich habe hier gelesen das es sich bei meinem Mtext um einen manipulierten Text handelt. ...
|
| In das Form Lisp wechseln |
|
Lisp : Blinkendes Zeichnungs-Objekt
benwisch am 17.02.2009 um 10:46 Uhr (0)
Zitat:Was meinst du aber mit "Siehe hierzu auch die Hilfe "Visual Basic Referenz bzgl. dem Argument BUTTONS (z.B. hier vbQuestions)"?Auszug aus der Visual Basic Referenz Zitat:Das Argument buttons hat die folgenden Einstellungen:Konstante Wert Beschreibung vbOKOnly 0 Nur die Schaltfläche OK anzeigen. VbOKCancel 1 Schaltflächen OK und Abbrechen anzeigen. VbAbortRetryIgnore 2 Schaltflächen Abbruch, Wiederholen und Ignorieren anzeigen. VbYesNoCancel 3 Schaltflächen Ja, Nein und Abbrechen anzeigen. VbYesNo 4 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : viel Blöcke ersetzten durch einen
SebZ am 24.02.2005 um 12:28 Uhr (0)
Hallo miteinand, habe mir mittlerweile die verschiedenen Bausteine hier im Thread runtergeladen und erste Erfahrungen gesammelt. Im Lisp BLOCK_NEW_BASISPUNKT_AUTO (BNBA) hab ich folgende Verallgemeinerung eingebaut (***** = geänderte Zeile): (defun C:BLOCK_NEW_BASISPUNKT_AUTO ( / AWS OBJEKT OBJEKTDATEN NAME ORIGIN ROTATION SKALIERUNG MOD1 MOD2 #el#) (startErrorHandler BLOCK_NEW_BASISPUNKT T (( cmdecho 0)( expert 0) ( HIGHLIGHT 1)( OSMODE 639)( ATTREQ 0))) ***** (setq Sch ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Reaktor für :VLR-endDwgOpen
mapcar am 17.12.2004 um 23:46 Uhr (0)
Hi Torsten, die Frage passt gut in die Weihnachtszeit - das ist nämlich was, wo auch keiner so richtig dran glaubt;-) Schau dir das kleine Beispielprogramm an: Es werden ein paar charakteristische DWG -reaktoren gesetzt. :vlr-beginClose funktioniert erstmal problemlos, aber :vlr-beginDwgOpen und :vlr-endDwgOpen feuern überhaupt nicht (weder in der bisherigen noch in der neuen Zeichnung). Möglicherweise tun die nur in persistenten Reaktoren was, aber kein Mensch macht sich mehr Gedanken über persistente Re ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Block mit Attribut mit Inhalt eines anderen Blockes füllen (Indexfeld)
riqo am 08.12.2017 um 09:47 Uhr (1)
Liebe Community,Nachdem ich schon häufig auf den Seiten der CAD-Foren auf Lösungen zum Thema "AutoCAD" gestoßen bin, wurde es nun mal Zeit, mich hier anzumelden und "Hallo!" zu sagen.Nichtsdestotrotz benötige ich eure Hilfe zum Thema "Datenextraktion" aus einem Block, in diesem Falle einen Index-Block ( mit Eintragung des letzten Index-Eintrags in einen anderen Block (Plankopf). Hintergrund ist der, dass im Büro zunächst das Index-Feld ausgefüllt wird, aber hinterher vergessen wird, den entsprechenden Eint ...
|
| In das Form Lisp wechseln |
|
Lisp : Koordinatenexport
Bauvermesser am 11.07.2006 um 22:46 Uhr (0)
hallo,alle zusammenich bitte um hilfe für folgende problem,habe eine LSP aus diesem forum welche sich für mich sehr gut zum Koordinatenauslesen eignet weil die jeweiligen punkte gleich markiert und beschriftet werden, es gibt nur ein paar probleme mit enigen zeilen welche ich gern geändert haben möchte, kann mir jemand helfen, vielleicht sogar der verfasser selbst? ;habe überall wo ich eine änderung benötige ???? rangehängt;;;;(defun C:test (/) (setq clay (getvar "CLAYER")) (setq OSM (getvar "osmode")) (se ...
|
| In das Form Lisp wechseln |
