求助在N个块旁批量自动编号

shenyaocan · 发表于 2020-10-4 00:35:27

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

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

×

其实手动编号.lsp已基本实现了功能，但是手动操作比较麻烦，希望大师们指点下如何在N个块旁批量自动编号功能。谢谢

QQ图片20201004002951.png

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:在块旁编号.zip
下载次数:6 文件大小:33.17 KB
下载权限: 不限以上 [免费赚D豆]

附上：手动编号.lsp
(defun C:YBH()
(setq h (getint "\n输入文字高度:"))
(setq R h)
(setq n (getint "\n 请输入起始序号:"))
(while 1
(setq p (getpoint "\n请选择起点:"))
(command "circle" p R)
(command "text" "J""M" p h 0 n)
(setq n (+ n 1))
)
)

huangpc27 · 发表于 2020-10-9 10:46:33

框选循环编号，以块基点为参照，对文字位置进行偏移到指定位置进行标注。

shenyaocan · 发表于 2020-10-10 22:12:35

huangpc27 发表于 2020-10-9 10:46
框选循环编号，以块基点为参照，对文字位置进行偏移到指定位置进行标注。

求代码～～～～～～～～～

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

[求助] 求助在N个块旁批量自动编号

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