|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
Moony am 05.11.2004 um 10:46 Uhr (0)
Sorry, es sind in der Zeichnung Layer mit Namen Chip1 bis Chip8 vorhanden, die alle Polylinienobjekte Rechtecke darstellen. Die wollte ich und-color: #FFFF99'>suchen (s. 1.Beitrag) und aktivieren. Im aktivierten Zustand, war jetzt meine Idee das ich die Eckpunkte ermitteln kann, um dann die Mitte zu bekommen ohne Getpoint usw. In der Zeichnung geht es über: Eigenschaft == das Rechteck wählen Scheitelpunkt 1 - 4 auswählen Scheitelpunkt X == 2.34 Scheitelpunkt Y == 9.87 usw. Aus diesen Werten könnte ich die Mitte des Rechtec ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
Moony am 05.11.2004 um 09:03 Uhr (0)
Hallo zusammen, ich möchte Layernamen und-color: #FFFF99'>suchen, die gesuchten sind alles Rechtecke und den Mittelpunkt bestimmen, also die x,y Koordinate. Private Sub CommandButton1_Click() z = 1 suchname = Chip & z For Each Ly In ThisDrawing.Layers MsgBox gefunden Layername & Ly.Name If Ly.Name = suchname Then MsgBox Ly.Name With ThisDrawing.Utility posX = .GetDistance ?? posY = ?? End Wit ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
Moony am 05.11.2004 um 11:33 Uhr (0)
Hallo Holger, das ist ja mein Problem wie aktiviere ich z.B. Layer Chip1 und wie ermittel ich die Scheitelpunkte? Gruß Moony
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
Moony am 05.11.2004 um 14:57 Uhr (0)
Hallo Holger, nicht grafisches Element das leutet mir ein, ich wollte mir so die Suche erleichtern z.B.. Im Layer mit Namen Chip1 gibt es dann nur das eine Rechteck und das möchte ich per VBA selektieren um die Scheitelpunkte zu ermitteln. Mit Getpoint funktioniert es. Es kann ja sein, daß ich da auf dem Holzweg bin, ich weiß nicht wie ich in einer Zeichnung ohne den Get... Befehl eine Ecke vom Rechteck selektieren soll. Gruß Moony
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
