[源码]一个超级文字刷程序 - 寻求高手共同完善

xj_ccad

不错，学习学习

石井鱼

很好的工具，谢谢楼主大人

liao1968

学习，下载来试式！

liu_kunlun

很有实用价值的程序。

狂刀无痕

不知道CAD那个格式刷MATCHPROP命令的多选又无需确定是怎么实现的。

(ssget ":s")

caoyin

2. ;;无痕问这个问题我有点吃惊，下面的程序可以实现——是受了你的程序的启发，就是 ERRNO 的应用
3. ;; (lt:ssget-for msg flt fun)
4. ;; 参考无痕的程序
5. ;; [功能] 获取选择集并实时进行指定函数的操作---没加入出错处理
6. ;; [参数] msg---提示信息(STR)，如果nil时则显示缺省为"\n选择对象: "
7. ;;        flt---等同于 ssget 函数图元过滤表
8. ;;        fun---要对所选对象执行的函数
9. ;; [返回] 成功->选择集，反之->nil
10. ;; [测试]
11. ;|
12. (lt:ssget-for "\n删除对象:" nil 'entdel)
13. (defun c:tt ()
14.   (lt:ssget-for "选择要改变颜色的直线:"
15.                 '((0 . "line"))
16.                 '(lambda (x)
17.                   (if (or (>= col 256) (not col)) (setq col 0))
18.                     (vla-put-color (vlax-ename->vla-object x) (setq col (1+ col)))
19.                 )
20.   )
21. )
22. |;
23. (defun LT:SSGET-FOR (MSG FLT FUN / FLAG NOM N SS SS2 E)
24.   (setq NOM (getvar "NOMUTT") FLAG T)
25.   (if MSG (setq MSG (strcat "\r" MSG))
26.           (setq MSG "\r选择对象: ")
27.   )
28.   (setvar "NOMUTT" 1)
29.   (while FLAG
30.     (princ MSG)
31.     (if (setq SS (ssget ":S" FLT))
32.       (progn
33.         (or SS2 (setq SS2 (ssadd)))
34.         (repeat (setq N (sslength SS))
35.           (setq E (ssname SS (setq N (1- N))))
36.           (if FUN (apply FUN (list E)))
37.           (ssadd E SS2)
38.         )
39.       )
40.     )
41.     (if (= (getvar "ERRNO") 52)
42.       (setq FLAG nil)
43.     )
44.   )
45.   (setvar "NOMUTT" NOM)
46.   SS2
47. )

;;无痕问这个问题我有点吃惊，下面的程序可以实现——是受了你的程序的启发，就是 ERRNO 的应用 ;; (lt:ssget-for msg flt fun) ;; 参考无痕的程序 ;; [功能] 获取选择集并实时进行指定函数的操作---没加入出错处理 ;; [参数] msg---提示信息(STR)，如果nil时则显示缺省为"\n选择对象: " ;;        flt---等同于 ssget 函数图元过滤表 ;;        fun---要对所选对象执行的函数 ;; [返回] 成功->选择集，反之->nil ;; [测试] ;| (lt:ssget-for "\n删除对象:" nil 'entdel) (defun c:tt ()   (lt:ssget-for "选择要改变颜色的直线:"                 '((0 . "line"))                 '(lambda (x)                   (if (or (>= col 256) (not col)) (setq col 0))                     (vla-put-color (vlax-ename->vla-object x) (setq col (1+ col)))                 )   ) ) |; (defun LT:SSGET-FOR (MSG FLT FUN / FLAG NOM N SS SS2 E)   (setq NOM (getvar "NOMUTT") FLAG T)   (if MSG (setq MSG (strcat "\r" MSG))           (setq MSG "\r选择对象: ")   )   (setvar "NOMUTT" 1)   (while FLAG     (princ MSG)     (if (setq SS (ssget ":S" FLT))       (progn         (or SS2 (setq SS2 (ssadd)))         (repeat (setq N (sslength SS))           (setq E (ssname SS (setq N (1- N))))           (if FUN (apply FUN (list E)))           (ssadd E SS2)         )       )     )     (if (= (getvar "ERRNO") 52)       (setq FLAG nil)     )   )   (setvar "NOMUTT" NOM)   SS2 )

dbx511

好象不能用啊,只能选择源目标字,之后就没反应了.我的cad版本是2004

淮上

liminnet发表于2009-8-20 10:02:00对于无痕前辈提供的 ERRNO 变量的用法，其实有一个BUG在里面，他没发现，我测试出来啦

比无痕厉害，佩服！！说说 bug 是什么？让我也学学。