
(defun-q ThsStartup ()
   (princ)
   (if P_LoadMenu (P_LoadMenu))
   ;(princ "Æô¶¯³õÊ¼»¯Íê±Ï!")
   (princ)
)

(setq S::STARTUP (append S::STARTUP ThsStartup))

(defun c:entxd()
   (entget (car (entsel "\nSelect object:")) (list "*"))
)

(defun entxd(ent)
   (entget ent (list "*"))
)

(setvar "cmdecho" 0)

(princ)