Hallo allen,
Ik zou graag de dwg properties aanpassen, en dan alleen die op het tabje summary, dus de waardes voor:
Title
Subject
Author
Keywords
Comments
Hyperlink base
Ik gebruik custom properties welke bij iedere tekening verschillen die ik graag wil behouden, dus met de propulate uit de express tools gaat dit niet lukken. Ik kan dit natuurlijk per dwg doen maar liever doe ik dit met een script/lisp. Iemand een idee hoe dit aan te pakken?
Alvast bedankt.
Groet Erik.
(setq dwgPropObject (vla-get-summaryinfo (vla-get-activedocument (vlax-get-acad-object))))
(vla-put-title dwgPropObject "abc")
...
Hallo Roy,
Dank je, werkt perfect! Ik heb alleen een probleempje met de invulling van de Hyperlink base, dan geeft hij no function vla-put-hyperlink. Komt ongetwijfeld door de spatie tussen hyperlink en base.
Grtz Erik.
Haha, stupid me.. Is geen spatie natuurlijk maar ze staan gewoon onder elkaar. Spatie weggehaald uit de lisp en het werk perfect. Roy, nogmaals bedankt!
Grtz Erik.
Ik gebruik dit nu een tijdje en het bevalt prima. Nu wil ik echter een gedeelte van de bestandsnaam invullen bij de properties, het eerste gedeelte van de bestandsnaam wil ik graag ingevuld hebben bij subject. Ik heb dit
(vla-put-subject dwgPropObject ""(nth 0 (splitdwgname))"")
in de lisp opgenomen. Wanneer ik dit doe krijg ik de fout melding "Too many arguments". Weet iemand hoe dit op te lossen en valt?
Groet Erik.
... Je moet aanhalingstekens verwijderen.
Je hebt nu 3 argumenten:
(vla-put-subject dwgPropObject "" (nth 0 (splitdwgname)) "")
Hoi Roy, dat had ik al geprobeerd maar wanneer ik de extra aanhalingstekens verwijder wordt (nth0 (splitdwgname)) als tekst ingevuld en niet het eerste gedeelte van de bestandsnaam. Wanneer ik de code uit je bericht kopieer krijg ik als melding "Too many actual parameters".
Groet Erik.
Ik bedoel:
Je hebt nu 3 argumenten:
(vla-put-subject dwgPropObject "" (nth 0 (splitdwgname)) "")
Maar je mag maar 1 argument gebruiken:
(vla-put-subject dwgPropObject "def")
In jouw situatie:
(vla-put-subject dwgPropObject (nth 0 (splitdwgname)))
Hmm, ik heb niet goed geteld in mijn vorige bijdragen... Ik ben vergeten om het 1e argument (het object) mee te tellen.
Hoi Roy,
super, bedankt! Het werkt perfect!
Groet Erik.