请问如何将autocad中的颜色转换成RGB颜色的Hex表达式？

abent

我想将所读取图形对象的color值(0-255)转换成十六进制的RGB颜色，请问是否有什么函数或者有什么计算方法?

还想请教：我想把图形对象的坐标使用反坐标表示出来，即坐标原点为某个区域的左上点，向右为x轴正向，向下为y轴正向，请问我该怎样转换图形对象的坐标?还请大侠们指教一二，谢谢！我这样做的目的是想将DWG图象在Web上以SVG或者VML的形式显示出来，不知道有没有这样的工具或者软件，也请大侠们点拨一二，谢谢！

abent

龙龙仔

dos_acitorgb

Converts an AutoCAD Color Index (ACI) value to a Red-Green-Blue (RGB) color value.

Syntax
(dos_acitorgb aci-value)
Parameters
aci-value
An integer between 1 and 255 that represents an ACI color value.



Returns
A list of three integers representing an RGB color value if successful.

nil on error.

Example
Command: (dos_acitorgb 1)

(255 0 0)

Command: (dos_acitorgb 128)

(0 76 57)


;;;十进制转换为其它进制
;;;-------------------------------------------------------------------
  (defun DECIMALTOBASE (BASE VAL / RESULT TMP)
    (setq RESULT "")
    (while (> VAL 0)
      (setq RESULT (strcat (if (> (setq TMP (rem VAL BASE)) 9)
                             (chr (+ TMP 55))
                             (itoa TMP)
                           )
                           RESULT
                   )
            VAL           (fix (/ VAL BASE))
      )
    )
    RESULT
  )

;;;截录:明经信道
;;;其它进制转换为十进制
;;;-------------------------------------------------------------------
  (defun BASETODECIMAL (BASE VAL / POS POWER RESULT TMP)
    (setq POS         (1+ (strlen VAL))
          POWER         -1
          RESULT 0
          VAL         (strcase VAL)
    )
    (while (> (setq POS (1- POS)) 0)
      (setq
        RESULT (+ RESULT
                  (* (if (> (setq TMP (ascii (substr VAL POS 1))) 64)
                       (- TMP 55)
                       (- TMP 48)
                     )
                     (expt BASE (setq POWER (1+ POWER)))
                  )
               )
      )
    )
    RESULT
  )
;;;-------------------------------------------------------------------