[求助]：請高手看看這個程序

ljs026

以下是個可將圖塊改顏色或改成隨層的程序，但問題是為何我選擇改顏色時可以叫出顏色對話框，而我想改隨層時卻不能用'_layer叫出圖層性質管理員，來設定已有的層叻 ？請高手們幫忙看看

(defun #chg_color (e cnum0 cnum / tf e blkna)
  (xdrx_setenttodb e)
  (setq tf (xdrx_getentdxf 0))
  (cond
    ((or
       (= tf "INSERT")
       (= tf "DIMENSION")
     )
     (setq blkna (xdrx_getentdxf 2))
     (setq blkna (tblsearch "block" blkna))
     (setq e (cdr (assoc -2 blkna)))
     (while e
       (xdrx_setenttodb e)
       (setq tf (xdrx_getentdxf 0))
       (if (or
      (= tf "INSERT")
      (= tf "DIMENSION")
    )
  (progn
    (#chg_color e cnum0 cnum)
  )
  (progn
    (xdrx_setenttodb e)
    (xdrx_modent cnum0 cnum)
  )
       )
       (setq e (entnext e))
     )
    )
    (t
     (xdrx_modent cnum0 cnum)
    )
  )
)
;;步驟二
(defun c:dwgblack (/ ss key num num0 n e)
  (setq xp_oer *error*
       *error* xp_err)
  (xdrx_begin)
  (prompt "\n請選取要變色的實體<全選>:")
  (if (not (setq ss (ssget)))
    (setq ss (ssget "x"))
  )
  (initget "1 2")
  (setq key (getstring "\n[1 改顏色/2 改層]<1>: "))
  (if (or (= key "1")
   (= key "")
      )
    (progn
      (setq num (acad_colordlg 7))
      (setq num0 62)
    )
    (progn
      (setq num (getstring "\n圖層名稱: "))
      (setq num0 8)
    )
  )
  (setq n 0)
  (xdrx_setsstodb ss 0)
  (xdrx_pbarbegin "已經完成:" (sslength ss))
  (while (setq e (xdrx_getentdata 0))
    (xdrx_pbarsetpos n)
    (setq n (1+ n))
    (#chg_color e num0 num)
    (entupd e)
  )
  (xdrx_pbarend)
  (setvar "osmode" 4261)
  (xdrx_end)  
  (princ)
)

lsjjm

where are functions with prefix "xdrx_"?

梦断江南

那是xdapi的函数