源码效果改成框选

ga619091

我尝试制作两个源码效果是我想要的,但他的效果是要抓取点对点才能实现,有办法改成框选实现?想法是
(1)任意矩形的垂直面水平面添加5MM中心线
(2)及矩型往内偏移8MM制作我想要的圆尺寸

1. ;;;选取框注意由左上到右下点;;;
   
2. 
   
3. (defun C:ff ()
   
4. 
   
5. (setvar "osnapcoord" 1)
   
6. 
   
7. (setq PT1 (getpoint "\n 选取第一点:"))
   
8. (setq PT3 (getcorner pt1 "\n 对角点:"))
   
9. (setq x1 (car pt1))
   
10. (setq y1 (cadr pt1))
    
11. (setq x3 (car pt3))
    
12. (setq y3 (cadr pt3))
    
13. (setq PT2 (list x3 y1))
    
14. (setq PT4 (list x1 y3))
    
15. (setq pn1 (polar PT1(angle PT1 PT2) (/ (distance PT1 PT2) 2)))
    
16. (setq pn2 (polar PT2(angle PT2 PT3) (/ (distance PT2 PT3) 2)))
    
17. (setq pn3 (polar PT3(angle PT3 PT4) (/ (distance PT3 PT4) 2)))
    
18. (setq pn4 (polar PT4(angle PT4 PT1) (/ (distance PT4 PT1) 2)))
    
19. 
    
20. (setq P11(car PT1))
    
21. (setq P12(cadr PT1))
    
22. (setq P00 (list(+ P11 8)(+ P12 -8)))
    
23. (command "circle" P00 "d" "3.6")
    
24. (command "circle" P00 "d" "3.1")
    
25. 
    
26. (setq P13(car PT2))
    
27. (setq P14(cadr PT2))
    
28. (setq P01 (list(+ P13 -8)(+ P14 -8)))
    
29. (command "circle" P01 "d" "3")
    
30. 
    
31. (setq P15(car PT3))
    
32. (setq P16(cadr PT3))
    
33. (setq P02 (list(+ P15 -8)(+ P16 8)))
    
34. (command "circle" P02 "d" "3.6")
    
35. (command "circle" P02 "d" "3.1")
    
36. 
    
37. (setq P17(car PT4))
    
38. (setq P18(cadr PT4))
    
39. (setq P03 (list(+ P17 8)(+ P18 8)))
    
40. (command "circle" P03 "d" "3")
    
41. 
    
42. (princ)
    
43. )

;;;选取框注意由左上到右下点;;;<br /> <br /> (defun C:ff ()<br /> <br /> (setvar "osnapcoord" 1)<br /> <br /> (setq PT1 (getpoint "\n 选取第一点:"))<br /> (setq PT3 (getcorner pt1 "\n 对角点:"))<br /> (setq x1 (car pt1))<br /> (setq y1 (cadr pt1))<br /> (setq x3 (car pt3))<br /> (setq y3 (cadr pt3))<br /> (setq PT2 (list x3 y1))<br /> (setq PT4 (list x1 y3))<br /> (setq pn1 (polar PT1(angle PT1 PT2) (/ (distance PT1 PT2) 2)))<br /> (setq pn2 (polar PT2(angle PT2 PT3) (/ (distance PT2 PT3) 2)))<br /> (setq pn3 (polar PT3(angle PT3 PT4) (/ (distance PT3 PT4) 2)))<br /> (setq pn4 (polar PT4(angle PT4 PT1) (/ (distance PT4 PT1) 2)))<br /> <br /> (setq P11(car PT1))<br /> (setq P12(cadr PT1))<br /> (setq P00 (list(+ P11 8)(+ P12 -8)))<br /> (command "circle" P00 "d" "3.6")<br /> (command "circle" P00 "d" "3.1")<br /> <br /> (setq P13(car PT2))<br /> (setq P14(cadr PT2))<br /> (setq P01 (list(+ P13 -8)(+ P14 -8)))<br /> (command "circle" P01 "d" "3")<br /> <br /> (setq P15(car PT3))<br /> (setq P16(cadr PT3))<br /> (setq P02 (list(+ P15 -8)(+ P16 8)))<br /> (command "circle" P02 "d" "3.6")<br /> (command "circle" P02 "d" "3.1")<br /> <br /> (setq P17(car PT4))<br /> (setq P18(cadr PT4))<br /> (setq P03 (list(+ P17 8)(+ P18 8)))<br /> (command "circle" P03 "d" "3")<br /> <br /> (princ)<br /> )

1. ;;;加5MM十字对位线;;;
   
2. ;;;选取框注意由左上到右下点;;;
   
3. 
   
4. (defun c:dd ()
   
5. (setvar "osnapcoord" 1)
   
6. (setq PT1 (getpoint "\n 选取第一点:"))
   
7. (setq PT3 (getcorner pt1 "\n 对角点:"))
   
8. (setq x1 (car pt1))
   
9. (setq y1 (cadr pt1))
   
10. (setq x3 (car pt3))
    
11. (setq y3 (cadr pt3))
    
12. (setq PT2 (list x3 y1))
    
13. (setq PT4 (list x1 y3))
    
14. (setq pn1 (polar PT1(angle PT1 PT2) (/ (distance PT1 PT2) 2)))
    
15. (setq pn2 (polar PT2(angle PT2 PT3) (/ (distance PT2 PT3) 2)))
    
16. (setq pn3 (polar PT3(angle PT3 PT4) (/ (distance PT3 PT4) 2)))
    
17. (setq pn4 (polar PT4(angle PT4 PT1) (/ (distance PT4 PT1) 2)))
    
18. 
    
19. (setq pn1x(car pn1))
    
20. (setq pn1y(cadr pn1))
    
21. (setq pn11 (list(+ pn1x 0)(+ pn1y -5)))
    
22. (command "line" pn1 pn11 "")
    
23. 
    
24. (setq pn2x(car pn2))
    
25. (setq pn2y(cadr pn2))
    
26. (setq pn21 (list(+ pn2x -5)(+ pn2y 0)))
    
27. (command "line" pn2 pn21 "")
    
28. 
    
29. (setq pn3x(car pn3))
    
30. (setq pn3y(cadr pn3))
    
31. (setq pn31 (list(+ pn3x 0)(+ pn3y 5)))
    
32. (command "line" pn3 pn31 "")
    
33. 
    
34. (setq pn4x(car pn4))
    
35. (setq pn4y(cadr pn4))
    
36. (setq pn41 (list(+ pn4x 5)(+ pn4y 0)))
    
37. (command "line" pn4 pn41 "")
    
38. 
    
39. (princ)
    
40. )
    
41. 
    

;;;加5MM十字对位线;;;<br /> ;;;选取框注意由左上到右下点;;;<br /> <br /> (defun c:dd ()<br /> (setvar "osnapcoord" 1)<br /> (setq PT1 (getpoint "\n 选取第一点:"))<br /> (setq PT3 (getcorner pt1 "\n 对角点:"))<br /> (setq x1 (car pt1))<br /> (setq y1 (cadr pt1))<br /> (setq x3 (car pt3))<br /> (setq y3 (cadr pt3))<br /> (setq PT2 (list x3 y1))<br /> (setq PT4 (list x1 y3))<br /> (setq pn1 (polar PT1(angle PT1 PT2) (/ (distance PT1 PT2) 2)))<br /> (setq pn2 (polar PT2(angle PT2 PT3) (/ (distance PT2 PT3) 2)))<br /> (setq pn3 (polar PT3(angle PT3 PT4) (/ (distance PT3 PT4) 2)))<br /> (setq pn4 (polar PT4(angle PT4 PT1) (/ (distance PT4 PT1) 2)))<br /> <br /> (setq pn1x(car pn1))<br /> (setq pn1y(cadr pn1))<br /> (setq pn11 (list(+ pn1x 0)(+ pn1y -5)))<br /> (command "line" pn1 pn11 "")<br /> <br /> (setq pn2x(car pn2))<br /> (setq pn2y(cadr pn2))<br /> (setq pn21 (list(+ pn2x -5)(+ pn2y 0)))<br /> (command "line" pn2 pn21 "")<br /> <br /> (setq pn3x(car pn3))<br /> (setq pn3y(cadr pn3))<br /> (setq pn31 (list(+ pn3x 0)(+ pn3y 5)))<br /> (command "line" pn3 pn31 "")<br /> <br /> (setq pn4x(car pn4))<br /> (setq pn4y(cadr pn4))<br /> (setq pn41 (list(+ pn4x 5)(+ pn4y 0)))<br /> (command "line" pn4 pn41 "")<br /> <br /> (princ)<br /> )<br /> <br />

xyp1964

;; 伪源码需要e派工具箱(XCAD)的支持

999999

xyp1964 发表于 2020-3-12 19:40
;; 伪源码需要e派工具箱(XCAD)的支持

,看院长大人回复过的贴子，走院长大人走过的路