[LISP程序]：球標標注程式原碼 (歡迎批評指正)

xtjd

(defun c:num(/ tt cc te nn i it ien lay os)
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (princ "球标标注程序")
  (setq tt (getreal "\n请输入字体的大小<2.5>：")) (if (null tt) (setq tt 2.5))
  (setq cc (* 2 tt))
  (setq te (getint "\n请输入起始值的大小<1>：")) (if (null te) (setq te 1))
  (setq it te)
  (setq i 0)
  (if (setq nn (getpoint "\n请选择初始球标的放置点："))
    (progn
      (while nn
        (setvar "osmode" 0)
        (setq lay (getvar "clayer"))
        (if (null (tblsearch "layer" "cirdim"))
          (command ".layer" "m" "CIRDIM" "")
          (command ".layer" "t" "cirdim" "s" "cirdim" "")
        )
        (command ".circle" nn "d" cc)
        (command ".text" "j" "m" nn tt "" te)
        (command ".layer" "s" lay "")
        (setq te (1+ te))
        (setq ien (+ i it))
        (setq i (1+ i))        
        (setvar "osmode" os)
        (princ  (strcat "\n下一个球标"(itoa te)"的放置点："))
        (setq nn (getpoint))
      )
      (princ (strcat "－－－－－★　总共作了" (itoa i) "个球标标注，起始值为：" (itoa it) "、终止值为：" (itoa ien)"　★－－－－－"))
    )
    (progn
      (princ "\n无任何动作，程序退出！")
    )
  )      
  (setvar "osmode" os)
  (setvar "cmdecho" 1)
  (prin1)  
)

kkk3kkk

可以改变如（A1）。。。。。。。。。（Z23）吗？
指英文（A》B ，1》2）

xtjd

我試試看!