极限与配合公差标注程序(31楼,46楼更新)

woaishuijia · 发表于 2010-2-23 00:21:30

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

本帖最后由 woaishuijia 于 2012-8-24 10:01 编辑

利用春节休息时间编制了一个用于极限与配合公差标注的小程序,以免除标注公差时查表的麻烦
程序的数据来自于 GB/T 1800-2009 和 GB/T 1801-2009 及化工版机械手册
程序使用方法:
一.下载解压附件
二.用Windows记事本编辑其中的"gc.lsp"文件.把最上面一行

(setq gcpath "f:\\CAD二次开发\\公差与配合.dvb" )

复制代码

中的dvb文件路径修改为实际路径,注意其中的反斜杠一定要两两一组(即用两个反斜杠代替通常的文件路径中的单个反斜杠),否则LSP会出错.
当然,如果dvb文件是被解压到CAD支持文件搜索路径下面,就不需要完整路径,只要有文件名即可,就像这样

(setq gcpath "公差与配合.dvb" )

复制代码

三.使用前,加载"gc.lsp"文件("工具"菜单下的"加载应用程序"或命令行键入"appload"命令),dvb文件会在LSP程序加载的同时被自动加载.
四.使用时,命令行键入"gc"命令,命令行会出现提示"选择直径,转角或对齐标注:",选择现有的标注后会弹出下面的对话框

五.在配合,公差带或基本偏差及公差等级列表中选择合适的公差,程序会自动计算并显示偏差值.
六.点击"孔公差带"或"轴公差带"框架中的"应用到当前标注"按钮,程序会按"公差标注样式"的设置把公差内容添加到先前被选择的标注中.
七.公差标注样式由四个选项按钮决定.其中"公差带"样式如下图

"偏差值"样式如下图

"公差带和偏差值"样式如下图

"配合"样式如下图

八.可以点击"选择标注"按钮重新选择其它标注,连续操作.
九.可以自行设定公差文字的高度
十.如果选择的是转角或对齐标注,可以通过选中"前缀设为"复选框,为标注添加前缀

.如果不喜欢"gc"这个命令,可以修改"gc.lsp"文件的第三行,把其中的"gc"改成适当的名字.
程序数据在输入中难免会出错,欢迎网友查找问题,提出改进意见.

31楼,46楼有更新

lioney · 发表于 2010-2-23 11:27:26

谢谢了,这个很有用,省了很多查资料的时间.

TANYUXIA · 发表于 2010-2-23 13:04:42

本帖最后由 TANYUXIA 于 2010-2-23 13:08 编辑

为节省查资料的时间，下载了。可就是打不开。

chenzhaojun__01 · 发表于 2010-3-2 13:13:38

同样，我也打不开

crazystar · 发表于 2010-3-2 13:41:21

非常感谢LZ的贡献！

bons2008 · 发表于 2010-3-14 22:33:01

楼主我按你的方法加载了可是没出现像图框啊，能不能做个视频教程啊。

zpcb · 发表于 2010-3-15 10:17:07

我下载了，谢谢

hu676 · 发表于 2010-5-24 21:31:50

DIMGC很好用，到期了。
试试你的。

totoro · 发表于 2010-5-25 00:29:21

有没有纯lisp的~
在未来好像不支援VBA了~

caoxinheng · 发表于 2011-7-14 10:43:31

程序好，讲解的也好
为大公无私者呐喊

caoxinheng · 发表于 2011-7-14 10:54:51

还要安装VBA时在是有点美中不足

hatesnow · 发表于 2011-12-15 00:00:10

试了一下，感觉还可以，但是标注文字不能是替代文字。

woaishuijia · 发表于 2011-12-15 20:10:03

12# hatesnow
用文字替代测量单位不是个好习惯

脑细胞 · 发表于 2012-1-18 07:50:51

谢谢楼主无私奉献！

xiaojunxue · 发表于 2012-2-7 11:18:29

非常需要这个程序，可是按照楼主的使用方法，加载后，输入“gc"后，没什么反映呢？这是什么情况？

woaishuijia · 发表于 2012-2-8 18:01:41

15# xiaojunxue
你的DVB文件是放在CAD支持文件搜索路径下面了吗?

斐袭 · 发表于 2012-2-20 18:50:46

感谢楼主分享！

wsj249201 · 发表于 2012-3-19 09:51:07

本帖最后由 wsj249201 于 2012-3-20 10:36 编辑

利用春节休息时间编制了一个用于极限与配合公差标注的小程序,以免除标注公差时查表的麻烦; l% @; J4 N% R$ P6 d! O1 I* `
程序的数据来自于 GB/T 1800-2009 和 GB/T 1801-2009 及化工版机械手册
$ T6 u6 [; d& I7 F; M程序使用方法:
8 s; ~( E2 F% Y! O6 q1 O5 [4 M一.下载解压附件
8 W6 b/ {) i3 C" M( w( G二.用Windows记事 ...5 m* \: U2 m2 C( {5 b3 z# F
woaishuijia 发表于 2010-2-23 00:21 http://www.3dportal.cn/discuz/images/common/back.gif

试了试，建议楼主将LISP启动程序：

(setq gcpath "公差与配合.dvb" )
(command "-vbaload" gcpath)
(defun c:gc()
  (setvar "CMDECHO" 0)
  (command "-vbarun" (strcat gcpath "!gc" ))
  (princ)
)

改为：

(defun c:gc()
(setvar "cmdecho" 0)
(command "vbaload" "公差与配合.dvb" )
(command "-vbarun" "公差与配合.dvb!ThisDrawing.gc" )
(setvar "cmdecho" 1)
(princ)
)

这样可以保证按需加载

未济 · 发表于 2012-3-20 19:27:31

可以改Gc这两字吗,快捷方式冲突了

wsj249201 · 发表于 2012-3-20 20:55:49

回楼上
(defun c:gc()
(setvar "cmdecho" 0)
(command "vbaload" "公差与配合.dvb" )
(command "-vbarun" "公差与配合.dvb!ThisDrawing.gc" )
(setvar "cmdecho" 1)
(princ)
)
这个可以，原来的应该也可以吧

未济 · 发表于 2012-3-21 12:19:08

谢谢，可改快捷键，插件也好用，但是有个问题，每次打开CAD或新建文档或此用命令都有如图提示，可否去除

woaishuijia · 发表于 2012-3-21 14:02:44

本帖最后由 woaishuijia 于 2012-3-21 14:03 编辑

本人的LSP引导程序已经改成了

(defun c:gc ()
% L5 f0 D, x; D( ]3 f
(setvar "CMDECHO" 0)
; y( c/ P+ J7 J+ X! t
(vl-vbarun "公差与配合.dvb!gc")
! F |; l* H# z# t" W
(princ)
/ a' Z! O* N7 o2 i
)

复制代码

wsj249201 · 发表于 2012-3-21 16:30:28

谢谢，可改快捷键，插件也好用，但是有个问题，每次打开CAD或新建文档或此用命令都有如图提示，可否去除
. q# J1 P2 F q未济发表于 2012-3-21 12:19 http://www.3dportal.cn/discuz/images/common/back.gif

将VBA源程序放在CAD支持路径下：
(defun c:gc()
(setvar "cmdecho" 0)
(command "-vbarun" "公差与配合.dvb!ThisDrawing.gc" )
(setvar "cmdecho" 1)
(princ)
)

未济 · 发表于 2012-3-21 18:14:36

试用了一下，有几个问题，是否可以改进，谢谢！
1、不能对坐标标注进行标公差，如图（问题1）；
2、正负公差标注的标注字体是否能改为如图（问题2）右边这样；
3、框内是否可用中键进行滑动如图（问题3）。

zhuguiping · 发表于 2012-3-21 23:11:01

LZ输入GC命令后怎么显示的不是你所说的那个界面呢？是不是加载的有问题？请多指教

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
系统		[系统通知] 平台第一个项目外包——项目拼多；正式上线，欢迎各单位个人有外包、设计、采购、加工需求的，在此寻找更牛的解决方案	2021-07-01

通知

[原创] 极限与配合公差标注程序(31楼,46楼更新)

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分