[求助]：[求助]：请帮忙画这样一条切线万分感谢！！

xiaojiang0 · 发表于 2006-4-30 16:25:06

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

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

×

我想用lsp画一条竖直直线（蓝色），使它与同样竖直的一条spline线相切，下面的红色直线为水平直线，拜托了，请高手指点指点，如果有程序最好了！！！真得很感谢！！

雨箭风刀 · 发表于 2006-4-30 17:30:21

命令: a LINE 指定第一点: tan 到（点弧段）
指定下一点或 [放弃(U)]: per 到（点下面水平段）
指定下一点或 [放弃(U)]:

xiaojiang0 · 发表于 2006-5-1 19:22:13

您能帮我用lsp语言实现吗？谢谢了，我不太会。
(setq pt1 '(276.196 806.447 0.0))
   (setq pt2 '(265.292 715.79 0.0))
      (setq pt3 '(270.156 628.219 0.0))
         (setq pt4 '(298.016 574.659 0.0))
      (setq pt5 '(326.267 550.682 0.0))
      (setq pt6 '(80 550.682 0.0))
      (command"spline" pt1 pt2 pt3  pt4 pt5  "" "" "");弧线
      (setq qx(entget(entlast)));取得所画的弧线
         (command"line" pt5 pt6 "");画水平直线
      (setq hd(entget(entlast)));取得所画的水平直线
      (command"line"  "tan" qx "per" hd "")
我是这么画的，最后一句该怎么修改呢？而且"tan"选弧线的时候该怎样才能保证画的直线与弧线只有一个切点呢？？

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

[求助] [求助]：[求助]：请帮忙画这样一条切线万分感谢！！

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

相关帖子