[求助将下面程序 改为 将白色虚线改为4号线虚线

jiajun_16888

将下面程序 改为      将白色虚线改为4号线虚线

(defun c:wb (/ sel i sna tb)  ;change color :White-->Bylayer
  (SETVAR "CMDECHO" 0)
  (setq sel (ssget '((62 . 7)))
 i   0
  ) ;_ end of setq
  (if sel
    (repeat (sslength sel)
      (setq sna (ssname sel i)
     tb (entget sna)
     tb (subst (cons 62 256) (assoc 62 tb) tb)
     i (+ i 1)
      )     ;end setq
      (entmod tb)
      (entupd sna)
    )     ;end repeat
    (alert "\nNo Selection!")
  )     ;end if
  (SETVAR "CMDECHO" 1)
  (princ)
) ;_ end of defun

Andyhon

 (subst (cons 62 256) (assoc 62 tb) tb)
==>
 (subst (cons 62 4) (assoc 62 tb) tb)

jiajun_16888

谢谢不过没有达到我的意思   

这样子把白色的实线也变颜色了，我想只变白色虚线的颜色

另外我想把BYLAYER的白色虚线也变成4号色虚线