[求助]：请帮我看看这个程序的问题出在什么地方？

lijiao

我刚做了一个平行驱动直线的程序，可是在鼠标滑过一些文本实体时会出错，不知原因何在，请各位帮我分析一下。
程序代码：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:cs_px ( / ANGL ANGL1 ANGL2 ANGL3 DIS DISNEW LIN1 LIN2 LST1 LST2 P11 P12 P21 P22 PT PT0 PT1 biaoji PT2 PT3 ELST ENT JJ OS X ZG)
   
5. ;;;  (myerr)
   
6. ;;;  (varset "cmdecho" 0)
   
7. ;;;  (varset "osmode" 0)
   
8.   (while (and
   
9.            (princ "\n选择基准直线：")
   
10.            (car (setq lin2 (zntq '((0 . "line")))))
    
11.            (princ "\n选择要编辑的直线：")
    
12.            (car (setq lin1 (zntq '((0 . "line")))))
    
13.            (/= (cdr (assoc 5 (setq lst1 (entget (car lin1)))))
    
14.                (cdr (assoc 5 (setq lst2 (entget (car lin2)))))
    
15.            )
    
16.          )
    
17.     (setq pt   (cadr lin1)
    
18.           lin1 (car lin1)
    
19.           lin2 (car lin2)
    
20.           os "end,mid,cen,nod,qua,int,ins,nea,appint,ext"
    
21.           p21         (cdr (assoc 10 lst2))
    
22.           p22         (cdr (assoc 11 lst2))
    
23.           angl2         (angle p21 p22)
    
24.           angl3         (+ angl2 (dtor 90.0))
    
25.           pt0         (polar pt angl3 10.0)
    
26.           pt1         (inters pt0 pt p21 p22 nil)
    
27.           dis         (distance pt pt1)
    
28.           p11         (cdr (assoc 10 lst1))
    
29.           p12         (cdr (assoc 11 lst1))
    
30.           angl1         (angle p11 p12)
    
31.           angl         (- angl2 angl1)
    
32.           biaoji t
    
33.     )
    
34.     (command "rotate" lin1 "" pt (rtod angl))
    
35.     (vl-cmdf "text" '(0 0 0) 5 0 "aaa")
    
36.     (setq ent  (entlast)
    
37.           elst (entget ent)
    
38.     )
    
39. ;;;    (varset "osmode" 15359)
    
40.     (while biaoji
    
41.       (setq zg (/ (getvar "VIEWSIZE") 30.0)
    
42.             jj (* 0.5 zg)
    
43.       )
    
44.       (setq pt2 (cs_point 0 os))
    
45.       (cond
    
46.         ((= 5 (car pt2))
    
47.          (setq pt2 (cadr pt2))
    
48.          (setq pt3 (polar pt2 angl2 30.0)
    
49.                pt3 (inters pt1 pt pt2 pt3 nil)   ;;;出错时，求出的交点为NIL
    
50.                dis (distance pt1 pt3)
    
51.          )
    
52.          (grdraw pt1 pt3 1)
    
53.          (grdraw pt2 pt3 1)
    
54. ;;;         (if (not (osnap pt2 (cs_os))
    
55. ;;;             )
    
56.            (setq dis (fix dis))
    
57. ;;;         )
    
58.          (setq elst (subst (cons 10 (mapcar '(lambda (x) (+ x jj)) pt2))
    
59.                            (assoc 10 elst)
    
60.                            elst
    
61.                     )
    
62.          )
    
63.          (setq elst (subst (cons 40 zg) (assoc 40 elst) elst))
    
64.          (setq elst (subst (cons 1 (strcat "距离为：" (rtos dis)))
    
65.                            (assoc 1 elst)
    
66.                            elst
    
67.                     )
    
68.          )
    
69.          (entmod elst)
    
70.         )
    
71.         ((= 3 (car pt2))
    
72.          (setq angl3 (angle pt1 pt3)
    
73.                pt3   (polar pt1 angl3 dis)
    
74.          )
    
75.          (command "move" lin1 "" pt pt3)
    
76.          (setq biaoji nil)
    
77.         )
    
78.         (t (setq biaoji nil))
    
79.       )
    
80.     )
    
81.     (entdel ent)
    
82. ;;;    (varset "osmode" 0)
    
83.     (redraw)
    
84.   )
    
85. ;;;  (restore)
    
86. )
    
87.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:cs_px ( / ANGL ANGL1 ANGL2 ANGL3 DIS DISNEW LIN1 LIN2 LST1 LST2 P11 P12 P21 P22 PT PT0 PT1 biaoji PT2 PT3 ELST ENT JJ OS X ZG)<br /> ;;;  (myerr)<br /> ;;;  (varset "cmdecho" 0)<br /> ;;;  (varset "osmode" 0)<br />   (while (and<br />            (princ "\n选择基准直线：")<br />            (car (setq lin2 (zntq '((0 . "line")))))<br />            (princ "\n选择要编辑的直线：")<br />            (car (setq lin1 (zntq '((0 . "line")))))<br />            (/= (cdr (assoc 5 (setq lst1 (entget (car lin1)))))<br />                (cdr (assoc 5 (setq lst2 (entget (car lin2)))))<br />            )<br />          )<br />     (setq pt   (cadr lin1)<br />           lin1 (car lin1)<br />           lin2 (car lin2)<br />           os "end,mid,cen,nod,qua,int,ins,nea,appint,ext"<br />           p21         (cdr (assoc 10 lst2))<br />           p22         (cdr (assoc 11 lst2))<br />           angl2         (angle p21 p22)<br />           angl3         (+ angl2 (dtor 90.0))<br />           pt0         (polar pt angl3 10.0)<br />           pt1         (inters pt0 pt p21 p22 nil)<br />           dis         (distance pt pt1)<br />           p11         (cdr (assoc 10 lst1))<br />           p12         (cdr (assoc 11 lst1))<br />           angl1         (angle p11 p12)<br />           angl         (- angl2 angl1)<br />           biaoji t<br />     )<br />     (command "rotate" lin1 "" pt (rtod angl))<br />     (vl-cmdf "text" '(0 0 0) 5 0 "aaa")<br />     (setq ent  (entlast)<br />           elst (entget ent)<br />     )<br /> ;;;    (varset "osmode" 15359)<br />     (while biaoji<br />       (setq zg (/ (getvar "VIEWSIZE") 30.0)<br />             jj (* 0.5 zg)<br />       )<br />       (setq pt2 (cs_point 0 os))<br />       (cond<br />         ((= 5 (car pt2))<br />          (setq pt2 (cadr pt2))<br />          (setq pt3 (polar pt2 angl2 30.0)<br />                pt3 (inters pt1 pt pt2 pt3 nil)   ;;;出错时，求出的交点为NIL<br />                dis (distance pt1 pt3)<br />          )<br />          (grdraw pt1 pt3 1)<br />          (grdraw pt2 pt3 1)<br /> ;;;         (if (not (osnap pt2 (cs_os))<br /> ;;;             )<br />            (setq dis (fix dis))<br /> ;;;         )<br />          (setq elst (subst (cons 10 (mapcar '(lambda (x) (+ x jj)) pt2))<br />                            (assoc 10 elst)<br />                            elst<br />                     )<br />          )<br />          (setq elst (subst (cons 40 zg) (assoc 40 elst) elst))<br />          (setq elst (subst (cons 1 (strcat "距离为：" (rtos dis)))<br />                            (assoc 1 elst)<br />                            elst<br />                     )<br />          )<br />          (entmod elst)<br />         )<br />         ((= 3 (car pt2))<br />          (setq angl3 (angle pt1 pt3)<br />                pt3   (polar pt1 angl3 dis)<br />          )<br />          (command "move" lin1 "" pt pt3)<br />          (setq biaoji nil)<br />         )<br />         (t (setq biaoji nil))<br />       )<br />     )<br />     (entdel ent)<br /> ;;;    (varset "osmode" 0)<br />     (redraw)<br />   )<br /> ;;;  (restore)<br /> )<br />   [/FONT]<br />

出错时，提示：

1. 
   
2.   [FONT=courier new]
   
3. ; 错误: 参数类型错误: 二维/三维点: nil
   
4.   [/FONT]
   

复制代码

经过查找，问题在这里：

2. 
   
3.   [FONT=courier new]
   
4. (setq pt3 (polar pt2 angl2 30.0)
   
5.                pt3 (inters pt1 pt pt2 pt3 nil)   ;;;出错时，求出的交点为NIL
   
6.                dis (distance pt1 pt3)
   
7.          )
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br /> (setq pt3 (polar pt2 angl2 30.0)<br />                pt3 (inters pt1 pt pt2 pt3 nil)   ;;;出错时，求出的交点为NIL<br />                dis (distance pt1 pt3)<br />          )<br />   [/FONT]<br />

程序用到的一些函数：

2. 
   
3.   [FONT=courier new]
   
4. (defun zntq (nam / pt ss_name biaoji ss)
   
5.   (setq biaoji t)
   
6.   (while biaoji
   
7.     (setq pt (grread t 4 2))
   
8.     (cond
   
9.       ((= 5 (car pt))
   
10.        (setq ss (ssget (cadr pt) nam))
    
11.        (if ss_name
    
12.          (redraw ss_name 4)
    
13.        )
    
14.        (setq ss_name nil)
    
15.        (if ss
    
16.          (progn
    
17.            (setq ss_name (ssname ss 0))
    
18.            (redraw ss_name 3)
    
19.          )
    
20.        )
    
21.       )
    
22.       ((= 3 (car pt))
    
23.        (setq ss (ssget (cadr pt) nam))
    
24.        (if ss_name
    
25.          (redraw ss_name 4)
    
26.        )
    
27.        (setq ss_name nil)
    
28.        (if ss
    
29.          (progn
    
30.            (setq ss_name (ssname ss 0))
    
31.            (redraw ss_name 3)
    
32.          )
    
33.        )
    
34.        (setq biaoji nil)
    
35.       )
    
36.       ((or (= (car pt) 25)
    
37.            (and        (= (car pt) 2)
    
38.                 (or (= (cadr pt) 13)
    
39.                     (= (cadr pt) 32)
    
40.                 )
    
41.            )
    
42.        )
    
43.        (if ss_name (redraw ss_name 4))
    
44.        (setq biaoji nil ss_name nil)
    
45.       )
    
46.       (t (princ))
    
47.     )
    
48.   )
    
49.   (if ss_name
    
50.     (redraw ss_name 4)
    
51.   )
    
52.   (list ss_name (cadr pt))
    
53. )
    
54. 
    
55. (defun rtod (dat /)
    
56.   (* 180.0 (/ dat pi))
    
57. )
    
58. (defun dtor (dat /)
    
59.   (* pi (/ dat 180.0))
    
60. )
    
61. 
    
62. (defun ptmark (pt / size jd ang)
    
63.   (setq size (/ (getvar "viewsize") 80.0))
    
64.   (setq jd 0)
    
65.   (repeat 8
    
66.     (setq ang (dtor jd))
    
67.     (grdraw pt (polar pt ang size) 3)
    
68.     (setq jd (+ jd 45))
    
69.   )
    
70.   (princ)
    
71. )
    
72. 
    
73. (defun cs_point        (sb os / pt pt1)
    
74.   (setq pt (grread t 4 sb))
    
75.   (cond
    
76.     ((and
    
77.        (= (type os) 'str)
    
78.        (> (strlen os) 0)
    
79.        (= (type (cadr pt)) 'list)
    
80.        (setq pt1 (osnap (cadr pt) os))
    
81.      )
    
82.      (redraw)
    
83.      (ptmark pt1)
    
84.      (setq pt (list (car pt) pt1))
    
85.     )
    
86.     (t (redraw))
    
87.   )
    
88.   pt
    
89. )
    
90.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun zntq (nam / pt ss_name biaoji ss)<br />   (setq biaoji t)<br />   (while biaoji<br />     (setq pt (grread t 4 2))<br />     (cond<br />       ((= 5 (car pt))<br />        (setq ss (ssget (cadr pt) nam))<br />        (if ss_name<br />          (redraw ss_name 4)<br />        )<br />        (setq ss_name nil)<br />        (if ss<br />          (progn<br />            (setq ss_name (ssname ss 0))<br />            (redraw ss_name 3)<br />          )<br />        )<br />       )<br />       ((= 3 (car pt))<br />        (setq ss (ssget (cadr pt) nam))<br />        (if ss_name<br />          (redraw ss_name 4)<br />        )<br />        (setq ss_name nil)<br />        (if ss<br />          (progn<br />            (setq ss_name (ssname ss 0))<br />            (redraw ss_name 3)<br />          )<br />        )<br />        (setq biaoji nil)<br />       )<br />       ((or (= (car pt) 25)<br />            (and        (= (car pt) 2)<br />                 (or (= (cadr pt) 13)<br />                     (= (cadr pt) 32)<br />                 )<br />            )<br />        )<br />        (if ss_name (redraw ss_name 4))<br />        (setq biaoji nil ss_name nil)<br />       )<br />       (t (princ))<br />     )<br />   )<br />   (if ss_name<br />     (redraw ss_name 4)<br />   )<br />   (list ss_name (cadr pt))<br /> )<br /> <br /> (defun rtod (dat /)<br />   (* 180.0 (/ dat pi))<br /> )<br /> (defun dtor (dat /)<br />   (* pi (/ dat 180.0))<br /> )<br /> <br /> (defun ptmark (pt / size jd ang)<br />   (setq size (/ (getvar "viewsize") 80.0))<br />   (setq jd 0)<br />   (repeat 8<br />     (setq ang (dtor jd))<br />     (grdraw pt (polar pt ang size) 3)<br />     (setq jd (+ jd 45))<br />   )<br />   (princ)<br /> )<br /> <br /> (defun cs_point        (sb os / pt pt1)<br />   (setq pt (grread t 4 sb))<br />   (cond<br />     ((and<br />        (= (type os) 'str)<br />        (> (strlen os) 0)<br />        (= (type (cadr pt)) 'list)<br />        (setq pt1 (osnap (cadr pt) os))<br />      )<br />      (redraw)<br />      (ptmark pt1)<br />      (setq pt (list (car pt) pt1))<br />     )<br />     (t (redraw))<br />   )<br />   pt<br /> )<br />   [/FONT]<br />

hi71400

问题的确在求交点上：我以前也遇到过。
    (inters pt1 pt2 pt3 pt4 nil)   
   其中，第五个参数决定是否求直线延长后的交点。
  当第五个参数加入后，前面的直线的点坐标只能用二维的了。
  没有第五个参数时，点坐标为三维点。

lijiao

多谢多谢,终于解决了。