样条lisp

drafting_man · 发表于 2022-7-5 17:46:04

嗨，盖伊
我希望有人能帮我
我正在搜索我选择的线的端点处的lisp make spline。

ReMark · 发表于 2022-7-5 17:51:17

我不明白这个问题。在一条直线的端点做一条样条曲线？您的意思是在两条或多条直线的端点之间创建样条曲线吗？

drafting_man · 发表于 2022-7-5 17:54:53

非常感谢您的回复
我的意思是，我有很多条线，我想从每一条线的端点创建样条线，如下图所示

登录/注册后可看大图

ReMark · 发表于 2022-7-5 17:56:01

我不知道有哪一个lisp例程可以满足您的要求。我的建议是在网上搜索涉及样条的lisp例程。例子：

“autocad”+“lisp”+“样条曲线”

我知道Cadalyst杂志在他们的网站上有一个叫做Cad提示的部分，在那里各种Cad用户发布了他们自己的lisp例程。还有其他网站也发布自定义lisp例程。

我们这里有一些人也为自己和其他论坛成员的请求创建了自定义例程。也许他们中的一个会看到你的帖子，并在适当的时候做出回应。请记住，我们都自愿投入我们的时间和专业知识，所以请耐心等待。有时，答案并没有我们想要的那么快。好啊

drafting_man · 发表于 2022-7-5 17:59:19

先生，谢谢你的建议
我在等别人帮忙

ReMark · 发表于 2022-7-5 18:03:54

我看你没有得到任何进一步的回应。

你在网上找到什么了吗？

alanjt · 发表于 2022-7-5 18:07:59

有趣的快，现在回到看他和我的小女孩。。。

copy

(defun c:SPLC (/ ss lst)
 ;; Spline Connect
 ;; Alan J. Thompson, 05.15.10
 (vl-load-com)
 (if (setq ss (ssget '((0 . "LINE"))))
   (progn
     (vl-cmdf "_.spline")
     (foreach p (vl-sort
                  ((lambda (i)
                     (while (setq e (ssname ss (setq i (1+ i))))
                       (setq lst
                              (cons
                                (car
                                  (vl-sort (list (vlax-curve-getStartPoint e) (vlax-curve-getEndPoint e))
                                           (function (lambda (a b) (> (cadr a) (cadr b))))
                                  )
                                )
                                lst
                              )
                       )
                     )
                   )
                    -1
                  )
                  (function (lambda (a b) (< (car a) (car b))))
                )
       (vl-cmdf "_non" [color=Red](trans p 0 1)[/color])
     )
     (vl-cmdf "" "" "")
   )
 )
 (princ)
)