免费开发小程序

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

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

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

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

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

非常感谢啊

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

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