qiwuliao 发表于 2023-4-12 08:13:14

快速选择相同文本or快速选择文本图元

自己试试，第一次发帖，不会搞动图。
(defun C:T1()
                (sssetfirst nil (ssget (list (CONS 1 (cdr(assoc 1 (entget(car(entsel"选择对象")))))))))
)
(defun C:T2()
                (sssetfirst nil (ssget (list (CONS 0 "*TEXT"))))
)

飞雪神光 发表于 2023-4-12 08:28:20

这种代码属实没有必要发上来了啊！

bloodtempt 发表于 2023-4-12 08:29:38

飞雪神光 发表于 2023-4-12 08:28
这种代码属实没有必要发上来了啊！

不能这么说鼓励新手才对

aws 发表于 2023-4-12 08:33:06

套了这么多层。。。

liuhe 发表于 2023-4-12 09:06:16

建议用find命令，贼好用

cghdy 发表于 2023-4-12 09:47:25

书上不鼓励这么写

e2002 发表于 2023-4-12 09:49:50

如上面 aws 的回复：“套了这么多层。。。”

个人觉得有必要说说coding的一般规范，代码不是非要弄到很少就是高妙，绝大多数的实际编程工作状态下，代码的简洁、逻辑、层次、便于理解/查错/改进才是我们要遵循的原则。

不多不少准确的定义内部变量、赋值、内部函数、返回值、错误捕捉与处理等才是健康优质代码的基础。

liuhe 发表于 2023-4-12 10:14:28

e2002 发表于 2023-4-12 09:49
如上面 aws 的回复：“套了这么多层。。。”

个人觉得有必要说说coding的一般规范，代码不是非要弄到很 ...

主要是entsel如过是空，bug立马出来了。需要判断entsel的结果

qiwuliao 发表于 2023-4-12 11:22:25

liuhe 发表于 2023-4-12 09:06
建议用find命令，贼好用

find在浩辰CAD里面速度不给力，中望倒是挺快，但是常用浩辰比较多，所以才用这个代码

菜鸟初来乍到 发表于 2023-4-13 08:02:39

明经因你们而精彩
页: [1] 2
查看完整版本: 快速选择相同文本or快速选择文本图元