将多个点连接为曲线

荒野孤行

;;;连点成线
(defun c:t1 (/ ptlist)
  (setvar "blipmode" 0)
  (setvar "pickfirst" 1)
  (setvar "expert" 0)
  (setvar "GRIPOBJLIMIT" 50)
  (setvar "osmode" 15359)
  (setvar "cmdecho" 0)
  (princ "\n★功能：将邻近的点连接为一条曲线。\n")
  (vl-load-com)
  (princ "\n请选择要连接的点对象：\n")
  (command "undo" "be")
  (setq ss (ssget '((0 . "POINT"))))
  (if (null ss)
    (progn (princ "\n提示：未选取点对象!") (exit))
  )
  (initget "P S")
  (if (not
        (setq kw
               (getkword
                 "曲线样式：[多段线(P)/样条曲线(S)]<S>"
               )
        )
      )
    (setq kw "S")
  )
(setq i 0)
  (setvar "osmode" 0)
  (repeat (sslength ss)
    (setq entnam (entget (ssname ss i))
          pt         (cdr (assoc 10 entnam))
          ptlist (cons pt ptlist)
          i         (1+ i)
    )
  )
  (setq        ptlist (vl-sort        ptlist
                        '(lambda (e1 e2)
                           (if (equal (car e1) (car e2) 1e-5)
                             (if (equal (cadr e1) (cadr e2) 1e-5)
                               (< (cadr e1) (cadr e2))
                               (< (car e1) (car e2))
                             )
                           )
                         )
               )
  )
  (if (= kw "P")
    (progn
      (command "pline")
      (foreach pt ptlist (command pt))
      (command "")
    )
    (progn
      (command "spline")
      (foreach pt ptlist (command pt))
      (command "" "" "")
    )
  )
  (setvar "osmode" 15359)
  (command "undo" "e")
  (princ)
)

jkop

取點成線，取點成曲線，在路徑規劃，地圖分析有妙用！

leedun

收藏，将多个点连接为曲线

xzd716

多谢楼主！学习学习

tianbeiyuan

路过学习下喽

水仙的错

挺好的，收一下

zhenz02

学习学习！多谢楼主！！

q3_2006

看看思路,学习一下!

cj52000

谢谢，下来看看学习下

zsm422822

好程序，值得学习！