|
AutoLisp : mit entmod von Linksbündig auf zentriert
Peter2 am 21.02.2005 um 15:28 Uhr (0)
Ich habe ATTDEFs, bei denen ich mit Lisp die Lextausrichtung von Linksbündig auf Oben ändern möchte. Die Hilfe spricht zu mir: Gruppencode GC 72: 0 = links = default; 1 = oben GC 10: Ausrichtungswert 1; nur wichtig für GC72=0; wenn GC72 nicht 0, dann wird ignoriert und über GC11 und Textgrösse neu gerechnet GC 11: Ausrichtungswert 2; nur wichtig für GC72 nicht 0; wenn GC72 = 0, dann wird ignoriert. Ansatz a: 1) Ich schreibe mit entmod in den GC11 die Werte von GC10 2) Dann setze ich mit entmod den GC72 ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Blockeinfügepunkt herausfiltern
kathi-witt am 24.01.2006 um 15:50 Uhr (0)
Hallo Leute,bin bei meiner Diplomarbeit und mal wieder ratlos...Habe in meiner Zeichnung Blöcke mit Attributen eingefügt und möchte nun zwei Symbole (Blöcke) anhand eines bestimmten Attributes miteinander durch eine Linie verbinden. Bei dem Attribut handelt es sich um die Punktnummer des jeweiligen Messpunktes. Ich möchte also dass das Programm die Punkte der Punktnummern X und Y durch eine Linie miteinander verbindet. Es soll also in den vorhandenen Attributen nach der entsprechenden Punktnummer gesucht w ...
|
| In das Form Lisp wechseln |
|
Lisp : Grundlagenfrage
autocart am 03.10.2006 um 09:05 Uhr (0)
Hallo Leute!Hoffe, ihr nehmt mir die Frage nicht übel, falls es zu "primitiv" ist.Habe darüber noch nichts unter F1 gefunden, und die Suche hier ("command Unbekannter Befehl") brachte auch nichts zu Tage. Wenn ich einen Befehl mit c:Name definiere, dann kann ich ihn zwar nett in der Befehlszeile eingeben, und er funzt, aber wenn ich versuche, ihn mit (command "Name") aufzurufen dann kommt "Unbekannter Befehl...". Weiß jemand wieso? Natürlich ist das nicht sooo schlimm, weil wenn man schon in Lisp programmi ...
|
| In das Form Lisp wechseln |
|
Lisp : Command-Befehle benötige Hilfe
cnc-horst am 15.08.2007 um 12:39 Uhr (0)
Hallo ZUSAMMEN,bin dabei eine kleine Anwendung zu schreiben und benötige die Syntax von einigen Command-Befehlen.Möchte alles auf der Zeichnung anwählen, mache ich mit STRG+Aangezeigt wird "_ai_selall" wie kann ich diesen Befehl in Lisp mitCommand umsetzen ?Kann mir jemand erklären wie man soetwas hinbekommt:Habe 2 Linie die miteinander verbunden werden müssen, der Abstand der Linien sind nicht immer gleich. Ich weiß aber auf ca. 0.1mm genau wo sich diese Linien befinden.1. Also müste ich über Command eine ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Sofortiger Abbruch einer Funktion
CADmium am 24.01.2004 um 10:40 Uhr (0)
Die von Holger vorgeschlagene Strategie ist auf alle Fälle die saubere und elegantere Lösung - nicht nur für Lisp. Egal, ob die Funktion nun quit, exit , goto (in anderen Programmiersprachen) heißen, es besteht immer die Gefahr, das programminterne Umstellungen von z.B. globalen (System-) Variablen oder offene Dateien nicht ordnungsgemäß zurückgesetzt werden. Ich weiß - dazu gibt es zur Not immer noch einen entsprechenden Errorhandler. Doch dieser sollte eigentlich nur zum Einsatz kommen, wenn Nutzerspez ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Objektfarbe in Layer einbinden
CAD-Huebner am 17.02.2011 um 13:16 Uhr (0)
Da gibts nichts Fertiges von Autodesk, kannst gleich anfangen zu programmieren.Mit dem Befehl VONLAYEREINST kann man zwar alle Objektfarben auf Vonlayer zurückstellen (auch in Blockdefinitionen - das ist super), hilft dir aber nicht weiter, sofern die Farben erhalten bleiben sollen und dafür zusätzliche Layer erstellt werden sollen.Sofern keine Blöcke im Spiel sind sollte sich das als 5-10 Zeiler in Lisp realisieren lassen.Sofern es auch um Blockdefinitionen geht, wäre Nuke.lsp vielleicht eine gute Ausgang ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehl - Blockdefiniton kopieren und zuweisen aus ADT in AUTOCAD nutzen ??
mwboegl am 07.01.2008 um 10:33 Uhr (0)
Hallo !!ich hab schon mal einen Beitrag erstellt (sorry, leider im falschen Bereich !)siehe hier: http://ww3.cad.de/foren/ubb/Forum296/HTML/000062.shtmlEs geht dabei um den ADT-Befehl "Blockdefiniton kopieren und zuweisen"Da mehrere Kollegen von mir allerdings nur ACAD2006 haben, können Sie diese Funktion leider nicht nutzen.CharlieBV hat mir nun den Hinweis auf das Lisp von Holger gegeben.http://www.cad-od.de/downloads.html unter Tool 29 es ist schon dem ADT-Befehl "Blockdefiniton kopieren und zuweisen" s ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Schriftfeld mit Dateiname & Datum, die 99zigste :-)
Brischke am 27.09.2003 um 21:45 Uhr (0)
Hallo CAD Tötti, willkommen im Forum. Nun zu den Attributen. Um das zu machen, solltest du dich mit der DXF-Referenz beschäftigen. Daraus kannst du den Zeichnungsaufbau erkennen. Du suchst dir mit (seta as(ssget _X ((0 . INSERT )(2 . HEAD )))) erst einmal den Schriftfeldblock. mit (setq blel (ssname as Nr)) bekommst du den INSERT als ELement. Die Attribute folgen in der Elementreihenfolge der Zeichnungsdatenbank immer dem Insert, weshalb du mit (setq att1 (entnext blel)) an das erste Attribut k ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mandelbrot
mapcar am 26.03.2004 um 16:21 Uhr (0)
In der Zeile (if (setvar z (complex x y))... hast du doch so einen Fall: (defun complex(real imag / )(list real imag)) (defun realpart(cmplx / )(car cmplx)) (defun imagpart(cmplx / )(cadr cmplx)) (setq myC(complex 3 2)) = (3 2) (realpart myC) = 3 (imagpart myC) = 2 Bis dahin ist das doch allerbanalstes Lisp. Wie gesagt, soweit wird doch noch gar nix gerechnet. Erst bei + , aber das hier: (+ (3 2) 1.5734462) funktioniert nun mal nicht so. Und es kommt noch mehr: (setq z (complex x y) ... (setvar ...
|
| In das Form AutoLisp wechseln |
|
Lisp : prüfen, ob Funktion vorhanden - ansonsten Meldung
tappenbeck am 13.01.2016 um 08:05 Uhr (1)
Moin !wer kenn sie nicht, die Anweisung eine bestimmte Datei zu laden, wenn eine Funktion nicht verfügbar ist um diese dann zu starten:Code:^C^C^P(if(not c:3dstiftschrauben)(load"tools")(princ));3dstiftschraubenMeine Aufgabe geht nun in eine etwas andere Richtung. Gebe eine Meldung aus, wenn eine Funktion nicht verfügbar. Wenn vorhanden, dann selbstverständlich ausführen. Im Grund wäre das dann Code:^C^C^P(if(not c:3dstiftschrauben)(alert "Funktion steht nicht zur Verfügung")(c:3dstiftschrauben))Nun möchte ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
marc.scherer am 10.05.2004 um 18:11 Uhr (0)
Hi ABDN, das Acad unter irgendwelchen Umständen ab so ca. 2002 Probleme mit dem setzen der Sysvar CLAYER aus AutoLisp heraus hat, kenne ich schon. Habe schon seit Jahren ein Lisp im Einsatz, welches mir Layer so setzt, wie sie aus ner externen Parameter-Datei kommen. Lief immer bestens mit setvar clayer am Ende bis irgenwann (R2002??) sporadisch die Fehlermeldung: Fehler: Einstellung für AutoCAD-Variable zurückgewiesen: CLAYER kam. Daraufhin habe ich mein Tool abgeändert. Den aktuellen Layer stell ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Verschachteln von Dialogfenstern
Brischke am 06.10.2004 um 12:23 Uhr (0)
Hallo snafu, sorry für meinen Ausdruck, aber was fummelst du denn am (start_dialog) rum? Das hat damit überhaupt nichts zu tun. Wenn der erste Dialog direkt zugehen soll, wenn du etwas gewählt hast, dann ist die Herangehensweise ganz anders. folgendes schreibe ich hier aus dem Hut, ist also ungetestet und somit auch nicht 1:1 zu übernehmen. Code: (action_tile KEY_1 (done_dialog 2) ) (action_tile KEY_2 (done_dialog 3) ) (action_tile KEY_3 (done_dialog 4) ) ... (setq ns (start_dialog)) (unload_di ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Polylinien abhängig vom Startpunkt versetzen
m.hacker am 28.08.2015 um 13:52 Uhr (1)
Hallo,wo ich stehe?Natürlich ganz am Anfang!Polylinien sind nicht immer geschlossen, kann aber vorkommen.Die Linien müssen immer 1.00m versetzt werdenMir schwebt folgende Lösung vor.Alle Polylinien wählen die versetzt werden sollen. Dann müsste für jede Polyline dieser Ablauf passieren. 1. Startkoordinaten (A) der Polylinie auslesen 2. Erste Segmentkoordinate(E) der Polyline auslesen 3.Linie zeichnen auf neuem Layer "temp" von A zu E mit einer Länge 1/2 AE 4.Linie drehen mit Basis A und Winkel 1 G ...
|
| In das Form Lisp wechseln |
