| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | |  | Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung
|
|
Autor
|
Thema: Block einfügen (435 mal gelesen)
|
BerndE
Mitglied
Hochbautechniker
   Beiträge: 557
Registriert: 05.07.2003 Revit 2013
ACA 2012 deutsch
BuildingOne 5.4.5
Win7
WindowsNetz
|
erstellt am: 22. Nov. 2005 11:24  <-- editieren / zitieren -->   Unities abgeben:          
Hi Forum, mit Code:
einfüge = ThisDrawing.Utility.GetPoint(, "Einfügepunkt angeben")
Set blockref = ThisDrawing.ModelSpace.InsertBlock(einfüge, importfile, 1, 1, 1, 0)
setze ich einen Block. Das klappt auch.Nur wenn ich nach der Aufforderung "Einfügepunkt angeben" statt direkt einen Punkt anzugeben einen der Situation entsprechenden Objektfang wählen will, reagiert mein Code mit der Fehlermeldung: "Die Methode 'Getpoint' für das Object 'IAcadUtility' ist fehlgeschlagen" Normalerweise kann ich während des normalen Zeichnens jederzeit in aktiven Befehlen einen Objektfang wählen. Wie bekomme ich das auch bei VBA hin? Oder falls das nicht geht, wie fange ich das Wählen eines Objektfanges ab (und mache dieses wärend der Codeausführung unmöglich), denn o.a. Fehler kann ja auch aus anderen Gründen auftreten. ------------------
Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1
Moderator
Verm.-Ing.
    
Beiträge: 1526
Registriert: 17.08.2005 Map 2000-2014, Rasterdesign,
MapGuide, Autodesk Topobase,
VS6, VS.net 2013
|
erstellt am: 22. Nov. 2005 11:42 <-- editieren / zitieren --> Unities abgeben: Nur für BerndE 
Hallo Bernd, wie wärs mit Fehler abfangen? Kannst auch noch eine Wiederholungsschleife einbauen
Code:
on error resume next
'thisdrawing ..... Punkt holen
if err.number <> 0
msgbox err.discription
else
on error goto 0
'Thisdrawing Block einfügen
end if
Wenn das im Profil mit Acad 2000i stimmt, wirst du auf die Möglichkeit während der Auswahl zu zoomen und Objektfang einstellen
verzichten müssen.Stelli ------------------
Warum lisp'eln wenn's auch anders geht.  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| |
BerndE
Mitglied
Hochbautechniker
Beiträge: 557
Registriert: 05.07.2003
|
erstellt am: 22. Nov. 2005 12:12 <-- editieren / zitieren --> Unities abgeben:
ja, das mit 2000i stimmt (leider) noch....wir waren schon in der umstellung zu 2005 und architectural desktop begriffen, haben aber alles nochmal wegen dem sehr interessanten revit zurück gestellt. blöderweise gibts da kein vba (oder weißt du da was anderes?) um aber zum thema zurückzukommen: heißen dank, wenigstens kann ich so den fehler abfangen und kommentieren und dann weiter machen ------------------
Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de
| 
