请问各位大神帮忙看一下这个编程哪里错了，cad运行总是说我的语法错误

郭文姬happy

(defun c:62()
(setq ss (ssget '((0 . "line"))))
(setq pt_list nil)
(setq i 0)
(repeat (sslength ss)
(sub_test1(ssname ss i))
(setq i (1+ i))
)
(foreach pt pt_list (command "circle" pt 10))
(alert (strcat "共有<"(itoa (length pt_list))">交点在界面上！"))
(prin1)
)
;求取交点子程序
(defun sub_test1(#en)
        (setq endata(entget #en))
        (setq pt10 (cdr(assoc 10 endata)))
        (setq pt11 (cdr(assoc 11 endata)))
        (setq ssint (ssget "f"(list pt10 pt11)))
        (setq ssint (ssdel #en ssint))
        (if(>(sslength ssint )0)
        (progn
        (setq j 0)
        (repeat (sslength ssint)
                (setq ena (ssname ssint j))
                (if (ssmemb ena ss))
        (progn
        (setq pta (cdr(assoc 10 (entget ena))))
        (setq ptb (cdr(assoc 11 (entget ena))))
        (setq intpt (inters pt10 pt11 pta ptb))
        (setq intp1 (osnap intpt "int"))
        (if (not(member intpt1 pt_list))(setq pt_list(cons intpt1 pt_list)))
                )
                )
        (setq j(1+ j))
        )
)
)
)

鱼与熊掌

   为什么不试试调试功能     放进去 VLIDE

鱼与熊掌

最后一行多一个括号.     `````````````````````````

newbuser

1. (if (ssmemb ena ss))

复制代码

这一句中的if参数不够导致的

newbuser

你这个求交点子程序有很多问题，首先if对应的()位置错误，还有最后求得的坐标根本不是交点坐标。你的交点点表若改为(setq pt_list (append pt_list (list (sub_test1 (ssname ss i)))))才可以，但前提是你的sub_test1 函数能用才行。我大概按你的子程序修正了几个括号，但生成的数量需减1，而且划圆的地方坐标不对。

2. (defun c:62( / pt_list)
   
3. (setq ss (ssget '((0 . "line"))))
   
4. ;;;(setq pt_list nil)
   
5. (setq i 0)
   
6. (repeat (sslength ss)
   
7. (setq pt_list (append pt_list (list (sub_test1 (ssname ss i)))))
   
8. (setq i (1+ i))
   
9. )
   
10. (foreach pt pt_list (command "circle" pt 10))
    
11. (alert (strcat "共有<"(itoa (length pt_list))">交点在界面上！"))
    
12. (prin1)
    
13. )
    
14. ;求取交点子程序
    
15. (defun sub_test1(#en)
    
16.         (setq endata(entget #en))
    
17.         (setq pt10 (cdr(assoc 10 endata)))
    
18.         (setq pt11 (cdr(assoc 11 endata)))
    
19.         (setq ssint (ssget "f"(list pt10 pt11)))
    
20.         (setq ssint (ssdel #en ssint))
    
21.         (if(>(sslength ssint )0)
    
22.         (progn
    
23.         (setq j 0)
    
24.         (repeat (sslength ssint)
    
25.                 (setq ena (ssname ssint j))
    
26.                 (if (ssmemb ena ss)
    
27.         (progn
    
28.         (setq pta (cdr(assoc 10 (entget ena))))
    
29.         (setq ptb (cdr(assoc 11 (entget ena))))
    
30.         (setq intpt (inters pt10 pt11 pta ptb))
    
31.         (setq intp1 (osnap intpt "int"))
    
32.         (if (not(member intpt1 pt_list))(setq pt_list(cons intpt1 pt_list)))
    
33.                 )
    
34.                 )
    
35.         (setq j(1+ j))
    
36.         )
    
37. )
    
38. )
    
39. )

(defun c:62( / pt_list)<br /> (setq ss (ssget '((0 . "line"))))<br /> ;;;(setq pt_list nil)<br /> (setq i 0)<br /> (repeat (sslength ss)<br /> (setq pt_list (append pt_list (list (sub_test1 (ssname ss i)))))<br /> (setq i (1+ i))<br /> )<br /> (foreach pt pt_list (command "circle" pt 10))<br /> (alert (strcat "共有<"(itoa (length pt_list))">交点在界面上！"))<br /> (prin1)<br /> )<br /> ;求取交点子程序<br /> (defun sub_test1(#en)<br />         (setq endata(entget #en))<br />         (setq pt10 (cdr(assoc 10 endata)))<br />         (setq pt11 (cdr(assoc 11 endata)))<br />         (setq ssint (ssget "f"(list pt10 pt11)))<br />         (setq ssint (ssdel #en ssint))<br />         (if(>(sslength ssint )0)<br />         (progn<br />         (setq j 0)<br />         (repeat (sslength ssint)<br />                 (setq ena (ssname ssint j))<br />                 (if (ssmemb ena ss)<br />         (progn<br />         (setq pta (cdr(assoc 10 (entget ena))))<br />         (setq ptb (cdr(assoc 11 (entget ena))))<br />         (setq intpt (inters pt10 pt11 pta ptb))<br />         (setq intp1 (osnap intpt "int"))<br />         (if (not(member intpt1 pt_list))(setq pt_list(cons intpt1 pt_list)))<br />                 )<br />                 )<br />         (setq j(1+ j))<br />         )<br /> )<br /> )<br /> )

newbuser

2. ;;终于搜遍明经搞定了
   
3. (defun c:62 (/ pt_list)
   
4.   (setq ss (ssget '((0 . "line"))))
   
5.   (setq sslst (interss ss))
   
6.   (foreach pt sslst (command "circle" pt 10))
   
7.   (alert
   
8.     (strcat "共有<" (itoa (length sslst)) ">交点在界面上！")
   
9.   )
   
10.   (prin1)
    
11. )
    
12. ;选择集求交点子程序
    
13. (defun interss (ss / n1 ssl aobj1 aobj2 n2 ipts pts)
    
14.   (setq        n1  0
    
15.         ssl (sslength ss)
    
16.   )
    
17.   (while (< n1 (1- ssl))
    
18.     (setq aobj1        (ssname ss n1)
    
19.           aobj1        (vlax-ename->vla-object aobj1)
    
20.           n2        (1+ n1)
    
21.     )
    
22.     (while (< n2 ssl)
    
23.       (setq aobj2 (ssname ss n2)
    
24.             aobj2 (vlax-ename->vla-object aobj2)
    
25.             ipts  (vla-intersectwith
    
26.                     aobj1
    
27.                     aobj2
    
28.                     0
    
29.                   )
    
30.             ipts  (vlax-variant-value ipts)
    
31.       )
    
32.       (if (> (vlax-safearray-get-u-bound ipts 1) 0) ;是否有交点
    
33.         (progn
    
34.           (setq        ipts
    
35.                  (vlax-safearray->list ipts)
    
36.           )
    
37.           (while (> (length ipts) 0)
    
38.             (setq pts (cons (list (car ipts)
    
39.                                   (cadr ipts)
    
40.                                   (caddr ipts)
    
41.                             )
    
42.                             pts
    
43.                       )                        ;此处可以在添加时判断是否有重合点
    
44.             )
    
45.             (setq ipts (cdddr ipts))
    
46.           )
    
47.         )
    
48.       )
    
49.       (setq n2 (1+ n2))
    
50.     )
    
51.     (setq n1 (1+ n1))
    
52.   )
    
53.   pts
    
54. )

;;终于搜遍明经搞定了<br /> (defun c:62 (/ pt_list)<br />   (setq ss (ssget '((0 . "line"))))<br />   (setq sslst (interss ss))<br />   (foreach pt sslst (command "circle" pt 10))<br />   (alert<br />     (strcat "共有<" (itoa (length sslst)) ">交点在界面上！")<br />   )<br />   (prin1)<br /> )<br /> ;选择集求交点子程序 <br /> (defun interss (ss / n1 ssl aobj1 aobj2 n2 ipts pts)<br />   (setq        n1  0<br />         ssl (sslength ss)<br />   )<br />   (while (< n1 (1- ssl))<br />     (setq aobj1        (ssname ss n1)<br />           aobj1        (vlax-ename->vla-object aobj1)<br />           n2        (1+ n1)<br />     )<br />     (while (< n2 ssl)<br />       (setq aobj2 (ssname ss n2)<br />             aobj2 (vlax-ename->vla-object aobj2)<br />             ipts  (vla-intersectwith<br />                     aobj1<br />                     aobj2<br />                     0<br />                   )<br />             ipts  (vlax-variant-value ipts)<br />       )<br />       (if (> (vlax-safearray-get-u-bound ipts 1) 0) ;是否有交点<br />         (progn<br />           (setq        ipts<br />                  (vlax-safearray->list ipts)<br />           )<br />           (while (> (length ipts) 0)<br />             (setq pts (cons (list (car ipts)<br />                                   (cadr ipts)<br />                                   (caddr ipts)<br />                             )<br />                             pts<br />                       )                        ;此处可以在添加时判断是否有重合点<br />             )<br />             (setq ipts (cdddr ipts))<br />           )<br />         )<br />       )<br />       (setq n2 (1+ n2))<br />     )<br />     (setq n1 (1+ n1))<br />   )<br />   pts<br /> )

郭文姬happy

newbuser 发表于 2014-12-13 16:16

谢谢，

郭文姬happy

鱼与熊掌 发表于 2014-12-13 15:36
最后一行多一个括号.     `````````````````````````

谢谢