求帮写一个输入字母 程序(找了很久找不到)

ninja37

求帮写一个输入字母 程序
第1步： 输入命令  提示输入文字高度  默认6mm  可以修改其他高度
第2步：提示输入初始字母 默认从A开始  要求都是大写
第3步：提示文字插入点    然后点屏幕作图区域任何一点位置 递增产生字母   点第一下生成A  点第2下生成B    以此类推  最多倒Z
第4步：按ESC取消退出程序  或者按enter 或者空格 能退出程序

其他要求： 字母要求在图层6   颜色bylayer           无文字类型要求  要求字母是单行文本

xj6019

(defun c:NM (/ in inabc pt th txt zhuan)
        (setq in nil  inabc nil)
        (if (and(setq in (getreal "\n请输入字高<6>:"))(/= in ""))
    (setq th in)
    (setq th 6)
  )
        (if (and(setq inabc (getstring  "\n请输入起始编号< A >:")) (/= inabc ""))
    (setq txt inabc)
    (setq txt "A")
  )
  (setq pt(getpoint  "\n请指定文字的基点:"))
        (setq zhuan(ascii txt))
        (while  (and(> zhuan 64)(< zhuan 91))
                (entmake (list '(0 . "TEXT") (cons 1 (chr zhuan))(cons  8  "6") (cons 50 0) (cons 10 pt) (cons 11 pt) (cons 72 1) (cons 73 2) (cons 40 th)))
                (setq zhuan (1+ zhuan))
                (setq pt(getpoint  "\n请指定文字的基点:"))
        )
        (princ)
)

ninja37

xj6019 发表于 2022-4-9 13:02
(defun c:NM (/ in inabc pt th txt zhuan)
        (setq in nil  inabc nil)
        (if (and(setq in (ge ...

谢谢了，很好用  这个程序虽然简单  但是使用比较多  到处都找不到  。

zmzk

这种适合 标号，铝单板或者石材