将多个点连接为曲线

荒野孤行 · 发表于 2015-12-28 23:31:27

本帖最后由荒野孤行于 2015-12-28 23:41 编辑

;;;连点成线
(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 · 发表于 2024-1-11 11:27:26

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

leedun · 发表于 2024-1-4 19:31:04

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

xzd716 · 发表于 2021-11-19 20:56:37

多谢楼主！学习学习

tianbeiyuan · 发表于 2019-11-25 11:56:10

路过学习下喽

水仙的错 · 发表于 2019-9-14 16:35:54

挺好的，收一下

zhenz02 · 发表于 2019-7-26 14:47:03

学习学习！多谢楼主！！

q3_2006 · 发表于 2016-6-27 10:46:42

看看思路,学习一下!

cj52000 · 发表于 2016-6-27 08:39:24

谢谢，下来看看学习下

zsm422822 · 发表于 2016-6-26 21:58:42

好程序，值得学习！

账号		自动登录	找回密码
密码			注册

[源码] 将多个点连接为曲线

本帖子中包含更多资源

评分

相关帖子