---

Hallo liebe Community,
Hallo liebe Makro-Spezialisten  

Mein Vorhaben ist eigentlich recht einfach, ich weiß nur nicht ob es funktioniert.
Ich würde gerne eiun Makro schreiben welches mir erlaubt eine Polylinie mit 2mm breite und unendlich vielen Punkten zu zeichnen, und diese Polylinie dann automatisch anzufasen.

Vorgang wäre eben

1. pline
2. Startpunkt
3. Br(Breite)2 Anfangsbreite und 2 Endbreite
4. 2-3 weitere "Endpunkte>
5. Fase
6. p
7. auf die Polylinie klicken und fertig. (davon ausgehen das ich die Fasenlänge angebe, die hab ich jetzt ausgelassen.

Mein Problem ist das ich in meinen Makro nicht über Schritt 4 hinauskomme.

Mein Makro wäre

^C^C_pline;\br;2;2;\;

Ich habe verstanden das ein \ für einmal warten auf benutzereingabe steht, 2 \ stehen demnach für 2 mal warten, aber es muss doch eine möglichkeit geben das er mich solange Punkte hinzufügen lässt bis ich sage so und jetzt bitte den Befehl Fase.
Habe es mit * vor nach und anstatt dem letzten \ versucht aber autocad fragt mich dan nur was ich denn so für Zeugs rauche... (also es passiert nix)

Ich hoffe auf baldige antwort selbst wenn es heißt "Das geht leider nicht"
Ich hoffe ich hab mein Problem gut geschildert  

ps: der Grund wieso ich denn überhaupt so ein Makro haben möchte ist recht einfach, wir Zeichnen unsere Schmutzwasser-Schemata in Autocad und geben auch hier die 45°Schrägen an um Mediums-Fluss darzustellen.
 
Ach und sollte schon ein Eintrag vorhanden sein der mein Problem löst, dann verzeiht mir dann bin ich wohl zu blöd zum suchen, weil ich suche wirklich schon den ganzen Tag nach einer Lösung (heul)

[Diese Nachricht wurde von Christian Mü. am 18. Aug. 2020 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Code:

---

Ich würde gerne eiun Makro schreiben welches mir erlaubt eine Polylinie mit 2mm breite und unendlich vielen Punkten zu zeichnen, und diese Polylinie dann automatisch anzufasen.

---

Das geht nicht da ein Makro alle Schritte kennen muß,
zwei Knöpfchen wäre daher die Lösung.

Zitat:

---

Vorgang wäre eben
1. pline
2. Startpunkt
3. Br(Breite)2 Anfangsbreite und 2 Endbreite
4. 2-3 weitere "Endpunkte>
5. Fase
6. p
7. auf die Polylinie klicken und fertig. (davon ausgehen das ich die Fasenlänge angebe, die hab ich jetzt ausgelassen.

---

Auf die Polylinie brauchst du nicht klicken denn es ist das zuletzt erstellt Objekt
und kann daher mit Objektwahlmethode LETZTES angesprochen werden.

Der Punkt4 ist das Problem, ohne Programmierung wird das nichts.

Als Anregung
(defun c:XX (/ LE NP)  ;;; Leerzeichen hinter c: entfernen
  (command "_PLINEWID" 2.0)
  (setq LE (entlast))
  (command "_.PLINE" PAUSE PAUSE)
  (While
    (setq NP (getpoint "\nNächst Punkt: "))
    (command NP)
  )
  (command "")
  (if (/= LE (entlast))(command "_.FILLET" "_p" "_last" ""))
  (princ)
)

CMDECHO wäre noch eine Anmerkung dazu,
aber richtig schön müßte man es anders anfangen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus,

Dachte mir schon das es ohne Programm nicht funzt aber zuumindest bin ich jetzt etwas klüger, ich danke dir vielmals für die fixe und hilfreiche Antwort!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP