| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Wenn man´den VW hat ... (430 mal gelesen)
|
elav Mitglied Architekt
Beiträge: 14 Registriert: 10.05.2004
|
erstellt am: 09. Jun. 2004 17:09 <-- editieren / zitieren --> Unities abgeben:
... will man den Mercedes. Hallo Gemeinde, ich hatte ja vor kurzem das Problem mit den Koordinaten der Fläche. Das ist jetzt gelöst aber.... Ich hab die Fläche mit einem eigenen Flächenstempel versehen, in diesem Flächenstempel gibt es die Angaben über Raumnummer und Raumhöhe (Eigenschaftssatz um zwei Manuelle Werte erweitert). Diese sind ja mit der Fläche verbunden. Was ich jetzt schon automatisch in VBA auslesen kann sind die Werte für Name, Basisumfang und Basisfläche (Sind in Eigenschaften(Strg+1) unter Design zu finden), Wie komme ich aber an die Informationen die unter Erweiterte Daten stehen ran, sprich meine Werte aus der Eigenschaftssatzdefinition. Anscheinend sind das keine XData, Bin mit meinem Latein am Ende. Gibts einen Tipp wie man da rankommt. Gruß aus HH, Armin
------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tmoehlenhoff Moderator Gutzum, CAD-Therapeut und BIM-Priester ;-)
Beiträge: 2996 Registriert: 14.10.2002 AutoCAD, AutoCAD Architecture, Revit Architecture, Building Design und Honeymoon Suite und das ganze auch gerne mal auf einem Mac
|
erstellt am: 09. Jun. 2004 18:05 <-- editieren / zitieren --> Unities abgeben: Nur für elav
Die Eigenschaftssatzsdaten stehen nicht in XDATAs. Guckst Du hier: Sub Flaechendaten() Dim object As AcadObject Dim SchedApp As New AecScheduleApplication Dim cPropSets As AecSchedulePropertySets Dim PropSet As AecSchedulePropertySet Dim cProps As AecScheduleProperties Dim prop As AecScheduleProperty Dim count As Integer For Each object In ThisDrawing.ModelSpace If TypeOf object Is AecArea Then count = count + 1 Set cPropSets = SchedApp.PropertySets(object) If (cPropSets.count > 0) Then Set PropSet = cPropSets.Item(0) Set cProps = PropSet.Properties Set prop = cProps.Item("AnrechenbareFläche") MsgBox "Fläche " & count & ": AnrechenbareFläche: " & prop.Value, vbInformation, "Flächendaten" Else MsgBox "Keine Daten an der Fläche", vbInformation, "Flächendaten" End If End If Next If (count = 0) Then MsgBox "Keine Flächen in Zeichnung", vbInformation, "Flächendaten" End If
End Sub Wobei davon ausgegangen wird, dass es eine Eigenschaft "AnrechenbareFläche" gibt. sayonara Torsten Möhlenhoff ACAD-Systemhaus Bremen [Diese Nachricht wurde von tmoehlenhoff am 09. Jun. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
elav Mitglied Architekt
Beiträge: 14 Registriert: 10.05.2004
|
erstellt am: 09. Jun. 2004 18:35 <-- editieren / zitieren --> Unities abgeben:
|
tmoehlenhoff Moderator Gutzum, CAD-Therapeut und BIM-Priester ;-)
Beiträge: 2996 Registriert: 14.10.2002 AutoCAD, AutoCAD Architecture, Revit Architecture, Building Design und Honeymoon Suite und das ganze auch gerne mal auf einem Mac
|
erstellt am: 10. Jun. 2004 15:27 <-- editieren / zitieren --> Unities abgeben: Nur für elav
Einfach in der entsprechenden Antwort rechts oben bei "Unities" die gewünschte Zahl anklicken. Man kann aber meines Wissens in einem "Diskussionsfaden" einer Person nur einmal Punkte geben ;-) sayonara Torsten Möhlenhoff ACAD-Systemhaus Bremen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|