|
AutoCAD VBA : Problem mit IntersectWith
yamaha am 15.02.2008 um 21:48 Uhr (0)
Hallo Carsten.beiliegend eine GIF wie das auf meinem Rechner aussieht.Dann die Beispiel DWG (TXT umbenennen in DWG)und dann nachfolgend der Code dazu.Sub Inters()On Error Resume NextSet ssetObj = ThisDrawing.SelectionSets("IntersectTest")If Err.Number 0 Then Set ssetObj = ThisDrawing.SelectionSets.Add("IntersectTest")End IfOn Error GoTo 0ssetObj.ClearMsgBox ("Bitte zwei sich schneidende Komponenten wählen")ssetObj.SelectOnScreenIf ssetObj.Count = 2 Then Set oObject1 = ssetObj.Item(0) Set oObject2 = sse ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Beim Block einfügen Einfügepunkt Anwender
yamaha am 29.04.2005 um 08:12 Uhr (0)
Hallo zusammen, ich möchte gerne einen Block per VBA einfügen. Dim blockRefObj As AcadBlockReference returnPnt = ThisDrawing.Utility.GetPoint(, Enter a point: ) Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock (returnPnt, C:Block.dwg , 1#, 1#, 1#, 0) Mit obigen Ccode klappts ja auch, aber ich würde gerne bei der Wahl des Einfügepunktes den Block am Mauszeiger hängen haben, wie es mit den normalen Autocad Befehl insert auch ist. Hatte schon überlegt 1. Block einfügen 2. Block verschieben aber dann ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |