请教飞哥！！！

afeng0712 · 发表于 2004-12-21 19:44:00

请问有哪个函数可以提取一曲线的各个顶点？？（最好是通用函数）看帮助没查到...

meflying · 发表于 2004-12-22 08:20:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=437&replyID=1532&skin=1

afeng0712 · 发表于 2004-12-22 21:14:00

飞哥，我所说的是曲线（当然这里广义的是包括直线和样条曲线）有顶点也有他们的端点，我是想你是否知道一函数就象端点是有VLAX-CURVE-GETSTARTPOINT函数，程序显得繁文了！

xyp1964 · 发表于 2004-12-22 22:37:00

本帖最后由作者于 2004-12-25 19:50:03 编辑

;;多义线顶点坐标
(defun c:test010 (/ ss i ssn retcoord n pt)
(setvar "cmdecho" 0)
(princ "\n选取PLINE多义线...")
(setq ss (ssget '((0 . "*POLYLINE"))))
(setq i 0)
(setvar "pdmode" 33)
(repeat (sslength ss)
(princ (strcat "\n第" (rtos (+ i 1) 2 0) "条线数据 : "))
(princ)
(setq ssn (ssname ss i))
(setq retcoord (vla-get-Coordinates (vlax-ename->vla-object ssn)))
(setq n 0)
(repeat
(length (vlax-safearray->list (vlax-variant-value retcoord))
)
(setq pt
(vlax-safearray-get-element (vlax-variant-value retcoord) n)
)
(princ "\n")
(princ pt)
(setq n (1+ n))
)
(princ)
(princ "\n ")
(princ)
(setq i (+ 1 i))
)
(princ)
)

afeng0712 · 发表于 2004-12-24 12:39:00

我要的可能就是4楼提供的vla-get-Coordinates函数，我试试看有没有对所有线条具有通用性，你的程序思路清晰，很感谢你哈！！！

afeng0712 · 发表于 2004-12-28 10:49:00

vla-get-Coordinates 函数用法出错？？？帮助查不到该函数的用法？？后面跟VLA变量有问题！！！可以在CAD下面直接试！

他后面不跟VLA变量那该怎么用？？

meflying · 发表于 2004-12-28 10:57:00

(vlax-safearray->list (vlax-variant-value (vla-get-Coordinates (vlax-ename->vla-object (car (entsel))))))

后面是表处理的问题，希望你自己能解决。。。

这个函数对LINE，SPLINE等都不适用的。。。楼上给了这么多方法，再加上你自己想想，应该很容易做出你需要的函数（提示：选择对象后，判断一下对象是什么东西，然后根据不同对象类型使用不同的取顶点的函数）

afeng0712 · 发表于 2004-12-28 14:29:00

要是样条曲线，用哪个函数才能提取顶点？？/直线可以直接取端点是了，（如果不是用顶点组码，不要转移话题或反问，呵呵），谢谢直接回答！

meflying · 发表于 2004-12-28 15:53:00

(vlax-safearray->list (vlax-variant-value (vla-get-fitpoints (vlax-ename->vla-object (car (entsel))))))

这些都是ACTIVEX方法，如果你要用，最好去学习VLISP的ACTIVEX方法，，，这样一点一点地问不是办法。。。

还是忍不住反问一下，用DXF组码有什么不好？

afeng0712 · 发表于 2004-12-29 19:49:00

上面给定的两个得到的是数组！直线的两端点能得到是数组就好了，类型一样处理起来好办些！

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