|
AutoLisp : Block auf Layer
joern bosse am 15.07.2005 um 10:37 Uhr (0)
Hallo Heinz, so kompliziert ist das gar nicht. Ich habe an axel s Vorschlag angeknüpft, im Nachhinein die Blöcke auf die vereinbarten Layer umzulegen. Im folgenden Lisp mußt Du die Liste anpassen, ich habe beispielsweise die Blöcke "Test1" und "Test2" mit den Layern "Layer1" und "Layer2" verwendet. Auf Groß- und Kleinschreibung ist zu achten. Viel Spaß beim ausprobieren: (defun c:block_layer ( / liste aws layer) (setq liste (list ("Test1" "Layer1");;;Liste mit Block und zugehörigem Layer, = anpassen ...
| | In das Form AutoLisp wechseln |
|
Lisp : Text aendern
joern bosse am 24.08.2011 um 07:22 Uhr (0)
Hallo Giovanni,ich habe Dir Deinen Code nochmal ein bißchen aufgeräumt, z.B. nutze ich jetzt bei der Funktion ERS den Rückgabewert, die Variablen habe ich lokal definiert, aber vom Prinzip derselbe Code wie bei Dir. Bei mir hatte es ja auch schon mit Deinem ursprünglichen Code funktioniert, deshalb bin ich mir nicht sicher ob Dir das weiter hilft.Die Variablen YSA TSA und SP habe ich rausgeschmissen weil sie scheinbar gar nicht verwendet worden sind.Code:(DEFUN C:AETXT ( / ASA BRA BRN CLA CLR STA STN SWA S ...
| | In das Form Lisp wechseln |
|
Rund um Autocad : zeichnen->punkt->messen
joern bosse am 22.10.2004 um 08:37 Uhr (0)
Hallo, vielleicht hilft Dir folgendes LISP-Tool, durch Eingabe von Station und Abstand zu einer Linie, Polylinie oder Bogen wird ein Punkt gezeichnet. Aber bitte die Ergebnisse prüfen, es ist nur auf die schnelle geschrieben!!! ;;; Es werden Punkte auf dem aktuellem Layer gezeichnet entsprechend den Stationsangaben ;;; Wenn die Station größer als die Länge des Elementes ist, dann gibt es einen Fehler ;;; Beenden durch zweimalige Leereingabe (defun c:stat (/ pick_pkt aws stat abstand) (vl-load-com) (se ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Block im Block
joern bosse am 26.05.2005 um 14:29 Uhr (0)
Hallo Oliver, für Dein erstes Problem habe ich was, mußt Du mal ausprobieren, bei Deinem 2. Problem muß ich nachfragen: Innerhalb des Blockes gibt es Objekte ,die auf einem bestimmten Layer definiert sind, auch wenn es die Sektor-Layer von GeoCAD sind. Desweiteren sind noch Attribute enthalten ??? = bei den Attributen kann der Layer in der Blockdefinition aber ein anderer sein als bei den tatsächlich sichtbaren Blöcken in der Zeichnung. Willst Du die Blöcke alle umdefinieren, so daß alle Layer der beinha ...
| | In das Form Rund um Autocad wechseln |
|
AutoLisp : DCL Dialogfelder
joern bosse am 05.07.2005 um 13:50 Uhr (0)
Hallo, ich habe da mal was gebastelt, vielleicht hilft Dir der Gedankenansatz ja weiter. gestartet wird das Beispiel mit (test1 nil nil nil). Die Werte 1-3 werden von einer zur nächsten Funktion weitergereicht. Bei komplexen Dialogfeldern speicher ich mir die Werte immer in einer zugehörigen Textdatei ab, damit ich für das nächste Aufstarten die Default Werte der vorherigen Eingabe zur Verfügung habe. LISP****************************************************** (defun test1 (wert1 wert2 wert3 / ok dat) (se ...
| | In das Form AutoLisp wechseln |
|
Rund um Autocad : zeichnen->punkt->messen
joern bosse am 22.10.2004 um 10:13 Uhr (0)
Hallo Helmut, das Du keine Seitenabstände brauchst erklärt meinen gedanklichen Klemmer, also, die LISP-Routine noch mal überarbeitet: -Es sind keine geschlossenen Polylinine erlaubt -Bei Kreisen werden die Punkte fortlaufend angeordnet Probier es einfach aus, wenn irgendetwas nicht passen sollten, dann mußt Du mal probieren das Tool noch ein bißchen anzupassen, denn ich muß gleich weg. Also schönes Wochenende) ;;; Es werden Punkte auf dem aktuellem Layer gezeichnet entsprechend den Stationsangaben ;;; Been ...
| | In das Form Rund um Autocad 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 |
|
Lisp : DeepSeek als Lisp-Code-Generator
joern bosse am 04.02.2025 um 22:47 Uhr (1)
ich habe mit ChatGPT mal versucht kleine Funktion schreiben zu lassen, eher interessant als hilfreich. Aber mit der super Suchmaschine muss ich Sebastian auf jeden Fall zustimmmen.DeepSeek werde ich aber bestimmt demnächst mal ausprobieren.Wo meiner Meinung nach Chat-GPT&Co gut zu nutzen sind ist für die Analyse eines Codes, ich habe das mal wie folgt probiert und fand das Ergebnis gut. Also zum Lernen der Sprache ist das sicherlich hilfreich:Hier meine Frage und die Antwort:Erkläre mit bitte folgenden Aut ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
