社区 › Auto Lisp › 样条lisp

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

样条lisp

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

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

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

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

非常感谢您的回复
我的意思是，我有很多条线，我想从每一条线的端点创建样条线，如下图所示
http://hosting11.imagecross.com/image-hosting-35/5952222.JPG

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

有趣的快，现在回到看他和我的小女孩。。。
(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" (trans p 0 1))
   )
   (vl-cmdf "" "" "")
   )
)
(princ)
)

asos2000 发表于 2022-7-5 18:08:21

alanjt谢谢

ReMark 发表于 2022-7-5 18:13:52

问你们也必领受。
 
你还能在哪里得到这样的服务？
 
你知道这是什么，不是吗？无价的

alanjt 发表于 2022-7-5 18:16:27

代码更新为非WCS帐户（完全忘记）。
 
不客气。享受
 

查看完整版本: 样条lisp