社区 › Auto Lisp › 样条lisp

drafting_man 发表于 2022-7-5 18:18:03

哇，你做到了，这就是我想要的
比；'你是天才

asos2000 发表于 2022-7-5 18:23:45

alanjt公司
感谢更新
在这种情况下，需要保留原始版本并在新帖子中发布更新。这是给初学者（和我一样）学习如何避免逗号。
 
再次感谢

alanjt 发表于 2022-7-5 18:26:39

欢迎你，祝你愉快。
 
说得好。我用红色标记了更新的部分。
 
Trans信息：
 

asos2000 发表于 2022-7-5 18:30:20

是更新吗
(vl-cmdf "_non"(trans p 0 1))
代替
(vl-cmdf "_non" p)
不是吗
 
我想的是？
 

;(vl-cmdf "_non" p) for non UCS
(vl-cmdf "_non" (trans p 0 1)) ;update

 
这两个版本之间的差异很明显。

alanjt 发表于 2022-7-5 18:32:02

正确，唯一的改变。由于我对样条曲线使用命令，我必须将vlax曲线返回的点从wcs转换为ucs。

asos2000 发表于 2022-7-5 18:34:16

alanjt公司
不仅仅是变化
但再次张贴整个代码，并用不同的颜色备注更改或复制同一行并添加；线路旁边
 
例如，这是第一篇文章的一部分
                      )
                   )
                  -1
                  )
                  (function (lambda (a b) (< (car a) (car b))))
                )
       (vl-cmdf "_non" p)
   )
   (vl-cmdf "" "" "")
   )

 
第二次发布（或更新）
                      )
                   )
                  -1
                  )
                  (function (lambda (a b) (< (car a) (car b))))
                )
       (vl-cmdf "_non" (trans p 0 1))
   )
   (vl-cmdf "" "" "")
   )

asos2000 发表于 2022-7-5 18:37:05

或
                      )
                   )
                  -1
                  )
                  (function (lambda (a b) (< (car a) (car b))))
                )
       ;(vl-cmdf "_non" p)
       (vl-cmdf "_non" (trans p 0 1)) ; updated to avoid UCS
   )
   (vl-cmdf "" "" "")
   )

rkmcswain 发表于 2022-7-5 18:39:58

 
...偷来的，我的意思是复制到这里。

alanjt 发表于 2022-7-5 18:44:01

lol.酷。
.

benhubel 发表于 2022-7-5 18:46:32

 
我假设“Greate”是我不熟悉的一种外语。但是，如果这是英文的，您可能需要更新帖子标题。
 
 
**编辑**
谢谢你的发帖，顺便说一句。这些博客帖子正是最初帮助我编写LISP代码的类型。

查看完整版本: 样条lisp