[求助]来自版主 zzxxqq的一个程序修改而来，但不知出错在哪里，大家帮忙看看。
 

[求助]来自版主 zzxxqq的一个程序修改而来，但不知出错在哪里，大家帮忙看看。
www.dimcax.com
[求助]来自版主 zzxxqq的一个程序修改而来，但不知出错在哪里，大家帮忙看看。
;相同内容文字相连线 明经 zzxxqq
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
( ".ucs" "w")
( ( ( s1 ( "\n请选取要连线的其中一个文字 :"))
( ent ((car s1)))
( ((assoc 0 ent)) "text")) (
( "\n框选所要连线的范围：")
( ( ss ( ( '(0 . "text") ( 1 ent)))) (
( j -1 ptlst ())
( ( ss)
( ent ((ssname ss ( j ( j))))
ptlst ( ((assoc 10 ent)) ptlst))
)
( pt0 ( "\n请点取开始连线的起始点 :")
i 1 k nil dst ( pt0 ( ptlst)) ln ( ptlst))
( (1- ln)
( pt1 ( i ptlst))
( ( ( pt0 pt1) dst) ( dst ( pt0 pt1) k i))
( i ( i))
)
; ( ptlst) ( k)
( k
( pt0 ( k ptlst)
ptmp ( pt0)
ptlst (
( ((member pt0 ( ptlst)))) ((member pt0 ptlst))))
)
( ptmp) ( ptlst)
( ( ( ptlst) 1)
( dst ( ( ptlst) pt0) j 1 k nil)
( ( j (1- ( ptlst)))
( pt1 ( j ptlst))
( ( ( pt0 pt1) dst) ( dst ( pt0 pt1) k j))
( j ( j))
)
( k
( pt0 ( k ptlst) ptmp ( ptmp ( pt0))
ptlst (
((cdr( pt0 ( ptlst)))) ((member pt0 ptlst))))
( pt0 ( ptlst) ptmp ( ptmp ( pt0)) ptlst ( ptlst))
)
( ptmp) ( ptlst)
)
( ptlst ( ptmp ptlst))
( i 0)
( ".pline" ( ptlst))
( (1- ( ptlst))
( ( ( i ( i)) ptlst))
)
( "")
( "_.change" () "" "p" "c" 1 "")
))
))
( ".ucs" "p")
()
)
踅摸
d
zzxx
谁能帮帮忙看看错在哪里，急用，谢谢！
d
好像这里就有问题：(setq j -1 ptlst (list))
(list)=nil
d
二楼已改。
踅摸