[求助]请问如何编程实现任意的多边形的绘制

water_fire

其实我新建一个文档（图中没有对象），用TT点两个点后，就是不移动鼠标，十字光标在原处也是不停的闪烁。

那么请问如何在我的系统和版本上测试grread函数对右键的返回值？

zml84

(while t (print (grread t 7 0)))

7686599

try this:

2. (defun c:x1 (/ loop mod p1 pn pt vpoint)
3.   (setvar "cmdecho" 0)
4.   (setq loop t)
5.   (if (setq p1 (getpoint "\n开始点<退出>:"))
6.     (progn
7.       (command "pline" p1)
8.       (princ "\n指定下一步<退出>:")
9.       (while loop
10. (setq vpoint (grread t 4 0))
11. (setq mod (car vpoint))
12. (setq pt (cadr vpoint))
13. (cond ((= mod 3)
14.         (command pt)
15.         (setq pn pt)
16.        )
17.        ((= mod 5)
18.         (redraw)
19.         (grvecs (list 7 pt p1 pn))
20.         (and pn (grvecs (list 7 pn pt)))
21.        )
22.        (t (setq loop nil))
23. )
24.       )
25.       (command "c")
26.       (redraw)
27.     )
28.   )
29.   (princ)
30. )

(defun c:x1 (/ loop mod p1 pn pt vpoint)   (setvar "cmdecho" 0)   (setq loop t)   (if (setq p1 (getpoint "\n开始点<退出>:"))     (progn       (command "pline" p1)       (princ "\n指定下一步<退出>:")       (while loop (setq vpoint (grread t 4 0)) (setq mod (car vpoint)) (setq pt (cadr vpoint)) (cond ((= mod 3)         (command pt)         (setq pn pt)        )        ((= mod 5)         (redraw)         (grvecs (list 7 pt p1 pn))         (and pn (grvecs (list 7 pn pt)))        )        (t (setq loop nil)) )       )       (command "c")       (redraw)     )   )   (princ) )

water_fire

大侠7686599好，你的程序我调试没有通过，问题出现在语句(grvecs (list 7 pt p1 pn))

其中(list 7 pt p1 pn)的返回值为：   

(7 (660.146 566.225 0.0) (660.146 566.225 0.0) nil)

错误提示为：错误: 参数类型错误: 二维/三维点: nil。

我的变量值为：

PT = (660.146 566.225 0.0)
VPOINT = (5 (660.146 566.225 0.0))
P1 = (660.146 566.225 0.0)
请大侠帮忙分析，多谢！

7686599

那句话打错了，不需要pn。(list 7 pt p1)即可

water_fire

非常感谢7686599大侠，程序调试通过，比较好用！

天龙八部

不错，有想法，

香田里浪人

zml84 发表于 2007-8-30 10:39
楼主要的应该是这个东东：动画演示见：http://www.acad.net.cn/viewthread.php?tid=432&extra=page%3D1

希望作者再补充一下，回车就能自动闭合

香田里浪人

7686599大侠的程序比较好用！