grread的用法

wzh · 发表于 2005-1-14 19:40:00

使用GETPOINT指定第二点时可以使用

(setq P2 (getpoint P1))

来拉出一条橡皮线，而使用grread获取第二点时如何做到也有一条橡皮线？

meflying · 发表于 2005-1-14 20:24:00

(defun c:test(/ pt1 pt ptold)
(setq pt1 (getpoint "Enter the first point:"))
(while (= (car (setq pt (grread 2 4))) 5)
(setq pt (cadr pt))
(if ptold
(grdraw pt1 ptold 0)
)
(grdraw pt1 pt 1)
(setq ptold pt)
)
)

wzh · 发表于 2005-1-15 15:05:00

不错,如果能实现正交功能就更好了.

meflying · 发表于 2005-1-16 12:56:00

如果就要这个功能，用getpoint不是很好吗

wzh · 发表于 2005-1-16 15:05:00

主要是想按一定比例实时显示第二点距起点的距离(带文字说明),根据距离来确定第二点的位置,

sccat · 发表于 2005-1-17 14:44:00

grdraw 能画弧吗？

xazhji · 发表于 2005-1-17 20:51:00

可用短线近似代替

llsheng_73 · 发表于 2013-10-24 17:45:28

wzh 发表于 2005-1-16 15:05
主要是想按一定比例实时显示第二点距起点的距离(带文字说明),根据距离来确定第二点的位置,

如果只是想要知道(getpoint p1)时当前位置相对于P1的距离和方位角，可以把左下角的坐标显示区域点击几下切换过去就行了

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