[讨论]序号标注

tobyliang · 发表于 2008-5-26 20:07:00

下面是一个序号标注的程序（不需要引出线），现在想将程序更改一下使在一份图纸里面假设有1～100的尺寸标注，

如果增加了一个51的标注，使得51后面的编号自动更改，即原来的51～100的编号自动加1变成了52～101。希望高人指点，谢谢！

(defun c:nd()
    (setq sc (getdist"select a point to point从一点到另一点确定字体高度"))
    (setq bn (getint" Input begin number输入起始序号："))

    (while(> bn 0)
       (setq p1 (getpoint))
       (command "circle" p1 "d" sc)
       (setq sc1 (* sc 0.53))
       (command "text" "j" "m" p1 sc1 "" bn)
       (setq bn (+ bn 1))
   (princ)    )

)

ailuking · 发表于 2016-10-8 09:29:32

简单实用,非常感谢! 挖挖坑,但是真解决了我的需要

abc866866 · 发表于 2016-10-19 21:53:31

谢谢分享我来学习的谢谢分享我来学习的

abc866866 · 发表于 2016-10-19 21:48:59

谢谢分享谢谢分享谢谢分享谢谢分享

ZZXXQQ · 发表于 2008-5-26 20:42:00

本帖最后由作者于 2008-6-3 20:32:34 编辑

再试试。

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

tobyliang · 发表于 2008-6-3 17:22:00

测试了一下，好像不行呢，版主再帮忙看看

ZZXXQQ · 发表于 2008-6-3 19:24:00

二楼已改。

hpy · 发表于 2008-6-3 20:10:00

好像程序不能实现楼主的要求。

tobyliang · 发表于 2008-6-3 20:23:00

只输入一个程序就跳出了啊，没有办法连续输入了，

ZZXXQQ · 发表于 2008-6-3 20:33:00

二楼已改。再试试。

tobyliang · 发表于 2008-6-3 20:57:00

本帖最后由作者于 2008-6-3 21:04:39 编辑

版主有没有提取cad标注尺寸（包括公差）到excel的程序，有时间教教我们，谢谢你！

1、自动提取AutoCAD文档中的所有标注尺寸值、公差值和用户设定的默认公差；

2、根据用户需要为AutoCAD文档中的标注尺寸自动标上序号并与相应尺寸相关联；
3、如果用户AutoCAD文档中的标注尺寸已经标上序号，它将序号与和它最近的尺寸值相关联；
5、将AutoCAD文档中的标注尺寸信息传送到Excel表单中，输入测量信息，生成FAI报表

tobyliang · 发表于 2008-6-3 21:00:00

可以了，版主好厉害哦，好好象版主学习，版主有没有提取文档中全部CAD标注尺到EXCEL的程序啊，有时间教教我们，太感谢你了！

jery6876 · 发表于 2008-6-16 13:02:00

学习学学

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

[讨论]序号标注

浏览过的版块