| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY präsentiert die PRO Elite™ High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung
|
|
Autor
|
Thema: Bogen zeichnen (1460 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: 4191
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: 9807
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 |
Foren auf CAD.de
| 
