| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Bogen zeichnen (1308 mal gelesen)
|
bccad Mitglied
Beiträge: 57 Registriert: 02.11.2009
|
erstellt am: 22. Feb. 2013 13:25 <-- editieren / zitieren --> Unities abgeben:
Hi, hab da mal ne Frage. Ich hab ein Programm das einen Bogen durch drei Punkte zeichnen soll. Bis jetzt hab ich das so gemacht:
Code:
cmd = "._arc" + vbCr cmd = cmd + Trim(forma(ba.X, f)) + "," + Trim(forma(ba.Y, f)) + vbCr cmd = cmd + Trim(forma(bm.X, f)) + "," + Trim(forma(bm.Y, f)) + vbCr cmd = cmd + Trim(forma(be.X, f)) + "," + Trim(forma(be.Y, f)) + vbCr doc.SendStringToExecute(cmd, True, False, False)
Das geht soweit auch prima. Kann man das auch native in .NET machen ? Ich finde nur die Variante Arc(Center, Radius, Startangle, Endangle). Wenn nicht wie bekommt man die ObjectID des zuletzt gezeichneten Elementes in die Hand ? Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 22. Feb. 2013 14:23 <-- editieren / zitieren --> Unities abgeben: Nur für bccad
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 20xx, Civil 3D 201x, Inventor Prof 201x usw.
|
erstellt am: 22. Feb. 2013 17:31 <-- editieren / zitieren --> Unities abgeben: Nur für bccad
|
bccad Mitglied
Beiträge: 57 Registriert: 02.11.2009
|
erstellt am: 27. Feb. 2013 12:01 <-- editieren / zitieren --> Unities abgeben:
Hi, danke für eure Bemühungen. Dann wird mir wohl nichts anderes übrigbleiben als die Bögen auszurechnen. Aber noch mal die Frage: Gibt es unter .Net die Möglichkeit die Object-ID des zuletzt gezeichneten Elementes abzufragen ? Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
oscarr Mitglied CAD-Manager
Beiträge: 198 Registriert: 02.10.2007 ACA 2012 - English Win 7/x64
|
erstellt am: 28. Feb. 2013 14:24 <-- editieren / zitieren --> Unities abgeben: Nur für bccad
Was hast Du denn vor? Wie wäre es mit?: Code: Dim acSSPrompt As PromptSelectionResult Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor acSSPrompt = ed.SelectLast
LG Holger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |