[求助]：lisp高手快来帮小弟一把，画折线得问题

luckzay · 发表于 2003-6-16 23:51:12

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

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

×

怎么样才能用autolisp画出一条垂直折线呢，步骤如下：在屏幕上用鼠标获取一点，再获取一点，而后自动得到两点得垂直折线得第三点，自动把这三点连接。第一点，垂足，第二点。急，望尽快解答，谢谢！

XDSoft · 发表于 2003-6-16 23:55:13

最初由 luckzay 发布
[B]怎么样才能用autolisp画出一条垂直折线呢，步骤如下：在屏幕上用鼠标获取一点，再获取一点，而后自动得到两点得垂直折线得第三点，自动把这三点连接。第一点，垂足，第二点。急，望尽快解答，谢谢！ [/B]

你是怎么写的? 贴论坛来吧, 大家看看.

lsjjm · 发表于 2003-6-17 05:28:26

(command "ORTHO" "on")
(command "pline" (getpoint "Input First Point:")
(getpoint "Input Second Point:")
(getpoint "Input Last Point:") "")

luckzay · 发表于 2003-6-17 07:53:47

最初由 XDSoft 发布
[B][QUOTE]最初由 luckzay 发布
[B]怎么样才能用autolisp画出一条垂直折线呢，步骤如下：在屏幕上用鼠标获取一点，再获取一点，而后自动得到两点得垂直折线得第三点，自动把这三点连接。第一点，垂足，第二点。... [/B]

谢谢楼上的帮忙，但我要求的第三点即垂足是自动计算出来的，
它的坐标是（第二点的x，第一点的y），望解答，谢谢

lijiao · 发表于 2003-6-17 08:05:22

最初由 luckzay 发布
[B]怎么样才能用autolisp画出一条垂直折线呢，步骤如下：在屏幕上用鼠标获取一点，再获取一点，而后自动得到两点得垂直折线得第三点，自动把这三点连接。第一点，垂足，第二点。急，望尽快解答，谢谢！ [/B]

你的条件不充分，结果不唯一。

lsjjm · 发表于 2003-6-17 08:11:31

(command "ORTHO" "on")
(setq p1 (getpoint "Input First Point:")
p3 (getpoint "Input Second Point:")
p2 (list (car p3)(cadr p1)))
(command "pline" p1 p2 p3 "")

luckzay · 发表于 2003-6-17 08:31:25

谢谢lsjjm
不知可否将多种线型写在一个程序里面，线型如图，然后根据第一点和第二点的位置自动画线。谢谢！

wharan · 发表于 2003-6-17 08:42:08

问题描述不清，没有人能帮你解决。但有个思路，使用Polar函数加条件判断，应该是件很简单的事情

luckzay · 发表于 2003-6-17 08:50:04

不好意思，是根据起点和终点的位置判断，选取图中的哪种线型布线，图中的线型是我能用到的，起点和终点是分别在两个图块中选取的，所以会出现图中的情况，谢谢！

cy956 · 发表于 2003-6-17 22:24:28

要定点不外乎方向长度。你的条件不充分。

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

[求助] [求助]：lisp高手快来帮小弟一把，画折线得问题

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

相关帖子

Re: [求助]：lisp高手快来帮小弟一把，画折线得问题

Re: Re: [求助]：lisp高手快来帮小弟一把，画折线得问题

Re: [求助]：lisp高手快来帮小弟一把，画折线得问题

浏览过的版块