|
AutoLisp : kompakte Lisp Code
marc.scherer am 15.03.2005 um 11:08 Uhr (0)
@RoyCAD Wie kommst Du darauf das hier irgendjemand nen Code optimiert der nicht mal lauffähig ist... :dream Pack was lauffähiges hier rein und es erbarmt sich vielleicht einer. SO bestimmt keiner. ------------------ Ciao, Marc
|
| In das Form AutoLisp wechseln |
|
AutoLisp : kompakte Lisp Code
RoyCAD am 15.03.2005 um 11:55 Uhr (0)
Jetzt muss beim jedem funktionieren!!!!!!!!!!!!!!!!!!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : kompakte Lisp Code
CADmium am 15.03.2005 um 12:32 Uhr (0)
da es ja zum großenteil um Rechtecke geht: guck dir mal (command _rectang PUNKT _d Breite Hoehe) an ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben.
|
| In das Form AutoLisp wechseln |
|
AutoLisp : kompakte Lisp Code
Brischke am 15.03.2005 um 14:15 Uhr (0)
Hallo RoyCAD, geh mal auf die Autodesk-Seiten. Unter Produkte- AutoCAD2006- Training Dort gibt es eine 5-teilige Serie (von mir) zur Einführung in AutoLISP. Die Serie befasst sich mit der Programmierung eines Tools zum Zeichnen von Rechtecken. 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 : Textlänge in mm errechnen
schachtelmacher am 15.03.2005 um 14:48 Uhr (0)
Zitat: Original erstellt von CADmium: was ist mit der Auswertung von (textbox BlaBla ) oder vla-get-boundigbox ? Hallo, also ich habe mal experimentiert. Mit textbox funktioniert das bei mit nicht, da man erst ein Text auswählen muss, bevor hier eine Berechnung gemacht werden kann. Ich habe aber ein in Lisp vorher definierten Text (setq kunde Testkunde ) den ich erst prüfen möchte, bevor ich Ihn setze. Mit vla... kann ich nichts anfangen, da meine Lisp-Kenntnisse nicht sehr umfangreich sind (F ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Textlänge in mm errechnen
schachtelmacher am 15.03.2005 um 16:34 Uhr (0)
Zitat: Original erstellt von CADmium: muss heißen : (textbox ((1 . Testkunde ))) Siehe Hilfe im Vlide.. so sollte es für deine Fall gehen. ... ja schon, wenn ich das so wie oben eingebe. Schreibe ich aber statt Testkunde hier meine Variable hinein, dann geht es nicht! Die Variable heisst kunde und diese ist mit dem Wert Testkunde gesetzt. Vieleicht drücke ich mich zu kompliziert aus oder verstehe das mit der Anweisung textbox nicht. Aber textbox funktioniert doch nur auf Basis von einem E ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Zahlen von CADWiesel
Tomate am 16.03.2005 um 16:44 Uhr (0)
Hallo an Alle, ich habe mir von CADWiesels page den Lisp Zahlen geladen. (Erstellt fortlaufende Zahlen, z.B. 1 2 3 4 u.s.w.) In der mitgelieferten liesmich steht, dass man die Lisp umschreiben kann, damit die Zahlen eine Text-Erweiterung bekommen. Also z.B. AB1 AB2 AB3 u.s.w. Kann mir jemand erklären, wie das geht ?? Aber bitte so, als wäre ich 4 Jahre alt. Vielen Dank für die Antwort
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Zahlen von CADWiesel
CADwiesel am 16.03.2005 um 16:50 Uhr (0)
(Defun C:ZAHLEN () (START) (setq STYLE_LIST (EARX:LIST-TAB STYLE ) STYLE_TAB (list) FF (getvar textstyle ) ) ;_ end of setq (if (or (null ff) (= ff )) (setq FF STANDARD ) ) ;_ end of if (prompt
Textstil wählen ) (princ STYLE_LIST) (prompt (strcat FF )) (if (not (member (setq textst (strcase (getstring T))) STYLE_LIST) ) ;_ end of not (setvar textstyle ff) (setvar textstyle textst) ) ;_ end ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Pfade zu appload/Inhalt über Lisp hinzufügen ?
Juergen55 am 16.03.2005 um 22:10 Uhr (0)
Hallo, ist es möglich über Lisp Pfade zu appload/Inhalt hinzufügen, hab jetzt auf die Schnelle nichts in der Hilfe gefunden ! Dann hab ich noch eine andere sache, Supportpfade gehen ja in der Art: (setenv ACAD (strcat (getenv ACAD ) ; D:MY-PROFIL )) sieht dann so aus: (D:Pfad1;D:Pfad2;D:Pfad3;D:Pfad4;D:Pfad5;D:Pfad6 Ist soweit ganz gut, aber wie kann ich den Supportpfad dann wieder entfernen ? Das ist ja keine normale Liste mehr, gibt es einen Befehl wie VL-REMOVE ? Gruß, Jürgen
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Zahlen von CADWiesel
Tomate am 17.03.2005 um 07:09 Uhr (0)
Hallo CADwiesel, danke für die rasche Antwort. Ich muß gestehen, dass deine Antwort für mich aussieht wie ein Strickmuster. Ich habe jetzt in meiner Not die alte Lisp Zahlen geöffnet und den ganzen Inhalt rausgelöscht und dann den Inhalt deiner Antwort dort eingefügt. Funktioniert aber nicht. Wenn ich nun die neue Zahlen Lisp per drag&drop in die Zeichnung ziehe, erscheint die Meldung Syntaxfehler und mit dem Befehl Zahlen kann er nichts mehr anfangen. Staunende Grüße Regina
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Pfade zu appload/Inhalt über Lisp hinzufügen ?
cadffm am 17.03.2005 um 07:35 Uhr (0)
Hallo Juergen, warum ist das dann keine normale Liste mehr ? Richtig - es war ja ein String und bleibt es auch .. Du mußt also einfach einen neuen Wert angeben (wie beim hinzufügen ja auch..) (setenv ACAD neuerString ) mit String-handling Funktionen wie zB vl-string-position und Subst usw kannst du deinen Neuen Wert zusammenstückeln .
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Pfade zu appload/Inhalt über Lisp hinzufügen ?
CADmium am 17.03.2005 um 07:52 Uhr (0)
@cadffm die korrekte Funktion für Strings heißt substr ! .. und strcat hättest du auch noch erwähnen können .. Es sollte dann so etwas bei rauskommen: Code: (defun DT :DELPATH(PATH / ACAD POS) (setq ACAD(strcase(getenv ACAD ))) (setq PATH(strcase PATH)) (cond ((setq POS (vl-string-search (strcat ; PATH) ACAD)) (Setq ACAD(strcat (substr ACAD 1 POS)(substr ACAD (+ POS (+(strlen PATH)2))))) ) ((setq POS (vl-string-search (strcat PATH ; ) ACAD)) (Se ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Zahlen von CADWiesel
CADmium am 17.03.2005 um 08:11 Uhr (0)
Zitat: Original erstellt von Tomate: Hallo CADwiesel, Ich muß gestehen, dass deine Antwort für mich aussieht wie ein Strickmuster. .. erscheint die Meldung Syntaxfehler.. Ja, so ist er , unser Wiesel .. Strickmuster ersetz mal im Text (setq textstyle ff) durch (setvar textstyle ff) dann sollte zumindest der Syntaxfehler nicht mehr kommen! ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lös ...
|
| In das Form AutoLisp wechseln |
