iCAx开思网

标题: 免费开发小程序 [打印本页]

作者: 10HOUSE 时间: 2007-6-20 22:51
标题: 免费开发小程序
真有免费的午餐，不要怀疑！
本人已经转型于设备制造行业，所以软件开发成了我的业余爱好。
现设备由现场人员制造，我有大把的时间，可以为各位开发一些AutoCAD内的小程序。
各位如有需要，请在此将你的需求表述出来，我将尽力而为。写好的小程序也将放置于此自由下载。
声明：只能是小功能，不要提工程浩大的东西，呵呵，变懒了。
程序运行环境：AutoCAD2004。

2007.07.07  V1.2
新增快捷方式
CTRL+鼠标左键来控制ZOOM-W命令(由SUNNY-BOY提出)
      该功能挺实用的，使用者可以左手按住Ctrl键，右手点击鼠标放大，可连续操作，一直按住
      Ctrl 键不松开，不挺点击范围进行放大
[attach]657936[/attach]

2007.07.06 V1.1

新增快捷方式
Ctrl W : zoom-w
Ctrl A : zoom-all
Ctrl E : zoom-e
Ctrl D : zoom-2x
Ctrl R : zoom-0.5x

新增指令
kk  开启所有的图层
gg  关闭所有的图层
k1  单独开启物体所在的图层
g1  关闭物体所在的图层

k2  开启某种颜色的图层
g2  关闭某种颜色的图层
cc  指定图形所在的图层为当前层
ee  清理重复图形、小图形、孤立点

ec  选颜色删图形
rc  选颜色保留图形
et  删除文字
ed  删除标注

[attach]657454[/attach]


2007.07.04
   为方便使用，做了一个安装程序。安装后在桌面生成一个快捷方式，点击快捷方式后自动启动ACAD2004/2006，并且自动将ARX程序加载进ACAD内。
   随着大家提出功能的增加，后续的命令记忆也会成为一个问题，为此，从这个版本开始，在ACAD内增加了工具条，随后增加的功能会直接放置在工具条内，也是便于大家的使用。
另外，最近几天个进度有点慢，因为在外地调试设备了，所以没及时编写程序和回复，在此向大家表示歉意！
[attach]656444[/attach]

如果安装后运行,系统有如下提示[attach]656686[/attach]
请下载下面的两个附件，解压缩，为MFC70.dll,MSVCR70.DLL，将这两个文件复制到windows\system32文件夹下即可
感谢“【中方模具】”的测试:
[attach]656687[/attach]
[attach]656691[/attach]

[ 本帖最后由 10HOUSE 于 2007-7-7 01:58 编辑 ]

作者: gcsm 时间: 2007-6-21 22:29
好了非常感谢啊
我想要一个模板自动标注程序
即同直径圆分类，同心的两个圆认为是一个，前缀标注在圆的中心或者旁边
例如：
%%c5.0通孔
A1 100.000 50.000
A2    60.000    90.000
%%c6.0通孔
B1 90.000 50.000
B2    80.000 90.000
%%c6.0通孔背面座空%%c6.0X3
C1 90.000 50.000
C2    80.000 90.000

作者: 10HOUSE 时间: 2007-6-21 23:34

原帖由 gcsm 于 2007-6-21 22:29 发表
好了非常感谢啊
我想要一个模板自动标注程序
即同直径圆分类，同心的两个圆认为是一个，前缀标注在圆的中心或者旁边
例如：
%%c5.0通孔
A1 100.000 50.000
A2 60.000 90.000
%%c6.0通孔
B1 ...

好，我试试，做好后上传
<工程还是有点大，这个应该是模具设计软件内的一个功能>

作者: 10HOUSE 时间: 2007-6-22 01:54
其操作过程为：
选择对象：<框选要处理的图形>
指定文字书写位置：<指定位置>

程序按照半径从小到大的顺序，用黄颜色字书写出来。

在执行该功能前，请设定好文字格式字体，大小(textsize)

该程序可改进的地方：
显示对话框，在对话框内指定文字字体、大小、颜色、图层等.

[ 本帖最后由 10HOUSE 于 2007-7-4 14:36 编辑 ]

作者: fangwei0000 时间: 2007-6-22 07:15
能不能做个缩放 X和Y可以有不同缩放的

作者: fangwei0000 时间: 2007-6-22 07:16

顶上

作者: 10HOUSE 时间: 2007-6-22 08:39

原帖由 fangwei0000 于 2007-6-22 07:15 发表
能不能做个缩放 X和Y可以有不同缩放的

这怎么缩放啊？一个圆，X方向缩放2倍，Y方向缩放4倍，成一椭圆？ACAD里面做不到啊！
如果专门针对四边形，倒是可以在XY方向通过拉伸不同的长度来实现，是不是这样？

作者: fangwei0000 时间: 2007-6-22 14:06
楼住机械版CAD用过没有? 机械版CAD里有此功能的

作者: 10HOUSE 时间: 2007-6-22 15:54

原帖由 fangwei0000 于 2007-6-22 14:06 发表
楼住机械版CAD用过没有? 机械版CAD里有此功能的

没有用过，能把圆变成椭圆？
你帖几张图片给我看看，或许我能明白

作者: fangwei0000 时间: 2007-6-22 17:40
我没安装以前用过了很好用不过运行速度太慢了

作者: fangwei0000 时间: 2007-6-22 18:15
安装了一个看下命令行就知道了我把圆变成了椭圆

作者: gcsm 时间: 2007-6-22 20:18
非常感谢啊
楼主神通
能否传授一下怎么修改那个东东啊

作者: zcjxp 时间: 2007-6-23 08:42
10HOUSE 兄你好交个朋友那吧,你的QQ告诉我下,我加你

作者: 10HOUSE 时间: 2007-6-23 15:28

原帖由 zcjxp 于 2007-6-23 08:42 发表
10HOUSE 兄你好交个朋友那吧,你的QQ告诉我下,我加你

QQ:41696781
群:3061806

作者: seaseasea 时间: 2007-6-24 10:12
頂頂頂!!!!

作者: 干锅肥肠 时间: 2007-6-24 14:13
楼主能编个画中心线的lisp吗

在不同的层都可以画，不用再去刷了。

作者: wen1235 时间: 2007-6-27 10:28
楼主你好，你能编一个这样的程序吗

是这样了，在CAD中捕捉的选项经常被一些外挂给清零了，
你能写一个锁定的程序吗，
谢了

作者: lostle 时间: 2007-6-27 11:50
自动标注里的原点设置呢？

作者: 10HOUSE 时间: 2007-6-29 01:32
前几天去外地出差了,没来得及回复,抱歉,这几天回答上述问题

作者: 10HOUSE 时间: 2007-6-29 01:35

原帖由 wen1235 于 2007-6-27 10:28 发表
楼主你好，你能编一个这样的程序吗

是这样了，在CAD中捕捉的选项经常被一些外挂给清零了，
你能写一个锁定的程序吗，
谢了

以我目前所掌握的资料，锁定是没办法做到，不过可以增加一个快捷指令，用于恢复你的设定，不知道这样的方案是否可以凑合着用，如可以的话，我可以实现。

作者: wen1235 时间: 2007-6-29 08:57
10HOUSE您能帮写吗？那非常感谢，我要的选项是四个系统默认的就可以，
因为这四个不会发生打架，其它的我用了快捷方式,
谢了

作者: 10HOUSE 时间: 2007-6-30 01:03

原帖由 干锅肥肠 于 2007-6-24 14:13 发表
楼主能编个画中心线的lisp吗

在不同的层都可以画，不用再去刷了。

“不用再去刷了”是什么意思？

你的要求是不是自动绘制圆/圆弧/多边形的十字中心线？

另：XY比例缩放不同比例，圆变椭圆已经实现，还差椭圆重新缩放、四边形缩放没有实现，做完后上传。
标注时增加了指定标注基准点的操作。

作者: fangwei0000 时间: 2007-6-30 07:20

原帖由 10HOUSE 于 2007-6-30 01:03 发表

“不用再去刷了”是什么意思？

你的要求是不是自动绘制圆/圆弧/多边形的十字中心线？

另：XY比例缩放不同比例，圆变椭圆已经实现，还差椭圆重新缩放、四边形缩放没有实现，做完后上传。
标注时 ...

期待楼主上船并表示感谢

作者: 10HOUSE 时间: 2007-7-4 09:03
为方便使用，做了一个安装程序。安装后在桌面生成一个快捷方式，点击快捷方式后自动启动ACAD2004/2006，并且自动将ARX程序加载进ACAD内。
随着大家提出功能的增加，后续的命令记忆也会成为一个问题，为此，从这个版本开始，在ACAD内增加了工具条，随后增加的功能会直接放置在工具条内，也是便于大家的使用。

另外，最近几天个进度有点慢，因为在外地调试设备了，所以没及时便鞋程序和回复，在次向大家表示歉意！

更新的安装程序以后都会放置在1楼，请大家在1楼下载最新的

作者: friendhsl 时间: 2007-7-4 11:14
我们做模具设计，常用坐标标注，但经常会有不在同一直线上的情况，可不可以开发一个东东可以自动对齐一排或一列的标注

作者: fangwei0000 时间: 2007-7-4 19:06
顶出精华来

作者: 10HOUSE 时间: 2007-7-4 21:00

原帖由 friendhsl 于 2007-7-4 11:14 发表
我们做模具设计，常用坐标标注，但经常会有不在同一直线上的情况，可不可以开发一个东东可以自动对齐一排或一列的标注

可以尝试一下

作者: Blue_star 时间: 2007-7-5 07:50

原帖由 10HOUSE 于 2007-6-29 01:35 发表

以我目前所掌握的资料，锁定是没办法做到，不过可以增加一个快捷指令，用于恢复你的设定，不知道这样的方案是否可以凑合着用，如可以的话，我可以实现。

我也很想要这样一个程序

这个是以前我用的
(defun c:CCD()
  (prompt "\n恢復捕捉模式:")
  (SETVAR "OSMODE" 703) ;模式可以自已定
)
;*******************************************************************************
(defun c:CDD()
  (prompt "\n取消捕捉模式:")
  setvar "osmode" 0
)

但是我现在装了PCCAD了，它就不能用了，也希望楼主能解决一下，谢谢

[ 本帖最后由 Blue_star 于 2007-7-5 07:52 编辑 ]

作者: 10HOUSE 时间: 2007-7-6 11:01
最新更新

2007.07.04

新增快捷方式
Ctrl W : zoom-w
Ctrl A : zoom-all
Ctrl E : zoom-e
Ctrl D : zoom-2x
Ctrl R : zoom-0.5x

2007.07.06  V1.1
新增指令
kk  开启所有的图层
gg  关闭所有的图层
k1  单独开启物体所在的图层
g1  关闭物体所在的图层

k2  开启某种颜色的图层
g2  关闭某种颜色的图层
cc  指定图形所在的图层为当前层
ee  清理重复图形、小图形、孤立点

ec  选颜色删图形
rc  选颜色保留图形
et  删除文字
ed  删除标注

请在1楼下载V1.1安装程序

[ 本帖最后由 10HOUSE 于 2007-7-6 11:04 编辑 ]

作者: fangwei0000 时间: 2007-7-6 11:22
楼住无私强顶

作者: SUNNY-BOY 时间: 2007-7-6 20:58
10house先生我说的是用CTRL+鼠标左键来控制ZOOM-W命令。如果用CTRL+W控制我早就回了。请帮忙解决，谢谢！

作者: 10HOUSE 时间: 2007-7-7 01:51

原帖由 SUNNY-BOY 于 2007-7-6 20:58 发表
10house先生我说的是用CTRL+鼠标左键来控制ZOOM-W命令。如果用CTRL+W控制我早就回了。请帮忙解决，谢谢！

可以了,在一楼下载V1.2的版本里面已经包含此功能了.

该功能挺实用的，使用者可以左手按住Ctrl键，右手点击鼠标放大，可连续操作，一直按住Ctrl 键不松开，不断点击范围进行放大。

你是怎么想到需要此种操作的呢，挺好的，多提一些，让大家也分享你的方便快捷.

作者: fangwei0000 时间: 2007-7-7 07:37
楼主一定会成为CAD界的网络红人就象燕秀工具一样支持免费支持楼住大好人

作者: fangwei0000 时间: 2007-7-7 07:43
楼主能不能做个齿轮和齿条程序还有抛物线的程序就如同CAXA里的谢谢每天顶

[ 本帖最后由 fangwei0000 于 2007-7-7 07:55 编辑 ]

作者: 10HOUSE 时间: 2007-7-8 00:47

原帖由 fangwei0000 于 2007-7-7 07:43 发表
楼主能不能做个齿轮和齿条程序还有抛物线的程序就如同CAXA里的谢谢每天顶

齿轮的可以,齿条和抛物线,则没那么快

作者: fangwei0000 时间: 2007-7-8 08:19
支持楼主积少成多做个功能强大的工具箱

就以你可爱的小女儿命名

1可谓为女儿成长做了一件有意义的事
2做的好话囡囡以后成名可有望啊

3也是最重要的一点就是楼住热血为社会做出了无私的奉献

楼主

作者: zdglz 时间: 2007-7-8 11:17
不错，顶下

作者: fangwei0000 时间: 2007-7-12 18:01
来顶下

作者: 10HOUSE 时间: 2007-7-13 18:55
呵呵,我也顶下,晚上上传新增功能

作者: xubojian 时间: 2007-7-14 15:29

原帖由 zdglz 于 2007-7-8 11:17 发表
不错，顶下

laji

作者: fangwei0000 时间: 2007-7-21 18:42
怎么不见楼住发话了!!!!!!!!!!

作者: gyy5241 时间: 2007-7-23 19:26
dddddd

作者: lxsl_hzj 时间: 2007-7-29 11:48
能够试试做一个，多文档批量修改字体的小程序吗？

作者: roger020203 时间: 2007-8-14 12:52
应该是例如先绘制一个圆形，作成块，再插入的时候对X，Y选不同的缩放比例，出来就是椭圆了

作者: oolongqia 时间: 2007-9-6 14:43
经常在CAD中用中键放大缩小或是平移，手指太吃力，本来用过CADCEUS软件，里面平移、旋转、缩放是按F1、F2、F3再移动鼠标就可以了，不用按鼠标键的，觉得非常省力。楼主能否试试，CAD毕竟以2D为主，只要平移、缩放就行，在CAD里F1、F2、F3已经用掉了，比如按住CTRL+向上移动鼠标放大，向下移动鼠标缩小，平移嘛，按SHIFT+移动鼠标就行，先在这谢谢了

作者: xiayuanwei 时间: 2007-10-1 21:31
PRESS CAD 里有CV

作者: 2695352 时间: 2007-10-19 16:00
做一个飞毛腿工具箱的工能，个人感觉很好用，但免费注册是过期了，我的电脑有升级了，所以用不了，另外我想提个意见就是可不可以工具条部份可以人性化一点，可加可不加，因想用命令就不用占用屏幕的空间位置，谢谢楼主

作者: ldxcc 时间: 2007-10-23 15:23
老大：麻烦你做个可以直接插入时间的外挂吗？

就是做一个图标！一点就可以在标题栏里面直接插入当前日期！！！！

作者: xubojian 时间: 2007-10-23 19:48

原帖由 ldxcc 于 2007-10-23 15:23 发表
老大：麻烦你做个可以直接插入时间的外挂吗？

就是做一个图标！一点就可以在标题栏里面直接插入当前日期！！！！

(defun C:it()
(setq pt0 (getpoint "\n请指定插入位置点 :"))
(setq date0 (menucmd "M=$(edtime,$(getvar,date), YYYY.M.D hh:mm:ss)"))
(command "text" "j" "m" pt0 5.0 0 date0)
(princ)
)

作者: xubojian 时间: 2007-10-23 20:07

原帖由 10HOUSE 于 2007-6-30 01:03 发表

“不用再去刷了”是什么意思？

你的要求是不是自动绘制圆/圆弧/多边形的十字中心线？

另：XY比例缩放不同比例，圆变椭圆已经实现，还差椭圆重新缩放、四边形缩放没有实现，做完后上传。
标注时 ...

是可以的其实是因为程序里设置了(setvar "clayer" "center") 你把它去掉
你所画的中心线就是以当前图层画的了

作者: ldxcc 时间: 2007-10-27 08:57
[quote]原帖由 xubojian 于 2007-10-23 19:48 发表

(defun C:it()
(setq pt0 (getpoint "\n请指定插入位置点 :"))
(setq date0 (menucmd "M=$(edtime,$(getvar,date), YYYY.M.D hh:mm:ss)"))
(command "text" ... [/qu
请问如果只要年月日的话！怎么改啊？？？

作者: jlven 时间: 2007-10-31 19:48
非常感谢楼主无私精神。不过，我用了，有点意见不知可否改进？
1：ctrl+左键是可以放大，但在使用命令过程中有问题，如：我画一条线，点了一个端点后，接着用ctrl+左键，但问题来了，我点命令的同时，画的线条也跟着画完了第二个端点。标注也是同样。不知可否再改改，就像透明命令一样。
2:里面的快捷命令可否自定义，包括ctrl+w键等等。

以上如果可以改进就实在是完美了。

作者: LMCC 时间: 2007-11-1 16:14
楼主你好，你能编一个这样的程序吗
1.框选成快,快层随原图层.2.框选成组

作者: 10HOUSE 时间: 2007-11-7 23:42
有段时间没有来了，抱歉！
我们可能会将大家提出的一些好的想法，集中在另外一个软件里面实现，详见https://www.icax.org/thread-382079-1-2.html
因为那个软件比较系统，而且也是免费的，所以我们在以后，会重点维护那套系统，新增的功能也会加入其中。
多谢大家的支持！

作者: c3105 时间: 2007-11-11 00:00
非常感谢啊

作者: gandefeng 时间: 2007-11-18 10:56
因工作中需标很多尺寸，并且要在每个尺寸前加上序号以便测量，所以请兄台帮手做一个标序号的外挂，不胜感激。思路我已想好，1.点开工具后首先提示输入开始序号（如：1，或15，……）；2.输入序号后就在绘图区点选插入序号的位置，生成一个圆，里面是序号，接着点选下一位置，序号递增，下一个，下一个……直到回车结束。另：请教一下，AUTO CAD的外挂在ZW CAD中能用吗？

作者: 天辰 时间: 2008-5-17 11:00
楼主：
在一个用户坐标系里，画一条SPLINE线，要能够提取X、Y坐标点（如X点整数变化1，2，3，4.........或者2，4，6，8...........；
也或者Y点整数变化1，2，3，4.........或者2，4，6，8...........；）
谢谢。

欢迎光临 iCAx开思网 (https://www.icax.org/)