Community
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<EC-CAD> wrote in messageHere's
href="news:6097476@discussion.autodesk.com">news:6097476@discussion.autodesk.com...
one that sets the values to " "
(defun ClearCustomInfo (/ Info
Num)
(vl-load-com)
(setq *acad*
(vlax-get-acad-object))
(setq *doc* (vlax-get *acad*
'ActiveDocument))
(vlax-property-available-p *doc*
'SummaryInfo)
(setq Info (vlax-get *doc* 'SummaryInfo))
(setq
Num (vla-NumCustomInfo Info))
(while (< Num
11)
(vla-AddCustomInfo Info " " " ")
(setq Info (vlax-get *doc*
'SummaryInfo))
(setq Num (vla-NumCustomInfo
Info))
);while
(setq Idex 0)
(repeat
10
(vla-SetCustomByIndex Info Idex " " " ")
(setq Idex (+ Idex
1))
);
repeat
);defun
Bob
Scot-65
A gift of extraordinary Common Sense does not require an Acronym Suffix to be added to my given name.
Can't find what you're looking for? Ask the community or share your knowledge.