---

Morgen alle zusammen,

ich zeichne gerdae eine gewendelte treppe und da hab ich das ständige problem, dass ich bei der abwicklung die maße umständlich über polilinienlänge und dann antragen am gerden strich übertragen muss.

MEINE FRAGE:
gibt es ein tool für acad das aus einer polilinie mit punkten eine gerade mit punkten macht, oder so ähnlich?
Dieses Problem hab ich öfter und nicht nur bei treppen.

MEINE 2.FRAGE
gibt es ein tool das z.b. eine polilinie an allen daraufliegenden punkten bricht? also bruch mit einem punkt.

danke für eure antworten!

gruß
wastl

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

---

Hi,
du kannst mal www.cadwiesel.de und www.cadlon.de durchsuchen! Da sind so einige Tools gesammelt.

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

---

Hallo,
wahrscheinlich habe ich nicht genau verstanden, was du eigentlich willst, denn auf die Idee, die PL aufzulösen (_EXPLODE) bist du doch sicher schon gekommen?

------------------

gruß
thomas

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

---

Hallo wastl,

ich habe sowas noch nicht gesehen, da das nun aber kein großer Aufwand ist, habe ich mal schnell ein paar Zeilen zusammen geschrieben.

Code:

---

(defun c:plab (/ pl pld plli)
  (princ "\nLWPolylinie wählen:")
  (setq pl (entsel)
        pld (if pl (entget(setq pl(car pl)))))
  (if pld
    (cond
      ((= "LWPOLYLINE" (cdr (assoc 0 pld)))
      (setq plli (reverse(apply 'append (mapcar '(lambda (P)
                                            (if (= 10 (car P))
                                              (list (cdr P))
                                              )
                                            )
                                        pld)
                        ))
            )
      )
      ((= "POLYLINE" (cdr (assoc 0 pld)))
      (while (= (cdr (assoc 0 (setq pld (entget (entnext (cdr (assoc -1 pld))))))) "VERTEX")
        (setq plli (cons (cdr (assoc 10 pld)) plli))
        )
      )
      )
    (princ "\nKeine Polylinie gewählt!")
    )
  (if plli
    (plab (vlax-ename->vla-object pl) (reverse plli))
    (princ "\nKeine Polylinie gewählt!")
    )
  (princ)
  )
(defun plab (pl ptli /)
  (setq ptli (mapcar '(lambda (PT)
                        (vlax-curve-getDistAtPoint pl PT)
                        )
                    ptli
                    )
        )
  (initget 1)
  (command "_PLINE" (setq stpt(getpoint "\nStartpunkt: ")))
  (mapcar '(lambda (D)
            (command (polar stpt 0.0 D))
            )
          (cdr ptli)
          )
  (command "")
  )
(princ "\nPLAB.lsp geladen - Start mit \"PLAB\"")
(princ "\nCADlon - Lisp over night!")
(princ "\nhttp://www.CADlon.de")

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

[Diese Nachricht wurde von Brischke am 26. Juni 2003 editiert.]

[Diese Nachricht wurde von Brischke am 26. Juni 2003 editiert.]

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

---

Zitat:

---

Original erstellt von Thomas Rausch:
Hallo,
wahrscheinlich habe ich nicht genau verstanden, was du eigentlich willst, denn auf die Idee, die PL aufzulösen (_EXPLODE) bist du doch sicher schon gekommen?

---

jo schon, aber wenn die polilinie nen bogen macht oder nen knick hat wie mach ichs dann?

gruß wastl

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

---

Holger darf ich dich gott nenen?

Danke für dieses geile LISP!

Kannst du mir noch ne antwort auf meine 2. frage geben?

Dann wär ich der glücklichste mensch auf dieser erde!

gruß
wastl

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

---

Gott ist ein LISP-Programmierer! :-))))

Zitat:

---

Original erstellt von fitztech:
Holger darf ich dich gott nenen?

Danke für dieses geile LISP!

Kannst du mir noch ne antwort auf meine 2. frage geben?

Dann wär ich der glücklichste mensch auf dieser erde!

gruß
wastl

---

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

---

Oh Mist - dann muß ich das Elend auf dieser Welt ja ewig ertragen. 
Sind ja düstere Aussichten.

@fitztech Du darfst mich nicht Gott nennen.

@Ulf Ich bin nicht Gott - du musst weiter suchen!

Grüße Holger

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

---

Hallo Wastl,
ich hab so etwas auch in meinen Tools. Die Abwicklung funktioniert bei allen Objekten (Kreise, Elipsen, Polylinien, LWPolilinien,...). Bei Interesse schick mir einfach eine PM.
Zu deiner zweiten Frage: Sollte auch kein Problem sein, hab nur gerade keine Zeit zum Programmieren.

------------------
Roland

[Diese Nachricht wurde von RoSiNiNo am 27. Juni 2003 editiert.]

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

---

Ich habs mal auf geschlossene Polylinien angepasst, bei denen wurde in Holgers Version immer das letzte Segment weggelassen. Macht sich halt blöd bei wichtigen Berechnungen.

so, hier nochmal überarbeitet

Code:

---

(defun c lab (/ pl pld plli li)

  (defun plab2 (ELEM ptli / dili stpt gesla teillang)
    (setq gesla (vlax-curve-getdistatparam
                  ELEM
                  (vlax-curve-getendparam ELEM)
                  ) ;_ ende von vlax-curve-getdistatparam
          ) ;_ ende von setq
    (repeat (- (length ptli) 1)
      (setq dili  (cons
                    (setq teillang (2P-Dist ELEM (nth 0 ptli) (nth 1 ptli)))
                    dili
                    ) ;_ ende von cons
            ptli  (cdr ptli)
            gesla (- gesla teillang)
            ) ;_ ende von setq
      ) ;_ ende von repeat
    (if (> gesla 0)
      (setq dili (cons gesla dili))
      ) ;_ ende von if
    (command "_PLINE" (setq stpt (getpoint "\nStartpunkt: ")))
    (mapcar '(lambda (D)
               (command (setq stpt (getvar "lastpoint"))
                        (polar stpt 0.0 D)
                        ) ;_ ende von command
               ) ;_ ende von lambda
            dili
            ) ;_ ende von mapcar
    (command "")
    ) ;_ ende von defun
  (defun 2P-DIST (ENAME PT1 PT2 /)
    (setq ENAME (vlax-ename->vla-object ENAME))
    (abs (- (vlax-curve-getdistatpoint
              ENAME
              (vlax-curve-getclosestpointto
                ENAME
                PT1
                ) ;_ end of vlax-curve-getclosestpointto
              ) ;_ end of vlax-curve-getDistAtPoint
            (vlax-curve-getdistatpoint
              ENAME
              (vlax-curve-getclosestpointto
                ENAME
                PT2
                ) ;_ end of vlax-curve-getClosestPointTo
              ) ;_ end of vlax-curve-getdistatpoint
            ) ;_ end of -
         ) ;_ end of abs
    ) ;_ end of defun

  (princ "\nPolylinie wählen:")
  (setq pl  (entsel)
        pld (if pl
              (entget (setq pl (car pl)))
              ) ;_ ende von if
        ) ;_ ende von setq
  (if pld
    (cond
      ((= "LWPOLYLINE" (cdr (assoc 0 pld)))
       (setq plli
              (reverse
                (apply 'append
                       (mapcar '(lambda (P)
                                  (if (= 10 (car P))
                                    (list (cdr P))
                                    ) ;_ ende von if
                                  ) ;_ ende von lambda
                               pld
                               ) ;_ ende von mapcar
                       ) ;_ ende von apply
                ) ;_ ende von reverse
             ) ;_ ende von setq
       )
      ((= "POLYLINE" (cdr (assoc 0 pld)))
       (if (= (cdr (assoc 70 pld)) 1)
         (setq flag T)
         ) ;_ ende von if
       (while
         (= (cdr
              (assoc 0
                     (setq pld (entget (entnext (cdr (assoc -1 pld)))))
                     ) ;_ ende von assoc
              ) ;_ ende von cdr
            "VERTEX"
            ) ;_ ende von =
          (setq plli (cons (cdr (assoc 10 pld)) plli))
          ) ;_ ende von while
       )
      ) ;_ ende von cond
    (princ "\nKeine Polylinie gewählt!")
    ) ;_ ende von if
  (if plli
    (plab2 pl plli)
    (princ "\nKeine Polylinie gewählt!")
    ) ;_ ende von if
  (princ)
  )

---

------------------
Gruß
         CADwiesel
Besucht uns im CHAT

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

---

plab.zip.txt

Zitat:

---

Original erstellt von CADwiesel:
Ich habs mal auf geschlossene Polylinien angepasst, bei denen wurde in Holgers Version immer das letzte Segment weggelassen. Macht sich halt blöd bei wichtigen Berechnungen.

---

Guten Morgen
ich befürchte, dass Du irgendwo einen fehler hast. in der beigefügten DWG findest Du die Ergenisse Deiner PLAB und der von BRISCHKE und das von B ist  korrekt

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

---

@cad4fun
In der Tat, hast du Recht - ich habe die Bögen nicht bedacht. Das muss ich anders machen.

Habe den code oben aktualisiert

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

hallo zusammen,
habe gerade in der suche nach genau so einen lsp gesucht, mir das den code in eine lsp-datei kopiert, den smile mit c lab ersetz.
beim laden des lsp in acad wird alles geladen, aber bei ausführen mit den befehl plab kommt die meldung unbekannter befehl.

was habe ich falsch gemacht ?

------------------
Philipp

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

---

meinte eigentlich c : plab

------------------
Philipp

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

---

welcher fehler kommt denn?
kannst ja auch das c:blab durch c:mürgelbüsupp ersetzen

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

sorry war mein fehler, habe nicht alles rüberkopiert.

jetzt funktionierts tadellos, danke trotzdem und 10 units für das super tool

------------------
Philipp

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