[编程申请]：恳请诸位帮帮!拜谢!

GPTDDLJH

那位高人能为小弟写一个这样的LISP程序:一个圆型里面有数字![类似于①]而且不中断,可以连续下编![②③④⑤⑥⑦⑧..................]圆的线条必须加粗0.5!还有如果执行完一次后,下一次执行此命令时会记住最后一个数值;然后继续往下编!
(另:圈内值最好是三位数以上且圈的大小是8(数字会自动缩小以适应圈的大小!)10[/COLOR]

sdwy19691229

我有一个圆内写数字的程序，希望对你有帮助。

圆内写字功能
(defun C:citext (/ OS p1 NUM B CR NUU)
    (SETVAR "CMDECHO" 0)
    (command "UNDO" "G")
    (SETQ OS (GETVAR "OSMODE"))
    (SETVAR "OSMODE" 53)
    (command "-style" "romans" "romans" "0" "0.85" "0" "" "" "")
    (setq p1 (getpoint "\n输入插入点:")) (if (= p1 nil) (princ) (progn
    (setq NUM (getint "\n输入零件编号<1>:"))
    (if (= NUM nil) (SETQ NUM 1) )
    (SETQ NUU NUM)
    (setq B (getdist "\n输入文字高度<3.0>:"))
    (if (= B nil) (SETQ B 3.0) )
    (setq CR (* 2 B))    (SETVAR "OSMODE" 0)
    (command "text" "S" "ROMANS" "j" "M" p1 B "0" NUM)            
    (command "circLe" p1 "D" CR)
  (WHILE p1
    (SETVAR "OSMODE" 53)
    (setq p1 (getpoint "\n输入插入点:"))  (if (= p1 nil) (princ)  (progn
    (setq NUM (+ 1 NUU ))
    (princ "\n输入零件编号<")(princ NUM)(PRINC ">:")
    (setq NUU (getint ))
    (if (= NUU nil) (SETQ NUU NUM) )
    (SETVAR "OSMODE" 0)
    (command "text" "S" "ROMANS" "j" "M" p1 B "0" NUU)            
    (command "circLe" p1 "D" CR) ))) ))
    (SETVAR "OSMODE" OS)
    (command "UNDO" "E") (princ))

Free-Lancer

用属性快

xyp1964

试试：
[php]
(defun c:test038 (/ pt0 pt1)
  (WHILE (setq pt0 (getpoint "\n放置点 : "))
    (setq pt1 (polar pt0 (* pi 1.5) 1.8)
          txt (uint 1 "" "\n\t整数" txt)
    )
    (command "donut" 7.5 8 pt0 "")
    (command "text"
             "j"
             "f"
             (polar pt1 0 -3)
             (polar pt1 0 3)
             4
             txt
    )
    (setq txt (1+ txt))
  )
  (princ)
)
(defun uint (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (itoa def) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getint msg))
  (if inp
    inp
    def
  )
)
[/php]

GPTDDLJH

谢谢,诸位!