复制时,把特定的对象改为当前时间 YYYY.MO.DD-hh:mm
本帖最后由 669423907 于 2012-4-11 19:56 编辑哪位大师方便帮忙写一个小程序:
这个程序,就是相当于加强的 copy 命令,把要 copy 的选择集中的
1:类似 2012.00.00 数字(且含201)格式的部分改为 当前时间 2012.04.11 (八位码);
2:类似 2012.00.00-00:00 数字(且含201)格式的部分改为 当前时间 2012.04.11-19:35 (12位码);
3:且图层为“文字”层。
不满足以上三点的部分就原封不动的复制。
(setq date0 (menucmd "M=$(edtime,$(getvar,date),YYYY.MO.DD-hh:mm)"))
此句来于《开金工具箱》
这样,在复制图框时,日期就会自动更新了。
先在此谢过!有您的关注,CAD 更加智能化!
还真的不知道怎么设置楼主不用付费了!结贴多付一个金币无所谓吧?源代码呢! 本帖最后由 669423907 于 2012-4-12 21:45 编辑
此程序是很有意义的啊,甚至可以加到自动插入图框的程序中,以后再也不用插入日期时间或改日期时间了。
哪位大师方便帮帮忙,同时也让 CAD 更加智能化。
我的意思是:
1:先选择图 1
2:按下快捷键,程序提示 请指定复制基点
3:用鼠标点取基点
4:程序提示 请确定放置点
5:鼠标左键点取放置点,程序结束,得到图 2 的效果。
也就是说,程序自动识别选择集中需要改的地方,8 位码的自动改为 8 位码,12 为码的自动改为 12 位码。
上图了,再顶一次! 本帖最后由 【KAIXIN】 于 2012-4-15 09:53 编辑
669423907 发表于 2012-4-12 20:54 http://bbs.mjtd.com/static/image/common/back.gif
上图了,再顶一次!
不大好整啊!你的问题太简化了!
其实可以用复制后,文本替换解决......多一步就行!
文本替换的程序就简单了!
忘记说明一下,采用反应器不必任何命令,直接平常复制命令就可以.楼主可以放在cad启动项,每次都有这个效果了! danxingpen 发表于 2012-4-10 20:31 static/image/common/back.gif
还真的不知道怎么设置楼主不用付费了!结贴多付一个金币无所谓吧?源代码呢!
我本想这样的:
(defun c:c()
(setq ss (ssget "i"))
(if (= ss nil)(c1)(c2)))
(defun c1()
(command"circle")
(setvar"autosnap"63))
(defun c2()
自动改时间程序
(princ))
不知 danxingpen 大师是否方便再弄一下,如果能支持多行文字那就更好了!非常感谢您! 669423907 发表于 2012-4-18 14:42 static/image/common/back.gif
我本想这样的:
(defun c:c()
慎重用反应器! 669423907 发表于 2012-4-18 14:42 static/image/common/back.gif
我本想这样的:
(defun c:c()
支持多行文字?查找一下开发板块的正则表达式获取多行文本内容的程序,作为一个子程序,直接在我的程序上添加一行该子程序调用就可以!! 本帖最后由 669423907 于 2012-4-18 21:29 编辑
danxingpen 发表于 2012-4-18 20:38 http://bbs.mjtd.com/static/image/common/back.gif
支持多行文字?查找一下开发板块的正则表达式获取多行文本内容的程序,作为一个子程序,直接在我的程序上添加 ...
找到了,http://bbs.mjtd.com/thread-57445-1-1.html
但是看不懂,不会改!还有如何改成命令形式呢?还望明点!谢了。
页:
[1]
2