[原创] 一个附带轨迹的 多点获取函数
 

[原创] 一个附带轨迹的 多点获取函数
www.dimcax.com
[原创] 一个附带轨迹的 多点获取函数
( ef:getnpointwithline n b lstprompt)
;带连线获取n点坐标
;n 需要获取的点数目
;lstprompt 获取每个点前提示列表 如 ("获取第1点" "获取第2点" "获取第3点" "结束点")
;b 是否立即清除临时线段 t 每获取一个点立即删除之前绘制的临时线段 f 获取所有点后删除临时线段
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
;带连线获取n点坐标
;n 需要获取的点数目
;lstprompt 获取每个点前提示列表 如 ("获取第1点" "获取第2点" "获取第3点" "结束点")
;b 是否立即清除临时线段 t 每获取一个点立即删除之前绘制的临时线段 f 获取所有点后删除临时线段
( ef:getnpointwithline ( n b lstprompt / ptlist i ss )
( "cmdecho" 0)
(
lastent ()
ptlist nil
ptlist ( ( ( ( lstprompt) ( lstprompt) "获取第一点:")) ptlist)
i 2
ss ()
lstprompt ( lstprompt)
)
( ( i n)
( ( lstprompt)
(
( ( lstprompt))
( lstprompt ( lstprompt))
)
( "\n点选下一点")
)
( "line" ( ptlist) pause "")
( ( lastent ())
( "line" ( ptlist) pause "")
)
(
ptlist ( ( ( 11 ( ()))) ptlist)
i ( i)
)
( b ( ()) ( ss ( () ss)))
)
( ( b) ( "erase" ss ""))
ptlist
); end ef:getnpointwithline
d
恰好对我手头上的一个问题有参考作用,保存了 .
d
多谢，收藏备用！！！
d