autolisp调用line与pline先后绘图不一致

lengyunfeng

最近玩autolisp，用的是<autocad完全应用指南>，里面有一个程序，我没按他的顺序来敲command函数调用line与pline的顺序，结果出现了不同的结果，程序如下:

1. 
   
2. ;运行结果错误程序
   
3. (defun c:pbox1()
   
4. (setvar "cmdecho" 0)
   
5. (get_pbox_data)
   
6. (draw_pbox)
   
7. (prin1)
   
8. )
   
9. 
   
10. ;The son_program listed below is built up to receive the data of the c:Pbox
    
11. (defun get_pbox_data()
    
12. ;get the origin data form the user
    
13. (setq pa (getpoint "\n Please input the left_down point of the window:"))
    
14. (setq ww (getdist pa "\n Please input the width of the window:"))
    
15. (setq hh (getdist pa "\n Please input the height of the window:"))
    
16. )
    
17. 
    
18. ;the son_program listed below is built up to draw the window
    
19. (defun draw_pbox()
    
20. ;step 1: calculate the left point of the window
    
21. (setq pb (polar pa 0 ww))
    
22. (setq pc (polar pb (/ pi 2) hh))
    
23. (setq pd (polar pc pi ww))
    
24. ;step 2: get the middle point of the window
    
25. (setq mab (cal_mid pa pb))
    
26. (setq mbc (cal_mid pb pc))
    
27. (setq mcd (cal_mid pc pd))
    
28. (setq mda (cal_mid pd pa))
    
29. ;step 3:draw the window in CAD
    
30. (command "pline" pa pb pc pd "c")
    
31. (command "line" mab mcd "")
    
32. (command "line" mbc mda "")
    
33. )
    
34. 
    
35. ;the son_program listed below is built up to get the midpoint of two point
    
36. (defun cal_mid(pt1 pt2)
    
37. (setq mid_x (/ (+ (car pt1) (car pt2)) 2))
    
38. (setq mid_y (/ (+ (cadr pt1) (cadr pt2)) 2))
    
39. (list mid_x mid_y 0.0)
    
40. )

复制代码

1. 
   
2. ;运行结果正确程序
   
3. (defun c:pbox1()
   
4. (setvar "cmdecho" 0)
   
5. (get_pbox_data)
   
6. (draw_pbox)
   
7. (prin1)
   
8. )
   
9. 
   
10. ;The son_program listed below is built up to receive the data of the c:Pbox
    
11. (defun get_pbox_data()
    
12. ;get the origin data form the user
    
13. (setq pa (getpoint "\n Please input the left_down point of the window:"))
    
14. (setq ww (getdist pa "\n Please input the width of the window:"))
    
15. (setq hh (getdist pa "\n Please input the height of the window:"))
    
16. )
    
17. 
    
18. ;the son_program listed below is built up to draw the window
    
19. (defun draw_pbox()
    
20. ;step 1: calculate the left point of the window
    
21. (setq pb (polar pa 0 ww))
    
22. (setq pc (polar pb (/ pi 2) hh))
    
23. (setq pd (polar pc pi ww))
    
24. ;step 2: get the middle point of the window
    
25. (setq mab (cal_mid pa pb))
    
26. (setq mbc (cal_mid pb pc))
    
27. (setq mcd (cal_mid pc pd))
    
28. (setq mda (cal_mid pd pa))
    
29. ;step 3:draw the window in CAD
    
30. (command "line" mab mcd "")
    
31. (command "line" mbc mda "")
    
32. (command "pline" pa pb pc pd "c")
    
33. )
    
34. 
    
35. ;the son_program listed below is built up to get the midpoint of two point
    
36. (defun cal_mid(pt1 pt2)
    
37. (setq mid_x (/ (+ (car pt1) (car pt2)) 2))
    
38. (setq mid_y (/ (+ (cadr pt1) (cadr pt2)) 2))
    
39. (list mid_x mid_y 0.0)
    
40. )

复制代码

程序的预期运行结果是一个矩形框，内部为连接对边中点的十字交叉线。我用的是autocad2008平台，上面第一个程序运行结果为一个矩形框，里面有两条连接对顶角的直线。
我想了半天也想不出个所以然来，希望各位老师能帮我解释一下。

lengyunfeng

刚才我又连续用了两次直接在CAD命令交互窗口里用了lisp命令，不过用的是两个pline，也出现了同样的问题。如下：

1. 
   
2. 命令: pline
   
3. 
   
4. 指定起点: (list 0 0)
   
5. (0 0)
   
6. 
   
7. 当前线宽为 0.0000
   
8. 指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: (list 10 0)
   
9. (10 0)
   
10. 
    
11. 指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: (list 10 10)
    
12. (10 10)
    
13. 
    
14. 指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: (list 0 10)
    
15. (0 10)
    
16. 
    
17. 指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: c
    
18. 命令:  PLINE
    
19. 指定起点: (list 5 0)
    
20. (5 0)
    
21. 
    
22. 当前线宽为 0.0000
    
23. 指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: (list 5 10)
    
24. (5 10)
    
25. 
    
26. 指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:

复制代码

第一个pline命令与lisp的命令交互性很好，能按预期目标完成矩形框的绘制，但第二个就开始不听使唤了，画的结果是(0 0)点和(10 10)的连线。后来我把之前画的图删了，又试了一下先画内部的十字竖线，后画矩形框，结果就行了。

真**的怪了？~~！！！，难道d版的CAD里的东西破得不全吗？希望有Z版的同志帮我试试，看看是否有同样的问题

lengyunfeng

lengyunfeng 发表于 2011-12-24 23:10
刚才我又连续用了两次直接在CAD命令交互窗口里用了lisp命令，不过用的是两个pline，也出现了同样的问题。如 ...

干！搞清楚了，就是把f3打开了

gongsiyi123

这个问题我也遇到过，后来发现是对象捕捉捣的鬼，在代码里加一句(command "osnap" "none")就好了

lengyunfeng

gongsiyi123 发表于 2013-8-21 11:13
这个问题我也遇到过，后来发现是对象捕捉捣的鬼，在代码里加一句(command "osnap" "none")就好了 ...

对，也可以用(setvar "osmode" 0)