天天问 发表于 2023-8-24 14:57:19

想在gettextdata函数里面，把多重引线MULTILEADER加上，但是不知道如何加，老师可以研究一下吗

gaics 发表于 2023-8-24 15:05:59

天天问 发表于 2023-8-24 14:51
我使用的时候也有这个问题，运行后自动窗口自动缩小了，标记框都找不到

替换一下这个函数，我把缩放改为字高的10倍
(defun grdrawboxs (boxs ys / n cmd ps p hi)
(setq        n   0
        cmd (if        command-s
              command-s
              vl-cmdf
          )
)
(while (and (setq ps (nth n boxs))
              (equal "" (getstring "\n输入空格或回车查看:"))
       )
    (setq p (car ps))
    (setq hi (* 10 (distance p (car (reverse ps)))))
    (cmd "_zoom"
       (mapcar '- p (list hi hi))
       (mapcar '+ p (list hi hi))
    )
    (mapcar (function (lambda (a b) (grdraw a b ys)))
          ps
          (cdr ps)
    )
    (grdraw (car ps) (last ps) ys)
    (setq n (1+ n))
)
(alert "\n查看结束！")
)

天天问 发表于 2023-8-24 15:08:23

gaics 发表于 2023-8-24 15:05
替换一下这个函数，我把缩放改为字高的10倍
(defun grdrawboxs (boxs ys / n cmd ps p hi)
(setq        n   ...

谢谢老师，您这个方案比题主给的手输数字方案更便捷

cxjcqu 发表于 2023-8-25 12:55:42

不错

wzg356 发表于 2023-8-25 16:50:23

天天问 发表于 2023-8-24 14:57
想在gettextdata函数里面，把多重引线MULTILEADER加上，但是不知道如何加，老师可以研究一下吗

标注类的文字都可以加，过些天吧

gaics 发表于 2023-8-26 09:11:22

块内文字 可否加上

wzg356 发表于 2023-8-27 12:26:07

20230827更-字符子串查找搜索精确定位及替换--与find相似

czb203 发表于 2023-8-28 16:53:48

这个挺不错，感谢大佬的分享

wzg356 发表于 2023-8-28 17:39:51

补充多重引线"MULTILEADER"

wzg356 发表于 2023-8-29 12:01:56

20230829完整源码来了
页: 1 2 [3] 4 5 6 7
查看完整版本: 20231120更-完整源码-字串搜索定位及选择替换--支持*TEXT,*LEADER,DIM..块属性..