免费开发小程序

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

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




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  删除标注


  

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



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



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

楼主：
      在一个用户坐标系里，画一条SPLINE线，要能够提取X、Y坐标点（如X点整数变化1，2，3，4.........或者2，4，6，8...........；
也或者Y点整数变化1，2，3，4.........或者2，4，6，8...........；）
      谢谢。

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

非常感谢啊

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

楼主你好，你能编一个这样的程序吗
   1.框选成快,快层随原图层.2.框选成组

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

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

[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
请问如果只要年月日的话！怎么改啊？？？

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


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

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

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

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

原帖由 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)
)