如何按顺序读取空间曲线上的各个控制点

CADghost · 发表于 2004-8-6 08:46:00

如题

xhwzei1j4oy.JPG

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

meflying · 发表于 2004-8-6 09:17:00

读取组码10

BDYCAD · 发表于 2004-8-6 14:17:00

以下这个子程序是你要的.
;就用举例:
; (setq point-list (GetPoints ((entget (car (entsel "\n请选曲线"))))))
(defun GetPoints (lst1 / pt lst1 )
   (while (setq lst1 (member (assoc 10 lst1) lst1))
   (setq pt (append pt (list (cdr (car    lst1)))))
   (setq lst1 (cdr lst1)))
   pt
)

wmz · 发表于 2004-8-6 15:06:00

飞哥的回答太笼统了,问的是"按顺序读取空间曲线上的各个控制点".
你这个是样条曲线,有办法取得各个控制点.我记得以前是谁写过关于这方面的贴子,你去搜索以下.不然,我这里收藏的有.

meflying · 发表于 2004-8-6 16:10:00

根据以往的帖子，我认为他能够看明白我的回答。。。至于你后面那段话，我看不太明白。。。。
关于3楼的帖子，程序可能没问题，不过你的举例就错了，你自己要先试试。

CADghost · 发表于 2004-8-6 16:14:00

wmz,那就把你收藏的帖子给我看看吧

wmz · 发表于 2004-8-7 18:02:00

(defun c:Test()
   (vl-load-com)
   (setq s (car (entsel "\n选择线: ")))
   (setq ss (vlax-ename->vla-object S))
   (setq p (vlax-safearray->list (vlax-variant-value (vla-get-controlpoints ss))))
(print p)(princ)
)

CADghost · 发表于 2004-8-9 07:57:00

哦？这样就行了？

无痕 · 发表于 2004-8-11 03:44:00

平时工作中不太用的上ｓｐ的控制点。不过要求组码１０的话可以这样:
复制代码
例如：
(vl-remove-if-not '(lambda(x)(= 10 (car x))) (entget (car(entsel))))

如何按顺序读取空间曲线上的各个控制点

发表回复

精选推荐