不同

昨天和今天有什么不同呢？

时间赋予了我们每一天的生活同一种面具，给我们所走的每一步穿上同样的鞋，像错纹的唱片，永远停留在同一支歌曲。 它的迷雾把我们的过去、现在和未来融为一体，使我们茫然，难以分辨我们所做的每一件事的真正的差别和意义。 

我们必须努力，去挖掘在那黑色时间之河中的七彩石，以丰富我们一生。

 1995.3.17 西安

测试语法

  
int main()
{
   int a ;
   int b;
   return 0;
} 

  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ColorIndex-to-TrueColor - takes an AutoCAD color index (1 through 255) and returns the equivalent 
;; TrueColor value.
;;
(defun ColorIndex-to-TrueColor ( ci / colorObj TrueColor )
 (vl-load-com)
 (and (setq colorObj (vla-getinterfaceobject (vlax-get-acad-object) "AutoCAD.AcCmColor.16"))
      (>= ci 1)
      (<= ci 255)
      (not (vl-catch-all-error-p 
            (vl-catch-all-apply 'vla-put-ColorIndex (list colorObj ci))
           )
      )
      (setq TrueColor (TrueColor-make 
                          (vla-get-red   colorObj)
                          (vla-get-green colorObj)
                          (vla-get-blue  colorObj)
                      )
      );setq
 );and
 TrueColor
);defun ColorIndex-to-TrueColor