[求助]：新手求教：代码里奇怪问题

sailorjt

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. (defun c:xs (/ n ss m k)
   
6.   (initget "2 4 5 6 7 8")               
   
7.   (setq        n
   
8.          (getkword
   
9.            "\n请输入需标注线数:2 4 5 6 7 8 <2>:"
   
10.          )
    
11.   )
    
12.   (if (= n nil)
    
13.     (setq n "2")
    
14.   )
    
15.   (prompt "\n请选择需标注的线:")
    
16.   (setq ss (ssget))
    
17.   (setq        m 0
    
18.         k 0
    
19.   )
    
20. 
    
21.   (if (= (sslength ss) 1)
    
22.     (oneline_draw)
    
23.   )
    
24. 
    
25.   (multiline_draw)
    
26. 
    
27. 
    
28.   (princ (strcat "\n共有<" (itoa k) ">根线标注了"))
    
29.   (prin1)
    
30. )
    
31. 
    
32. 
    
33. 
    
34. (defun oneline_draw
    
35.                     (/            po           en          en_data        en_type
    
36.                      pt1    pt2           px1          px2         py1        py2    ang_line
    
37.                      ang_ptA           ptA          ptB         ptT
    
38.                     )
    
39. 
    
40.   (setq en (ssname ss m))
    
41.   (setq en_data (entget en))
    
42.   (setq en_type (cdr (assoc 0 en_data)))
    
43.   (if (= en_type "LINE")               
    
44.     (progn (                               
    
45.             (setq pt1 (cdr (assoc 10 en_data)))
    
46.              (setq px1 (car pt1))
    
47.              (setq py1 (cadr pt1))
    
48.              (setq pt2 (cdr (assoc 11 en_data)))
    
49.              (setq px2 (car pt2))
    
50.              (setq py2 (cadr pt2))
    
51.              (setq ang_line (atan (/ (- py1 py2) (- px1 px2))))                                       
    
52.              (setq ang_ptA (+ ang_line (/ pi 3)))
    
53.              (setq po (getpoint))
    
54.              (setq ptA (polar po ang_ptA 100))
    
55.              (setq ptB (Polar ptA (+ pi ang_ptA) 200))
    
56.              (command "line" ptA ptB "")
    
57.              (setq k (1+ k))
    
58.              (setq ptT (polar ptA (/ (* 2 pi) 3) 50))
    
59.              (command "text" ptT "" "" n "")
    
60.              (prin1)
    
61.            )
    
62.     )
    
63.   )
    
64. )
    
65. 
    
66. 
    
67. (defun multiline_draw
    
68.                       (/      po     en            en_data          en_type
    
69.                        pt1    pt2    px1    px2           py1          py2
    
70.                        ang_line             ang_ptA           ptA          ptB         ptT
    
71.                        pox    poy
    
72.                       )
    
73.   (repeat (sslength ss)
    
74.     (setq en (ssname ss m))
    
75.     (setq en_data (entget en))
    
76.     (setq en_type (cdr (assoc 0 en_data)))
    
77.     (if        (= en_type "LINE")               
    
78. 
    
79.       (progn (                               
    
80.               (setq pt1 (cdr (assoc 10 en_data)))
    
81.                (setq px1 (car pt1))
    
82.                (setq py1 (cadr pt1))
    
83.                (setq pt2 (cdr (assoc 11 en_data)))                                       
    
84.                (setq px2 (car pt2))
    
85.                (setq py2 (cadr pt2))
    
86.                (setq ang_line (atan (/ (- py1 py2) (- px1 px2))))                               
    
87.                (setq ang_ptA (+ ang_line (/ pi 3)))
    
88.                (setq pox (/ (+ px1 px2) 2))
    
89.                (setq poy (/ (+ px1 px2) 2))
    
90.                (setq po (list pox poy 0))
    
91.                (setq ptA (polar po ang_ptA 100))
    
92.                (setq ptB (Polar ptA (+ pi ang_ptA) 200))
    
93.                (command "line" ptA ptB "")
    
94.                (setq k (1+ k))
    
95.                (setq ptT (polar ptA (/ (* 2 pi) 3) 50))
    
96.                (command "text" ptT "" "" n "")
    
97.              )
    
98.       )
    
99.     )
    
100.   )
     
101.   (setq m (1+ m))
     
102. 
     
103.   (prin1)
     
104. )
     
105. 
     
106.   [/FONT]
     

<br />   [FONT=courier new]<br /> <br /> (defun c:xs (/ n ss m k)<br />   (initget "2 4 5 6 7 8")                <br />   (setq        n<br />          (getkword<br />            "\n请输入需标注线数:2 4 5 6 7 8 <2>:"<br />          )<br />   )<br />   (if (= n nil)<br />     (setq n "2")<br />   )<br />   (prompt "\n请选择需标注的线:")<br />   (setq ss (ssget))<br />   (setq        m 0<br />         k 0<br />   )<br /> <br />   (if (= (sslength ss) 1)<br />     (oneline_draw)<br />   )<br /> <br />   (multiline_draw)<br /> <br /> <br />   (princ (strcat "\n共有<" (itoa k) ">根线标注了"))<br />   (prin1)<br /> )<br /> <br /> <br /> <br /> (defun oneline_draw<br />                     (/            po           en          en_data        en_type<br />                      pt1    pt2           px1          px2         py1        py2    ang_line<br />                      ang_ptA           ptA          ptB         ptT<br />                     )<br /> <br />   (setq en (ssname ss m))<br />   (setq en_data (entget en))<br />   (setq en_type (cdr (assoc 0 en_data)))<br />   (if (= en_type "LINE")                <br />     (progn (                                <br />             (setq pt1 (cdr (assoc 10 en_data))) <br />              (setq px1 (car pt1))<br />              (setq py1 (cadr pt1))<br />              (setq pt2 (cdr (assoc 11 en_data))) <br />              (setq px2 (car pt2))<br />              (setq py2 (cadr pt2))<br />              (setq ang_line (atan (/ (- py1 py2) (- px1 px2))))                                        <br />              (setq ang_ptA (+ ang_line (/ pi 3)))<br />              (setq po (getpoint))<br />              (setq ptA (polar po ang_ptA 100))<br />              (setq ptB (Polar ptA (+ pi ang_ptA) 200))<br />              (command "line" ptA ptB "")<br />              (setq k (1+ k))<br />              (setq ptT (polar ptA (/ (* 2 pi) 3) 50))<br />              (command "text" ptT "" "" n "")<br />              (prin1)<br />            )<br />     )<br />   )<br /> )<br /> <br /> <br /> (defun multiline_draw<br />                       (/      po     en            en_data          en_type<br />                        pt1    pt2    px1    px2           py1          py2<br />                        ang_line             ang_ptA           ptA          ptB         ptT<br />                        pox    poy<br />                       )<br />   (repeat (sslength ss)<br />     (setq en (ssname ss m))<br />     (setq en_data (entget en))<br />     (setq en_type (cdr (assoc 0 en_data)))<br />     (if        (= en_type "LINE")                <br /> <br />       (progn (                                <br />               (setq pt1 (cdr (assoc 10 en_data))) <br />                (setq px1 (car pt1))<br />                (setq py1 (cadr pt1))<br />                (setq pt2 (cdr (assoc 11 en_data)))                                        <br />                (setq px2 (car pt2))<br />                (setq py2 (cadr pt2))<br />                (setq ang_line (atan (/ (- py1 py2) (- px1 px2))))                                <br />                (setq ang_ptA (+ ang_line (/ pi 3)))<br />                (setq pox (/ (+ px1 px2) 2))<br />                (setq poy (/ (+ px1 px2) 2))<br />                (setq po (list pox poy 0))<br />                (setq ptA (polar po ang_ptA 100))<br />                (setq ptB (Polar ptA (+ pi ang_ptA) 200))<br />                (command "line" ptA ptB "")<br />                (setq k (1+ k))<br />                (setq ptT (polar ptA (/ (* 2 pi) 3) 50))<br />                (command "text" ptT "" "" n "")<br />              )<br />       )<br />     )<br />   )<br />   (setq m (1+ m))<br /> <br />   (prin1)<br /> )<br /> <br />   [/FONT]<br />

加载运行后，对于单线，提示：“numberp: nil”
然后调试，在 oneline_draw 的了程序里设断点：
断点设在 “ (setq ang_line (atan (/ (- py1 py2) (- px1 px2))))  ”之前查看
pt1 值有，px1 px2  py1 py2 均为 nil 。
断点设在一直往上移，最后移到 “ setq pt1 (cdr (assoc 10 en_data)))  ”之前，然后 F8 逐步向下调试，奇怪的是，px1 px2  py1 py2 的值都能显示出来了！！然后撤去断点，再运行，仍旧提示：“numberp: nil”，把我撤底搞糊涂了。。。

在调试 “multiline_draw”也同样遇到上述问题。
在完成同上述的逐步调后，REPEAT第二条直线时，出现了问题。

我刚学LISP，是新手，对于LISP的兴趣很高，希望能在这儿认识些高手，好好学习学习。

zxq0220

两个错，
1、“(PROGN (” 后的左括弧去掉。要去一对。
2、最后的(SETQ M (1+ M))前移一行。
另：子程序未尾的(PRIN1)可以不要。

xyp1964

2. [FONT=courier new](defun c:test (/ n ss m)
   
3.   (initget "2 4 5 6 7 8")
   
4.   (setq n (getkword "\n请输入需标注线数:2 4 5 6 7 8 <2>:"))
   
5.   (if (= n nil)
   
6.     (setq n "2")
   
7.   )
   
8.   (prompt "\n请选择需标注的线: ")
   
9.   (setq        ss (ssget)
   
10.         m  -1
    
11.         k  0
    
12.   )
    
13.   (multiline_draw)
    
14.   (princ (strcat "\n共有<" (itoa k) ">根线标注了"))
    
15.   (prin1)
    
16. )
    
17. (defun multiline_draw (/ edata etype pt1 pt2 px1 px2 py1 py2 ang po ptA
    
18.                        ptB ptT)
    
19.   (while (setq s1 (ssname ss (setq m (1+ m))))
    
20.     (setq edata        (entget s1)
    
21.           etype        (cdr (assoc 0 edata))
    
22.     )
    
23.     (if        (= etype "LINE")
    
24.       (progn (setq pt1 (cdr (assoc 10 edata))
    
25.                    px1 (car pt1)
    
26.                    py1 (cadr pt1)
    
27.                    pt2 (cdr (assoc 11 edata))
    
28.                    px2 (car pt2)
    
29.                    py2 (cadr pt2)
    
30.                    ang (+ (atan (/ (- py1 py2) (- px1 px2))) (/ pi 3))
    
31.                    po  (list (/ (+ px1 px2) 2) (/ (+ py1 py2) 2) 0)
    
32.                    ptA (polar po ang 100)
    
33.                    ptB (Polar ptA (+ pi ang) 200)
    
34.                    ptT (polar ptA (/ (* 2 pi) 3) 50)
    
35.                    k   (1+ k)
    
36.              )
    
37.              (command "line" ptA ptB "")
    
38.              (command "text" ptT "" "" n)
    
39.       )
    
40.     )
    
41.   )
    
42. )[/FONT]

[FONT=courier new](defun c:test (/ n ss m)<br />   (initget "2 4 5 6 7 8")<br />   (setq n (getkword "\n请输入需标注线数:2 4 5 6 7 8 <2>:"))<br />   (if (= n nil)<br />     (setq n "2")<br />   )<br />   (prompt "\n请选择需标注的线: ")<br />   (setq        ss (ssget)<br />         m  -1<br />         k  0<br />   )<br />   (multiline_draw)<br />   (princ (strcat "\n共有<" (itoa k) ">根线标注了"))<br />   (prin1)<br /> )<br /> (defun multiline_draw (/ edata etype pt1 pt2 px1 px2 py1 py2 ang po ptA<br />                        ptB ptT)<br />   (while (setq s1 (ssname ss (setq m (1+ m))))<br />     (setq edata        (entget s1)<br />           etype        (cdr (assoc 0 edata))<br />     )<br />     (if        (= etype "LINE")<br />       (progn (setq pt1 (cdr (assoc 10 edata))<br />                    px1 (car pt1)<br />                    py1 (cadr pt1)<br />                    pt2 (cdr (assoc 11 edata))<br />                    px2 (car pt2)<br />                    py2 (cadr pt2)<br />                    ang (+ (atan (/ (- py1 py2) (- px1 px2))) (/ pi 3))<br />                    po  (list (/ (+ px1 px2) 2) (/ (+ py1 py2) 2) 0)<br />                    ptA (polar po ang 100)<br />                    ptB (Polar ptA (+ pi ang) 200)<br />                    ptT (polar ptA (/ (* 2 pi) 3) 50)<br />                    k   (1+ k)<br />              )<br />              (command "line" ptA ptB "")<br />              (command "text" ptT "" "" n)<br />       )<br />     )<br />   )<br /> )[/FONT]

sailorjt

谢谢各位。
前几天看了二楼，我改了一下，但又出现怪问题了。
一会儿是短线角度转不出来，跟需标注线平行；一会儿是文字没有了；一会儿是连短线都没有了，只是一个点，虽然我有监视里明明看到ptA与ptB的坐标不一样，但就是画不出短线，都不知道为什么。
版主最后的 (command "text" ptT "" "" n) 出不来文字，改成(command "text" ptT ""  n "" ) 就出来文字了...，又蛮怪的。