乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 135|回复: 8

[现学现用]会动的cad----会走的闹钟!

[复制链接]

33

主题

253

帖子

9

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
385
发表于 2004-6-15 19:14:00 | 显示全部楼层 |阅读模式
学习高手们的思路,我学着用cad作了个会动的闹钟,其实还可以再扩展为实体,或者电子显示表,因为时间的原因只能做到这个地步.....希望大家热烈参与讨论并完善.....在此现谢谢大家!!

it513colhfx.gif

it513colhfx.gif

回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2004-6-15 19:18:00 | 显示全部楼层
不错不错,恭喜恭喜
回复

使用道具 举报

33

主题

253

帖子

9

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
385
发表于 2004-6-15 19:25:00 | 显示全部楼层
把源代码贴给大家,不过这个思路是从高手那里学来的.....为了讨论,也只好借花现佛....附件是lsp运行的cad图形。打开图形加载程序输入"bb"侧从零开始转起.....希望高手改进.....不要每次都总是从零开始转起....
;========================
;从零开始的闹钟
;ljc 2004.6.15
;========================
(defun c:BB ()
         (command "ucs" "w")
         (setq os (getvar "osmode"))
         (setvar "osmode" 0)                                                                                                                                                                 
         (setq ho (getvar "cmdecho"))
         (setvar "CMDECHO" 0)
         (command "erase" "all" "")
         (COMMAND "-INSERT" "bp" (LIST 0 0 0) "" "" "")
         (COMMAND "-INSERT" "H" (LIST 0 0 10) "" "" "")
         (setq H (entget (entlast)))
         (COMMAND "-INSERT" "M" (LIST 0 0 20) "" "" "")
         (setq M (entget (entlast)))                                                                                                                                                 
         (COMMAND "-INSERT" "S" (LIST 0 0 30) "" "" "")
         (setq S (entget (entlast)))
         (SETQ N 1 nn 1 nnn 1)
                 (while t
                         (SETQ SJ         (* (/ n -30.0) pi ) )
                         (setq S (subst (cons 50 SJ) (assoc 50 S) S))
                         (SETQ mJ         (* (/ nnn -1800.0) pi ) )
                         (setq m (subst (cons 50 mJ) (assoc 50 m) m))
                         (entmod S)(entmod m)
                         (COMMAND "DELAY" "1000")
                         (if (= n 60)
                                                                         (progn
                                                                                                                 (setq n 1)
                                                                                                                 (SETQ hJ         (* (/ nn -360.0) pi ) )
                                                                                                                 (setq h (subst (cons 50 hJ) (assoc 50 h) h))         
                                                                                                                 (COMMAND "DELAY" "0")
                                                                                                                 (entmod h)
                                                                                                                 (setq nn (+ nn 1))                                                                                                 
                                                                         )
                                                                                                                                 (SETQ N (+ N 1))
                         );if
                         (setq nnn (+ nnn 1))
                         (if (= nnn 3600) (setq nnn 1))
         );while
         
         (setvar "osmode" os)
         (setvar "cmdecho" ho)                                                 
)
       
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:widfgaivnki.dwg 
下载次数:0  文件大小:43.51 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

0

主题

6

帖子

1

银币

初来乍到

Rank: 1

铜币
6
发表于 2004-6-15 20:50:00 | 显示全部楼层
厉害啊!好佩服啊。。。。。。怎么可以这样子呢?
回复

使用道具 举报

0

主题

2

帖子

2

银币

初来乍到

Rank: 1

铜币
2
发表于 2004-6-15 22:04:00 | 显示全部楼层
不错,不错
回复

使用道具 举报

26

主题

87

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
191
发表于 2004-6-16 08:33:00 | 显示全部楼层

ptxt0ipcnyi.JPG

ptxt0ipcnyi.JPG

回复

使用道具 举报

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-6-16 10:37:00 | 显示全部楼层
你把他的表.dwgCOPY到你的CAD安装目录下的support目录下
就OK了
回复

使用道具 举报

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-6-16 10:40:00 | 显示全部楼层
ljcgq你越来越强了!
真佩服!
回复

使用道具 举报

33

主题

253

帖子

9

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
385
发表于 2004-6-16 11:29:00 | 显示全部楼层
ldb1420:你把表.dwg文件打开,然后加载程序,运行。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 23:09 , Processed in 2.093280 second(s), 76 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表