---

Hallo.
Wir arbeiten mit Autocad 2002.
Folgendes Problem:
Ich zeichne eine gerade Linie mit dem Befehl Linie.
Diese Linie besitzt 3 Griffe,links, mitte und rechts.
Nun möchte ich den mittleren Griff anfassen und nach oben oder unten verziehen sodas eine Linie mit einem Knick in der Mitte entsteht.
Weis jemand wie ich das angehen kann oder hat jemand eine Lisp die das
bewerkstelligt.

Danke
Jürgen

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

---

Warum nicht einfach mit Polylinien arbeiten?

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

---

Hallo Jürgen,
eine Linie besteht aus einer Geraden mit einem Anfangs- und einem Endpunkt. Willst du aus der Linie nun zwei Linien machen, musst du sie zuerst brechen und dann erst kannst du diesen neuen Punkt (genauer gesagt zwei Punkte) verschieben.
Der mittlere Anfasser in der Linie, den AutoCAD dir bietet, ist nur dafür da, um die gesamte Linie zu verschieben. Über die anderen beiden Anfasser kannst du jeweils die Linie strecken oder kürzen.
Gruß Heidi

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

---

... aber solange die Polylinie nur aus einem Segment besteht (hat sie nur 2 Griffe) ist nix mit Knick über Griffe rausziehen, es müssen zwei Segmente sein...

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

---

Ein klick mehr (für den mittleren Punkt) bei der Polylinienerstellung dürfte vertretbar sein?! Wenn man ein spezifisches Lisp schreibst kommt man sicher auch noch mehr Klicks... es geht ja ums Zeit sparen oder?

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

---

Hi Jürgen!

lb teilt dir die Strecke in der Mitte.

(defun C:lb ( / element p1 p2 p3)
      (SETQ element (ENTGET (CAR (ENTSEL "Bitte Linie wählen"))))
      (SETQ p1 (CDR(ASSOC 10 element)))
      (SETQ p2 (CDR(ASSOC 11 element)))
(setq p3 (strcat (rtos (+ (car p1) (* (- (car p2) (car p1)) 0.5)) 2 8) "," (rtos (+ (cadr p1) (* 0.5 (- (cadr p2) (cadr p1)))) 2 8) ",0.0"))
      (command "_break" p3 "@")
)

Ciao Georg

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

---

Hallo Georg,
leider halbiert mir deine Lisp nur die Linie.
Ich brauche folgendes:
Die normale Linie soll durch eine Polylinie ersetzt werden.
Diese Polyline soll den gleichen Layer und die gleichen End und Mittelpunkte haben.
Danke Jürgen.
   

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

---

Hi Jürgen,

versuch's mal hiermit - macht allerdings aus einer Linie zwei, also keine Polylinie.

>> Diese Polyline soll den gleichen Layer und die gleichen End und Mittelpunkte haben.

Dann kann sie allerdings keinen Knick haben, denn dann wäre sie geometrisch identisch mit der Linie;-)

Hier der Code, ohne Errorhandling usw.:

(defun c:knicken( / ent p3 p10 p11 xordraw get-pt)
(defun xordraw(p1 p2 p3 / )
(grdraw p1 p3 -1)
(grdraw p2 p3 -1)
)
(defun get-pt(p1 p2 / p pp)
(setq pp(grread'T 1))
(xordraw p1 p2(cadr pp))
(while(= 5(car(setq p(grread 'T 1))))
(xordraw p1 p2(cadr pp))
(xordraw p1 p2(cadr p))
(setq pp p)
)
(xordraw p1 p2(cadr pp))
(if(= 3(car p))p)
)
(if(=(cdr(assoc 0(setq ent(entget(car(entsel))))))"LINE")
(if(setq p3(cadr(get-pt(setq p10(cdr(assoc 10 ent)))(setq p11(cdr(assoc 11 ent))))))
(progn
(entmake(subst(cons 10 p3)(assoc 10 ent)ent))
(entmod(subst(cons 11 p3)(assoc 11 ent)ent))
)
)
)
)

Gruss, Axel

------------------
Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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

---

Hallo Axel.
Vielen Dank für die Lisp.
Habe zwar nun keine Polylinie sondern zwei Linien,
aber damit ist mir auch schon sehr geholfen.

Ciao
Jürgen     

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

---

Hallo Jürgen,

hier einmal ein Versuch, eine Linie in eine Polyline zu ändern, mit zusätzlichen Stützpunkt in der Mitte.

Gruß
cad-lisp

(defun c:li_pl ( / WAHL)
  ;;Funktion ersetzt eine Linie durch eine Polylinie
  ;;mit zusätzlichem Stützpunkt in der Mitte
  ;;Farbe und Layer bleibt erhalten
  ;;Objekthöhe und Erhebung gehen verloren (nur 2d)
 
  (setq wahl (entsel "\nBitte eine Linie auswählen:"))

  (cond (wahl
(setq wahl (entget(car wahl)))
(cond ((equal (cdr (assoc 0 wahl))"LINE")
(f:line_to_polyline wahl)
      )
      ('T (princ "\n*** Falsche Auswahl! ***"))
        )
)
('T (princ "\n*** Es wurde nichts ausgewählt! ***"))
  )
  (princ)
 
)

(defun f:line_to_polyline (daten / EP FA LA MP OLD_FAR OLD_LAY SP WI)

  (setq old_lay (getvar "CLAYER"))
  (setq old_far (getvar "CECOLOR"))
 
  (setq sp (cdr(assoc 10 daten))
ep (cdr(assoc 11 daten))
wi (angle sp ep)
mp (polar sp wi (/ (distance sp ep) 2))
la (cdr(assoc 8 daten))
fa (cdr(assoc 62 daten))

  )
  (setvar "CLAYER" la)
  (if fa
    (setvar "CECOLOR" (itoa fa))
    (setvar "CECOLOR" "256")
  )

  (entmake (list (cons 0 "POLYLINE") (cons 8 la)))
  (entmake (list (cons 0 "VERTEX")(cons 42 0.0 )(cons 10 sp)))
  (entmake (list (cons 0 "VERTEX")(cons 42 0.0 )(cons 10 mp)))
  (entmake (list (cons 0 "VERTEX")(cons 42 0.0 )(cons 10 ep)))
  (entmake (list (cons 0 "SEQEND")))

  (command "_erase" (cdr (assoc -1 daten)) "")
  (setvar "CLAYER"  old_lay)
  (setvar "CECOLOR" old_far)

)

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

---

Hi,
ich hab' auch noch einen...

Code:

---

(defun C:XL2PL (/)
;;; Geklaut von Axel Strubbe-Zettler ;-)
  (defun XORDRAW (P1 P2 P3 /)
    (grdraw P1 P3 -1)
    (grdraw P2 P3 -1)
  ) ;_ end of defun
  (defun GET-PT (P1 P2 / P PP)
    (setq PP (grread 't 1))
    (XORDRAW P1 P2 (cadr PP))
    (while (= 5 (car (setq P (grread 't 1))))
      (XORDRAW P1 P2 (cadr PP))
      (XORDRAW P1 P2 (cadr P))
      (setq PP P)
    ) ;_ end of while
    (XORDRAW P1 P2 (cadr PP))
    (if (= 3 (car P))
      P
    ) ;_ end of if
  ) ;_ end of defun
;;; Geklaut von Axel Ende

  (princ "Linien wählen...")
  (setq ENAME (car (entsel)))
  (if (= (cdr (assoc 0 (setq EDATA (entget ENAME))))
        "LINE"
      ) ;_ end of =
    (progn
      (setq XENAME (vlax-ename->vla-object ENAME)
            PKT    (vlax-curve-getpointatparam
                    XENAME
                    (/ (vlax-curve-getendparam XENAME) 2)
                  ) ;_ end of vlax-curve-getPointAtParam
      ) ;_ end of setq
;;; Nochmal geklaut von Axel
      (if (setq P3 (cadr (GET-PT (setq P10 (cdr (assoc 10 EDATA)))
                                (setq P11 (cdr (assoc 11 EDATA)))
                        ) ;_ end of get-pt
                  ) ;_ end of cadr
          ) ;_ end of setq
        (setq PKT P3)
      ) ;_ end of if
;;; Geklaut Ende
      (command "_.pedit" ENAME "_y" "_e" "_i" PKT "_x" "")
      (princ "\nOK, Linie zur Polylinie konvertiert !"
      ) ;_ end of princ
    ) ;_ end of progn
    (princ "\nKeine Linie gewählt !")
  ) ;_ end of if
  (princ)
) ;_ end of defun

---

------------------
Ciao,
Marc

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

---

Hallo.
Ich möchte mich bei allen bedanken.
Habe jetzt mehr als ich brauche.
Vielen vielen Dank
Jürgen
     

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