荒野孤行 发表于 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")
)
**** Hidden Message *****
    (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

好程序，值得学习！
页: [1] 2 3 4 5 6 7 8
查看完整版本: 将多个点连接为曲线