[求助]：如何在选择l两点时显示两点间的直线?

nigma · 发表于 2005-12-17 15:53:32

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

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

×

如题,如何在选择l两点时显示两点间的直线?
在cad画图的时候可以,但是在lisp编程的时候,如何做到当我在屏幕上点取两点的时候也在这两点之间显示直线?

qjcpj · 发表于 2005-12-17 16:33:28

是否要亮显该直线？

Underway · 发表于 2005-12-17 17:40:48

(getpoint pt "\nNext point: "))
(getdist pt "\n Distance: "))

nigma · 发表于 2005-12-17 18:58:20

好像不行把,要点取两点,不要输入距离的.

qjcpj · 发表于 2005-12-17 19:07:08

是否这样：
(setq pt1 (getpoint "\n指定第一点:"))
(setq pt2 (getpoint pt1 "\n指定第二点:"))

nigma · 发表于 2005-12-17 20:54:51

5楼说的可以,但是下边这两句lisp的功能不一样
(setq pt2 (getpoint "\n指定第i二点:"))---------------------------用这个代码,虽然在点取p1,p2两点的时候中间没有连线但是出来的结果是对的.
(setq pt2 (getpoint pt1 "\n指定第二点:"))----------------------用这个代码,可以显示连线,但是出来的结果不对,不知道这两个语句得到的p2是否相同?
l另外在cad帮助可以看到以下的解释
RetVal = GetPoint([Point][, Prompt])
.......
The AutoCAD user can specify the point by entering a coordinate in the current units format; GetPoint treats the Point parameter and the return value as three-dimensional points. The user can specify the point also by specifying a location on the graphics screen. If the Point parameter is provided, AutoCAD draws a rubber-band line from Point to the current crosshair position.

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

[求助] [求助]：如何在选择l两点时显示两点间的直线?

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

相关帖子