|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 10:46 Uhr (0)
Geht es vielleicht über SelectByPolygon?
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 13:29 Uhr (0)
Das wollte ich nicht, werde mit dem "s" reden.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 10:44 Uhr (0)
Danke Carsten für den Tip.Ich hab über den Befehl SendCommand die Polylinie erstellt. Wie kann ich auf diese Linie zugreifen. Ich benötige hiervon den Flächeninhalt. Das was ich schrieb funktioniert nicht. Wie wird die Polylinie zugewiesen?
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 19:37 Uhr (0)
Hallo Stelli1,habe deinen Hinweis wie folgt übernommen:Public NeuesElement As AcadObjectPrivate Sub AcadDocument_ObjectAdded(ByVal Object As AcadObject) Set NeuesElement = ObjectEnd SubAcadApp.ActiveDocument.SendCommand ("._-boundary" & vbCr & "A" & vbCr & "_Island" & vbCr & "N" & vbCr & "N" & vbCr & "O" & vbCr & "_Polyline" & vbCr & vbCr & XYPoint & vbCr & vbCr) If Not NeuesElement Is Nothing Then plineArea = NeuesElement.Area End IfEs kommt eine Fehlermeldung, T ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 18.03.2007 um 09:04 Uhr (0)
Hallo Forum,zur Zeit versuche ich mich an meinem SelectionSet. Ich bin davon ausgegangen, dass, wenn ich über SelectAtPoint einen Punkt, der auf einer Schraffur liegt, dem SelectionSet der TypeName der Schraffur zugeordnet wird. Über eine MsgBox kommt "Punkt" als Ausgabe. Mein Problem ist, dass ich für die Select Case Anweisung eine Eigenschaft der Schraffur benötige (siehe Code oben). Über Filter hab ich es nicht hinbekommen und auch schon im Forum geblättert. Wie kann ich eine Eigenschaft, die bei allen ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 15:37 Uhr (0)
Soweit die TheorieAch so zu den Berechnungen,mein erster Schritt war ein Berechnungsalgorithmus in Excel. Der funktioniert auch ganz gut. Bis auf eine bestimmte Prozentzahl lassen sich die fehlenden Flächen ermitteln. Bei Veränderung der Eingangsparameter lässt sich der Fehler durch die unbetrachteten Kreise nicht abschätzen. Hier fand ich als beste Alternative: die Verbindung zwischen ACAD und Excel. Der Nachteil in Excel lassen sich nur eine bestimmte Anzahl an benachbarten Kreisen gleichzeitig analysier ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 17.03.2007 um 11:23 Uhr (0)
Hallo Stelli1,innerhalb der letzten 70h Arbeit waren nicht viele Erfolgsmeldungen zu verbuchen. Nun ist es wieder so weit. Bin dazu übergegangen kleine Programme zu schreiben, um mich auf den entsprechenden Fehler zu konzetrieren. Hätte ich vielleicht schon früher machen sollen. Über den ersten Teil habe ich es nicht hin bekommen, der Workaround klappt. Hier der Code:Sub Beispiel()Dim NeuesElement As AcadEntityDim AnzahlEntity As LongDim AcadApp As AcadApplicationSet AcadApp = CreateObject("autocad.applica ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 15:14 Uhr (0)
Ich dachte, ich hätte es beschrieben. Mein Fehler. Das Makro dient zum Erstellen eines Modells mit abweichenden Parametern. Diese verursachen in der überwiegen mit "Solid" gefüllten Fläche einige nicht gefüllte Bereiche. Sie werden jeweils von n Kreisausschnitten begrenzt. Mein Algorithmus sollte über ein Raster die gesamte Fläche scannen und feststellen ob es an dem gerade zu betrachtenden Punkt eine gefüllte Fläche gibt. Ist das der Fall springt er zum nächsten Punkt. Ist es nicht der Fall, soll er von d ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 17.03.2007 um 13:46 Uhr (0)
Hallo Forum,zum Überprüfen ob ein SelectioSet vorhanden ist, hab ich die Routinen Code: On Error Resume Next Set objSelSet = AcadApp.ActiveDocument.SelectionSets("Selection") If Err.Number Then Set sset = AcadApp.ActiveDocument.SelectionSets.Add("Selection") End If On Error GoTo 0oderCode: If Err.Number = 0 Then objSelSet.Clear Err.Clear Else Set objSelSet = AcadApp.ActiveDocument.Add("Selection") On Error GoTo ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 13:12 Uhr (0)
Zum Punkt acSelectionSetLast bin ich noch nicht vorgedrungen...Beim Ausführen des Makros kommt mal die Fehlermeldung 436 Objekt unterstützt diese Eigenschaft oder Mehtode nicht oder 91 With-Blockvariable nicht festgelegt. Es werden die Zeilen mit * passend zu den Melfdungen gelb markiert. Was mache ich flasch? Hab wieder auf den Seiten und in der ACAD Hilfe herumgestöbert. Bin aber nicht weiter gekommen. Kann ich die Schraffur der Polylinie so anhängen? Hab es bei einem Kreis ähnlich gemacht. Dim plineO ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 08:23 Uhr (0)
Hallo Forum, neues Problem, alte Baustelle!Habe ne Fläche mit kleinen Schraffurflächen Excel 2003 in ACAD 2004 erstellt. In diesem Bereich füllen die Einzelflächen (Solid, schwarz dargestellt) nicht den gesamten Bereich aus. Nun möchte ich die Restfläche (weiß )in einem bestimmten Rahmen ermitteln. Laufe hierfür in Rasterschritten über den Bereich und ermittle die Eigenschaften jedes Rasterpunktes. Ist der Typenname eine Schraffur (AcDbHatch ) soll er zum nächsten Rasterpunkt gehen, findet er etwas anderes ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 19.03.2007 um 09:28 Uhr (0)
Hallo Wissende,hab am WE mein Code vervollständigt, um danach festzustellen, dass mit der SelectAtPoint Methode im Acad Modellbereich, in dem keine Objekte an diesem Punkt gefunden werden, Objekte der näheren Umgebung herangezogen werden. Genau das sollte nicht passieren! Code:Dim xWert As Double Dim yWert As Double Dim streckeX As Double Dim streckeY As Double Dim rasterschritt As Double Dim lineObj As AcadLine Dim olLinePoint(0 To 2) As Double Dim orLinePoint(0 To 2) As Double Dim urLinePoint ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 16.03.2007 um 10:13 Uhr (0)
Guten Morgen Stelli1,die Tips die Du mir gegeben hast laufen in AutoCAD super. Das Problem entsteht, wenn ich die Sachen in mein Excel Makro übernehme. Mein Code sieht wie folgt aus:Sub X() Dim i As Integer Dim kx As Double Dim ky As Double Dim r As Double Dim ThisDrawing As AcadDocument Dim centerPoint(0 To 2) As Double Dim radius As Double Dim hatchObj As AcadHatch Dim kreis(0 To 0) As AcadEntity Dim patternName As String Dim PatternType As Long Dim bAssociativity As Boolean Daten der ...
|
| In das Form Autocad VBA wechseln |
