- 积分
- 2196
- 明经币
- 个
- 注册时间
- 2011-7-11
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
本帖最后由 EMD 于 2011-8-7 00:38 编辑
参考
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=88091&highlight=%B1%EA%D7%A2
帖内5楼zhynt给的代码,写的一个标注倒角的lisp.在此表示感谢.鼠标追踪及通过组码改图元位置都是从此贴学来的.
第一个lisp程序,所有的相关知识都在本论坛学到的.
我的CAD版本为2006
细节未完善.
支持水平和垂直方向的倒角标注,
标注文字大小可随图形比例变化.
圆标直径,非完整园标半径,
非45°或135°的line线标注其线形尺寸,
当正交为开启状态时,标注水平或者垂直方向投影
当正交关闭后,标注线段距离.
目前已知bug,当标注倒角时,如果按键盘或者操作屏幕菜单会出错退出.
欢迎大家批评指正.
源码收点辛苦费, 编译过的可直接下载.测试命令为 TT
=============20110807更新:====================
已知bug修复:倒45°角标注中按键盘或者鼠标右键后程序出错的bug.
其他一些细节方面的修正.
===================================================
=============20110805更新:====================
增加了对多义线的支持,在论坛里搜到了一个获取多义线端点的函数,直接拿来用了.
但目前仅支持直线段的标注,圆弧处还未做处理.
时间有限,还没找到合适的代码来判断鼠标点选段的线段类型
(圆弧或凸度,我知道可以通过凸度来判断,但是不知道如何才能取出我想要的那个42组码)
依然不支持图块操作
已知bug依然未解决
===================================================
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
x
|