Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  benutzerspezifische Werte erstellen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  benutzerspezifische Werte erstellen (2829 mal gelesen)
joeycool
Mitglied
Ingenieur TGA


Sehen Sie sich das Profil von joeycool an!   Senden Sie eine Private Message an joeycool  Schreiben Sie einen Gästebucheintrag für joeycool

Beiträge: 1455
Registriert: 01.06.2004

MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200

erstellt am: 07. Feb. 2008 10:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Trotz Durchstöbern der umfangreichen Fundstellen zu "Zeichnungseigenschaften" bin ich beim Suchen nicht fündig geworden

wahrscheinlich ist die Lösung recht einfach:
Ich will unter dem Register Benutzerspezifisch bei Zeichnungseigenschaften einen festen Namen mit einem festen Wert eintragen lassen.

Gefunden habe ich bei der Suche $(getprop) und rtext, aber die lesen ja nur aus.
Bei werner-maahs hab ich was gefunden, da muss der Name aber schon definiert sein, den gibt es bei mir aber noch nicht.

Das skript: dwgeigen "name" "wert"
funzt auch nicht, sondern bricht nach Aufrufen der Dialogbox ab.

Gibt es da ne Lösung?

Joeycool

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13513
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 07. Feb. 2008 10:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für joeycool 10 Unities + Antwort hilfreich

ja, guck dir mal das SummaryInfo-Object einer Zeichnung unter ActivX an  ...

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 bis ACA 2013
Arcibem
System:
Windows
Internet-Startseite:
http://www.archi.de

erstellt am: 07. Feb. 2008 11:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für joeycool 10 Unities + Antwort hilfreich

Hallo,
für den Autor z.B. so:
Code:
(vlax-put-property(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))) "AUTHOR" "Henning Jesse")
und dann gibt's z.B. noch:
    Comments
    HyperlinkBase
    Keywords
    RevisionNumber
    Subject
    Title


Grüsse, Henning

[EDIT]
falsch gelesen, Dir ging's ja um die Benutzerdefinierten Eigenschaften....
dann so:

Code:
(vlax-invoke-method(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))) "AddCustomInfo" "Büro" "VoxelManufaktur")

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 07. Feb. 2008 editiert.]

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

joeycool
Mitglied
Ingenieur TGA


Sehen Sie sich das Profil von joeycool an!   Senden Sie eine Private Message an joeycool  Schreiben Sie einen Gästebucheintrag für joeycool

Beiträge: 1455
Registriert: 01.06.2004

MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200

erstellt am: 07. Feb. 2008 12:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

wow, ich versteh zwar nix, aber der code macht genau, was er soll

Kleine Nachfrage: Am Ende der Routine kommt in der Statuszeile "nil". Muss mir das was sagen oder gar nicht ignorieren, wie der berliner sagt?

thanx sagt joeycool

@cadmium: wie ich unter Activx nachschauen soll, weiß ich leider nicht so genau...

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13513
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 07. Feb. 2008 12:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für joeycool 10 Unities + Antwort hilfreich

  
Zitat:
Original erstellt von joeycool:
wow, ich versteh zwar nix, aber der code macht genau, was er soll       

Kleine Nachfrage: Am Ende der Routine kommt in der Statuszeile "nil". Muss mir das was sagen oder gar nicht ignorieren, wie der berliner sagt?

thanx sagt joeycool

@cadmium: wie ich unter Activx nachschauen soll, weiß ich leider nicht so genau...



ja .. deshalb hat dir wohl Henning schon den fertigen codeschnipsel gepostet ...

aber zur Info : mal VLIDE eingeben .. dort denn F1 .. ActivX und VBA-Reference...


und das nil am Ende ist einfach die Funktionsrückgabe...und da hier der Seiteneffekt der interessante ist, kannste es vernachlässigen
------------------
       - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

joeycool
Mitglied
Ingenieur TGA


Sehen Sie sich das Profil von joeycool an!   Senden Sie eine Private Message an joeycool  Schreiben Sie einen Gästebucheintrag für joeycool

Beiträge: 1455
Registriert: 01.06.2004

MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200

erstellt am: 07. Feb. 2008 12:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

uiiih, mit vlide tut sich schon wieder eine neue Welt auf, leider noch recht undurchschaubar  , ich seh da noch ziemlich schwarz.
Bei excel hab ich wenigstens die Grundzüge des vba Festers nachvollziehen können.

Und wo ich jetzt mir das summary-info-object anschauen kann, weiß ich auch noch nicht .

Grundsätzlich stimme ich Dir uneingeschränkt zu, daß ich mit dem vba Schnipsel besser bedient war, obwohl man natürlich schon gerne verstehen würde, was passiert, dann bräuchte man hier nicht dauernd komische Fragen stellen.

Recht herzlichen Dank aber für die Unbedenklichkeitsmeldung vom "Nil"
sagt joeycool

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

joeycool
Mitglied
Ingenieur TGA


Sehen Sie sich das Profil von joeycool an!   Senden Sie eine Private Message an joeycool  Schreiben Sie einen Gästebucheintrag für joeycool

Beiträge: 1455
Registriert: 01.06.2004

MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200

erstellt am: 31. Mrz. 2012 16:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!


 

Zitat:
Original erstellt von wronzky:
falsch gelesen, Dir ging's ja um die Benutzerdefinierten Eigenschaften....
dann so:<BLOCKQUOTE><font size="2" face="Courier New">Code:<HR>(vlax-invoke-method(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))) "AddCustomInfo" "Büro" "VoxelManufaktur")


Hallo zusammen,

der gezeigte Code-Schnipsel funktioniert wunderbar....
Was aber muss ich ändern, wenn ich nicht eine, sondern mehrere Eigenschaften auf diesem Weg übertragen will, jetzt steh ich auf dem Schlauch:

Habe probiert, eine zweite Eigenschaft reinzukopieren, einmal zusammen mit AddCustomInfo, einmal ohne.
Ergebnis: Der Befehl bricht beides mal ab mit der Meldung "zu viele Parameter".

Nächster Versuch: Den ganzen String kopiert, dann läuft der Befehl durch, aber der zweite String überschreibt die Werte vom ersten String, Ergebnis, nur der letze Wert steht da.

Geht das überhaupt, und wie geht es dann richtig??

Joeycool

[Diese Nachricht wurde von joeycool am 31. Mrz. 2012 editiert.]

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 bis ACA 2013
Arcibem
System:
Windows
Internet-Startseite:
http://www.archi.de

erstellt am: 01. Apr. 2012 11:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für joeycool 10 Unities + Antwort hilfreich

da Du keinen Code mitgegeben hast, ist die Analyse des Fehlers nicht möglich.
Grundsätzlich aber: das ganze mehrmals durchführen:
Code:
(vlax-invoke-method(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))) "AddCustomInfo" "Büro" "VoxelManufaktur")
(vlax-invoke-method(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))) "AddCustomInfo" "Bearbeiter" "joeycool")
(vlax-invoke-method(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))) "AddCustomInfo" "[NAME]" "[WERT]")

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

joeycool
Mitglied
Ingenieur TGA


Sehen Sie sich das Profil von joeycool an!   Senden Sie eine Private Message an joeycool  Schreiben Sie einen Gästebucheintrag für joeycool

Beiträge: 1455
Registriert: 01.06.2004

MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200

erstellt am: 02. Apr. 2012 10:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Super, Danke hat geklappt,

für Mitleser:

Vor Hennings Codeschnipsel muss noch ein "^C^C(vl-load-com)" gesetzt werden...

hier noch als Nachtrag meine missglückten Versuche:

^C^C(vl-load-com)(vlax-invoke-method(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))) "AddCustomInfo" "OKF" "-4000" "UKD" "200")

^C^C(vl-load-com)(vlax-invoke-method(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))) "AddCustomInfo" "OKF" "-4000")^C^C(vl-load-com)(vlax-invoke-method(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))) "AddCustomInfo" "UKD" "-400")

Kennt man den richtigen Weg, erkennt man natürlich auch die eigenen Fehler:
Im ersten Fall falsche Syntax, im zweiten Fall wird durch das zweite ^C^C der erste Befehl abgebrochen...

Danke sagt
Joeycool

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13513
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 02. Apr. 2012 10:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für joeycool 10 Unities + Antwort hilfreich

naja ... (vl-load-com) würd ich einmalig in der acad.lsp aufrufen .. danach ist die ActivX-Schnittstelle initialisiert ! ....


------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

joeycool
Mitglied
Ingenieur TGA


Sehen Sie sich das Profil von joeycool an!   Senden Sie eine Private Message an joeycool  Schreiben Sie einen Gästebucheintrag für joeycool

Beiträge: 1455
Registriert: 01.06.2004

MEP/ACAD 2008,..., 2013, 2014, 2015, 2016 und 2017
REVIT MEP 2017
WIN7 64 bit
i7 3,4 GHZ, SSD Platte, 16 GB Ram
NVDIA Quadro K 2200

erstellt am: 02. Apr. 2012 11:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Super Tip,

werde ich gleich einbauen, Dankeschön

Joeycool

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

cad-mkl
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von cad-mkl an!   Senden Sie eine Private Message an cad-mkl  Schreiben Sie einen Gästebucheintrag für cad-mkl

Beiträge: 37
Registriert: 16.04.2012

Bricscad 12 Pro / Nova 9/ Acad 2002

erstellt am: 19. Aug. 2013 10:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für joeycool 10 Unities + Antwort hilfreich

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!


Ich kenne mich mit den VL... Befehlen noch nicht so aus. Kann mir jemand sagen wie mann die Werte aus der "AddCustomInfo" auslesen kann. bzw. einzelne Werte löschen kann? Danke.

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

cad-mkl
Mitglied
Technischer Zeichner


Sehen Sie sich das Profil von cad-mkl an!   Senden Sie eine Private Message an cad-mkl  Schreiben Sie einen Gästebucheintrag für cad-mkl

Beiträge: 37
Registriert: 16.04.2012

Bricscad 12 Pro / Nova 9/ Acad 2002

erstellt am: 19. Aug. 2013 14:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für joeycool 10 Unities + Antwort hilfreich

Habe die Anfrage nach Hier  http://ww3.cad.de/foren/ubb/Forum145/HTML/003961.shtml#000002 verschoben. Im Lisp-Forum ist der besser aufgehoben.

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



Sehen Sie sich das Profil von Bernd P an!   Senden Sie eine Private Message an Bernd P  Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3394
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 13. Dez. 2023 13:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für joeycool 10 Unities + Antwort hilfreich

Servus,

(vlax-invoke-method(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))) "AddCustomInfo" "Büro" "VoxelManufaktur")

Wie ruft man Büro wieder auf, also die Info VoxelManufaktur?

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21932
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 13. Dez. 2023 13:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für joeycool 10 Unities + Antwort hilfreich

mit GetCustomByKey oder in einem sauberen bekannten Haushalt auch GetCustomByIndex
Hilfe [F1] SummaryInfo Object

siehe auch dieses Beispiel:
https://ww3.cad.de/foren/ubb/Forum54/HTML/029082.shtml#000013

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz