求助高手帮帮忙，lisp可不可以给数组赋值呀
 

求助高手帮帮忙，lisp可不可以给数组赋值呀
www.dimcax.com
求助高手帮帮忙，lisp可不可以给数组赋值呀如何实行将已选择的实体（直线、圆、圆弧）按指定的个数和缺口宽度打断，编程时要用到内循环,但我不知如何去设置变量,lisp有没有可以用数组做变量名的?请求高手给出范例.
d
不用数组也行。
以下内容需要帖子数达到16才可以浏览
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
( w ( ( "\n桥宽" ( ( ( "user1") 0) ( "<" ( ( "userr1") 2 2) ">:") " :"))
w ( w w 4) w05 ( w 0.5)
s ( ( "\n个数" ( ( ( "useri1") 0) ( "<" ( ( "useri1")) ">:") " :"))
s ( s s 1)
olds ( "osmode"))
( "osmode" 0)
( pt1 ( "\nselect a object 选择目标 :"))
( ( pt1 nil) (
( pt ( pt1 "near"))
( ( pt nil) (
( ss ( "c" pt pt) dl ( ( ss 0)) sn ( ( 0 dl)))
( ( sn "line") (mline))
( ( sn "arc") (marc))
( ( sn "circle") (mcircle))
) (
( pt2 ( pt1 "\nsecand point 第二点 :")
ss ( "c" pt1 pt2) sl ( ss) i 0)
( ( i sl)
( dl ( ( ss i)) i ( i) sn ( ( 0 dl)))
( ( sn "line") (mline))
( ( sn "arc") (marc))
( ( sn "circle") (mcircle))
)
))
))
( "osmode" olds)
()
)
( mline ()
( pt1 ( ( 10 dl)) p2 ( ( 11 dl))
ds ( ( pt1 p2) ( s)) a ( pt1 p2))
( ( ( ( pt1 p2) ( w s)) ( ( s 1) ( ds w))) (
( "change" ss "" "p" "la" "0" "c" "7" "")
( s
( pt1 ( pt1 a ds) p1 ( pt1 a (- w05)) p2 ( p1 a w))
( "break" p1 p2)
)
)
( "\ncon't to break this line! 本线段无法打桥断!")
)
)
( marc ()
( pc ( ( 10 dl)) r ( ( 40 dl))
a ( ( 50 dl)) ange ( ( 51 dl))
ange ( ( ange a) ( ange pi pi) ange)
lr ( (- ange a) r)
ang1 ( (- ange a) ( s)))
( ( ( lr ( w s)) ( ( s 1) ( ( lr ( s)) w))) (
( "change" ss "" "p" "la" "0" "c" "7" "")
( s
( a ( a ang1) pt1 ( pc a r)
p2 ( pt1 (- a al1) w05) p1 ( pt1 ( a al1) w05))
( "break" pt1 "f" p1 p2)
)
)
( "\ncon't to break this arc! 本弧段无法打桥断!")
)
)
( mcircle ()
( pc ( ( 10 dl)) r ( ( 40 dl))
ang1 ( ( pi pi) s) a 0 lr ( 2 pi r))
( ( lr ( w s)) (
( "change" ss "" "p" "la" "0" "c" "7" "")
( s
( pt1 ( pc a r)
p2 ( pt1 (- a al1) w05) p1 ( pt1 ( a al1) w05))
( ( a 0)
( "break" pt1 "f" p2 p1)
( "break" pt1 "f" p1 p2)
)
( a ( a ang1))
)
)
( "\ncon't to break this circle! 本圆无法打桥断!")
)
)
()
踅摸
【好评】 z版是个热心人 明经币+2 金钱+5 [caoyin |
d
非常感谢
d