| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | |  | PNY wird von NVIDIA zum Händler des Jahres gewählt - zum dritten Mal in Folge, eine Pressemitteilung
|
|
Autor
|
Thema: Polylinie per BA auftrennen (1379 mal gelesen)
|
BernddasBrot
Mitglied
Maler
   Beiträge: 20
Registriert: 16.02.2012 XP Prof Elcad 7.5
|
erstellt am: 06. Jul. 2012 14:05  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, ist es möglich per VBA eine Polylinie aufzutrennen? Falls jemand es kennt, in Elcocad gibts so eine Funktion, damit kann man eine Linie an einer Stelle anklicken und das Programm macht quasi daraus 2 Linien. Das bräuchte ich allerdings in VBA. ------------------
. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer
Beiträge: 9807
Registriert: 01.12.2003 AutoCAD 2.5 - 2022, LDD, MDT, RD, ADT, Civil
Inventor AIP 4-11, 2008 -2022
Win 10
|
erstellt am: 06. Jul. 2012 18:58 <-- editieren / zitieren --> Unities abgeben: Nur für BernddasBrot 
|
| |
BernddasBrot
Mitglied
Maler
Beiträge: 20
Registriert: 16.02.2012 XP Prof Elcad 7.5
|
erstellt am: 09. Jul. 2012 10:57 <-- editieren / zitieren --> Unities abgeben:
Hallo, erstmal vielen Dank. Das hat mich etwas weiter gebracht. Alledings ist meine Lösung noch nicht die beste, denn mal funktioniert es gut, dann schneidet der Befehl eine andere Polyline durch wie angewählt. Und manchmal fehlt ein Stück in der Linie. Hier mein Code:
Code:
ThisDrawing.Utility.GetEntity Auswahl, Punkt, "Trasse für Abzweig wählen:"
If LCase(Auswahl.ObjectName) = "acdb3dpolyline" Then
ThisDrawing.SendCommand "_break " & Auswahl.Handle & vbCr
ThisDrawing.SendCommand Replace(Punkt(0), ",", ".") & "," & Replace(Punkt(1), ",", ".") & "," & Replace(Punkt(2), ",", ".") & vbCr
ThisDrawing.SendCommand Replace(Punkt(0), ",", ".") & "," & Replace(Punkt(1), ",", ".") & "," & Replace(Punkt(2), ",", ".") & vbCr
------------------
. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de
| 
