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 ...

:handshake厉害，刚好我要用到，改造了一下又是一个趁手的功能。
页: [1]
查看完整版本: 标注文字、单行文字、多行文字自动加括号