插入属性快，为何属性错位【已找到解决】

daiguafan

如题代码如下
(defun c:inserttk()
   (setvar "cmdecho" 0)
   (setq blkname "a3tk")
   (setq dd 99)
   (while (>= dd 1)
   (setq dcl_id (load_dialog "inserttuk"))
   (new_dialog "inserttk" dcl_id)
   (action_tile "ins_ok" "(done_dialog 1)")
   (setq dd(start_dialog))      
          (gettk)
   )
   (prin1)
)
(defun gettk()
   (setq FfP (open "C:\\project.txt" "r"))
  (setq pd (read(read-line FfP)))
  (close FfP)

(setq CLIENT (vl-symbol-name(nth 0 pd)))
(setq PROJ.NAME (vl-symbol-name(nth 1 pd)))
(setq ENG.NO (vl-symbol-name(nth 2 pd)))

(setq SCHEME.CHIEF (vl-symbol-name(nth 3 pd)))
(setq DESIGNER (vl-symbol-name(nth 4 pd)))
(setq DRAWER (vl-symbol-name(nth 5 pd)))
(setq CHECKED (vl-symbol-name(nth 6 pd)))
(setq EXAMINED (vl-symbol-name(nth 7 pd)))
(setq APPROVED (vl-symbol-name(nth 8 pd)))
;(setq DRAWING.TITLE "ab断面图")
;(setq DNO "001")

(setvar "ATTDIA" 0)
(setvar "ATTREQ" 1)
   (if (= dd 1)
       (progn

   (command "insert" blkname '(0 0) 1 1 0  CLIENT PROJ.NAME ENG.NO SCHEME.CHIEF DESIGNER DRAWER CHECKED EXAMINED APPROVED  )
          (command "move" (entlast) "" '(0 0) pause)  
       )
   )
)



该贴已经同步到 daiguafan的微博

daiguafan

没有哪位大侠帮忙么？
麻烦了

daiguafan

在论坛找到了，谢谢

cxs259

楼主，是怎样找到的，我也遇到同样的问题？