[编程交流] 合并两条多段线

(SETQ coordinate1 (VLAX-SAFEARRAY->LIST
                    (VLAX-VARIANT-VALUE (VLAX-GET-PROPERTY obj1 'Coordinates))
                  )
 )

copy

(SETQ coordinate3 (VLAX-SAFEARRAY->LIST
                    (VLAX-VARIANT-VALUE (VLAX-GET-PROPERTY obj1 'Coordinates))
                  )
 )

 
现在我想合并这些线（合并点列表并生成多段线）。
第二个方向与第一个方向相同，我需要反转它！
 
我有两个问题：
1.无法附加点列表，因为我得到了这样的结果：
(1 2 3 4 5 6 ..) 而不是（（1 2）（3 4）（5 6）（…）

copy

(setq lista_punti (append lista_punti (list (nth n coordinate1) (nth (1+ n) coordinate1))))

 
2、真的不知道该怎么做。。我看到了一些关于lamda函数的东西。
 

copy

(entmakex
       (append
  (list
    '(0 . "LWPOLYLINE")                ;nome
    '(100 . "AcDbEntity")
    '(100 . "AcDbPolyline")
    ;'(8 . "Muri")                ;layer
    ;'(62 . 5)                        ;colore
    (cons 90 (length coordinate1))                        ;numero vertici
    '(90 . 4)
    '(70 . 1)                        ;1 chiusa, 0 aperta
    )
 ;istructions here?
 )
 )

 
有人能给我一个建议吗？
 

                               
登录/注册后可看大图

谢谢

  (defun plverts (ent / retn listy retDum add1 add2) ;
   (vl-load-com)
   (if        (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE")
     (progn
(setq retn  nil
      listy (vlax-safearray->list
              (vlax-variant-value
                (vla-get-coordinates (vlax-ename->vla-object ent))
              )
            )
)
(while (and (setq var1 (car listy)) (setq var2 (cadr listy)))
  (setq retn (append retn (list (list var1 var2 0))))
  (setq listy (cddr listy))
)
     )
   )
   retn
 )                                        ; Returns a list of 3D coordinates defining the vertices of a polygon

(SETQ coordinate1 (plverts ent1))

; co-ordsxy is a list of 2d points
(setq x -1) ; so x starts at nth 0 at start and closing
(command "PLINE" (while (= (getvar "cmdactive") 1)
                   (COMMAND (repeat (length co-ordsxy) 
                            (nth (setq x (+ x 1)) co-ordsxy)
                            )
                    )
                 )   
)
(command "C")