明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 10733|回复: 42

求智能圆标注(已解决!谢谢ZZXXQQ 版主热情帮助!)

  [复制链接]
发表于 2011-5-27 13:21:01 | 显示全部楼层 |阅读模式
本帖最后由 669423907 于 2011-5-30 23:23 编辑

1:选择的对象大于或等于 4份之3圆时为螺纹;
2:小于4份之3时为半径;
3:整圆时为直径;
4:可以输入数量,默认不输入;
5:标注完一个后可以继续下一个;
6:空格或esc退出。

不知是否能达到这样的效果?
file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/UG9`@AH2%L{}S0N6}3E~FO2.gif
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2023-12-9 08:26:24 | 显示全部楼层
好棒的程序
发表于 2011-5-27 14:55:38 | 显示全部楼层
编程步骤:
1、程序循环提示选择对象(坐标点);
2、根据1所得坐标点,取得最近点;未取得最近点程序退出,转第10步
3、由最近点用(ssget "C" pt pt)取得实体;
4、提示输入:个数(前缀)“N-”;
5、获得实体数据表;
6、如果实体是圆弧,读取实体数据,计算并判断是否为四分之三圆;不是弧转第9步
7、如果是四分之三圆;前缀尾部加字母M,并计算直径,用直径标注进行螺纹标注;转第1步
8、用半径标注标注圆弧;转第1步
9、用直径标注标圆;转第1步
发表于 2011-5-27 15:22:17 | 显示全部楼层
本帖最后由 ZZXXQQ 于 2011-5-30 09:04 编辑

试下看
游客,本帖隐藏的内容需要发帖数高于 5 才可浏览,你当前发帖数只有 0
 楼主| 发表于 2011-5-27 21:53:40 | 显示全部楼层
回复 ZZXXQQ 的帖子

非常感谢版主热情帮助!只不过还有两个小问题没解决:
1:选择的对象大于或等于 4份之3圆时为螺纹(尺寸前加 M ,CAD画的螺纹为4份之3圆,
      也就是270度,Pro/E画的螺纹为大于4份之3圆为300度);
2:小于4份之3时为半径;

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2011-5-27 22:24:13 | 显示全部楼层
那就把第14行的判断自行改下吧
 楼主| 发表于 2011-5-27 22:30:44 | 显示全部楼层
回复 ZZXXQQ 的帖子

谢谢,我试试看!
 楼主| 发表于 2011-5-27 22:51:35 | 显示全部楼层
回复 ZZXXQQ 的帖子

小生愚笨,看不懂啊!还望版主明点!
发表于 2011-5-27 23:12:49 | 显示全部楼层
(if (equal (abs (- ed st)) (* 1.5 pi) 0.01) (progn
改成
(if (or (equal (abs (- ed st)) (* 1.5 pi) 0.01) (equal (abs (- ed st)) (/ (* pi 5) 6) 0.01)) (progn
 楼主| 发表于 2011-5-27 23:41:07 | 显示全部楼层
本帖最后由 669423907 于 2011-5-28 00:26 编辑

回复 ZZXXQQ 的帖子

还是标不出 M 啊!不知哪里有问题?
 楼主| 发表于 2011-5-28 12:57:17 | 显示全部楼层
版主帮帮忙啦,问题尚未解决啊!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-23 22:48 , Processed in 0.196408 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表