How to separate bloks?
How to separate bloks?
(OP)
I use VBA to create block with attributes, but Autocad Map 2000 mixed new one with old one. What can I do?
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
|
RE: How to separate bloks?
"Everybody is ignorant, only on different subjects." — Will Rogers
RE: How to separate bloks?
Set blockTablo = ThisDrawing.Blocks.Add(insertPoint, blockName)
Then I add attributes.
Set blockTabloAttrib = blockTablo.AddAttribute(0.15, mode, "òðàôîïîñò", blockPoint, "ÒÏ", attrTrafopost)
All of source is working fine until now. The new block gets a part of old one. And the attributes are mixed. The value of attributes are written in cyrillic.
RE: How to separate bloks?
"Everybody is ignorant, only on different subjects." — Will Rogers
RE: How to separate bloks?
ObjectCount = ThisDrawing.Blocks.count
blockName = "ELTABLO_" + Str(ObjectCount + 1)
end it was worked.