请教lisp问题
 

请教lisp问题
www.dimcax.com
请教lisp问题
我要实现一个lisp程序，功能如下:
选择一条线（直线或者曲线），获取它的相关信息，如果是直线，获取两端点坐标，如果是曲线，获取圆心坐标和半径
请问该怎么实现，谢谢
d
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
( c:tt ()
( ptl nil)
( (
( s1 ( "\n选择线条 :"))
( ent ((car s1)))
( ( ((assoc 0 ent)) "line")
( ((assoc 0 ent)) "arc")
( ((assoc 0 ent)) "circle"))
) (
(
(( ((assoc 0 ent)) "line")
( ptl ( "line" ((assoc 10 ent)) ((assoc 11 ent))))
)
(( ((assoc 0 ent)) "arc")
( ptl ( "arc" ((assoc 10 ent)) ((assoc 40 ent))))
)
(( ((assoc 0 ent)) "circle")
( ptl ( "circle" ((assoc 10 ent)) ((assoc 40 ent))))
)
)
))
ptl
)
踅摸
d
谢谢先
d