Topic: How to Assign Value in Custom Tab in Dwgprops

[MeasureUp]

Can anyone please help?

Here is an example.
Supposed there are tens custom property names in the "Custom" tab in "DWGPROPS" dialogue.
If WeekDay_02 is found in the "Name" column, then Monday is to be added to it's value cell.

Thanks in advance.

[Lee Mac]

The key is the ActiveX SummaryInfo object, specifically the SetCustomByKey method.

[dexus]

You can use the code here and call it with: (getCustomDwgProp "name")

[MeasureUp]

Thanks Lee. your reply is always informative. I will ask again if having more questions.
And thanks to dexus. Your code is a helpful example and I will learn from it.

Both helps are much appreciated.

[MeasureUp]

Hi dexus,
How do I apply "if" statement with (getCustomDwgProp "name") function?
I need to search if the name of WeekDay_02 is found then add Monday to the value.
Thanks.

[Lee Mac]

Here's a very basic example -

Code - Auto/Visual Lisp: [Select]

1. (defun foo ( doc key str / sum )
2.     (setq sum (vla-get-summaryinfo doc))
3.     (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getcustombykey (list sum key 'out))))
4.         (progn (vla-setcustombykey sum key str) t)
5.     )
6. )

Code - Auto/Visual Lisp: [Select]

1. (foo (vla-get-activedocument (vlax-get-acad-object)) "WeekDay_02" "Monday")

[MeasureUp]

Thanks again, Lee.