ninja37 发表于 2022-4-9 13:02:36

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

本帖最后由 ninja37 于 2022-4-10 07:48 编辑

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

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



xj6019 发表于 2022-4-9 13:02:37






(defun c:NM (/ in inabc pt th txt zhuan)
        (setq in nilinabc 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))(cons8"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 发表于 2022-4-10 09:44:44

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

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

zmzk 发表于 2022-12-25 21:01:44

这种适合 标号，铝单板或者石材
页: [1]
查看完整版本: 求帮写一个输入字母 程序(找了很久找不到)