改变尺寸颜色

726613

此程序改变尺寸颜色，为什么 无法使尺寸变颜色。问题出现在哪？请高手指点，谢谢


(defun c:dc (/ st n len a1 a2 a3 color ss)
  (setq st (ssget '((0 . "DIMENSION")))
        ss (ssadd))
  (if (/= st nil)
    (progn
      (setq n 0)
      (setq len (sslength st))
      (repeat len
  (setq a1 (ssname st n)
        a2 (entget a1)
        a3 (cdr (assoc 1 a2)) )
(if (/= a3 "")
     (ssadd a1 ss) )
       (setq n (1+ n)))
      (setq len (sslength ss))
      (if (/= len 0)
(progn
   (setq len (itoa len))
   (princ (strcat "\n*** " len " 尺寸需改变颜色 ***"))
   (setq color(getstring "\n-->请选取改变颜色类别:
             1红色、2黄色、3绿色、4蓝绿色、5蓝色、6红紫色、
             7白色或其它颜色:"))
   (if (= color "") (setq color "bylayer"))
          (command "change" ss "" "p" "c" color ""))
      
)
     
     (princ)
     )   
  )
)

x_s_s_1

测试了没问题，这个程序是您自己写的还是别人的？是人工修改的尺寸修改颜色

2602352901

试用了。确实不行

726613

x_s_s_1 发表于 2013-5-5 09:52
测试了没问题，这个程序是您自己写的还是别人的？是人工修改的尺寸修改颜色

谢谢您的指教

x_s_s_1

726613 发表于 2013-5-5 13:50
谢谢您的指教

程序还有一点没有考虑就是<>的情况，修改为红色的部位
(defun c:dc (/ st n len a1 a2 a3 color ss)
  (setq st (ssget '((0 . "DIMENSION")))
        ss (ssadd))
  (if (/= st nil)
    (progn
      (setq n 0)
      (setq len (sslength st))
      (repeat len
  (setq a1 (ssname st n)
        a2 (entget a1)
        a3 (cdr (assoc 1 a2)) )
(if (or(/= a3 "")(/= a3 "<>"));此处代码为判断是否人工修改
       (ssadd a1 ss) )
       (setq n (1+ n)))
      (setq len (sslength ss))
      (if (/= len 0)
(progn
   (setq len (itoa len))
   (princ (strcat "\n*** " len " 尺寸需改变颜色 ***"))
   (setq color(getstring "\n-->请选取改变颜色类别:
             1红色、2黄色、3绿色、4蓝绿色、5蓝色、6红紫色、
             7白色或其它颜色:"))
   (if (= color "") (setq color "bylayer"))
          (command "change" ss "" "p" "c" color ""))
      
)
     
     (princ)
     )   
  )
)

726613

x_s_s_1 发表于 2013-5-6 09:22
程序还有一点没有考虑就是的情况，修改为红色的部位
(defun c:dc (/ st n len a1 a2 a3 color ss)
  (s ...

谢谢您，终于可以用

773786668

学习下

834798417

谢谢高手指点，学习了

alexmai

...
  (if (= color "") (setq color "bylayer"))
....

如果是真彩色 (255,0,0)
这句应该怎样写