标注文字、单行文字、多行文字自动加括号

s1059277510 · 发表于 2017-8-17 21:06:50

输入命令ref,选择文字，自动加括号

LIULISHENG · 发表于 2017-9-25 09:44:45

LIULISHENG · 发表于 2017-9-25 11:38:28

学习一下顶

yangchao2005090 · 发表于 2019-6-7 08:03:04

只能单选，如果能框选就完美了

xj6019 · 发表于 2020-1-5 10:19:29

老师能改成框选吗？谢谢！！

muwind · 发表于 2020-4-12 16:17:54

(defun c:indim(/ ss edat getdim N )
  (while  (setq ss (ssget (list (cons 0 "dimension"))))
  (repeat (setq N (sslength SS))
   (setq getdim (ssname ss (setq N (1- N))))
   (if (or (wcmatch (cdr (assoc 1 (entget getdim))) "*<>*,*<>,<>*")
            (= (cdr (assoc 1 (entget getdim))) ""  ))
      (setq edat ( strcat "<>" "(内空)" ))
      (setq edat ( strcat ( getdimtext getdim)  "(内空)"))
   )
   (entmod (subst (cons 1 edat) (assoc 1 (entget getdim))  (entget getdim) ))
)
)
(princ "修改完成")
)
这是我10多年前写的给尺寸增加内空的代码，木有明经币，不知道楼主写的什么样的，楼上几位可以参考下修改原代码

l982414603 · 发表于 2020-7-11 18:49:15

Ming131564 · 发表于 2023-1-18 10:16:47

xj6019 发表于 2020-1-5 10:19
老师能改成框选吗？谢谢！！

论坛有程序可以给标注和文字增加前后缀，那个使用用途更广泛，支持多选框选

vladimir · 发表于 2023-2-3 10:11:18

非常不错的代码，谢谢楼主分享啊啊。

lailaifa · 发表于 2023-4-14 10:38:41

muwind 发表于 2020-4-12 16:17
(defun c:indim(/ ss edat getdim N )
(while (setq ss (ssget (list (cons 0 "dimension"))))
(rep ...

厉害，刚好我要用到，改造了一下又是一个趁手的功能。

账号		自动登录	找回密码
密码			注册

标注文字、单行文字、多行文字自动加括号

本帖子中包含更多资源