给文字编号，求程序

Trouble12138 · 发表于 2022-11-29 22:02:25

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

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

×

求一个可以实现类似功能的插件，给文字编号

4B橡皮 · 发表于 2022-12-4 23:31:44

这估计得找人开发了

Trouble12138 · 发表于 2022-12-12 03:37:42

4B橡皮发表于 2022-12-4 23:31
这估计得找人开发了

不知道有没有文字加后缀，后缀递增的程序。

王鹏_pBZlo · 发表于 2022-12-28 16:50:24

加后缀就很简单了

Trouble12138 · 发表于 2022-12-28 22:54:48

王鹏_pBZlo 发表于 2022-12-28 16:50
加后缀就很简单了

(defun C:tt ()
(setvar "CMDECHO" 0)
(setvar "OSMODE" 0)
(setq p1 (getpoint);指定点
   %k T  ;循环条件
   i nil ;初始设置
)
(while %k
  (setq  gr (grread t 4 0);;取得鼠标操作及坐标
      n (car gr)    ;;鼠标操作
      pt (cadr gr)    ;;鼠标坐标
  )
  (if (= n 5);;没有操作
(progn
(if (/= i nil) (entdel i) );;如果有图元就删除
   (setq angl (angle p1 pt)
   p2 (polar p1 (+ angl (* 0.5 pi)) 20)
   p3 (polar pt (+ angl (* 1.5 pi)) 20)
   p4 (polar pt (+ angl (* 0.5 pi)) 20)
   p5 (polar p1 (+ angl (* 1.5 pi)) 20)
   )
(command "PLINE" pt p3 p5 p2 p4 pt "")
(setq i (entlast));;得到图元名
)
  )
  (if (= n 3)
(progn
(setq p1 pt)
)
);;3表示左键
  (if (or (= n 2) (= n 25));;2表示空格;25表示右键;结束循环并删除图元
(progn
(setq %k nil)
(entdel i)
)
  )
)
(setvar "CMDECHO" 1)
(setvar "OSMODE" 38)
(prin1)
)
这个代码可以实现任意角度矩形框，能不能帮我改成类似下图的功能，然后后缀是可输入的，比如我输入W，添加的后缀自动是W1、W2、W3类推

王鹏_pBZlo · 发表于 2022-12-30 14:50:13

你说的下图在哪里？

Trouble12138 · 发表于 2023-1-4 21:40:35

王鹏_pBZlo 发表于 2022-12-30 14:50
你说的下图在哪里？

老师，我私信你吧。这个论坛回复上传图片我不会。点图片，需要输入的是地址，而不是选择图片

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

[编程申请] 给文字编号，求程序

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

点评

点评

点评