请各位老师进来看看我这个代码那个地方错了，给修改一下

杜阳

(Defun C:cjlj (/ Ss1 ss2 Pt1 Pt2 p1 p2)
(vl-load-com)
  (Setvar "Cmdecho" 0)
    (Setq Pt1 (Getvar "Vsmin"))
    (Setq Pt2 (Getvar "Vsmax"))
    (Setq Ss1 (Entsel "\n 选择1线:"))
    (Setq Ss2 (Entsel "\n 选择2线:"))
    (Setq p1s (vlax-curve-getstartpoint (car ss1)))
    (Setq p1d (vlax-curve-getendpoint (car ss1)))
    (Setq p2d (vlax-curve-getendpoint (car ss2)))
    (Setq p2s (vlax-curve-getstartpoint (car ss2)))
    (setq Z1(car(assoc 38 (entget (car ss1)))))
    (setq Z2(car(assoc 38 (entget (car ss2)))))
(setq d1 (distance p1s p2s)
      d2 (distance p1s p2d)
      d3 (distance p1d p2s)
      d4 (distance p1d p2d)
)
(cond
      ((= d1 min(d1 d2 d3 d4))(setq p1 p1s p2 p2s))
      ((= d2 min(d1 d2 d3 d4))(setq p1 p1s p2 p2d))
      ((= d3 min(d1 d2 d3 d4))(setq p1 p1d p2 p2s))
      (T (setq p1 p1d p2 p2d))
  )

(if (= z1 z2)
(progn
(Vl-Cmdf "line" p1 p2 "")
(Vl-Cmdf ".Pedit" Ss1 "Yes" "J" "C" Pt1 Pt2 "" "" )
(Vl-Cmdf ".Pedit" Ss1 "Yes" "s" Pt1 Pt2 "" "")
)
)
(Setvar "Cmdecho" 1)
(Princ)
)


我的意图是：
1，有两个线，使两个线的最近端点连接
2，连接后对整条线进行拟合
主要是用于等高线连接应用

crazylsp

连接。
(setvar "peditaccept" 1)

(command "pedit" "m"  ss1 "" "j"  "0" "" )

(setvar "peditaccept" 0)

ZZXXQQ

2. ;我的意图是：
   
3. ;1，有两个线，使两个线的最近端点连接
   
4. ;2，连接后对整条线进行拟合
   
5. ;主要是用于等高线连接应用
   
6. (defun C:cjlj (/ Ss1 ss2 Pt1 Pt2 p1 p2)
   
7.   (vl-load-com)
   
8.   (setvar "Cmdecho" 0)
   
9.   (setq Ss1 (entsel "\n 选择1线:"))
   
10.   (setq Ss2 (entsel "\n 选择2线:"))
    
11.   (setq p1s (vlax-curve-getStartPoint (car ss1)))
    
12.   (setq p1d (vlax-curve-getEndPoint (car ss1)))
    
13.   (setq p2d (vlax-curve-getEndPoint (car ss2)))
    
14.   (setq p2s (vlax-curve-getStartPoint (car ss2)))
    
15.   (setq Z1 (car(assoc 38 (entget (car ss1)))))
    
16.   (setq Z2 (car(assoc 38 (entget (car ss2)))))
    
17.   (setq d1 (distance p1s p2s)
    
18.         d2 (distance p1s p2d)
    
19.         d3 (distance p1d p2s)
    
20.         d4 (distance p1d p2d))
    
21.   (cond
    
22.     ((equal d1 (min d1 d2 d3 d4) 1e-5) (setq p1 p1s p2 p2s))
    
23.     ((equal d2 (min d1 d2 d3 d4) 1e-5) (setq p1 p1s p2 p2d))
    
24.     ((equal d3 (min d1 d2 d3 d4) 1e-5) (setq p1 p1d p2 p2s))
    
25.     (T (setq p1 p1d p2 p2d))
    
26.   )
    
27.   (if (= z1 z2)
    
28.     (vl-cmdf "line" p1 p2 "" ".Pedit" "L" "Yes" "J" Ss1 ss2 "" "")
    
29.   )
    
30.   (setvar "Cmdecho" 1)
    
31.   (princ)
    
32. )
    

;我的意图是：<br /> ;1，有两个线，使两个线的最近端点连接<br /> ;2，连接后对整条线进行拟合<br /> ;主要是用于等高线连接应用<br /> (defun C:cjlj (/ Ss1 ss2 Pt1 Pt2 p1 p2)<br />   (vl-load-com)<br />   (setvar "Cmdecho" 0)<br />   (setq Ss1 (entsel "\n 选择1线:"))<br />   (setq Ss2 (entsel "\n 选择2线:")) <br />   (setq p1s (vlax-curve-getStartPoint (car ss1))) <br />   (setq p1d (vlax-curve-getEndPoint (car ss1))) <br />   (setq p2d (vlax-curve-getEndPoint (car ss2))) <br />   (setq p2s (vlax-curve-getStartPoint (car ss2))) <br />   (setq Z1 (car(assoc 38 (entget (car ss1)))))<br />   (setq Z2 (car(assoc 38 (entget (car ss2)))))<br />   (setq d1 (distance p1s p2s)<br />         d2 (distance p1s p2d)<br />         d3 (distance p1d p2s)<br />         d4 (distance p1d p2d))<br />   (cond<br />     ((equal d1 (min d1 d2 d3 d4) 1e-5) (setq p1 p1s p2 p2s))<br />     ((equal d2 (min d1 d2 d3 d4) 1e-5) (setq p1 p1s p2 p2d))<br />     ((equal d3 (min d1 d2 d3 d4) 1e-5) (setq p1 p1d p2 p2s))<br />     (T (setq p1 p1d p2 p2d))<br />   )<br />   (if (= z1 z2)<br />     (vl-cmdf "line" p1 p2 "" ".Pedit" "L" "Yes" "J" Ss1 ss2 "" "")<br />   )<br />   (setvar "Cmdecho" 1)<br />   (princ)<br /> )<br />

杜阳

ZZXXQQ 发表于 2014-12-3 21:10

谢谢老师，线连接在一起了  没有拟合  图层也改变了   谢谢你了老师  我自己在看看   

杜阳

ZZXXQQ 发表于 2014-12-3 21:10

老师你一出手  基本就成功了   谢谢你了  你帮助了我几次了  谢谢老师