---

Polyline.zip

Hallo Liebe Leute eine Frage
Hab da eine Polylinie und weiß nicht wie ich da die Koordinaten richtig auslese die X Koordinate wird fälschlicherweise immer negativ ausgelesen statt wie im Modell positiv gezeichnet??
Hat jemand einen Rat für dieses Problem??
Mfg Chris

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

---

Du guckst auch von Hinten auf die Polylinie.  Property NORMAL ...  

Mal ein kleines Lisptool zur Berichtigung:

(defun INVERSENORMAL (OBJ)
  (if(setq OBJ(cond
                ((=(type OBJ) 'VLA-OBJECT)OBJ)
                ((=(type OBJ) 'ENAME)(vlax-ename->vla-object OBJ))
              )
    )       
    (vla-transformBy
      OBJ
      (vlax-tmatrix '((1. 0. 0. 0.)
                      (0. 1. 0. 0.)
                      (0. 0. -1. 0.)
                      (0. 0. 0. 1.)
                    )
      )
    )
  )
)
(defun C:INVERSENORMAL()(INVERSENORMAL(car(entsel))))

------------------
      - 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

---

Vielen Dank!
Gibs dafür auch eine Lösung als VBA Source Code??
Mfg Chris

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

---

sicher .. aber die hab ich nicht ...und google beherrscht du sicher auch 

du kannst auch aus der PL n Block machen .... z-Skalierfaktor der Referenz  auf -1 setzen  ... Blockrefernz wieder auflösen

------------------
      - 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

---

Habs schon selbst gelöst danke!

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

---

>> Habs schon selbst gelöst danke!

Würdest Du dann bitte Deine Lösung hier präsentieren, davon leben Foren wie CAD.de.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

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

---

Jajaja es dauert halt nur das Programm rauszufischen aus dem ganzen!!

Public SSetB As AcadSelectionSet

Sub Correct_POLYDirection()
Dim ELEM
Dim Coords1
Dim currNormal As Variant, a
Call CreateSset
For Each ELEM In SSetB
 
    If ELEM.Objectname Like "*AcDbPolyline*" Then
    Debug.Print ELEM.Objectname
    Coords1 = ELEM.Coordinates
    currNormal = ELEM.Normal
    If currNormal(2) = -1 Then
    currNormal(2) = 1
    ELEM.Normal = currNormal
    For a = LBound(Coords1) To UBound(Coords1) Step 2
    Coords1(a) = Coords1(a) * -1
    Next a
   
    End If
        ELEM.Coordinates = Coords1
    End If

Next ELEM
End Sub

Sub CreateSset()
On Error Resume Next
      ThisDrawing.Selectionsets.Item("SSX").Delete 'Selectionset-delete
      Set SSetB = ThisDrawing.Selectionsets.Add("SSX")
      SSetB.SelectOnScreen
End Sub

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

---

Danke!

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

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