各位大神帮忙看一下程序哪不对。

asdhaklwih

2. (defun c:tt5 (/ pt1 pt2 ss i db1 db2 )
   
3.   (vl-load-com)
   
4.   (setq  pt1 (getpoint)
   
5.   pt2 (getpoint pt1)
   
6.   )
   
7.   (setq ss (ssget "f" (list pt1 pt2) '((0 . "lwpolyline,line"))))
   
8. 
   
9.   (if (= "line" (cdr (assoc (entget (ssname ss 0)))))
   
10.     (setq db1 (ssname ss 0))
    
11.     (setq db1 (z:lwithpl pt1 pt2 (ssname ss 0)))
    
12.   )
    
13. 
    
14.   (if (= "line" (cdr (assoc (entget (ssname ss 1)))))
    
15.     (setq db2 (ssname ss 1))
    
16.     (setq db2 (z:lwithpl pt1 pt2 (ssname ss 1)))
    
17.   )
    
18. 
    
19.   (command "fillet" db1 db2)
    
20.   (princ)
    
21. )
    
22. 
    
23.           ;===================================================================
    
24. (defun z:plinexy (e / a q m p)
    
25. ;;;LWPolyline,POLYLINE顶点,去掉完全重合点
    
26.   (setq  a (vlax-ename->vla-object e)
    
27.   q (vlax-safearray->list
    
28.       (vlax-variant-value (vla-get-Coordinates a))
    
29.     )
    
30.   m (vla-get-objectname a)
    
31.   a 0
    
32.   m (if (= m "AcDb3dPolyline")
    
33.       3
    
34.       2
    
35.     )
    
36.   )
    
37.   (repeat (/ (length q) m)
    
38.     (cond ((= m 2) (setq p1 (list (nth a q) (nth (+ a 1) q))))
    
39.     ((= m 3)
    
40.      (setq p1 (list (nth a q) (nth (+ a 1) q) (nth (+ a 2) q)))
    
41.     )
    
42.     )
    
43.     (setq p (if  (member p1 p)
    
44.         p
    
45.         (append p (list p1))
    
46.       )
    
47.     a (+ a m)
    
48.     )
    
49.   )
    
50.   p
    
51. )
    
52. 
    
53. 
    
54. 
    
55. ;;;;;;获取多段线与直线的交点，返回双元素表（图元名 交点）
    
56. (defun z:lwithpl (pt1 pt2 en / ptlst jd n result)
    
57.   (setq ptlst (z:plinexy en))
    
58.   (setq  n (length ptlst)
    
59.   i 0
    
60.   )
    
61.   (repeat (1- n)
    
62.     (if  (setq jd (inters pt1 pt2 (nth i ptlst) (nth (1+ i) ptlst) t))
    
63.       (progn
    
64.   (setq result (list en jd))
    
65.       )
    
66.     )
    
67.     (setq i (1+ i))
    
68.   )
    
69.   result
    
70. )
    

(defun c:tt5 (/ pt1 pt2 ss i db1 db2 )<br />   (vl-load-com)<br />   (setq  pt1 (getpoint)<br />   pt2 (getpoint pt1)<br />   )<br />   (setq ss (ssget "f" (list pt1 pt2) '((0 . "lwpolyline,line"))))<br /> <br />   (if (= "line" (cdr (assoc (entget (ssname ss 0)))))<br />     (setq db1 (ssname ss 0))<br />     (setq db1 (z:lwithpl pt1 pt2 (ssname ss 0)))<br />   )<br /> <br />   (if (= "line" (cdr (assoc (entget (ssname ss 1)))))<br />     (setq db2 (ssname ss 1))<br />     (setq db2 (z:lwithpl pt1 pt2 (ssname ss 1)))<br />   )<br /> <br />   (command "fillet" db1 db2)<br />   (princ)<br /> )<br /> <br />           ;===================================================================<br /> (defun z:plinexy (e / a q m p)<br /> ;;;LWPolyline,POLYLINE顶点,去掉完全重合点<br />   (setq  a (vlax-ename->vla-object e)<br />   q (vlax-safearray->list<br />       (vlax-variant-value (vla-get-Coordinates a))<br />     )<br />   m (vla-get-objectname a)<br />   a 0<br />   m (if (= m "AcDb3dPolyline")<br />       3<br />       2<br />     )<br />   )<br />   (repeat (/ (length q) m)<br />     (cond ((= m 2) (setq p1 (list (nth a q) (nth (+ a 1) q))))<br />     ((= m 3)<br />      (setq p1 (list (nth a q) (nth (+ a 1) q) (nth (+ a 2) q)))<br />     )<br />     )<br />     (setq p (if  (member p1 p)<br />         p<br />         (append p (list p1))<br />       )<br />     a (+ a m)<br />     )<br />   )<br />   p<br /> )<br /> <br /> <br /> <br /> ;;;;;;获取多段线与直线的交点，返回双元素表（图元名 交点）<br /> (defun z:lwithpl (pt1 pt2 en / ptlst jd n result)<br />   (setq ptlst (z:plinexy en))<br />   (setq  n (length ptlst)<br />   i 0<br />   )<br />   (repeat (1- n)<br />     (if  (setq jd (inters pt1 pt2 (nth i ptlst) (nth (1+ i) ptlst) t))<br />       (progn<br />   (setq result (list en jd))<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   result<br /> )<br />

ZZXXQQ

2. (defun c:tt5 (/ pt1 pt2 ss i db1 db2)
   
3.   (vl-load-com)
   
4.   (setq pt1 (getpoint)
   
5.         pt2 (getpoint pt1))
   
6.   (setq ss (ssget "f" (list pt1 pt2) '((0 . "LWPOLYLINE,LINE"))))
   
7.   (setq db1 (ssname ss 0))
   
8.   (if (= "LINE" (cdr(assoc(entget db1))))
   
9.     (setq db1 (z:lwithpl pt1 pt2 db1))
   
10.   )
    
11.   (setq db2 (ssname ss 1))
    
12.   (if (= "LINE" (cdr(assoc(entget db2))))
    
13.     (setq db2 (z:lwithpl pt1 pt2 db2))
    
14.   )
    
15.   (command "_.fillet" db1 db2)
    
16.   (princ)
    
17. )

(defun c:tt5 (/ pt1 pt2 ss i db1 db2)<br />   (vl-load-com)<br />   (setq pt1 (getpoint)<br />         pt2 (getpoint pt1))<br />   (setq ss (ssget "f" (list pt1 pt2) '((0 . "LWPOLYLINE,LINE"))))<br />   (setq db1 (ssname ss 0))<br />   (if (= "LINE" (cdr(assoc(entget db1))))<br />     (setq db1 (z:lwithpl pt1 pt2 db1))<br />   )<br />   (setq db2 (ssname ss 1))<br />   (if (= "LINE" (cdr(assoc(entget db2))))<br />     (setq db2 (z:lwithpl pt1 pt2 db2))<br />   )<br />   (command "_.fillet" db1 db2)<br />   (princ)<br /> )