批量数字范围变色

asd19400

直接上图，对话框设置大概如下图思路，至少做5组可以选择的范围，如果能做猫老师的那种动态对话框肯定是最好的。最好能判断下错误，实在不行，将就用用了~，
下面这段代码是以前收集的，不过只能一个一个的操作，比较麻烦

2. (defun c:FB ( / a1 k1 k2 k3 ss)
   
3.    (vL-Load-com)
   
4.    (setq ss (ssget '((0 . "text"))))
   
5.    (setq K1 (getreal "\n 下限<200>："))
   
6.    (if (null K1) (setq K1 200))
   
7.    (setq K2 (getreal "\n 上限<300>："))
   
8.    (if (null K2) (setq K2 300))
   
9.     (setq K3 (getreal "\n 输入颜色代号<1>："))
   
10.    (if (null K3) (setq K3 1))
    
11. 
    
12. (foreach x (ss->list ss)
    
13.   (setq a1 (atof (Vlax-Get (Vlax-Ename->Vla-Object x) 'TextString )))
    
14.     (IF(< k1 a1 k2) (ch_dxf  x 62 (FIX K3))))
    
15.   (princ)
    
16.   )
    
17.    
    
18. (defun ss->list (ss / i lst)
    
19.   (setq i -1)
    
20.   (repeat (sslength ss)
    
21.     (setq lst (append
    
22.                 lst
    
23.                 (list (ssname ss (setq i (1+ i))))
    
24.               )
    
25.     )
    
26.   )
    
27. )
    
28.    
    
29. (defun ch_dxf  (en num ch / old_num new_num ent)
    
30.     (if  (setq ent     (entget en)
    
31.         new_num (cons num ch)
    
32.         old_num (assoc num ent)
    
33.   )
    
34.       (entmod (subst new_num old_num ent))
    
35.       (entmod (reverse (cons new_num (reverse ent))))
    
36.     ))

(defun c:FB ( / a1 k1 k2 k3 ss)<br />    (vL-Load-com)<br />    (setq ss (ssget '((0 . "text"))))<br />    (setq K1 (getreal "\n 下限<200>："))<br />    (if (null K1) (setq K1 200))<br />    (setq K2 (getreal "\n 上限<300>："))<br />    (if (null K2) (setq K2 300))<br />     (setq K3 (getreal "\n 输入颜色代号<1>："))<br />    (if (null K3) (setq K3 1))<br /> <br /> (foreach x (ss->list ss)<br />   (setq a1 (atof (Vlax-Get (Vlax-Ename->Vla-Object x) 'TextString )))<br />     (IF(< k1 a1 k2) (ch_dxf  x 62 (FIX K3))))<br />   (princ)<br />   )<br />     <br /> (defun ss->list (ss / i lst)<br />   (setq i -1)<br />   (repeat (sslength ss)<br />     (setq lst (append<br />                 lst<br />                 (list (ssname ss (setq i (1+ i))))<br />               )<br />     )<br />   )<br /> )<br />    <br /> (defun ch_dxf  (en num ch / old_num new_num ent)<br />     (if  (setq ent     (entget en)<br />         new_num (cons num ch)<br />         old_num (assoc num ent)<br />   ) <br />       (entmod (subst new_num old_num ent))<br />       (entmod (reverse (cons new_num (reverse ent))))<br />     ))

xyp1964

;; 区域自定义

菡萏

用OpenDcl来做这个对话框很容易！

asd19400

菡萏 发表于 2014-10-21 20:43
用OpenDcl来做这个对话框很容易！

希望出手搞下

asd19400

xyp1964 发表于 2014-10-30 21:38
;; 区域自定义

1~7应该是一个颜色，这个地方是不是有点问题，另外最好能自定义颜色，颜色太浅了 看起来挺折腾的

doro

xyp1964 发表于 2014-10-30 21:38
;; 区域自定义

哪里可以下到院长的新函数库

linsenwd

xyp1964 发表于 2014-10-21 19:46
;; 区域自定义

大神你好
你写的程序 tt(批量数字范围变色).LSP
输入显示
; 错误: no function definition: XYP-CMDLA0