[求助]：如何将两条三维多义线连成一条

zj-11

如何将两条3dpolyline连成一条3dpolyline

playboy

;=====================================================================
;autocadr14下获得线内点坐标
(defun 3dlist (entname lorpl)

  (progn
    (SETQ CBIAO nil)
    (IF        (/= LORPL "LINE")
      (PROGN
        (SETQ BIA (ENTGET ENTNAME))
        (setq p70 (cdr (assoc 70 bia)))
        (if (/= p70 9)
          (progn
            (WHILE (/= LORPL "SEQEND")
              (SETQ ENTNAME (ENTNEXT ENTNAME))
              (SETQ BIA (ENTGET ENTNAME))
              (SETQ LORPL (CDR (ASSOC 0 BIA)))
              (IF (/= LORPL "SEQEND")
                (SETQ CBIAO (CONS (CDR (ASSOC 10 BIA)) CBIAO))
              )                                ;if
            )                                ;while
          )                                ;progn
          (progn
            (WHILE (/= LORPL "SEQEND")
              (SETQ ENTNAME (ENTNEXT ENTNAME))
              (SETQ BIA (ENTGET ENTNAME))
              (SETQ LORPL (CDR (ASSOC 0 BIA)))
              (IF (/= LORPL "SEQEND")
                (SETQ CBIAO (CONS (CDR (ASSOC 10 BIA)) CBIAO))
              )                                ;if
            )                                ;while
            (setq fir (last cbiao))
            (setq cbiao (cons fir cbiao))
          )                                ;progn
        )                                ;if
      )                                        ;progn
      (progn
        (princ)
      )                                        ;progn
    )                                        ;if
  )                                        ;progn


)                                        ;end
                                        ;======================================================================
(defun pdsj()      
                    (if (= 3d1fz 3d2ez)
                    (progn
                    (setq 3d1fx (car 3d1first))
                    (setq 3d1fy (cadr 3d1first))
                    (setq 3d1ex (car 3d1end))
                    (setq 3d1ey (cadr 3d1end))
                    (setq 3d2fx (car 3d2first))
                    (setq 3d2fy (cadr 3d2first))
                    (setq 3d2ex (car 3d2end))
                    (setq 3d2ey (cadr 3d2end))
                    (if (= (+ 3d1fx 3d1fy) ( +  3d2ex 3d2ey))
                    (progn
                    (setq li (reverse s1list))
                    (setq li1 (reverse s2list))
                    (setq biaozz (append li li1))
                    (command "3dpoly")
                    (foreach pp biaozz (command pp))
                    (command)
                    )
                    )
                    (command "erase" s1 "")
                    (command "erase" s2 "")
                    (setq biaozz nil)
                     
                    (if ( = (+ 3d1ex 3d1ey) ( +  3d2fx 3d2fy))
                    (progn
                    (setq li1 (reverse s2list))
                    (setq biaozz (append li li1))
                    (command "3dpoly")
                    (foreach pp biaozz (command pp))
                    (command)
                    )
                    )
                    (command "erase" s1 "")
                    (command "erase" s2 "")
                    (setq biaozz nil)
  
            (if  (= (+ 3d1ex 3d1ey) ( +  3d2fx 3d2fy))
                    (progn
                    (setq biaozz (append li li1))
                    (command "3dpoly")
                    (foreach pp biaozz (command pp))
                    (command)
                    )
                    )
                    (command "erase" s1 "")
                    (command "erase" s2 "")
                    (setq biaozz nil)
                    )
                      )
  )


  (if (/= 3d1fz 3d2ez)
    (progn
                   (alert "两条线的高程不等请查改后在连线")
      )
    )
           

  
;======================================================================
(defun c:lx()

(progn
   (progn
        (setvar "cmdecho" 0)
        (setvar "angdir" 0)
        (setvar "aunits" 3)
        (setvar "blipmode" 0)
        (setvar "fillmode" 1)
        (setvar "gridmode" 0)   
        (setvar "highlight" 1)
        (setvar "lunits" 2)
        (setvar "luprec" 2)
        (setvar "orthomode" 0)
        (setvar "osmode" 0)
        (setvar "pickbox" 2)
        (setvar "plinewid" 0)
  );progn
        (setq biaozz nil)
  (setq s1 (entsel "\n选择一条三维线:"))
  (if (/= s1 nil)
      (progn
         (setq s2 (entsel "\n选择相临的另一条三维线:"))
         (if (/= s2 nil)
             (progn
                 (setq ent1 (nth 0 s1))
                 (setq entsj1 (entget ent1))
                 (setq entlx1 (cdr (assoc 0 entsj1)))
                 (setq layname (cdr (assoc 8 entsj1)))
                 (3dlist ent1 entlx1)
                 (setq s1list cbiao)
                 (setq 3d1first (nth 0 s1list))
                 (setq 3d1end (last s1list))               

                 (setq ent2 (nth 0 s2))
                 (setq entsj2 (entget ent2))
                 (setq entlx2 (cdr (assoc 0 entsj2)))
                 (3dlist ent2 entlx2)
                 (setq s2list cbiao)
                 (setq 3d2first (nth 0 s2list))
                 (setq 3d2end (last s2list))
                        (setq 3d1fz (caddr 3d1first))
                 (setq 3d1ez (caddr 3d1end))
                 (setq 3d2fz (caddr 3d2first))
                 (setq 3d2ez (caddr 3d2end))
                 (pdsj)
                 (setq coorlist nil)
                 (setq s1 nil)
                 (setq s2 nil)
                 (setq biaozz nil)
                 (princ)
             );progn
             (progn
                (princ "\n没有选线!")
                (princ)   
             );progn
         );if
      );progn
      (progn
         (princ "\n没有选线!")
         (princ)   
      );progn
  );if
);progn

);end
;====================================================
还有问题请大家完善一下

陌生人

要在端点相连还是在中部？

zj-11

多谢playboy的程序，可以执行了
,请问除了重新画线外还有办法吗，比如说内部函数

playboy

最初由 陌生人 发布
[B]要在端点相连还是在中部？ [/B]

呵呵
我没有明白您的意思

楼上的还不行有bug
我还没有添加判断方向的语句呢
没有其它的好方法