【已解决】序号递增程序

xudongchu

1.输入命令
2.输入初始序号（）
3.指定放置点
4.指定序号放置位置（圆心）
第一个序号完成后下一个序号在第一个序号的基础上增加1

编程申请：简单的一个小程序，工作中经常用到，请大神出手帮忙解决一下，谢谢。详细信息可以查看附件。、
谢谢

已解决；谢谢王鹏_pBZlo的程序。本来自己是准备动态块的。

kswym88888

序号递增程序----看上去真好啊，
     想学点属性块的知识。代码我下载好了。

(defun c:tt()
        (setq no (getint "\n起始序号:"))
        (while (setq stp (getpoint "\n指定放置点:"))
                (prompt "\n箭头方向:")
                (command "insert" "num_mark" stp "" "" pause)
                (setq att (entnext (entlast)))
                (entmod (subst (cons 1 (itoa no)) (assoc 1 (entget att)) (entget att)))
                (entmod (subst (cons 50 0) (assoc 50 (entget att)) (entget att)))
                (setq no (1+ no))
        )
)

做成属性块(块名称num_mark,块插入点为圆心);属性定义选择中心对齐,对齐点为圆心.
感谢王鹏_pBZlo-------感谢xudongchu抛出的议题。
能下载你做好的那个“”num_mark“”块吗？让我用用。谢谢

王鹏_pBZlo

(defun c:tt()
        (setq no (getint "\n起始序号:"))
        (while (setq stp (getpoint "\n指定放置点:"))
                (prompt "\n箭头方向:")
                (command "insert" "num_mark" stp "" "" pause)
                (setq att (entnext (entlast)))
                (entmod (subst (cons 1 (itoa no)) (assoc 1 (entget att)) (entget att)))
                (entmod (subst (cons 50 0) (assoc 50 (entget att)) (entget att)))
                (setq no (1+ no))
        )
)

做成属性块(块名称num_mark,块插入点为圆心);属性定义选择中心对齐,对齐点为圆心.

Lisphk

论坛很多类似的，先搜索下论坛看看

                               
登录/注册后可看大图

增强的拷贝+1（第三版）

59 个回复 - 770 次查看

支持曲线阵列的第二版发布，见：http://bbs.xdcad.net/thread-716036-1-1.html 第三版加入了多选+1功能，+1依据多选的文字里面数字最大的开始编号，拷贝数量为多选的文字个数。点右上角演示放大观看。 ...

2018-7-16 18:28 - newer - 每日插件

                               
登录/注册后可看大图

xudongchu

Lisphk 发表于 2019-1-17 15:09
论坛很多类似的，先搜索下论坛看看

这个功能我在论坛看到过，不是我想要的功能。谢谢了。
我自己做了一个动态块线用着吧！

newer

xudongchu 发表于 2019-1-17 16:09
这个功能我在论坛看到过，不是我想要的功能。谢谢了。
我自己做了一个动态块线用着吧！

首先，你画图时候，这种组合就应该做出属性块，你的图文字和其他都分散的，不利于你组织数据，
看看图片，做成属性块后

st788796

具有不同指向，最佳是用动态属性块

xudongchu

st788796 发表于 2019-1-17 17:50
具有不同指向，最佳是用动态属性块

已经 修改了 做成了一个属性块+箭头可以动态旋转

XDSoft

xudongchu 发表于 2019-1-17 16:09
这个功能我在论坛看到过，不是我想要的功能。谢谢了。
我自己做了一个动态块线用着吧！

把你做的这个动态块传上来吧，看看给你改下代码

xudongchu

XDSoft 发表于 2019-1-17 20:29
把你做的这个动态块传上来吧，看看给你改下代码

好的，动态块已上传，谢谢！

王鹏_pBZlo

王鹏_pBZlo 发表于 2019-1-18 10:17
(defun c:tt()
        (setq no (getint "\n起始序号:"))
        (while (setq stp (getpoint "\n指定放置点:"))

又看了下你的图,插入点应放在箭头那里

Lisphk

xudongchu 发表于 2019-1-17 18:53
已经 修改了 做成了一个属性块+箭头可以动态旋转

普通块也可以拖动旋转

                               
登录/注册后可看大图

动态拖动旋转图块（属性文字角度保持不变）

4 个回复 - 23 次查看

**** 本内容被作者隐藏 ****

2019-1-17 20:57 - newer - 每日插件

xudongchu

Lisphk 发表于 2019-1-18 10:32
普通块也可以拖动旋转

谢谢您的支持，已经解决

xudongchu

王鹏_pBZlo 发表于 2019-1-18 10:17
(defun c:tt()
        (setq no (getint "\n起始序号:"))
        (while (setq stp (getpoint "\n指定放置点:"))

谢谢您的程序，已经设置好，是我想要功能。谢谢

xudongchu

王鹏_pBZlo 发表于 2019-1-18 10:17
(defun c:tt()
        (setq no (getint "\n起始序号:"))
        (while (setq stp (getpoint "\n指定放置点:"))

谢谢您的分享！

王鹏_pBZlo

xudongchu 发表于 2019-1-18 10:47
谢谢您的分享！

能帮助到你我很高兴