[编程申请]：帮忙编一个零件序号标注程序

clhclh

要求运行此程序之后，就可连续标注零件的序号，且序号自动递增，直到回车结束程序。效果如下图：

                               
登录/注册后可看大图

谢谢啦

黄河之水

加我QQ574584254

wkq004

这是我做的一个练习题,比较相似.

(defun c:yingxian (/ p1 p2 p3 p4 e ph h xh num p2x p2y)
  (setvar "osmode" 0)
  (setq ph 0)
  (setq h (getdist "请输入字高"))
  (setq xh t)
  (while xh
    (setq ph (1+ ph))
    (setq p1 (getpoint "请输入点p1"))
    (command "circle" p1 (* 0.1 h))
    (command "bhatch" "p" "solid" p1 "")
    (setq p2 (getpoint p1 "请输入点p2"))
    (command "line" p1 p2 "")
    (setq e (entlast))
    (princ "请输入编号P")
    (princ ph)
    (setq num (getstring))
    (if        (= (strlen num) 0)
      (setq num (strcat "P" (itoa ph)))
    )
    (setq len (strlen num))
    (setq p2x (car p2))
    (setq p2y (cadr p2))
    (if        (> (car p1) (car p2))
      (setq h (* (- 1) h))
    )
    (entdel e)
    (setq p3 (list (+ p2x (* len h)) p2y))
    (command "pline" p1 p2 p3 "")
    (setq p4 (list (+ p2x (* len h 0.5)) (+ p2y (abs (* h 0.7)))))
    (command "text" "j" "m" p4 (abs h) "0" num "" "")
  )
)