|
Lisp : Polylinien und Kreisbögen in einem Lisp
aufi am 04.03.2009 um 13:31 Uhr (0)
Hallo Lisp Gemeinschaft, ich bin noch Lisp Anfänger und habe ien Problem beim Programmieren. Ich habe eine Pline erstellt mit (getpoint) diese danach versetzt und in der Mitte der beiden Linien einen Blöck mit messen erstellt.Leider ist jetzt mein Wissen am Ende. Ich möcht nämlich nicht nur eine Pline mit Geraden sondern auch mit Kreisbogen (welchen ich mit (getpoint) definieren kann) erstellen, weiss aber nicht wie ich das anfangen soll.Ich stell euch mein LISP Programm MAUER herein damit ihr seht was ich ...
|
| In das Form Lisp wechseln |
|
Lisp : Farbe von Blöcken ändern
aufi am 06.03.2009 um 09:53 Uhr (0)
Hallo ForumIch habe wieder ein kleines Problem.Ich will mit Lisp einen Block einfügen (Blockfarbe ist VONLAYER und Blocklayer Null)damit wenn ich Ihn einfüge die Farbe von dem Layer habe woch ich Ihen einfüge.Bis hierher ist mir alles Klar.Jetzt will ich aber mit einen Button im Werkzeugkasten "(setvar "cecolor" "blau")" den Layer kurzfristig auf Blau setzten damit ich eine Linie in blau zeichnen kann bzw. einen Block in Blau einfügen kann.Danach wieder mit Befehl setvar auf vonlayer schalten.Nur färbt mir ...
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
aufi am 05.03.2009 um 14:16 Uhr (0)
Danke Dorfy für die schnelle Antwort,Aber kannst mir bitte helfen wie ich den Befehl in mein Lisp einbauen soll?.Die ersten beiden Punkte der Pline soll immer eine Gerade sein die ich mit getpoint pickeund danach soll ich dann die Auswahl haben für Kreisbogen (normale Befehlszeile von acad) oder einer neuen Geraden mit getpoint.mfg aufi
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
aufi am 06.03.2009 um 09:10 Uhr (0)
Hallo Dorfy,Ich weiss schon das ich die Zeile austauschen kann, aber danach funktioniert das ganze Lisp nicht mehr.Weil ich ja die ersten beiden Punkt benötige um die Richtung des Versatzes zuerstellen bzw. für das Einfügen der Blöcke mit messen.mfg Aufi
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
aufi am 06.03.2009 um 09:38 Uhr (0)
Hallo CADmium,Anbei schicke ich Euch mal eine Zeichnung mit Erklärung.Ich hoffe Ihr versteht was ich meine.Die LISP steht ja eh schon ganz oben.Lg Aufi
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
aufi am 06.03.2009 um 09:42 Uhr (0)
Hi DorfyÜbrigens mein Name ist Aufi.Und ich brauche für meine Lisp nur die ersten Beiden Stützpunkte.mfg aufi
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
aufi am 06.03.2009 um 10:00 Uhr (0)
Hi Dorfyja, Leider funktionierts nicht.mfg aufi
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
aufi am 06.03.2009 um 10:39 Uhr (0)
Hi DorfyDanke jetzt klappts, habe die "" am schluß übersehen.Habe noch einen Text eigefügt das die Leute wissen das man jetzt K und Ldrücken kann damit man Kreisbögen und Linien Zeichnet.mfg aufi
|
| In das Form Lisp wechseln |
|
Lisp : Schleife für den Befehl
aufi am 24.03.2009 um 15:37 Uhr (0)
Hallo Leute,Habe ein kleines Problem (Anfänger in Lisp)ich will doch nur die Objektwahl und die folgenden Befehle wiederholen bis der Benutzer abbricht.Das geht sichlich ganz einfach und ich bin zu blind um das zu erkennen.Bitte kann mir wer helfen.Anbei mein selbstgebasteltest Lisp.(defun c:TEXTDREHEN () (setq ausw (entsel "Linenelement auswählen: ")) (setq obj (car ausw)) (setq pkt (cadr ausw)) (setq orig (0.0 0.0 0.0)) (vl-load-com) (setq vlaobj (vlax-ename-vla-object obj)) (setq opkt (vlax-curve ...
|
| In das Form Lisp wechseln |
|
Lisp : Wie kann ich eine Schleife für eine Abfrage machen ?
aufi am 16.04.2009 um 14:47 Uhr (0)
Hallo an alle,Habe wieder erneut ein Problem habe eine Punktwolke und will einen Block (stoptafel)setzten,(anbei mein Lisp), kann allerdings immer nur 1 Block setzen danach ist schlußmit dem Lisp.Ich will aber wenn ich in punktnummer drinnen bin eine schleife haben.Bitte kann mir wer helfen oder weiss wer eine bessere Lösung??*****************************(defun C:t5 ( / anfpkt npkt auswahl lausw obj pkt orig vlaobj opkt para vlawink winkrad wink) (setvar "CMDECHO" 1) (if (= ALT_WINK nil) (setq ALT_WINK ...
|
| In das Form Lisp wechseln |
