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

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

如题

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 e))

复制代码

例如：

(vl-remove-if-not '(lambda(x)(= 10 (car x))) (entget (car(entsel))))

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源