|
Lisp : Polylinien und Kreisbögen in einem Lisp
Dorfy am 05.03.2009 um 14:30 Uhr (0)
Hi,tausch mal die Zeilen oben gegen diese Zeile(command "_pline" (setq pta (setq pt1 (getpoint))) (setq ptb (setq pt1 (getpoint pt1))) "")vllt gefällt es ja schonwenn nicht siehe CADmiummfg heiko
|
| In das Form Lisp wechseln |
|
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
CADmium am 04.03.2009 um 14:10 Uhr (0)
??? sorry, aber ich verstehe es nicht ... ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
Dorfy am 04.03.2009 um 14:11 Uhr (0)
Hi, nur so als Gedanke(command "_pline")(while (/=(getvar "CMDACTIVE")0)(command pause))Edit: siehe Befehlszeile ... Kreisbogen...vllt reicht es ja schon...mfg heiko[Diese Nachricht wurde von Dorfy am 04. Mrz. 2009 editiert.]
|
| 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
CADmium am 05.03.2009 um 14:25 Uhr (0)
mach einfach ein Bild oder ne dwg, was das Ergebnis des ganzen sein soll und lad es hoch ..------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
Theodor Schoenwald am 05.03.2009 um 14:44 Uhr (0)
Wenn ich einen Namen gefunden hätte, könnte ich Dich mit Namen ansprechen.Zu Deinem Problem ein ganz anderer Ansatz:Es ist manchmal einfacher verschiedene Element wie Linien und Bögen als Linien und Bögen zu zeichnen und zum Schluss den Konturzug in eine Polylinie umzuwandeln.Dabei funktioniert auch folgendes Beispiel:Linie mit Bogen.Eine Linie zeichnen und danach der Befehl Bogen verwenden.Wenn dem Bogen kein Anfangspunkt gegeben wird, wird er automatisch tangential an die vorher gezeichnete Linie angesch ...
|
| 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
Dorfy am 06.03.2009 um 09:18 Uhr (0)
Hi,???(command "_pline" (setq pta (setq pt1 (getpoint))) (setq ptb (setq pt1 (getpoint pt1))))(while...)mfg heikoEdit: Brauchst du nur die ersten beiden Stützpunkte oder auch weitere?[Diese Nachricht wurde von Dorfy am 06. Mrz. 2009 editiert.]
|
| 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
Dorfy am 06.03.2009 um 09:56 Uhr (0)
Hi AUFI... schon ausprobiert?mfg heiko[Diese Nachricht wurde von Dorfy am 06. Mrz. 2009 editiert.]
|
| In das Form Lisp wechseln |
