[求助]：如何取得曲线上任意两点间沿该曲线长度（已解决）、中点及中点处切线（或法线

hsslyl · 发表于 2006-11-13 10:48:27

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

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

×

已知一曲线和该曲线上任意两点，请问，如何取得这两点间沿该曲线的长度？
谢谢！

oyxx_1023 · 发表于 2006-11-13 12:41:41

参考vlax部分有关曲线　的函数。

tdgc · 发表于 2006-11-13 14:19:44

能不能有哪位高手编个程序,我也需要这样的,我现在只能通过修剪得到

hsslyl · 发表于 2006-11-13 14:43:03

最初由 oyxx_1023 发布
[B]参考vlax部分有关曲线　的函数。 [/B]

已知用这些函数可以获得曲线的全长

qrs · 发表于 2006-11-13 14:44:41

一位高手编写的，很不错
;测量曲线上两点间的路程长度.
(defun C:Mea2 (/ entName1 entName1 Pt1 Pt2 xLen)
(vl-load-com)
(setq entName1 (car (entsel "\n选择曲线: "))
pt1 (getpoint "\n指定测量起点: ")
pt2 (getpoint pt1 "\n指定测量终点: ")
xLen (abs (- (vlax-curve-getDistAtPoint entName1 pt1)
(vlax-curve-getDistAtPoint entName1 pt2)))
)
(princ (strcat "\n*** 两点间曲线长度=" (rtos xLen 2)))
(prin1)
)

hsslyl · 发表于 2006-11-13 15:07:36

最初由 qrs 发布
[B]一位高手编写的，很不错
;测量曲线上两点间的路程长度.
(defun C:Mea2 (/ entName1 entName1 Pt1 Pt2 xLen)
(vl-load-com)
(setq entName1 (car (entsel "\n选择曲线: "))
pt1 (getpoint "\n指定测量起点: ")
... [/B]

真是及时雨，太感谢qrs了，

再问一个类似的问题：已知一曲线和该曲线上任意两点，如何取得这两点间在该曲线上的中点及中点处切线（或法线）的角度？

yuun · 发表于 2006-11-15 11:23:01

一位高手编写的，很不错
;测量曲线上两点间的路程长度.
(defun C:Mea2 (/ entName1 entName1 Pt1 Pt2 xLen)
(vl-load-com)
(setq entName1 (car (entsel "\n选择曲线: "))
pt1 (getpoint "\n指定测量起点: ")
pt2 (getpoint pt1 "\n指定测量终点: ")
xLen (abs (- (vlax-curve-getDistAtPoint entName1 pt1)
(vlax-curve-getDistAtPoint entName1 pt2)))
)
(princ (strcat "\n*** 两点间曲线长度=" (rtos xLen 2)))
(prin1)
)

这个程序在r14里面无法运行,是不是r14和2004有不同?

tdgc · 发表于 2006-11-15 12:48:39

这个程序确实不错,还能取得由直线和圆弧组成的多段线的长度,正是我需要的,太谢谢了!

qrs · 发表于 2006-11-15 14:14:00

7楼，这个程序在r14里面无法运行，何不安装一个2004或者2006？？

hsslyl · 发表于 2006-11-16 20:21:31

怎么没人解答这个问题：已知一曲线和该曲线上任意两点，如何取得这两点间在该曲线上的中点及中点处切线（或法线）的角度？

cgh93001 · 发表于 2007-8-15 02:40:45

(vlax-ename->vla-object (ssname SS 0))
         (setq PT2 (vlax-curve-getclosestpointto OBJ PT1))
   (setq LST (vlax-curve-getfirstderiv    OBJ
                        (vlax-curve-getparamatpoint
                           OBJ
                           PT2
                        )
                  )

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

[已解决] [求助]：如何取得曲线上任意两点间沿该曲线长度（已解决）、中点及中点处切线（或法线

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

相关帖子