非常感谢meflying为我解决了这个难题！*请求明总为meflying加分*

changch

已知　两条平行直线，我想从中间部分画出两条与之垂直的线



点取第一条线上的中间部分的一点


点取另一条线上的另一点


其它见图


希望你来挑战，先谢了

meflying

2. (vl-load-com)
3. (defun c:test( / ent1 ent2 pt1 pt2 pt3 pt4 pt5 ang1 ang2)
4.    (setvar "cmdecho" 0)
5.    (command "_.undo" "be")   
6.    (setq os (getvar "osmode"))   
7.    (setq pt1 (getpoint "选择第一点:"))
8.    (setq pt2 (getpoint pt1 "选择第二点:"))
9.    (setvar "osmode" 0)
10.    (setq ent1 (ssname (ssget pt1 '((0 . "LINE"))) 0))
11.    (setq ent2 (ssname (ssget pt2 '((0 . "LINE"))) 0))
12.    (setq pt3 (vlax-curve-getClosestpointTo ent2 pt1))
13.    (setq ang1 (angle pt1 pt3))
14.    (setq ang2 (angle pt3 pt2))
15.    (setq pt4 (polar pt3 ang2 2.5))
16.    (setq pt5 (polar pt1 ang2 2.5))
17.    (command "_.line" (polar pt1 (+ ang1 pi) 2.5) (polar pt3 ang1 2.5) "")
18.    (setq ent3 (entlast))
19.    (command "_.line" (polar pt5 (+ ang1 pi) 2.5) (polar pt4 ang1 2.5) "")
20.    (setq ent4 (entlast))
21.    (setq dist (distance pt1 pt3))
22.    (setq pt4 (polar pt3 ang2 1.25))
23.    (setq pt5 (polar pt1 ang2 1.25))
24.    (command "_.trim" ent3 ent4 "" (list ent1 pt5) (list ent2 pt4)"")
25.    (setvar "osmode" os)
26.    (command "_.undo" "e")
27. )

(vl-load-com) (defun c:test( / ent1 ent2 pt1 pt2 pt3 pt4 pt5 ang1 ang2)    (setvar "cmdecho" 0)    (command "_.undo" "be")       (setq os (getvar "osmode"))       (setq pt1 (getpoint "选择第一点:"))    (setq pt2 (getpoint pt1 "选择第二点:"))    (setvar "osmode" 0)    (setq ent1 (ssname (ssget pt1 '((0 . "LINE"))) 0))    (setq ent2 (ssname (ssget pt2 '((0 . "LINE"))) 0))    (setq pt3 (vlax-curve-getClosestpointTo ent2 pt1))    (setq ang1 (angle pt1 pt3))    (setq ang2 (angle pt3 pt2))    (setq pt4 (polar pt3 ang2 2.5))    (setq pt5 (polar pt1 ang2 2.5))    (command "_.line" (polar pt1 (+ ang1 pi) 2.5) (polar pt3 ang1 2.5) "")    (setq ent3 (entlast))    (command "_.line" (polar pt5 (+ ang1 pi) 2.5) (polar pt4 ang1 2.5) "")    (setq ent4 (entlast))    (setq dist (distance pt1 pt3))    (setq pt4 (polar pt3 ang2 1.25))    (setq pt5 (polar pt1 ang2 1.25))    (command "_.trim" ent3 ent4 "" (list ent1 pt5) (list ent2 pt4)"")    (setvar "osmode" os)    (command "_.undo" "e") )

changch

非常感谢meflying！！！！
献花以表致谢！！！！
*****请求明总为meflying加分*****

龙龙仔

在明经加分并不容易,等你当版主时再加吧!

而且程式并没有写好,有时两线会长短不一,两线间宽度也会变动

meflying

程序是粗糙了点...


不过你说的那两种情况还没出现过,而且这些点都是计算出来的,怎么可能会呢?

龙龙仔

我也要研究一下!就是会发生我所述!

meflying

你说的情况我怎么都试不出来,不过有别的问题,就是选点的时候如果在垂足点就要出现问题了,或者点处选不到对象也会有问题,不过只要用的时候注意点,按要求进行选择,应该就不会出问题了啊...

龙龙仔

2. ;;MEFLYING
3. ;;由於PT2,PT3非常非常接近,使ANG2变大了,而不等於0
4. ;;这样的错误====>真是晕倒!!!           8-(;|
5. 指令: TEST
6. 选择第一点:------>选1的中点
7. 选择第二点:------>选2的中点
8. (89.1139 289.075 0.0)
9. (89.1139 339.075 0.0)
10. (89.1139 339.075 0.0)
11. 1.5708--->ang1
12. 89.11385688182042,339.0754448543191,0
13. 89.11385688182036,339.0754448543191,0
14. 0.785398----ang2
15. (90.8816 340.843 0.0)
16. (90.8816 290.843 0.0)
17. (89.9977 339.959 0.0)
18. (89.9977 289.959 0.0) nil
19. |;(vl-load-com)
20. (defun C:TEST (/ ENT1 ENT2 PT1 PT2 PT3 PT4 PT5 ANG1 ANG2)
21.    (setvar "cmdecho" 0)
22.    (command "_.undo" "be")
23.    (setvar "osmode" 39)      ;抓取模式 add LUCAS
24.    (setq OS (getvar "osmode"))
25.    (setq PT1 (getpoint "选择第一点:"))
26.    (setq PT2 (getpoint PT1 "选择第二点:"))
27.    (setvar "osmode" 0)
28.    (setq ENT1 (ssname (ssget PT1 '((0 . "LINE"))) 0))
29.    (setq ENT2 (ssname (ssget PT2 '((0 . "LINE"))) 0))
30.    (setq PT3 (vlax-curve-getclosestpointto ENT2 PT1))
31.    (print PT1)
32.    (print PT2)
33.    (print PT3)
34.    (setq ANG1 (angle PT1 PT3))
35.    (print ANG1)
36.    (print)
37.    (prompt (strcat (rtos (car PT2) 2 20)
38.        ","
39.        (rtos (cadr PT2) 2 20)
40.        ","
41.        (rtos (last PT2) 2 20)
42.      )
43.    )
44.    (print)
45.    (prompt (strcat (rtos (car PT3) 2 20)
46.        ","
47.        (rtos (cadr PT3) 2 20)
48.        ","
49.        (rtos (last PT3) 2 20)
50.      )
51.    )
52.    (setq ANG2 (angle PT3 PT2))
53.    ;;由於PT2,PT3非常非常接近,使ANG2变大了,而不等於0
54.    ;;真是晕倒!!!
55.    (print ANG2)
56.    (setq PT4 (polar PT3 ANG2 2.5))
57.    (print PT4)
58.    (setq PT5 (polar PT1 ANG2 2.5))
59.    (print PT5)
60.    (command "_.line"
61.        (polar PT1 (+ ANG1 pi) 2.5)
62.        (polar PT3 ANG1 2.5)
63.        ""
64.    )
65.    (setq ENT3 (entlast))
66.    (command "_.line"
67.        (polar PT5 (+ ANG1 pi) 2.5)
68.        (polar PT4 ANG1 2.5)
69.        ""
70.    )
71.    (setq ENT4 (entlast))   (setq DIST (distance PT1 PT3))
72.    (setq PT4 (polar PT3 ANG2 1.25))
73.    (print PT4)
74.    (setq PT5 (polar PT1 ANG2 1.25))
75.    (print PT5)
76.    (command "_.trim"
77.        ENT3
78.        ENT4
79.        ""
80.        (list ENT1 PT5)
81.        (list ENT2 PT4)
82.        ""
83.    )
84.    (setvar "osmode" OS)
85.    (command "_.undo" "e")
86. )

;;MEFLYING ;;由於PT2,PT3非常非常接近,使ANG2变大了,而不等於0 ;;这样的错误====>真是晕倒!!!           8-(;| 指令: TEST 选择第一点:------>选1的中点 选择第二点:------>选2的中点 (89.1139 289.075 0.0) (89.1139 339.075 0.0) (89.1139 339.075 0.0) 1.5708--->ang1 89.11385688182042,339.0754448543191,0 89.11385688182036,339.0754448543191,0 0.785398----ang2 (90.8816 340.843 0.0) (90.8816 290.843 0.0) (89.9977 339.959 0.0) (89.9977 289.959 0.0) nil |;(vl-load-com) (defun C:TEST (/ ENT1 ENT2 PT1 PT2 PT3 PT4 PT5 ANG1 ANG2)    (setvar "cmdecho" 0)    (command "_.undo" "be")    (setvar "osmode" 39)      ;抓取模式 add LUCAS    (setq OS (getvar "osmode"))    (setq PT1 (getpoint "选择第一点:"))    (setq PT2 (getpoint PT1 "选择第二点:"))    (setvar "osmode" 0)    (setq ENT1 (ssname (ssget PT1 '((0 . "LINE"))) 0))    (setq ENT2 (ssname (ssget PT2 '((0 . "LINE"))) 0))    (setq PT3 (vlax-curve-getclosestpointto ENT2 PT1))    (print PT1)    (print PT2)    (print PT3)    (setq ANG1 (angle PT1 PT3))    (print ANG1)    (print)    (prompt (strcat (rtos (car PT2) 2 20)        ","        (rtos (cadr PT2) 2 20)        ","        (rtos (last PT2) 2 20)      )    )    (print)    (prompt (strcat (rtos (car PT3) 2 20)        ","        (rtos (cadr PT3) 2 20)        ","        (rtos (last PT3) 2 20)      )    )    (setq ANG2 (angle PT3 PT2))    ;;由於PT2,PT3非常非常接近,使ANG2变大了,而不等於0    ;;真是晕倒!!!    (print ANG2)    (setq PT4 (polar PT3 ANG2 2.5))    (print PT4)    (setq PT5 (polar PT1 ANG2 2.5))    (print PT5)    (command "_.line"        (polar PT1 (+ ANG1 pi) 2.5)        (polar PT3 ANG1 2.5)        ""    )    (setq ENT3 (entlast))    (command "_.line"        (polar PT5 (+ ANG1 pi) 2.5)        (polar PT4 ANG1 2.5)        ""    )    (setq ENT4 (entlast))   (setq DIST (distance PT1 PT3))    (setq PT4 (polar PT3 ANG2 1.25))    (print PT4)    (setq PT5 (polar PT1 ANG2 1.25))    (print PT5)    (command "_.trim"        ENT3        ENT4        ""        (list ENT1 PT5)        (list ENT2 PT4)        ""    )    (setvar "osmode" OS)    (command "_.undo" "e") )

测试图

meflying

这个错误不是很丢人吧,只是不够完善而已...你好象没看我7楼的话,,,


ang2本来就不一定等于0的,我使用pt3到pt2的角度,就是要让PT2来确定打断的方向,其实就是漏了如果PT2等于PT3的时候,方向就是直线2的方向而已......你图中的情况就可以完全当PT2等于PT3来处理

龙龙仔

但我会画出这样的图