ADT-Zeichnungseinheiten (Autodesk/Lisp)

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 neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: ADT-Zeichnungseinheiten (650 mal gelesen)

tmoehlenhoff
Ehrenmitglied V.I.P. h.c.
Gutzum, CAD-Therapeut und BIM-Priester ;-)

Senden Sie eine Private Message an tmoehlenhoff

Schreiben Sie einen Gästebucheintrag für tmoehlenhoff

Beiträge: 2996
Registriert: 14.10.2002

ATD 2 bis 2007

erstellt am: 27. Okt. 2005 15:25

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Vermutlich ist es ganz einfach, aber ich kriege es einfach nicht hin

Kann mir mal jemand folgendes VBA-Schnippselchen in Lisp übersetzen:

Dim dwgSetup As AecArchBaseDatabasePreferences
Set dwgSetup = AecArchBaseApplication.ActiveDocument.Preferences

Ich kann mir zwar das AecArchBaseApplication Interface besorgen und der liefert mir auch artig ein ActiveDocument, aber beim Zugriff auf Preferences fliegt mir das Zeug um die Ohren.

Alternativ fummel ich schon im aec_vars_dwg_setup-Dictionary rum, was auch klappt, aber die obige Variante würde mich schon noch interessieren...

Any hints?

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Bernd10
Mitglied

Senden Sie eine Private Message an Bernd10

Schreiben Sie einen Gästebucheintrag für Bernd10

Beiträge: 763
Registriert: 20.11.2003

Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz
16 GB RAM
Windows 10 Pro 64-bit
AutoCAD Mechnical 2020 Deu

erstellt am: 28. Okt. 2005 08:19

<-- editieren / zitieren -->

Unities abgeben:

Nur für tmoehlenhoff

Halllo Torsten ,

Zitat:
Original erstellt von tmoehlenhoff:

Kann mir mal jemand folgendes VBA-Schnippselchen in Lisp übersetzen:
Dim dwgSetup As AecArchBaseDatabasePreferences
Set dwgSetup = AecArchBaseApplication.ActiveDocument.Preferences

ich habe hier im Forum Folgendes gefunden:
(vla-get-Preferences(vla-get-application(vlax-get-acad-object)))
Da ich aber von VBA keine Ahnung habe, kann ich auch nicht beurteilen, ob das der richtige Hinweis ist.

Gruß Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige:	Infos zum Werbeplatz >>
KeyTERRA-FIRMA CAD APP für Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen, GIS, Vermessung und Kartografie KeyTERRA-FIRMA Easy to use 3D Ground Modelling, Site Design, Land Survey and ZTV software. Your workflows will be optimized, saving you time and money.

tmoehlenhoff
Ehrenmitglied V.I.P. h.c.
Gutzum, CAD-Therapeut und BIM-Priester ;-)

Beiträge: 2996
Registriert: 14.10.2002

ATD 2 bis 2007

erstellt am: 28. Okt. 2005 11:18

<-- editieren / zitieren -->

Unities abgeben:

Hi Bernd,

das hilft leider nicht, denn dann bekomme ich ein IAcadPreferences VLA-Object und ich brauche ein IAecArchBaseDatabasePreferences.

Momentan sieht es so aus und scheint zunächst mal zu funktionieren:

(vl-load-com)
(setq
acadapp (vlax-get-acad-object)
actdoc (vlax-get acadapp "ActiveDocument")
archbasedoc (vlax-invoke acadapp "getinterfaceobject" "AecX.AecArchBaseDocument.4.7")
)
(vlax-invoke archbasedoc "init" actdoc)
(setq archbasedbpref (vla-get-preferences archbasedoc))
(vlax-get archbasedbpref "LinearUnit")

Aber sexy finde ich das so nicht ;-)

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

KeyTERRA-FIRMA CAD APP für Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen, GIS, Vermessung und Kartografie