[求助]：请大家帮我修改以下这个程序

xyp1964

最初由 laoxie_1983 发布
[B]谢谢！斑竹！
　　我运行了．不能满足我的要求点号还是乱的．
　我想到一个方法，可以在图形里定一点．然后分别与每个端点计算角度，用最接近１３５度的那个点作为起始点．你看可以吗？vlx的文件是怎么编辑的呀？?.. [/B]

发个图上来（包括测试的结果）。

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
14. |;
    
15. 
    
16. ;;;界址点号
    
17. (defun c:jzdh ()
    
18.   (CMDLASC0)
    
19.   (setvar "osmode" 0)
    
20.   (setq        ss  (ssget '((0 . "*POLYLINE")))
    
21.         ttx ""
    
22.         l   0
    
23.         i   -1
    
24.   )
    
25.   (mkla "线长标注" 4)
    
26.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
27.     (setq ptlst-a (xyp-get-Vertexes s1 t)
    
28.           ptlst-b ptlst-a
    
29.           pt0          (osnap (cadr (entsel "\n桩号1位置 : ")) "int")
    
30.     )
    
31.     (jiezhihao)
    
32.     (mkla "界址点" 1)
    
33.     (foreach n ptlst-a (command "circle" n 1))
    
34.     (mkla "界址长" 4)
    
35.     (while (setq pt1 (car ptlst-a))
    
36.       (if (setq ptlst-a (cdr ptlst-a))
    
37.         (progn
    
38.           (setq        pt2   (car ptlst-a)
    
39.                 leng  (distance pt1 pt2)
    
40.                 tx    (rtos leng 2 2)
    
41.                 ang   (rad2ang (angle pt1 pt2))
    
42.                 pt-tx (xyp-get-RightPoint pt1 pt2 100)
    
43.                 ttx   (strcat ttx "+" tx)
    
44.                 l     (+ l leng)
    
45.           )
    
46.           (command "text" "j" "BC" pt-tx (* sc 300) ang tx)
    
47.         )
    
48.       )
    
49.     )
    
50.   )
    
51.   (CMDLA1)
    
52. )
    
53. (defun jiezhihao ()
    
54.   (mkla "界址号" 2)
    
55.   (setq j 0)
    
56.   (while (not (equal (car ptlst-b) pt0))
    
57.     (setq ptlst-b (append (cdr ptlst-b) (list (car ptlst-b))))
    
58.   )
    
59.   (foreach ptx ptlst-b
    
60.     (progn
    
61.       (setq jh (strcat "J" (rtos (setq j (1+ j)) 2 0)))
    
62.       (command "text"
    
63.                "j"
    
64.                "MC"
    
65.                (polar ptx (* pi 0.75) (* sc 500))
    
66.                (* sc 300)
    
67.                0
    
68.                jh
    
69.       )
    
70.     )
    
71.   )
    
72. )
    
73. (pxyp"jzdh  (界址点号)")[/FONT]

[FONT=courier new]<br /> (load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;界址点号<br /> (defun c:jzdh ()<br />   (CMDLASC0)<br />   (setvar "osmode" 0)<br />   (setq        ss  (ssget '((0 . "*POLYLINE")))<br />         ttx ""<br />         l   0<br />         i   -1<br />   )<br />   (mkla "线长标注" 4)<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq ptlst-a (xyp-get-Vertexes s1 t)<br />           ptlst-b ptlst-a<br />           pt0          (osnap (cadr (entsel "\n桩号1位置 : ")) "int")<br />     )<br />     (jiezhihao)<br />     (mkla "界址点" 1)<br />     (foreach n ptlst-a (command "circle" n 1))<br />     (mkla "界址长" 4)<br />     (while (setq pt1 (car ptlst-a))<br />       (if (setq ptlst-a (cdr ptlst-a))<br />         (progn<br />           (setq        pt2   (car ptlst-a)<br />                 leng  (distance pt1 pt2)<br />                 tx    (rtos leng 2 2)<br />                 ang   (rad2ang (angle pt1 pt2))<br />                 pt-tx (xyp-get-RightPoint pt1 pt2 100)<br />                 ttx   (strcat ttx "+" tx)<br />                 l     (+ l leng)<br />           )<br />           (command "text" "j" "BC" pt-tx (* sc 300) ang tx)<br />         )<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )<br /> (defun jiezhihao ()<br />   (mkla "界址号" 2)<br />   (setq j 0)<br />   (while (not (equal (car ptlst-b) pt0))<br />     (setq ptlst-b (append (cdr ptlst-b) (list (car ptlst-b))))<br />   )<br />   (foreach ptx ptlst-b<br />     (progn<br />       (setq jh (strcat "J" (rtos (setq j (1+ j)) 2 0)))<br />       (command "text"<br />                "j"<br />                "MC"<br />                (polar ptx (* pi 0.75) (* sc 500))<br />                (* sc 300)<br />                0<br />                jh<br />       )<br />     )<br />   )<br /> )<br /> (pxyp"jzdh  (界址点号)")[/FONT]