为什么图元不能准确地落在光标所在的点上？

669423907

下面是我改论坛上的一个画U型孔的程序，现在发现有一些问题：
有时候U型孔可以准确的放到当前光标所在的点上，有时候又会偏离了，请问这是什么原因造成的呢？
望大师们指点

(defun c:88();画U型孔 http://www.jxcad.com.cn/read.php?tid=430246&keyword=%D1%FC%BF%D7
(command "undo" "be")

(if (not *b*)(setq *b* 1) )
(if (not *a*)(setq *a* 3) )

(setq b (getdist (strcat "\n请指定U型孔的宽度 <"(rtos *b*)">: ")))
(setq a (getdist (strcat "\n请指定U型孔的长度 <"(rtos *a*)">: ")))

(if (not b)(setq b *b*)(setq *b* b) )
(if (not a)(setq a *a*)(setq *a* a) )

(if (<= a b)
(setq a (* 3 b)))

(setq k (* 0.05 a));中心线伸出长度
(setq d (- a b))

(setq dj (getpoint "\n左键 ━，右键 ▏"))
(if dj (setq j 0)(setq j (* pi 0.5)))

(setq gbwz (grread 3));光标位置
(if (member (car gbwz) '(3 5))
(setq p1 (cadr gbwz)));鼠标位置

;(setq p1 (getpoint "\n请指定U型孔的中心点:"))

(setq os (getvar "osmode"))
(setvar "osmode" 0)

(setq aa (/ d 2.0) p2 (polar p1 0 aa) p3 (polar p1 pi aa) bb (/ b 2.0))
(setq p4 (polar p3 (* pi 1.5) bb) p5 (polar p2 (* pi 1.5) bb) p6 (polar p3 (* pi 0.5) bb))

(command "pline" p4 "w" "0" "0" p5 "a" "ce" p2 "a" "180" "l" p6 "a" "ce" p3 "a" "180" "l" "")
(command "rotate" "l" "" p1 (* (/ 180 pi) j))
(command "chprop" (entlast) "" "p" "la" (getvar "clayer") "ltscale" (* 0.5 b) "")

(setq la (getvar"clayer"))
(command "layer" "m" "2中心线" "c" "1" "" "lw" "0.13" "" "lt" "CENTER" "" "" "clayer" la)

(command "line" (polar p3 (- pi) (+ (* b 0.5) k)) (polar p2 (* pi 0) (+ (* b 0.5) k)) "")
(command "rotate" "l" "" p1 (* (/ 180 pi) j))
(command "chprop" (entlast) "" "p" "la" "2中心线" "ltscale" (* 0.5 b) "")

(command "line" (polar p3 (+ (* pi 0.5)) (+ (* b 0.5) k)) (polar p3 (* pi 1.5) (+ (* b 0.5) k)) "")
(command "rotate" "l" "" p1 (* (/ 180 pi) j))
(command "chprop" (entlast) "" "p" "la" "2中心线" "ltscale" (* 0.5 b) "")

(command "line" (polar p2 (+ (* pi 0.5)) (+ (* b 0.5) k)) (polar p2 (* pi 1.5) (+ (* b 0.5) k)) "")
(command "rotate" "l" "" p1 (* (/ 180 pi) j))
(command "chprop" (entlast) "" "p" "la" "2中心线" "ltscale" (* 0.5 b) "")

(command "undo" "e")
(setvar "osmode" os)
(princ))

菜卷鱼

(setq os (getvar "osmode"))
(setvar "osmode" 0)
把这两句放在getpioint 前面试一试

669423907

菜卷鱼 发表于 2014-11-18 08:22
(setq os (getvar "osmode"))
(setvar "osmode" 0)
把这两句放在getpioint 前面试一试

那样就无法捕捉到想要的点了

aihuyujian

把command后面是点的前面加上“none",例如：
(command "line" "none" (polar p3 (- pi) (+ (* b 0.5) k)) "none" (polar p2 (* pi 0) (+ (* b 0.5) k)) "")

菜卷鱼

你的点不是通过 getpoint得到的，而是grread 鼠标点击点得到的，grread是不带捕捉功能的，试一试下面的

1. (defun c:88();画U型孔
   
2. 
   
3. (if (not *b*)(setq *b* 1) )
   
4. (if (not *a*)(setq *a* 3) )
   
5. 
   
6. (setq p1 (getpoint "\n指定U型孔的中心点"))
   
7. (setq b (getdist (strcat "\n请指定U型孔的宽度 <"(rtos *b*)">: ")))
   
8. (setq a (getdist (strcat "\n请指定U型孔的长度 <"(rtos *a*)">: ")))
   
9. 
   
10. (if (not b)(setq b *b*)(setq *b* b) )
    
11. (if (not a)(setq a *a*)(setq *a* a) )
    
12. 
    
13. (if (<= a b)
    
14. (setq a (* 3 b)))
    
15. 
    
16. (setq k (* 0.05 a));中心线伸出长度
    
17. (setq d (- a b))
    
18. 
    
19. 
    
20. (PRINC "\n指定方向: 左键 ━，右键 ▏")
    
21. (setq gbwz (grread NIL 2));光标位置
    
22. (if (member (car gbwz) '(3 25))
    
23. (cond((= (car gbwz) 3)(setq j 0))
    
24.      ((= (car gbwz) 25)(setq j (* pi 0.5)))
    
25. )
    
26. (setq j 0))
    
27. 
    
28. (setvar 'cmdecho 0)
    
29. (command "undo" "be")
    
30. (setq os (getvar "osmode"))
    
31. (setvar "osmode" 0)
    
32. 
    
33. (setq aa (/ d 2.0) p2 (polar p1 0 aa) p3 (polar p1 pi aa) bb (/ b 2.0))
    
34. (setq p4 (polar p3 (* pi 1.5) bb) p5 (polar p2 (* pi 1.5) bb) p6 (polar p3 (* pi 0.5) bb))
    
35. 
    
36. (command "pline" p4 "w" "0" "0" p5 "a" "ce" p2 "a" "180" "l" p6 "a" "ce" p3 "a" "180" "l" "")
    
37. (command "rotate" "l" "" p1 (* (/ 180 pi) j))
    
38. (command "chprop" (entlast) "" "p" "la" (getvar "clayer") "ltscale" (* 0.5 b) "")
    
39. 
    
40. (setq la (getvar"clayer"))
    
41. (command "layer" "m" "2中心线" "c" "1" "" "lw" "0.13" "" "lt" "CENTER" "" "" "clayer" la)
    
42. 
    
43. (command "line" (polar p3 (- pi) (+ (* b 0.5) k)) (polar p2 (* pi 0) (+ (* b 0.5) k)) "")
    
44. (command "rotate" "l" "" p1 (* (/ 180 pi) j))
    
45. (command "chprop" (entlast) "" "p" "la" "2中心线" "ltscale" (* 0.5 b) "")
    
46. 
    
47. (command "line" (polar p3 (+ (* pi 0.5)) (+ (* b 0.5) k)) (polar p3 (* pi 1.5) (+ (* b 0.5) k)) "")
    
48. (command "rotate" "l" "" p1 (* (/ 180 pi) j))
    
49. (command "chprop" (entlast) "" "p" "la" "2中心线" "ltscale" (* 0.5 b) "")
    
50. 
    
51. (command "line" (polar p2 (+ (* pi 0.5)) (+ (* b 0.5) k)) (polar p2 (* pi 1.5) (+ (* b 0.5) k)) "")
    
52. (command "rotate" "l" "" p1 (* (/ 180 pi) j))
    
53. (command "chprop" (entlast) "" "p" "la" "2中心线" "ltscale" (* 0.5 b) "")
    
54. 
    
55. (command "undo" "e")
    
56. (setvar "osmode" os)
    
57. (setvar 'cmdecho 1)
    
58. (princ))

(defun c:88();画U型孔<br /> <br /> (if (not *b*)(setq *b* 1) )<br /> (if (not *a*)(setq *a* 3) )<br /> <br /> (setq p1 (getpoint "\n指定U型孔的中心点"))<br /> (setq b (getdist (strcat "\n请指定U型孔的宽度 <"(rtos *b*)">: ")))<br /> (setq a (getdist (strcat "\n请指定U型孔的长度 <"(rtos *a*)">: ")))<br /> <br /> (if (not b)(setq b *b*)(setq *b* b) )<br /> (if (not a)(setq a *a*)(setq *a* a) )<br /> <br /> (if (<= a b)<br /> (setq a (* 3 b)))<br /> <br /> (setq k (* 0.05 a));中心线伸出长度<br /> (setq d (- a b))<br /> <br /> <br /> (PRINC "\n指定方向: 左键 ━，右键 ▏")<br /> (setq gbwz (grread NIL 2));光标位置<br /> (if (member (car gbwz) '(3 25))<br /> (cond((= (car gbwz) 3)(setq j 0))<br />      ((= (car gbwz) 25)(setq j (* pi 0.5)))<br /> )<br /> (setq j 0))<br /> <br /> (setvar 'cmdecho 0)<br /> (command "undo" "be")<br /> (setq os (getvar "osmode"))<br /> (setvar "osmode" 0)<br /> <br /> (setq aa (/ d 2.0) p2 (polar p1 0 aa) p3 (polar p1 pi aa) bb (/ b 2.0))<br /> (setq p4 (polar p3 (* pi 1.5) bb) p5 (polar p2 (* pi 1.5) bb) p6 (polar p3 (* pi 0.5) bb))<br /> <br /> (command "pline" p4 "w" "0" "0" p5 "a" "ce" p2 "a" "180" "l" p6 "a" "ce" p3 "a" "180" "l" "")<br /> (command "rotate" "l" "" p1 (* (/ 180 pi) j))<br /> (command "chprop" (entlast) "" "p" "la" (getvar "clayer") "ltscale" (* 0.5 b) "")<br /> <br /> (setq la (getvar"clayer"))<br /> (command "layer" "m" "2中心线" "c" "1" "" "lw" "0.13" "" "lt" "CENTER" "" "" "clayer" la)<br /> <br /> (command "line" (polar p3 (- pi) (+ (* b 0.5) k)) (polar p2 (* pi 0) (+ (* b 0.5) k)) "")<br /> (command "rotate" "l" "" p1 (* (/ 180 pi) j))<br /> (command "chprop" (entlast) "" "p" "la" "2中心线" "ltscale" (* 0.5 b) "")<br /> <br /> (command "line" (polar p3 (+ (* pi 0.5)) (+ (* b 0.5) k)) (polar p3 (* pi 1.5) (+ (* b 0.5) k)) "")<br /> (command "rotate" "l" "" p1 (* (/ 180 pi) j))<br /> (command "chprop" (entlast) "" "p" "la" "2中心线" "ltscale" (* 0.5 b) "")<br /> <br /> (command "line" (polar p2 (+ (* pi 0.5)) (+ (* b 0.5) k)) (polar p2 (* pi 1.5) (+ (* b 0.5) k)) "")<br /> (command "rotate" "l" "" p1 (* (/ 180 pi) j))<br /> (command "chprop" (entlast) "" "p" "la" "2中心线" "ltscale" (* 0.5 b) "")<br /> <br /> (command "undo" "e")<br /> (setvar "osmode" os)<br /> (setvar 'cmdecho 1)<br /> (princ))

HGQ8888

把(if (member (car gbwz) '(3 5))(setq p1 (cadr gbwz)))这句改为
(if (member (car gbwz) '(3 5))(setq p1 (OSNAP(cadr gbwz) "endp,midp,center")))

669423907

HGQ8888 发表于 2014-11-18 11:12
把(if (member (car gbwz) '(3 5))(setq p1 (cadr gbwz)))这句改为
(if (member (car gbwz) '(3 5))(setq  ...

谢谢大师帮助，你的方法很有用

669423907

菜卷鱼 发表于 2014-11-18 10:59
你的点不是通过 getpoint得到的，而是grread 鼠标点击点得到的，grread是不带捕捉功能的，试一试下面的

...

谢谢，我的目的是为了省去指定位置这一步，，，，，，，，，，，，
按照这种模式，可以套到很多小程序里，用起来很顺手的

(defun cishu()
(setq cishu? (getpoint "\n左键1次，右键连续"))

(setq gbwz (grread 3));光标位置
(if (member (car gbwz)'(3 5))
(setq od (osnap(cadr gbwz)"endp,midp,center,node,quadrant,intersection,perpendicular")))
(if (= od nil)(setq od (cadr gbwz)))

(if cishu?
(command "copybase" od ss "" "copy" ss "" od)        ;左键
(command "copybase" od ss "" "copy" ss "" "m" od);右键
)(princ))

669423907

aihuyujian 发表于 2014-11-18 09:49
把command后面是点的前面加上“none",例如：
(command "line" "none" (polar p3 (- pi) (+ (* b 0.5) k))  ...

这个应该跟放在点击后，绘图前是一样的效果，试过了，不行

669423907

顺便请教一下，当符合 (if (<= a b)(setq a (* 3 b))) 条件时，怎样把 a 值四舍五入取整呢？