[求助]：2007下“COMMAND”不能正常返回结果。(问题还没有解决，继续请

czg09180274

请教各位达人，
程序全文如下：
(defun c:ssq (/ os m n x y z en1 en2 en3 en4 hm)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "textsize" 50)
  (setq        m1 1
        m2 1
        m3 1
        m4 1
        m5 1
        m6 1
        m7 1
        n  0
        x  0
        y  0
        z  0
  )
  (if (null (tblsearch "style" "wz"))
    (command "style" "wz" "宋体" "" "0.7" "" "" "")
  )
  (setq zxd (getpoint "\n 输入中心点"))
  (setq hm (getstring "\n 输入号码："))
  (command "pline" zxd (polar zxd (/ pi 16) 300) "")
  (setq en4 (entlast))
  (command "circle" zxd 300)
  (setq en1 (entlast))
  (command "circle" zxd 200)
  (setq en2 (entlast))
  (command "circle" zxd 100)
  (setq en3 (entlast))
  (command "trim" en3 "" (list en4 zxd) "")
  (command "array" en4 "" "p" zxd 16 360 "y" "")
  (ai_bjsz)
  (setvar "osmode" os)
  (princ)
)


(defun ai_bjsz ()
  (setq hm1 (atoi (substr hm 1 2)))
  (repeat 33
    (if        (= hm1 m1)
      (if (= hm1 17)
        (progn
          (setq shm (itoa hm1))
          (command "dtext" "m" zxd "" "0" (itoa hm1) "")
        )
        (progn
          (setq shm (itoa hm1))
          (if (< m1 17)
            (command "dtext"
                     "m"
                     (polar zxd (* (/ pi 8) (- m1 1)) 150)
                     ""
                     ""
                     (itoa hm1)
                     ""
            )
            (command "dtext"
                     "m"
                     (polar zxd (* (/ pi 8) (- m1 18)) 250)
                     ""
                     ""
                     (itoa hm1)
                     ""
            )
          )
        )
      )
    )
    (setq m1 (+ m1 1))
  )
  (setq hm2 (atoi (substr hm 3 2)))
  (repeat 33
    (if        (= hm2 m2)
      (if (= hm2 17)
        (command "dtext" "m" zxd "" "0" (itoa hm2) "")
        (if (< m2 17)
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m2 1)) 150)
                   ""
                   ""
                   (itoa hm2)
                   ""
          )
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m2 18)) 250)
                   ""
                   ""
                   (itoa hm2)
                   ""
          )
        )
      )
    )
    (setq m2 (+ m2 1))
  )
  (setq hm3 (atoi (substr hm 5 2)))
  (repeat 33
    (if        (= hm3 m3)
      (if (= hm3 17)
        (command "dtext" "m" zxd "" "0" (itoa hm3) "")
        (if (< m3 17)
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m3 1)) 150)
                   ""
                   ""
                   (itoa hm3)
                   ""
          )
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m3 18)) 250)
                   ""
                   ""
                   (itoa hm3)
                   ""
          )
        )
      )
    )
    (setq m3 (+ m3 1))
  )
  (setq hm4 (atoi (substr hm 7 2)))
  (repeat 33
    (if        (= hm4 m4)
      (if (= hm4 17)
        (command "dtext" "m" zxd "" "0" (itoa hm4) "")
        (if (< m4 17)
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m4 1)) 150)
                   ""
                   ""
                   (itoa hm4)
                   ""
          )
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m4 18)) 250)
                   ""
                   ""
                   (itoa hm4)
                   ""
          )
        )
      )
    )
    (setq m4 (+ m4 1))
  )
  (setq hm5 (atoi (substr hm 9 2)))
  (repeat 33
    (if        (= hm5 m5)
      (if (= hm5 17)
        (command "dtext" "m" zxd "" "0" (itoa hm5) "")
        (if (< m5 17)
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m5 1)) 150)
                   ""
                   ""
                   (itoa hm5)
                   ""
          )
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m5 18)) 250)
                   ""
                   ""
                   (itoa hm5)
                   ""
          )
        )
      )
    )
    (setq m5 (+ m5 1))
  )
  (setq hm6 (atoi (substr hm 11 2)))
  (repeat 33
    (if        (= hm6 m6)
      (if (= hm6 17)
        (command "dtext" "m" zxd "" "0" (itoa hm6) "")
        (if (< m6 17)
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m6 1)) 150)
                   ""
                   ""
                   (itoa hm6)
                   ""
          )
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m6 18)) 250)
                   ""
                   ""
                   (itoa hm6)
                   ""
          )
        )
      )
    )
    (setq m6 (+ m6 1))
  )
  (setq hm7 (atoi (substr hm 13 2)))
  (repeat 33
    (if        (= hm7 m7)
      (if (= hm7 17)
        (command "dtext" "m" zxd "" "0" (itoa hm7) "")
        (if (< m7 17)
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m7 1)) 150)
                   ""
                   ""
                   (itoa hm7)
                   ""
          )
          (command "dtext"
                   "m"
                   (polar zxd (* (/ pi 8) (- m7 18)) 250)
                   ""
                   ""
                   (itoa hm7)
                   ""
          )
        )
      )
    )
    (setq m7 (+ m7 1))
  )
)
整个程序测试时运行到写文字 “hm” 的那一步时却无法将设定的文本写入到图形当中。  

运行结果如附图所示

aeo

讲你要的结果是什么

zxq0220

[php]
(defun c:ssq (/ os m n x y z en1 en2 en3 en4 hm)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setvar "textsize" 50)
(setq m1 1 n 0 x 0 y 0 z 0)
(if (null (tblsearch "style" "wz"))
  (command "style" "wz" "宋体" "" "0.7" "" "" "")
)
(setq zxd (getpoint "\n输入中心点 :"))
(setq hm (getstring "\n输入号码："))
(command "pline" zxd (polar zxd (/ pi 16) 300) "")
(setq en4 (entlast))
(command "circle" zxd 300)
(setq en1 (entlast))
(command "circle" zxd 200)
(setq en2 (entlast))
(command "circle" zxd 100)
(setq en3 (entlast))
(command "trim" en3 "" (list en4 zxd) "")
(command "array" en4 "" "p" zxd 16 360 "y")
(ai_bjsz)
(setvar "osmode" os)
(princ)
)
(defun ai_bjsz ()
(repeat 32
  (setq shm (itoa m1))
  (if (= m1 17)
   (command "text" "m" zxd "" "0" shm)
   (if (< m1 17)
    (command "text" "m" (polar zxd (* (/ pi 8) (- m1 1)) 150) "" "" shm)
    (command "text" "m" (polar zxd (* (/ pi 8) (- m1 18)) 250) "" "" shm)
   )
  )
  (setq m1 (1+ m1))
)
)
[/php]