[求助]一个槽钢的lisp程序源码
 

[求助]一个槽钢的lisp程序源码
www.dimcax.com
[求助]一个槽钢的lisp程序源码
请版主看看这个程序是怎么回事，知问题出在什么地方，请版主帮忙给整整
请使用winrar软件打开rar压缩文件。
d
(new_dialog "ddcsteel" dcl_id)
===>
(new_dialog "ddlsteel" dcl_id)
-----------------------------------
(setq h 50
b 37.0
d 4.5
;t 7.0 ; t = true 别用来当变量 / 其余同
thk 7.0
r 7.0
)
--------------------------------------
再调试 / 还未通过 ....
另有些值也请给出合理值方便调试 .... (我完全外行啦!)
d
谢谢指导,是用thk代替t,是吗，
d
以下内容需要帖子数达到5才可以浏览
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
; c-steel
; prog.by hsw
( c:ddcsteel ( ll dcl_id c-steel_cb bp vv x y
p1 p2 p3 p41 p42 p51 p52 p61 p62 p71 p72 p81 p82)
( c-steel_cb()
( leixing ( "leixing"))
( kuandu ( "kuandu"))
( gaodu ( "gaodu"))
( houdu ( "houdu"))
)
( type_cb ()
( vv ( "type"))
(
(( vv "0") ( h 50 b 37.0 d 4.5 ts 7.0 r 7.0 r1 3.5))
(( vv "1") ( h 80 b 43.0 d 5.0 ts 8.0 r 8.0 r1 4.0))
(( vv "2") ( h 100 b 48.0 d 5.3 ts 8.5 r 8.5 r1 4.25))
(( vv "3") ( h 120 b 53.0 d 5.5 ts 9.0 r 9.0 r1 4.5))
(( vv "4") ( h 160 b 63.0 d 6.5 ts 10.0 r 10.0 r1 5.0))
(( vv "5") ( h 180 b 68.0 d 7.0 ts 10.5 r 10.5 r1 5.5))
(( vv "6") ( h 180 b 70.0 d 9.0 ts 10.5 r 10.5 r1 5.5))
(( vv "9") ( h 250 b 80.0 d 9.0 ts 12.0 r 12.0 r1 6.0))
(( vv "10") ( h 280 b 84.0 d 9.5 ts 12.5 r 12.5 r1 6.25))
(( vv "11") ( h 360 b 106.0 d 7.5 ts 11.7 r 14.0 r1 6.0))
)
( "kuandu" ( h 2 1))
( "gaodu" ( b 2 1))
( "houdu" ( d 2 1))
)
( olderr *error* *error* myerror)
( oldcmd ( "cmdecho"))
( oldosmode ( "osmode"))
( oldorthomode ( "orthomode"))
( oldlayer ( "clayer"))
( "cmdecho" 0)
( "osmode" 32)
( tplst
( "[50x37x4.5" "[80x43x5.0" "[100x48x5.3" "[120x53x5.5" "[160x63x6.5" "[180x68x7.0"
( bp ( "\n输入插入点:"))
( "osmode" 0)
( ( ( dcl_id ( "ddcsteel.dcl")) 0) ())
( "ddcsteel" dcl_id)
( x ( "image_c") y ( "image_c"))
( "image_c")
( 0 0 x y "ddhelp(c-steel)")
()
( "type")
( 'add_list tplst)
()
( "xingcai" "(xingcai_cb)")
( "yaxing" "(yaxing_cb)")
( "type" "(type_cb)")
( "accept" "(c-steel_cb)( 2)")
( "cancel" "( 0)")
( what_next ())
( ( what_next 2)
( ( leixing "xingcai") (
; ( h width b highth d thick)
( p1 ( ( bp) ( ( bp) h)))
( p2 ( ( ( p1) b) ( p1)))
( p3 ( ( ( bp) b) ( bp)))
( p41 ( (- ( p2) ( (- b d) 2)) (- ( p2) ts)))
( p42 ( (- ( p3) ( (- b d) 2)) ( ( p3) ts)))
( x (- ( (- b d) 2) r1))
( y ( x 10))
( p51 ( ( ( p41) x) ( ( p41) y)))
( p52 ( ( ( p42) x) (- ( p42) y)))
( p81 ( ( p2) ( ( p51) r1)))
( p82 ( ( p3) (- ( p52) r1)))
( x (- ( (- b d) 2) ( r (- 1 ( ( 101) 100)))))
( y ( x 10))
( p61 ( (- ( p41) x) (- ( p41) y)))
( p62 ( (- ( p42) x) ( ( p42) y)))
( y ( ( ( 10 r) ( 101)) y))
( p71 ( ( ( p1) d) (- ( p41) y)))
( p72 ( ( ( bp) d) ( ( p42) y)))
( "osmode" 0)
( "layer" "s" "0" "")
( "pline" bp p1 p2 p81 "a" p51 "l" p61 "a" p71 "l" p72 "a" p62
"l" p52 "a" p82 "l" p3 bp "")
( ss ( "l"))
( "\n请输入插入角度:")
( "rotate" ss "" bp pause)
);end progn
( ( ( kuandu "") ( gaodu "") ( houdu "")) (
( kuandu ( kuandu))
( gaodu ( gaodu))
( houdu ( houdu))
( bp1 ( ( ( bp) gaodu) ( bp)))
( bp2 ( ( ( bp) ( 2 houdu)) ( bp)))
( bp3 ( ( bp) (- ( bp) ( 2 houdu))))
( bp4 ( ( bp) (- ( bp) (- kuandu ( 2 houdu)))))
( bp5 ( ( ( bp) ( 2 houdu)) (- ( bp) kuandu)))
( bp6 ( ( ( bp) gaodu) (- ( bp) kuandu)))
( bp7 ( ( ( bp) gaodu) (- ( bp) (- kuandu houdu))))
( bp8 ( ( ( bp) ( 2 houdu)) (- ( bp) (- kuandu houdu))))
( bp9 ( ( ( bp) houdu) (- ( bp) (- kuandu ( 2 houdu)))))
( bp10 ( ( ( bp) houdu) (- ( bp) ( 2 houdu))))
( bp11 ( ( ( bp) ( 2 houdu)) (- ( bp) houdu)))
( bp12 ( ( ( bp) gaodu) (- ( bp) houdu)))
( "osmode" 0)
( "clayer" "0")
( "pline" bp1 bp2 "a" bp3 "l" bp4 "a" bp5 "l" bp6 bp7 bp8 "a" bp9 "l"
bp10 "a" bp11 "l" bp12 bp1 "")
( ss ( "l"))
( "\n请输入插入角度:")
( "rotate" ss "" bp pause)
);end progn
( "压型槽钢数据没有输入!")
);end if
);end if
);end if
( dcl_id)
( "clayer" oldlayer)
( "orthomode" oldorthomode)
( "osmode" oldosmode)
( "cmdecho" oldcmd)
( *error* olderr)
( "\n 谢谢使用 ddcsteel 3.0!")
()
)
( " ddcsteel 3.0 loaded.")
()
踅摸
d
辛苦了版主，我刚学lisp，有好多东西还没掌握，这个是在网上下的，我试了一下其中的角钢程序就想用它的槽钢程序，结果遇到了难题，谢谢版式主了
d