Polylinie aus Schraffurumgrenzung (Autodesk/AutoCAD VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Polylinie aus Schraffurumgrenzung (1376 mal gelesen)
ChristianW. Mitglied Beiträge: 3 Registriert: 27.12.2010	erstellt am: 27. Dez. 2010 21:14 <-- editieren / zitieren --> Unities abgeben: Hallo, ich suche eine Funktion die aus einer Schraffur bzw. aus dessen Umgrenzung eine Polylinie erstellt. Thx chris Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13530 Registriert: 30.11.2003 ACAD 2008 Mechanical	erstellt am: 27. Dez. 2010 21:24 <-- editieren / zitieren --> Unities abgeben: Nur für ChristianW. nimm den Befehl _Hatchedit und da den Punkt "umgrenzung neu erstellen" ------------------ - 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
ChristianW. Mitglied Beiträge: 3 Registriert: 27.12.2010	erstellt am: 27. Dez. 2010 21:51 <-- editieren / zitieren --> Unities abgeben: Danke für den Tipp, Aber: Wie bekomme ich die Geschichte in eine VBA Funktion? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Ex-Mitglied	erstellt am: 27. Dez. 2010 22:07 <-- editieren / zitieren --> Hi, am leichtesten geht's mit ThisDrawing.SendCommand("_-hatchedit" ..... HTH, - alfred - ------------------ www.hollaus.at
CADoktor Mitglied Techniker Beiträge: 35 Registriert: 29.03.2006	erstellt am: 04. Jan. 2011 11:21 <-- editieren / zitieren --> Unities abgeben: Nur für ChristianW. Public Sub UmgrenzungenNeuErstellen() Dim objEntity As AcadEntity Dim SelSet1 As AcadSelectionSet Set SelSet1 = ThisDrawing.SelectionSets.Add(clsTools.GenID("S1")) SelSet1.SelectOnScreen If SelSet1.Count = 0 Then SelSet1.Delete Exit Sub End If For Each objEntity In SelSet1 If objEntity.ObjectName = "AcDbHatch" Then ThisDrawing.SendCommand ("_-hatchedit" & vbCr & "(handent " & Chr(34) & objEntity.Handle & Chr(34) & ")" & vbCr & "_b" & vbCr & "_p" & vbCr & "_n" & vbCr) End If Next SelSet1.Delete End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)