|
AutoLisp : AMTitle auslesen
marc.scherer am 02.05.2005 um 09:24 Uhr (0)
Hi, bloß keine Häme - War s nicht... scheint also doch nicht so einfach zu sein - Doch, ist s man muß halt nur schon das ein oder andere in Lisp gelöst haben oder hier gepostete Lösungen umstricken. Ich bin fast der Meinung, das Du alles was Du brauchst hier in den Foren finden kannst... Wenn Du aber jemanden suchst der Dir das fertig strickt, würde ich mal sagen: Falsche Adresse . Fertige Lösungen kriegst Du beim Holger Brischke... http://www.cad-od.de/programmierung.html ... ------------------ C ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
dan_rather am 02.05.2005 um 09:58 Uhr (0)
Hallo zusammen, ich habe folgenden Code verbrochen der mir mit der Auswahl [A]bstand: , ermöglichen soll einen Abstand über das Kontextmenü einzugeben. Leider bricht Lisp nach der Eingabe des Abstands ab. Was muss ich ändern damit Lisp nach eingabe des Abstands mit dem Rest weitermacht? (vl-load-com) (setq osmode_save(getvar OSMODE )) (setvar OSMODE 15743) (setq abst 100) (initget A ) (setq antw (getkword
Punkt wählen oder [A]bstand: )) (if antw (progn(setq abst (progn(getdist
Abstand wä ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
cadffm am 02.05.2005 um 10:26 Uhr (0)
Über den allgemeinen Aufbau sage ich nichts, aber falls du den Stolperstein mit zu wenig Argumente meintest: null erwartet ein Argument, du hast aber diese Zeile gebastelt: (if antw(null)(setq t_2 (car (entsel)))) hier ist das progn überflüssig: (if antw (progn(setq abst (progn(getdist
Abstand wählen: )))))
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
dan_rather am 02.05.2005 um 10:40 Uhr (0)
Danke cadffm, aber Null bekomme ich zurück wenn ich enter drücke und dann läuft das Prog bis zum Ende.(so soll es auch sein :-) ) Wenn ich jedoch A wähle kann ich noch den Abstand eingeben aber das Prog läuft dann nicht mehr weiter. Anm.: Das Prog soll eine Linie an einem Punkt mit dem Standard Abstand 100 nach links bzw rechts vom angegebnen Punkt brechen. Wie schreibe ich also: Wenn der Abstand eingegebn ist mache mit dem Eingegebenen Abstand weiter?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
CADmium am 02.05.2005 um 10:53 Uhr (0)
hab s mal bearbeitet (defun c:Mybreak (/ osmode_save t_2 vla-t_2 abst schn) (vl-load-com) (setq osmode_save(getvar OSMODE )) (setvar OSMODE 15743) (if(and (setq t_2 (car(entsel
Linie wählen : ))) (setq vla-t_2(vlax-ename- vla-object t_2)) (or(setq abst(getdist
Abstand wählen 100 : )) (setq abst 100) ) (setq schn (getpoint
Punkt wählen )) ) (progn (setvar OSMODE 0) (command _break T_2 (vlax-curve- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
Brischke am 02.05.2005 um 11:00 Uhr (0)
Hallo dan_rather, du hast da folgendes im Code (null) Da ist die Syntax falsch: (null item) wäre die richtige Syntax. Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Autodesk User Group Central Europe Individuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
dan_rather am 02.05.2005 um 11:09 Uhr (0)
Danke Holger, mit (Null Item) läufts!!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
dan_rather am 02.05.2005 um 14:51 Uhr (0)
Tja, Nochmal Hallo. Also das prog läuft... aaaaber wie bekomme ich das voreingestellte Maß in die Zeile? (setq antw (getkword
Enter oder [A]bstand %i : )) bei %i hätte ich gerne das vorher eingestellte/gewählte Maß stehen. Weiß jemand wie das geht mit dem Platzhalter? Prog: (vl-load-com) (setq osmode_save(getvar OSMODE )) (setvar OSMODE 15743) (princ
Aktueller Abstand: ) (princ abst) (initget A ) (setq antw (getkword
Enter oder [A]bstand: )) (if antw (setq abst (progn(getdist
Abst ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
CADmium am 02.05.2005 um 14:54 Uhr (0)
(defun c:Mybreak (/ osmode_save t_2 vla-t_2 abst schn) (vl-load-com) (setq osmode_save(getvar OSMODE )) (setvar OSMODE 15743) (setq Voreinstellung 100) (if(and (setq t_2 (car(entsel
Linie wählen : ))) (setq vla-t_2(vlax-ename- vla-object t_2)) (or(setq abst(getdist (strcat
Abstand wählen (rtos Voreinstellung 2 2) : ))) (setq abst Voreinstellung) ) (setq schn (getpoint
Punkt wählen )) ) (progn (setvar OSMODE 0) (command _brea ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Kontextmenü
dan_rather am 02.05.2005 um 15:08 Uhr (0)
Danke Thomas!!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layout- zu Objekteigenschaften
CADmium am 02.05.2005 um 15:12 Uhr (0)
Zitat: Original erstellt von wronzky: Einschränkungen sind natürlich truecolor-Farben etc. Genau! ..und die Frage, ob nur die vonLayer Eigenschaften,oder prinzipiell alle übernommen werden sollen. ..Weiterhin ist die Farbe (abs(cdr (assoc 62 lay_eig))))) , da Layer an/aus mit dem Vorzeichen realisiert wird... ..aber sonst geht es natürlich auch mit dem einfachen (ohne ActivX) Lisp. Sogar Truecolor! Zumindest beim direkten Übernehmen - Siehe GC420 und GC430! ------------------ - Thomas ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Textsize mit Lisp steuern
Bernd P am 03.05.2005 um 13:00 Uhr (0)
Servus Hab mir ein kleines Lisp zusammen "gepastelt". Soll die Variable "Textsize" steuern ohne lästiges herumrechnen mit Einheiten u. Massstab. Das Lisp WURDE GEÄNDERT UND FUNKTIONIERT - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (defun c:Texthöhe (/ THohew LEinheit LEinheit2 LMasstab Thohe) (setq THohew (atof (DIA:Liste ("1" "1.25" "1.5" "1.75" "2" "2.25" "2.5" "2.75" "3" "3.25" "3.5" "3.75" "4" "4.5" "5" "5.5" "6" "6.5" "7") ) ) ) (if (not THohew) (exit ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Textsize mit Lisp steuern
wronzky am 03.05.2005 um 13:21 Uhr (0)
Hallo Bernd! es ist relativ einfach! Deine Dialogroutine gibt einen TEXT(!) zurück: Zitat: (if (/= 0 ns) (nth SIZ NAMES) ) Du brauchst aber zahlen, mit denen Du rechnest Zitat: (setq Thohe (* LMasstab THohew / LEinheit2)) also...(?) Grüsse, Henning Jesse ------------------ http://www.voxelman.de Computer-Dienstleistungen für Architekten und Ingenieure
|
| In das Form AutoLisp wechseln |
