设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › [编程申请]：能不能帮忙编个程序在R14下能打印出系统时 ...
12下一页
返回列表 发新帖
查看: 1908|回复: 16

[编程申请]：能不能帮忙编个程序在R14下能打印出系统时间！

[复制链接]
SANWELL
发表于 2002-11-21 11:28:10 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×
谢谢！
帮忙, 谢谢, 不能

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

efan2000

已领礼包: 181个

财富等级: 日进斗金
发表于 2002-11-21 11:35:38 | 显示全部楼层
看看下面的代码。

  3.   [FONT=courier new]
  4. (setq sDateTime (rtos (getvar "CDATE") 2 6))
  5. (prompt (strcat "\n***********" (substr sDateTime 1 4) "年" (substr sDateTime 5 2) "月" (substr sDateTime 7 2) "日   "))
  6. (prompt (strcat (substr sDateTime 10 2) "时" (substr sDateTime 12 2) "分" (substr sDateTime 14 2) "秒************"))
  7. (setq sDateTime nil)
  8.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LIJUN4858
发表于 2002-11-21 16:15:30 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
在打印机属性中也可设置打印时间
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

SANWELL
 楼主| 发表于 2002-11-21 18:10:00 | 显示全部楼层

谢谢！但不知怎样运行它！

谢谢！但不知怎样运行它！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

秋枫
发表于 2002-11-21 19:52:11 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
上述代码存成一个文件即可。

  3. (setq sDateTime (rtos (getvar "CDATE") 2 6))
  4. (prompt (strcat "\n***********" (substr sDateTime 1 4) "年" (substr sDateTime 5 2) "月" (substr sDateTime 7 2) "日   "))
  5. (prompt (strcat (substr sDateTime 10 2) "时" (substr sDateTime 12 2) "分" (substr sDateTime 14 2) "秒************"))
  6. (setq sDateTime nil)
  7. (princ)

见附件。把这个文件拖入autocad窗口即可。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zhb2516
发表于 2002-11-21 22:31:05 | 显示全部楼层
为什么只是在命令行显示出系统时间，它不会直接写在CAD界面中吗？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yi.gao
发表于 2002-11-21 22:51:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我是在每次调入相应图框文件时直接完成当前日期设置的。将图框文件中的销售代表姓名、文件名、比例、日期等设置为属性，除日期外的其它属性均由键盘输入完成，日期设置是自动完成的。程序中的"2 3 4"分别指A2、A3、A4图纸图框，图框文件名为title-2d-a4、title-3d-a4等，2d为二维空间的图框，3d为三维空间的图框。这个小程序是很久以前完成的，现在因为工作换了就不再使用了。它虽然能完成自动输入当前日期的功能，只是与别的朋友的程序相比复杂不少，而且它不能完成自动更新日期的功能。就是说创建图框的日期就是当前日期，下次打开同一文件只能通过更改属性值来更改日期。


  3. [FONT=courier new]
  4. (defun c:tt()
  5.    (initget 1 "2 3 4")
  6.    (setq paper (getkword "2\\3\\4:"))
  7.    (setq point (getpoint "Pick the insert point"))
  8.    (setq sales (getstring "\n 销售代表:"))
  9.    (setq filename (getstring "\n 文件名:"))
  10.    (setq scale-1 (getstring "\n 比例:"))
  11.    (setq cdate (getvar "cdate"))
  12.    (setq datestr (rtos cdate 1 12 ))
  13.    (setq year (substr datestr 4 2))
  14.    (setq month (substr datestr 6 2))
  15.    (setq date (substr datestr 8 2))
  16.    (setq ymd (strcat year "/" month "/" date))
  17.    (setq scale-2 (atoi (substr scale-1 3)))
  18.    (cond
  19.      ((= paper "4")
  20.       (command "insert" "c:/autocad r14/uni-tac/lamex/other/title-2d-a4" point scale-2
  21.                "" "0" "" sales filename scale-1 ymd "")
  22.       (command "-layer" "new" "title-3d" "freeze" "title-3d" "")
  23.       (command "insert" "c:/autocad r14/uni-tac/lamex/other/title-3d-a4" point scale-2
  24.                "" "0" "" sales filename scale-1 ymd "")
  25.      )
  26.      ((= paper "3")
  27.       (command "insert" "c:/autocad r14/uni-tac/lamex/other/title-2d-a3" point scale-2
  28.                "" "0" "" sales filename scale-1 ymd "")
  29.       (command "-layer" "new" "title-3d" "freeze" "title-3d" "")
  30.       (command "insert" "c:/autocad r14/uni-tac/lamex/other/title-3d-a3" point scale-2
  31.                "" "0" "" sales filename scale-1 ymd "")
  32.      )
  33.      ((= paper "2")
  34.       (command "insert" "c:/autocad r14/uni-tac/lamex/other/title-2d-a2" point scale-2
  35.                "" "0" "" sales filename scale-1 ymd "")
  36.       (command "-layer" "new" "title-3d" "freeze" "title-3d" "")
  37.       (command "insert" "c:/autocad r14/uni-tac/lamex/other/title-3d-a2" point scale-2
  38.                "" "0" "" sales filename scale-1 ymd "")
  39.      )
  40.    )
  41. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

SANWELL
 楼主| 发表于 2002-11-23 19:12:29 | 显示全部楼层
最初由 yi.gao 发布
[B]我是在每次调入相应图框文件时直接完成当前日期设置的。将图框文件中的销售代表姓名、文件名、比例、日期等设置为属性，除日期外的其它属性均由键盘输入完成，日期设置是自动完成的。程序中的"2 3 4"分别指A2、A3、A... [/B]


谢谢！按照此方法我以前有试过，但是这种方法是你所插入的块不能打散，一打散就不行了，而且也没有办法自动更新当前系统日期，不知有没有其它的方法？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2002-11-24 08:43:48 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
用反应器可以完成自动更新。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

SANWELL
 楼主| 发表于 2002-11-25 09:51:41 | 显示全部楼层

谢谢！能不能具体一点。

何为反应器
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

e2002

已领礼包: 23个

财富等级: 恭喜发财
发表于 2002-11-25 11:33:35 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
用ExpressTools提供的Rtext对象试试。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

SANWELL
 楼主| 发表于 2002-11-25 18:06:05 | 显示全部楼层

此工具好像只能在acad2002下用，R14下不能用

最初由 e2002 发布
[B]用ExpressTools提供的Rtext对象试试。。。 [/B]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

efan2000

已领礼包: 181个

财富等级: 日进斗金
发表于 2002-11-25 18:09:53 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

Re: 谢谢！能不能具体一点。

最初由 SANWELL 发布
[B]何为反应器 [/B]


跟事件差不多，就是在图纸打开、保存、打印或其它一些操作时触发的事件，在这里可以编程控制系统怎么对这些事件进行反映。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2002-11-25 18:11:54 | 显示全部楼层

Re: 此工具好像只能在acad2002下用，R14下不能用

最初由 SANWELL 发布
[B] [/B]


你用 Rtext  搜索 秋枫 发的帖子，论坛介绍过的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

SANWELL
 楼主| 发表于 2002-11-26 12:49:51 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
还有其它办法吗？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-20 02:09 , Processed in 0.224424 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表