另外一个代码 错误: 参数类型错误: fixnump: (122.375 74.5668 0.0)

杜流浪人

;;局部替换多段线
;;46.2 [功能] pline,lwpline点坐标表  By 无痕
;;示例(vxs (car (entsel))),返回三维点坐标
(defun vxs (e / i v lst)
   (setq i -1)
   (while
     (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
      (setq lst (cons v lst))
   )
   (reverse lst)
)
(defun c:tt2()
(setq ent1(CAR(entsel "\n 选择第一条3D多段线")))
(setq ent2(CAR(entsel "\n 选择第二条3D多段线")))
(setq list1 ( vxs  ent1))
(setq list2 ( vxs  ent2))
(setq p1 (getpoint "\n 1:"))
(setq p2 (getpoint "\n 2:"))
(setq qlt (list-right-delete list1 p1))
(setq wlt (list-left-delete list1 p2))
(setq ltt (append qlt list2))
(setq pts (append ltt wlt))
    (if pts
      (progn
       (mk3DPOLYLINE pts)
       (entdel ent1)
       (entdel ent2)
        (princ "\n 连接成功")
            )
         )
(princ)
);end defun

;三维点表绘制3D多段线
(defun mk3DPOLYLINE(ptlst)
    (entmake (list '(0 . "POLYLINE") '(100 . "AcDbEntity") '(100 . "AcDb3dPolyline") '(66 . 1) '(70 . 8)))
    (foreach pt ptlst (entmake (list '(0 . "vertex") (cons 10 pt) '(70 . 32))))
    (entmake '((0 . "seqend")))
)

;;;name:list-left-delete
(defun list-left-delete (lst m)
     (repeat  m
         (setq lst (cdr lst))
     )
)
(defun list-right-delete (lst m)
     (setq lst (reverse lst))
     (repeat  m
         (setq lst (cdr lst))
     )