初学者自动标注图号，有问题，请大侠指正

☆一笑而过☆

(defun c:ZSXH (/ oce1 qz n1 n2 zn h1 sxh1 p1 p2)
  (setq oce1 (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "-style" "BG_ST" "宋体" 0 0.8 0 "n" "n")
  (setq qz (getstring "\n请输入前缀相同的部分: "))
  (if (not (setq n1 (getint "\n请输入起始顺序号 : ")))
    (setq n1 1)
  )
  (if (not (setq n2 (getint "\n请输入终止顺序号 : ")))
    (setq n2 1)
  )
  (if (not (setq zn (getint "\n请输入增加或减少的序数<1> : ")))
    (setq zn 1)
  )
  (if (not (setq h1 (getreal "\n请指定文字高度<3> : ")))
    (setq h1 3)
  )
  (setq
    p1 (getpoint "\n请指定插入点: ")
    p2 (getreal "\n请指定两点水平间距: ")
  )

  (while (<= n1 n2)
    (setq sxh1 (strcat qz (itoa n1)))
    (command "text" "m" p1 h1 0 sxh1)
    (setq
      p1 (list (+ (car p1) p2) (cdr p1))
      n1 (+ n1 zn))

  )
  (setvar "cmdecho" 0)
  (princ)
)

叮咚

(while (<= n1 n2)
    (setq sxh1 (strcat qz (itoa n1)))
    (command "text" "m" p1 h1 0 sxh1)
    (setq
      p1 (list (+ (car p1) p2) (cdr p1))
      n1 (+ n1 zn))

  )



这个地方，p1后边，cdr不对，应该是 cadr 获得Y坐标

vlisp2012

(defun c:ZSXH (/ oce1 qz n1 n2 zn h1 sxh1 p1 p2)
  (setq oce1 (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "-style" "BG_ST" "宋体" 0 0.8 0 "n" "n")
  (setq qz (getstring "\n请输入前缀相同的部分: "))
  (if (not (setq n1 (getint "\n请输入起始顺序号 : ")))
    (setq n1 1)
  )
  (if (not (setq n2 (getint "\n请输入终止顺序号 : ")))
    (setq n2 1)
  )
  (if (not (setq zn (getint "\n请输入增加或减少的序数<1> : ")))
    (setq zn 1)
  )
  (if (not (setq h1 (getreal "\n请指定文字高度<3> : ")))
    (setq h1 3)
  )
  (setq
    p1 (getpoint "\n请指定插入点: ")
    p2 (getreal "\n请指定两点水平间距: ")
  )

  (while (<= n1 n2)
    (setq sxh1 (strcat qz (itoa n1)))
    (command "text" "m" p1 h1 0 sxh1)
    (setq
      p1 (list (+ (car p1) p2) (cadr p1))
      n1 (+ n1 zn))

  )
  (setvar "cmdecho" 0)
  (princ)
)

☆一笑而过☆

叮咚 发表于 2012-3-31 10:30
(while (

谢谢，果然是的，基础不扎实，。哈哈

注册

每个文档可试用20次，需注册时请在命令行输入zcsrf后回车

注册

晕，竟然要注册啊