[求助]：如何过PLINE上的一点作该点的垂线？

yinzhenyu · 发表于 2004-6-24 18:18:42

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

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

×

PLINE是拟合(FIT)或非拟合的。

cdhua001 · 发表于 2004-6-24 18:35:56

非拟合的用XL直接作就可以了，拟合后的多段线是由一些圆弧组成，可以作半径。

yinzhenyu · 发表于 2004-6-24 19:53:46

那如果是LWPOLYLINE呢？

还有，很多情况这个线上的点都有辅助线通过，按版主的方法XL跟踪了辅助线的垂线，而非PLINE的垂线，怎样解决？

cdhua001 · 发表于 2004-6-24 20:04:55

这样行吗：

alices · 发表于 2004-6-24 21:21:11

和和...有了视频一下就看懂啦.......大家都发视频教程啊...

lsjjm · 发表于 2004-6-25 04:46:15

最初由 yinzhenyu 发布
[B]PLINE是拟合(FIT)或非拟合的。 [/B]

请参考:(适用任意曲线)
[php]
(defun C:test ()
  (setq p (getpoint "\nPick a Point:"))
  (setq cur (car (entsel)))
  (setq tan (vlax-Curve-GetFirstDeriv cur
      (vlax-Curve-GetParamatDist cur
(vlax-curve-getDistAtPoint cur p))))
  (setq pe (polar p (+ (atan (/ (cadr tan)(car tan)))(/ pi 2)) 1))
  (vl-cmdf "xline" p pe  "")
)
[/php]

yinzhenyu · 发表于 2004-6-25 10:01:25

按照斑竹的办法已经解决问题。

6楼长老提供的lsp已试验，但不知是否有版本要求，我的是02，在几种曲线上都不行。
提示如下(我把命令改成ve了)：
命令: ve
Pick a Point:
选择对象: xline 指定点或 [水平(H)/垂直(V)/角度(A)/二等分(B)/偏移(O)]:
指定通过点: *无效*

指定通过点:
命令: T

或者提示如下：
命令: ve
Pick a Point:
选择对象: ; 错误: 参数类型错误: numberp: nil

lsjjm · 发表于 2004-6-25 10:40:51

最初由 yinzhenyu 发布
[B]...6楼长老提供的lsp已试验，但不知是否有版本要求，我的是02，在几种曲线上都不行...[/B]

该程序在2000i, 2004,2005下对LINE, ARC, CIRCLE, ELLIPSE, PLINE, SPLINE运行无误.

maplesu · 发表于 2004-6-25 10:51:17

最初由 yinzhenyu 发布
[B]那如果是LWPOLYLINE呢？

还有，很多情况这个线上的点都有辅助线通过，按版主的方法XL跟踪了辅助线的垂线，而非PLINE的垂线，怎样解决？ [/B]

这种时候为什么你不先选择捕捉垂点，在捕捉交点呀！[[/COLOR]

yinzhenyu · 发表于 2004-6-25 11:12:07

长老说的支持2000i、2004、2005，
偏偏我的是2002，不知支持否？

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

[求助]：如何过PLINE上的一点作该点的垂线？

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

相关帖子

Re: [求助]：如何过PLINE上的一点作该点的垂线？