20231120更-完整源码-字串搜索定位及选择替换--支持*TEXT,*LEADER,DIM..块属性..

天天问

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

gaics

天天问 发表于 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查看结束！")
)

天天问

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

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

cxjcqu

不错

wzg356

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

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

gaics

块内文字 可否加上

wzg356

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

czb203

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

wzg356

补充多重引线"MULTILEADER"

wzg356

20230829完整源码来了