关于API 设置实体颜色的问题

cartman

为什么使用rgb给块设置颜色的时候cad会崩溃?索引颜色使用的时候倒是没啥问题

1. (defun txt-rnd ()         ; 随机数种子
   
2.   (* (rem (getvar "cputicks") 1e3) 1e-3)
   
3. )
   
4. 
   
5. (defun txt-rndx2-list (a b n / lst c)  ; 随机整数表
   
6.   (setq c (- b a))
   
7.   (repeat n
   
8.     (setq lst (cons (fix (+ a (* (txt-rnd) c))) lst))
   
9.   )
   
10. )
    
11. 
    
12. ;改变块颜色
    
13. (defun _blkchgclr (entname / elst n)
    
14.     (setq elst (xdrx_block->entities entname T))
    
15.     (foreach n elst
    
16.       (xdrx_setpropertyvalue n "color" clr)
    
17.     )
    
18.     (xdrx_block_update entname)
    
19. )
    
20. 
    
21. ;随机块颜色（使用下来没问题）
    
22. (defun c:rdmblkclr()
    
23.   (prompt "\n选取要修改颜色的块<退出>:")
    
24.   (setq ss(ssget '((0 . "INSERT")))
    
25.    i 0
    
26.   )
    
27.   (repeat (sslength ss)
    
28.     (setq ename1 (ssname ss i))
    
29.     (setq clr (car (txt-rndx2-list 1 254 1)))
    
30.     (setq i (+ 1 i))
    
31.     (_blkchgclr ename1)
    
32.   )
    
33. )
    
34. 
    
35. ;随机块颜色rgb（使用几次cad就会崩溃）
    
36. (defun c:rdmblkclrrgb()
    
37.   (prompt "\n选取要修改颜色的块<退出>:")
    
38.   (setq ss(ssget '((0 . "INSERT")))
    
39.    i 0
    
40.   )
    
41.   (repeat (sslength ss)
    
42.     (setq ename1 (ssname ss i))
    
43.     (setq rclr (car (txt-rndx2-list 40 200 1))
    
44.           gclr (car (txt-rndx2-list 50 220 1))
    
45.           bclr (car (txt-rndx2-list 30 180 1))
    
46.     )
    
47.     (setq clr (list rclr gclr bclr))
    
48.     (setq i (+ 1 i))
    
49.     (_blkchgclr ename1)
    
50.   )
    
51. )
    

(defun txt-rnd ()         ; 随机数种子<br />   (* (rem (getvar "cputicks") 1e3) 1e-3)<br /> )<br /> <br /> (defun txt-rndx2-list (a b n / lst c)  ; 随机整数表<br />   (setq c (- b a))<br />   (repeat n<br />     (setq lst (cons (fix (+ a (* (txt-rnd) c))) lst))<br />   )<br /> )<br /> <br /> ;改变块颜色<br /> (defun _blkchgclr (entname / elst n)<br />     (setq elst (xdrx_block->entities entname T))<br />     (foreach n elst<br />       (xdrx_setpropertyvalue n "color" clr)<br />     )<br />     (xdrx_block_update entname)<br /> )<br /> <br /> ;随机块颜色（使用下来没问题）<br /> (defun c:rdmblkclr()<br />   (prompt "\n选取要修改颜色的块<退出>:")<br />   (setq ss(ssget '((0 . "INSERT")))<br />    i 0<br />   )<br />   (repeat (sslength ss)<br />     (setq ename1 (ssname ss i))<br />     (setq clr (car (txt-rndx2-list 1 254 1)))<br />     (setq i (+ 1 i))<br />     (_blkchgclr ename1)<br />   )<br /> )<br /> <br /> ;随机块颜色rgb（使用几次cad就会崩溃）<br /> (defun c:rdmblkclrrgb()<br />   (prompt "\n选取要修改颜色的块<退出>:")<br />   (setq ss(ssget '((0 . "INSERT")))<br />    i 0<br />   )<br />   (repeat (sslength ss)<br />     (setq ename1 (ssname ss i))<br />     (setq rclr (car (txt-rndx2-list 40 200 1))<br />           gclr (car (txt-rndx2-list 50 220 1))<br />           bclr (car (txt-rndx2-list 30 180 1))<br />     )<br />     (setq clr (list rclr gclr bclr))<br />     (setq i (+ 1 i))<br />     (_blkchgclr ename1)<br />   )<br /> )<br />

newer

cartman 发表于 2017-6-21 14:50

以后有API的问题，请单独发帖，不要发在某个帖子下面，不利于发现处理。

看你上面的代码，随机整数的，API也有函数，不用你自己写了

(xdrx_math_rand 200)  ----- 返回 0-200之间的随机数
(xdrx_math_rand 200 1000) ----  返回 200-1000之间的随机整数

cartman

newer 发表于 2017-6-21 15:05

好的，以后会注意

XDSoft

cartman 发表于 2017-6-21 15:08

由于ARX的一些固定的设定，对一些真彩色的点 第一位整数定义有歧义，所以，你的代码先把其中一个颜色定义成实数，ARX就当点来处理了。

这样改下，先
改下这行
(setq clr (list  rclr gclr  bclr))
为：
(setq clr (list (* 1.0 rclr) gclr  bclr))

1. (defun c:rdmblkclrrgb ()
   
2.   (prompt "\n选取要修改颜色的块<退出>:")
   
3.   (setq        ss (ssget '((0 . "INSERT")))
   
4.         i  0
   
5.   )
   
6.   (repeat (sslength ss)
   
7.     (setq ename1 (ssname ss i))
   
8.     (setq rclr (car (txt-rndx2-list 40 200 1))
   
9.           gclr (car (txt-rndx2-list 50 220 1))
   
10.           bclr (car (txt-rndx2-list 30 180 1))
    
11.     )
    
12.     (setq clr (list (* 1.0 rclr) gclr  bclr))
    
13.     (setq i (+ 1 i))
    
14.     (_blkchgclr ename1)
    
15.   )
    
16. )
    
17. 
    

(defun c:rdmblkclrrgb ()<br />   (prompt "\n选取要修改颜色的块<退出>:")<br />   (setq        ss (ssget '((0 . "INSERT")))<br />         i  0<br />   )<br />   (repeat (sslength ss)<br />     (setq ename1 (ssname ss i))<br />     (setq rclr (car (txt-rndx2-list 40 200 1))<br />           gclr (car (txt-rndx2-list 50 220 1))<br />           bclr (car (txt-rndx2-list 30 180 1))<br />     )<br />     (setq clr (list (* 1.0 rclr) gclr  bclr))<br />     (setq i (+ 1 i))<br />     (_blkchgclr ename1)<br />   )<br /> )<br /> <br />

另外，对于块，API有优化，设置实体属性时候，对于块，如果最后给参数T，那么自动嵌套设置所有，所以，你的代码可以优化

1. (defun c:rdmblkclrrgb ()
   
2.   (prompt "\n选取要修改颜色的块<退出>:")
   
3.   (setq        ss (ssget '((0 . "INSERT")))
   
4.         i  0
   
5.   )
   
6.   (repeat (sslength ss)
   
7.     (setq ename1 (ssname ss i))
   
8.   (setq        rclr (xdrx_math_rand 40 200)
   
9.         gclr (xdrx_math_rand 50 220)
   
10.         bclr (xdrx_math_rand 30 180)
    
11.   )
    
12. 
    
13.     (setq clr (list (* 1.0 rclr)  1.0 gclr  1.0 bclr))
    
14.     (setq i (+ 1 i))
    
15.     (xdrx_setpropertyvalue ename1 "color" (list clr t))
    
16.   )
    
17. )
    
18. 
    

(defun c:rdmblkclrrgb ()<br />   (prompt "\n选取要修改颜色的块<退出>:")<br />   (setq        ss (ssget '((0 . "INSERT")))<br />         i  0<br />   )<br />   (repeat (sslength ss)<br />     (setq ename1 (ssname ss i))<br />   (setq        rclr (xdrx_math_rand 40 200)<br />         gclr (xdrx_math_rand 50 220)<br />         bclr (xdrx_math_rand 30 180)<br />   )<br /> <br />     (setq clr (list (* 1.0 rclr)  1.0 gclr  1.0 bclr))<br />     (setq i (+ 1 i))<br />     (xdrx_setpropertyvalue ename1 "color" (list clr t))<br />   )<br /> )<br /> <br />

不用去单独额外在调用你定义的函数去嵌套处理了。而且这个函数自动更新，不用调用 xdrx_block_update

另外，由于你是对选择集操作，如果你想选择的所有块都设置一个颜色的话，API还有优化，不用你去写遍历选集，直接调用 xdrx_entity_setproperty 函数对选集操作，你的代码继续优化为：

1. (defun c:rdmblkclrrgb ()
   
2.   (prompt "\n选取要修改颜色的块<退出>:")
   
3.   (setq        ss (ssget '((0 . "INSERT")))
   
4.         i  0
   
5.   )
   
6.   (setq        rclr (xdrx_math_rand 40 200)
   
7.         gclr (xdrx_math_rand 50 220)
   
8.         bclr (xdrx_math_rand 30 180)
   
9.   )
   
10.     (setq clr (list (* 1.0 rclr)  1.0 gclr  1.0 bclr))
    
11.   (xdrx_entity_setproperty ss "color" (list clr t))
    
12. )
    
13. 
    

(defun c:rdmblkclrrgb ()<br />   (prompt "\n选取要修改颜色的块<退出>:")<br />   (setq        ss (ssget '((0 . "INSERT")))<br />         i  0<br />   )<br />   (setq        rclr (xdrx_math_rand 40 200)<br />         gclr (xdrx_math_rand 50 220)<br />         bclr (xdrx_math_rand 30 180)<br />   )<br />     (setq clr (list (* 1.0 rclr)  1.0 gclr  1.0 bclr))<br />   (xdrx_entity_setproperty ss "color" (list clr t))<br /> )<br /> <br />

其实，你这个应用，把嵌套所有实体颜色设置为BYLOCK， 然后只设置INSERT的颜色为你想要的就可以了。这样方便以后你设置颜色。

csharp

byblock bylayer字面意思好理解，实际应用有门道的

sh_h

XDSoft 发表于 2017-6-21 16:10

老大 ，不用遍历 那么 setq i 0 就可以省略了吧？

cartman

XDSoft 发表于 2017-6-21 16:10

感谢，之前的代码修改以后没问题了，但是我后来又写了些代码，rgb第一位是整数，但是不会像之前那样导致cad崩溃，这是为什么呢？

cartman

代码如下：

1. (defun c:chgblkclr()
   
2.   (if (not clr)
   
3.     (setq clr "256")
   
4.   )
   
5.   (setq clr1 (getstring (strcat "\n颜色号<" clr ">(输入颜色索引号或者输入r,g,b):")))
   
6.   (if (not (= (ASCII clr1) 0))
   
7.     (setq clr clr1)
   
8.   )
   
9.   (setq clrrgb (strcat "rgb" clr))
   
10.   (setq clrstr (XD::String:MatchNumAfter clrrgb "rgb" nil))
    
11.   (setq clrnum nil)
    
12.   (setq clrnum (mapcar
    
13.                    '(lambda (x)
    
14.                       (atoi x)
    
15.                     )
    
16.                    clrstr
    
17.                )
    
18.   )
    
19. 
    
20.   (cond
    
21.     ((= (length clrnum) 3)
    
22.       (if (or (> (car clrnum) 255)
    
23.               (< (car clrnum) 1)
    
24.               (> (cadr clrnum) 255)
    
25.               (< (cadr clrnum) 1)
    
26.               (> (caddr clrnum) 255)
    
27.               (< (caddr clrnum) 1)
    
28.           )                        
    
29.         (prompt "错误!rgb颜色号必须是1-255之间的数字")
    
30.         (progn
    
31.           (prompt "\n选取要修改颜色的块<退出>:")
    
32.           (setq ss (ssget '((0 . "INSERT"))))
    
33.           (xdrx_entity_setproperty ss "color" (list clrnum t))
    
34.         )
    
35.       )
    
36.     )
    
37. 
    
38.     ((= (length clrnum) 1)
    
39.       (if (or (> (car clrnum) 255)
    
40.               (< (car clrnum) 1)
    
41.           )
    
42.         (prompt "错误!颜色号索引必须是1-255之间的数字")
    
43.         (progn
    
44.           (prompt "\n选取要修改颜色的块<退出>:")
    
45.           (setq ss (ssget '((0 . "INSERT"))))
    
46.           (setq clrnum (car clrnum))
    
47.           (xdrx_entity_setproperty ss "color" (list clrnum t))
    
48.         )
    
49.       )
    
50.     )
    
51. 
    
52.     (t
    
53.       (prompt (strcat "\n颜色" clr "格式错误，请重新输入"))
    
54.     )
    
55.   )
    
56. )

(defun c:chgblkclr()<br />   (if (not clr) <br />     (setq clr "256")<br />   )<br />   (setq clr1 (getstring (strcat "\n颜色号<" clr ">(输入颜色索引号或者输入r,g,b):")))<br />   (if (not (= (ASCII clr1) 0)) <br />     (setq clr clr1)<br />   )<br />   (setq clrrgb (strcat "rgb" clr))<br />   (setq clrstr (XD::String:MatchNumAfter clrrgb "rgb" nil))<br />   (setq clrnum nil)<br />   (setq clrnum (mapcar <br />                    '(lambda (x)<br />                       (atoi x) <br />                     )<br />                    clrstr<br />                )<br />   )<br /> <br />   (cond<br />     ((= (length clrnum) 3)<br />       (if (or (> (car clrnum) 255)<br />               (< (car clrnum) 1)<br />               (> (cadr clrnum) 255)<br />               (< (cadr clrnum) 1)<br />               (> (caddr clrnum) 255)<br />               (< (caddr clrnum) 1)<br />           )                        <br />         (prompt "错误!rgb颜色号必须是1-255之间的数字")<br />         (progn<br />           (prompt "\n选取要修改颜色的块<退出>:")<br />           (setq ss (ssget '((0 . "INSERT"))))<br />           (xdrx_entity_setproperty ss "color" (list clrnum t)) <br />         )<br />       )<br />     )<br /> <br />     ((= (length clrnum) 1)<br />       (if (or (> (car clrnum) 255)<br />               (< (car clrnum) 1)<br />           ) <br />         (prompt "错误!颜色号索引必须是1-255之间的数字")<br />         (progn<br />           (prompt "\n选取要修改颜色的块<退出>:")<br />           (setq ss (ssget '((0 . "INSERT"))))<br />           (setq clrnum (car clrnum))<br />           (xdrx_entity_setproperty ss "color" (list clrnum t)) <br />         )<br />       )<br />     )<br /> <br />     (t<br />       (prompt (strcat "\n颜色" clr "格式错误，请重新输入"))<br />     )<br />   )<br /> )

cartman

这段代码用来改块颜色，可以输入索引号，也可以输入rgb，比如12,45,67，但是代码有点缺陷，比如输入的颜色带小数，如12.3,45.6,78.9，就会出错，导致后面改颜色输入rgb颜色没反应，但是如果再输入一次索引号颜色，比如4，然后再输入rgb颜色就又能使用了，我不知道哪里出错了。

newer

cartman 发表于 2017-6-28 15:47

试试把  

1. 
   
2. (setq clrnum (mapcar
   
3.                    '(lambda (x)
   
4.                       (atoi x)
   
5.                     )
   
6.                    clrstr
   
7.                )
   
8.   )
   

<br /> (setq clrnum (mapcar <br />                    '(lambda (x)<br />                       (atoi x) <br />                     )<br />                    clrstr<br />                )<br />   )<br />

改成：

1. (setq clrnum (mapcar
   
2.                    '(lambda (x)
   
3.                       (atof x)
   
4.                     )
   
5.                    clrstr
   
6.                )
   
7.   )
   

(setq clrnum (mapcar <br />                    '(lambda (x)<br />                       (atof x) <br />                     )<br />                    clrstr<br />                )<br />   )<br />

看看。

另外，你改什么TAB了？

cartman

newer 发表于 2017-6-28 16:13

就是按tab键会缩进一段距离，我把那个距离改了，然后复制过来，格式全乱了，我没仔细看就发上来了，不过我已经手动把格式调整好了，我调整完了就把那句话给删了，但是刚删完你就回复我了。。。