编号

hphkjz · 发表于 2022-11-24 07:44:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

下面是一个编号的程序，但是只能编号数字，怎么修改一下能编号大写字母呢？谢谢大哥。
(princ "\n程序：连续编号命令：bh)
(DEFUN C:bh()
(setq n (getint "输入起始号:"))
(setq enttxt '((0 . "TEXT") (8 . "ZJ") (6 . "Continuous") (10 0.0 0.0 0.0) (40 . 200) (1 . "1") (50 . 0.0) (41 . 0.8) (51 . 0.0)(71 . 0) (72 . 4) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0)));40.200中200是控制字高
(setq pt (getpoint "输入标位置"))
(while (/= pt nil)
(setq enttxt2 (subst (cons 1 (rtos n 2 0)) '(1 . "1") (subst (append '(11) pt) '(11 0.0 0.0 0.0) enttxt)))
(entmake enttxt2)
(setq pt (getpoint "\n输入标位置"))
(setq n (+ n 1))
)
)

hphkjz · 发表于 2022-11-24 07:57:53

我经常进行ABCDEFG的编号，编号的字母也不多，但是这几个字母会经常用到。还有就是编号的标注是在ZJ的图层上，能不能直接标注到当前图层上呢？

王鹏_pBZlo · 发表于 2022-12-28 16:56:13

要在当前层，只要把(8 . "ZJ")去掉就可以

王鹏_pBZlo · 发表于 2022-12-28 17:03:03

(setq n .....)改成(setq n (ascii (strcase (getstring "\n起始字母:"))))
把(cons 1 (rtos n 2 0))改成(cons 1 (chr n))

账号		自动登录	找回密码
密码			立即注册

[编程申请] 编号

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。