---

TEST.dxf.txt

Hallo liebe Community,

folgendes Problem habe ich im AutoCAD.
Ich möchte mehrere Polylinien miteinander verbinden.
Dieses Funktioniert jedoch nicht, da mir die Genauigkeit vom AutoCAD einen Strich durch die Rechnung macht.

Linie 1: X=-14.31410127  Y=41.82537738  Z=0.00000000
Linie 2: X=-14.31419170  Y=41.82531699  Z=0.00000000

Mein Ziel ist:
  Alle selektierten Polylinien werden miteinander verbunden

Gibt so eine Möglichkeit, das er mir die Polylinien auf einen gemeinsamen Punkt zusammenhängt und dann verbindet?
  (Der neue Punkt ist egal ob dieser von Linie1 oder Linie2 genommen wird)

Im Anhang habe ich eine Test.dwg - Datei dazu gefügt.

Danke

------------------
Grüße

Christian

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

---

Spricht denn etwas gegen den AutoCAD-Befehl PEDIT ?
Der berücksichtigt schon einen FuzziAbstand und läßt eine Objektwahl zu.
("jeweils das erste Objekt" eines neuen PL-Zuges gibt die Objekteigenschaften vor)

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Leider funktioniert das mit dem Befehl: "PEDIT" nicht.

Momentan arbeite ich so:
  *) wenn die Linien nicht im 180° zueinander stehen, nehme ich den Befehl: Abrunden --> R:0
  *) Wenn die Linien 180° zueinander stehen, verschiebe ich eine einen Endpunkt (Linie1) auf den Endpunkt (Linie2) und danach nehme ich Pedit.

------------------
Grüße

Christian

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

---

Nach deinen Infos und der angehängten Datei schon, daher erkläre doch mal genauer warum das mit PEDIT nicht geht,
bzw. was du anders haben möchtest ?

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

(defun c:PLJOIN(/ AWS OLDCMD PLSSET)
  (vl-load-com)
  (if(and(or(setq AWS (ssget "_I" '((0 . "LINE,LWPOLYLINE,POLYLINE,ARC"))))
            (setq AWS (ssget      '((0 . "LINE,LWPOLYLINE,POLYLINE,ARC"))))
            (prompt "\nKeine Linien,Bögen, oder Polylinien gewählt")
         )        
     )
    (progn
      (setq OLDCMD (getvar "CMDECHO"))
      (setvar "CMDECHO" 0)
      (vla-endundomark  (vla-get-activedocument(vlax-get-acad-object)))
      (vla-startundomark(vla-get-activedocument(vlax-get-acad-object)))
      (setq INDEX -1)
      (repeat(sslength AWS)
        (if (not PLSSET)         
          (if(and(setq OBJ(ssname AWS (setq INDEX(1+ INDEX))))
                 (wcmatch (strcase(cdr(assoc 0(entget OBJ)))) "*POLYLINE")
             )
            (setq PLSSET OBJ)
          )
        )          
      )
      (if(and(not(vl-catch-all-error-p
                  (vl-catch-all-apply
                    'vl-cmdf (cond                              
                               ((>(sslength AWS)1)(list "_pedit" "_m" AWS "" "_j" 0.5 ""))
                               ('T(list "_pedit" AWS ""))
                             ) 
                  )
                 )
             )
             (setq AWS(if PLSSET (ssadd PLSSET)(ssadd(entlast))))
         )
        (progn
          (sssetfirst AWS AWS)
          (prompt "\nPolylinie erzeugt")
        )
        (prompt "\nFehler bei Polylinienerzeugung")
      )
      (vla-endundomark  (vla-get-activedocument(vlax-get-acad-object)))
      (setvar "CMDECHO" OLDCMD)
    )   
  )
  (princ)
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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