掩码TXT或MTXT lsp=>VB？？？S
你好Je chercheátransformer le Lisp en VB et j'ai du mal avec GetData SetData et DXF Code 0“TEXTMULT”。。。。par la选择集。
Peutêtre avec un example，mais je ne trouve pas
代码LISP en VB：
你好
我正在寻找在VB中转换lisp，我在GetData和SetData DXF代码0“MTEXT”方面有问题。。。。通过选择集。
可以举个例子，但我没有发现
将LISP代码转换为VB：
（defun c:MASKTXT（/ss n txt）（vl load com）（if（setq ss（ssget’（（0。“MTEXT”）））（progn（vla StartundoMark（vla get Activedocument（vlax get acad object）））（重复（setq n（sslength ss））（if（=1（length lst））（progn（setq txt（vlax ename->vla object（ssname ss（setq n（1-n）））））））（vla put BackgroundFill txt:vlax false））；；（441.14529772）（421.16777215）（441.0）（progn（setq txt（entget）（ssname ss（setq n（1-n）ЮЮ）））（entmod（append（vl remove if）（lambda（x）（或（member（car x）”（90 63 421 45））（
页:
[1]