---

Hallo,

ich möchte einen Polylinenverlauf aus einzelnen Stücken zeichnen.
Die Linienbreite und Farbe möchte ich vorgeben.
Ich habe das mal mit dem COMMAND-Befehl gemacht. Ist jetzt nicht so elegant, aber es geht.
Unschön ist, dass ich das Programm mit der ESC-Taste abbrechen muss.

Hätte einer eine bessere Idee?

Für Eure Unterstützung bedanke ich mich im Voraus.

(defun c plinseg ()

  (command "_PLINEWID" 0.7 "")
  (princ "\n Leitung:")

  (command "_pline" pause pause "")

  (While
      (princ "\n Leitung:")
      (command "_pline" "" pause "")
  ) 
  (princ)
)

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

---

Vllt. so:

(defun c: plinseg (/ p1)  ;;; Leerzeichen hinter c: entfernen
  (command "_PLINEWID" 0.7 "")
  (princ "\n Leitung:")

  (command "_pline" pause pause "")

  (While
    (setq p1 (getpoint "\n Leitung:"))
     (command "_pline" "" p1 "")
  )
  (princ)
)

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 17. Mrz. 2015 editiert.]

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

---

Hallo,

es gibt noch zwei Probleme.
1. Es kommen zwei Fehlermeldungen (Farbe + Linienstärke).
2. Ab dem zweiten Liniensegment gibt es keine "Spurverfolgung" mehr.

Es funktioniert zwar trotzdem, ist aber nicht so schön!

Das Lisp:
(defun c:  plinseg7 (/ p1)
  ;Allgemein
  (command "_-color" 7 "")
  (command "_PLINEWID" 0.7 "")
  (princ "\n Leitung zeichnen:")
  (command "_pline" pause pause "")
  (While
    (setq p1 (getpoint "\n Leitung zeichnen:"))
(command "_pline" "" p1 "")
  )
  (princ)
)

Die Textausgabe hierzu:
Befehl: _appload plinsegment.lsp erfolgreich geladen.

Befehl: PLINSEGMENT
_color
Vorgabe-Objektfarbe eingeben [Truecolor/Farbbuch] <7 (weiß)>: 6
Befehl: PLINSEGMENT Unbekannter Befehl "PLINSEGMENT". Drücken Sie F1-Taste für
Hilfe.

Befehl: _PLINEWID
Neuen Wert für PLINEWID eingeben <0.7000>: 0.700000000000000
Befehl: PLINSEGMENT Unbekannter Befehl "PLINSEGMENT". Drücken Sie F1-Taste für
Hilfe.

Befehl:
Leitung zeichnen:_pline
Startpunkt angeben:
Aktuelle Linienbreite beträgt 0.7000
Nächsten Punkt angeben oder [Kreisbogen/Halbbreite/sehnenLänge/Zurück/Breite]:
Nächsten Punkt angeben oder
[Kreisbogen/Schließen/Halbbreite/sehnenLänge/Zurück/Breite]:
Befehl:

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

---

Zitat:

---

Original erstellt von vision:
es gibt noch zwei Probleme.

---

1. Es kommen zwei Fehlermeldungen (Farbe + Linienstärke).

Nimm die beiden abschließenden Gänsefüßchen aus den ersten beiden (command)-Befehlen raus:

  (command "_-color" 7)
  (command "_PLINEWID" 0.7)

BTW: Es ist übliche Programmierpraxis, wenn das Programm irgendwelche Systemvariablen ändert, daß man diese nach Programmende wieder auf den alten Wert zurücksetzt. Also im einfachsten Fall so:
;; Gleich am Programmbeginn
(setq color_old (getvar "cecolor"))
(setq PWidth_old (getvar "plinewid"))
;; nun Werte verändern wie oben und Ausführungsteil abarbeiten
;; am Ende wieder zurüksetzen:
(setvar "cecolor" color_old)
(setvar "plinewid" PWidth_old)

Das aber nur am Rand.

2. Ab dem zweiten Liniensegment gibt es keine "Spurverfolgung" mehr.

Kann ich hier nicht nachvollziehen (ausdrücklich in der von Dir verwendeten Version ACAD 2008 getestet). Wenn geeigneter OFANG und OTRACK eingeschaltet sind, funktioniert auch die Spurverfolgung. Was in der Tat zu beobachten ist, daß man während des Zeichnens keine "Gummibandlinie" am Fadenkreuz hängen hast. Falls Du das meinst, schau Dir mal (grdraw ...) an.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 18. Mrz. 2015 editiert.]

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

---

Hallo,

ich habe definitiv ab dem 2. Liniensegment keine Spurverfolgung mehr auch der Ortho-Modus geht hierbei nicht (obwohl alles eingeschaltet ist!).

Gibt es evtl. noch eine andere Möglichkeit eine Polylinie mit einzelnen Segmenten zu erzeugen? Evtl. einen Polylinienverlauf zeichnen und dann erst die einzelnen Segmente erzeugen.

PS: Ich benutze AutoCAD 2012, was eigentlich so auch im Profil stand.

Für Eure Unterstützung bedanke ich mich im Voraus.

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

---

Hallo,
Du könntest erst die Polylinie zeichnen, dann programmtechnisch in Ursprung zerlegen, die Segmente in Polylinien zurück verwandeln und eine Breite zuweisen:

Code:

---

(defun c:polydivide ( / breite poly)
(setq breite 0.7)
(setq poly (entsel "Polylinie wählen:"))
(command "_explode" poly "")
(command "_pedit" "_m" (ssget "_p") "" "_y" "_w" breite "")
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

... oder als zusammenhängender Befehl:

Code:

---

(defun c:drawpolydivide ( / breite farbe)
(setq breite 0.7 farbe 7)
(command "_-color" farbe)
(command "_plinewid" breite)
(command "_pline")
(while (> (getvar "cmdactive") 0) (command pause))
(command "_explode" (entlast) "")
(command "_pedit" "_m" (ssget "_p") "" "_y" "_w" breite "")
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Zitat:

---

Original erstellt von vision:

ich habe definitiv ab dem 2. Liniensegment keine Spurverfolgung mehr auch der Ortho-Modus geht hierbei nicht (obwohl alles eingeschaltet ist!).

---

Ist möglicherweise Deine Befehlszeile nicht angedockt?

Ich benutze AutoCAD 2012, was eigentlich so auch im Profil stand.

Entschuldigung, da hatte ich sicherlich was verwechselt.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 18. Mrz. 2015 editiert.]

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

---

Super, das funktioniert! Vielen Dank!
AutoCAD kann ja vieles, man muss es offensichtlich nur in die richtige Reihenfolge bringen 

Zitat:

---

Original erstellt von wronzky:
... oder als zusammenhängender Befehl:

Code:

---

(defun c:Drawpolydivide ( / breite farbe)
  (setq breite 0.7 farbe 7)
  (command "_-color" farbe)
  (command "_plinewid" breite)
  (command "_pline")
  (while (> (getvar "cmdactive") 0) (command pause))
  (command "_explode" (entlast) "")
  (command "_pedit" "_m" (ssget "_p") "" "_y" "_w" breite "")
)

---

Grüsse, Henning

---

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

---

... und noch zu Jürgens Ehrenrettung:
tausch in seinem Programm

Code:

---

(setq p1 (getpoint "\n Leitung:"))

---

mit

Code:

---

(setq p1 (getpoint "\n Leitung:" (getvar "lastpoint"))

---

aus, und schon geht alles wie gewünscht.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Zitat:

---

Original erstellt von wronzky:
... und noch zu Jürgens Ehrenrettung:

---

Danke  . Da habe ich wohl den Wald vor lauter Bäumen nicht gesehen. 
Aber etwas für mich Neues habe ich hier so ganz nebenbei dazugelernt: Daß man auf die Einzelelemente einer mit _explode zerlegten Polylinie anschließend mittels der Objektwahloption Vorher/_Previous zugreifen kann lag bisher völlig außerhalb meines Horizontes. Das liegt zwar auf der Hand, aber - man lernt eben nie aus ... 

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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