从中获取文本字符串的值

Lee Mac · 发表于 2022-7-6 10:07:13

我想不出为什么ObjectDBX无法用新块（动态，属性化）替换当前块（非动态，非属性化）。。。在代码中提供了一些彻底的规划和条件过滤。

alanjt · 发表于 2022-7-6 10:12:37

Lee Mac · 发表于 2022-7-6 10:15:27

Verbose example:

([color=BLUE]defun[/color] _GetBlockTextIf ( blockcollection blockcondition btextcondition [color=BLUE]/[/color] _getitemincollectionif blockdef btextobj ) ([color=BLUE]defun[/color] _GetItemInCollectionIf ( collection condition )   ([color=BLUE]if[/color]     ([color=BLUE]vl-catch-all-error-p[/color]       ([color=BLUE]vl-catch-all-apply[/color]         ([color=BLUE]function[/color]           ([color=BLUE]lambda[/color] [color=BLUE]nil[/color]             ([color=BLUE]vlax-for[/color] item collection               ([color=BLUE]if[/color] (condition item) ([color=BLUE]progn[/color] ([color=BLUE]setq[/color] result item) ([color=BLUE]exit[/color])))             )           )         )       )     )     result   ) ) ([color=BLUE]setq[/color] blockcondition ([color=BLUE]eval[/color] blockcondition)       btextcondition ([color=BLUE]eval[/color] btextcondition) ) ([color=BLUE]if[/color]   ([color=BLUE]and[/color]     ([color=BLUE]setq[/color] blockdef (_GetItemInCollectionIf blockcollection blockcondition))     ([color=BLUE]setq[/color] btextobj (_GetItemInCollectionIf blockdef btextcondition))   )   ([color=BLUE]vla-get-textstring[/color] btextobj)       ))([color=BLUE]defun[/color] c:test ( [color=BLUE]/[/color] acdoc acblk ) ([color=BLUE]vl-load-com[/color]) ([color=BLUE]setq[/color] acdoc ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color]))       acblk ([color=BLUE]vla-get-blocks[/color] acdoc) ) (_GetBlockTextIf acblk   '([color=BLUE]lambda[/color] ( x ) ([color=BLUE]wcmatch[/color] ([color=BLUE]strcase[/color] ([color=BLUE]vla-get-name[/color] x)) [color=MAROON]"*-BAR"[/color]))   '([color=BLUE]lambda[/color] ( x ) ([color=BLUE]and[/color] ([color=BLUE]wcmatch[/color] ([color=BLUE]vla-get-objectname[/color] x) [color=MAROON]"AcDb*Text"[/color]) ([color=BLUE]wcmatch[/color] ([color=BLUE]vla-get-textstring[/color] x) [color=MAROON]"*=1'-0*"[/color]))) ))

BlackBox · 发表于 2022-7-6 10:18:17

... I had a sneaking suspicion that my Hero would show up.

TMORRIS · 发表于 2022-7-6 10:21:44

That's just sad -
I have 35,000 drawings for two Hydro Electric Dams
maybe 1/5 of those have one of these predefined blocks in them
if I change the block
I have to update all those drawings (with the proper scale bar)

For this exercise (updating a solidworks drawing to Our AutoCAD standards)
I'd rather just explode the scale block
erase all the pieces
and then reinsert it

or
shove some code in there that sets every scale possibility
to get the piece of text I want

alanjt · 发表于 2022-7-6 10:24:09

..............

BlackBox · 发表于 2022-7-6 10:30:43

I can't think of a reason why ObjectDBX would be unable to replace the current block (non-dynamic, non-attributed), with a new block (dynamic, attributed)... provided some thorough planning, and conditional filtering in your code, that is.

[编程交流] 从中获取文本字符串的值

发表回复

精选推荐