图库

qianyi0710

图库源码写好了，可是每次打开图库里面的图，都是块，每次都要炸开，请高手指点以下要怎么改？

(defun inbing ()
     (setq chk (numberp blockname))
     (if (= chk T)
         (setq blockname (itoa blockname))
        ;(setq blockname blockname)
      )
      (setq block (strcat (eval path) (eval blockname)))
      (setq inpoint (getpoint "n\请拾取插入点:"))
      (command "insert" block inpoint sc "")
)

;(defun inbing ()
      ;(setq blockname (itoa blockname))
      ;(setq block (strcat (eval path) (eval blockname)))
      ;(setq inpoint (getpoint "n\请拾取插入点:"))
      ;(command "insert" block inpoint sc "")
;)

;(defun inbing ()
;    (setq block (apply 'strcat ((path) (blockname))))
;      (setq inpoint (getpoint "n\请拾取插入点:"))
;     (command "insert" block inpoint sc "")
;)