[LISP程序]：样条曲线控制点列表程序

lsjjm · 发表于 2004-5-21 07:39:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

样条曲线控制点列表程序:
(defun c:test (/ pp)
  (vl-load-com)
  (setq ent (car (entsel)))
  (setq obj (vlax-ename->vla-object ent))
  (setq pts (vlax-safearray->list
      (variant-value (vla-get-controlpoints obj))))
  (setq n 0)
  (while (< n (length pts))
(setq pp (append pp (list (list (nth n pts)
      (nth (1+ n) pts)
      (nth (+ n 2) pts)))))
(setq n (+ 3 n))
  )
  pp
)
其实, 使用acet内部函数更简单:(acet-geom-vertex-list ent)返回同样结果.

xjjy · 发表于 2004-9-11 11:06:09

谢谢！
我找了很久！

li809 · 发表于 2005-2-16 21:51:12

有啥作用呢,个体用在哪个行业中

xawhq · 发表于 2005-9-10 10:21:34

存在问题：
用Test降样条曲线的控制点列出以后，再用这些点画样条曲线，和原来的那根线已经不同了，请楼主看一看能否解决。

yy8866 · 发表于 2005-10-5 15:06:15

改进了一些问题，又出现了一些新问题

狂刀 · 发表于 2005-10-6 11:51:16

回二楼：
控制点　ｃｏｎｔｒｌｐｏｉｎｔ是用来控制的
要用命令重画需要　用　ｆｉｔｐｏｉｎｔ。另外加上　开始及结束的ｔａｒｇｅｎｔ

楼主：
你提取控制点是想在哪些方面应用？能否说说

WHGF · 发表于 2005-10-14 19:56:43

路过,问一下,能否通过控制点重新生成样条线?

koyczr · 发表于 2006-2-8 17:09:59

看不明白啊！

ynwhp · 发表于 2006-12-11 20:01:51

请问如何提取多义线顶点坐标.谢谢

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

[LISP程序]：样条曲线控制点列表程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子