如何实现线与线之间的真正相交？

lee50310

可將找到24處懸空點表 再做 區分

(一) 單點懸空:在此點處無法找到其他物體 共3處  有一種類型

(二)雙點懸空: 在此點處可互相找到另一懸空點 共 ˋ4 處(8點)  有三種類型

(三)單點懸空+旁物(線):在此點處可找到另一線物體 共13處  有二種類型

如圖所示:

lee50310

用 TT6.LSP 程式 便是將這 測試圖中的 24個 懸空點 取出這三個區分 ,但還未做處理


此為程式的中的部分程式碼

1. ;;by lee50310 2022/0624
   
2. ;;
   
3. (defun c:tt6( / ssd ss )
   
4. (vl-load-com)
   
5.     (makelayer "temp" 6)                                   ;;創建"temp"層 ,粉紅色
   
6.     (del_aid_circle)                                       ;;清除之前輔助圓
   
7.     (setq or_layer (getvar "clayer"))                      ;;取出目前工作層名
   
8.     (setq os (getvar "osmode"))
   
9.     (setvar "CMDECHO"0)   
   
10.       (command "UNDO" "BE")     
    
11. 
    
12.     (setq ssd (ssget '((0 . "arc,*line,ELLIPSE"))))
    
13. ;;選擇集轉圖元表   
    
14.     (setq ss((lambda (x) (vl-remove(last x) x))(mapcar 'cadr(ssnamex ssd))))
    
15.     (or rrno1* (setq rrno1* 15.))
    
16.     (setq rr (getdist (strcat "\n輸入圓圈半徑:<" (rtos rrno1* 2) ">: ")))
    
17.     (if rr(setq rrno1* rr) (setq rr rrno1*))               
    
18.     (setq ael nil bel nil cel nil)
    
19. ;;<-- allpts 全部懸空點 點表  -->   
    
20.    (setq allpts(get_dangling_point))
    
21.    
    
22. ;;<-- ael 單點懸空 點表-->   
    
23.    (setq ael(get_one_point allpts))  
    
24.    (setq zzael(remove_pp ael allpts))                     ;;從點表中移除單點懸空
    
25.    
    
26. ;;<-- bel 雙點懸空 點表-->   
    
27.    (setq bel(get_two_point zzael))                          
    
28.      (setq zel (append(mapcar 'car bel)(mapcar 'cadr bel)))
    
29.    
    
30. ;;<-- cel (單點懸空+旁物) 點表-->   
    
31.    (setq cel(remove_pp zel cel))                          ;;從點表中移除雙點懸空   
    
32.    
    
33.      (command "zoom" "e")
    
34.    (command "zoom" "0.8x")
    
35.    (command "UNDO""end")
    
36.    (setvar "expert" 0)
    
37.    (setvar "osmode" os)
    
38.      (setvar "clayer" or_layer)
    
39.    
    
40. );end_defun_tt6
    
41. (princ "\n<<<***  執行指令:tt6   ***>>>")
    
42. (princ)
    
43. ;;----------------------------------------------------------------------------------
    
44. ;;亮顯全部懸空數
    
45. (defun c:ppa()
    
46. (showpp allpts)
    
47. (princ "\n亮顯全部懸空數")
    
48. (princ)
    
49. )
    
50. ;;----------------------------------------------------------------------------------
    
51. ;;亮顯單點懸空數
    
52. (defun c:1pp()
    
53. (showpp ael)
    
54. (princ "\n亮顯單點懸空數")
    
55. (princ)
    
56. )
    
57. ;;----------------------------------------------------------------------------------
    
58. ;;亮顯雙點懸空數
    
59. (defun c:2pp()
    
60. (showpp zel)
    
61. (princ "\n亮顯雙點懸空數")
    
62. (princ)
    
63. )
    
64. ;;----------------------------------------------------------------------------------
    
65. ;;亮顯(點懸空+旁物)數
    
66. (defun c:1po()
    
67. (showpp cel)
    
68. (princ "\n亮顯(點懸空+旁物)數")
    
69. (princ)
    
70. )
    
71. ;;----------------------------------------------------------------------------------
    
72. ;;顯示懸空雙點之距離值
    
73. (defun c:2dst()
    
74. (princ "\n顯示懸空雙點之距離值= ")
    
75. (dist bel)
    
76. )
    
77. ;;----------------------------------------------------------------------------------
    

;;by lee50310 2022/0624<br /> ;; <br /> (defun c:tt6( / ssd ss )<br /> (vl-load-com)<br />     (makelayer "temp" 6)                                   ;;創建"temp"層 ,粉紅色<br />     (del_aid_circle)                                       ;;清除之前輔助圓<br />     (setq or_layer (getvar "clayer"))                      ;;取出目前工作層名 <br />     (setq os (getvar "osmode"))<br />     (setvar "CMDECHO"0)    <br />       (command "UNDO" "BE")     <br /> <br />     (setq ssd (ssget '((0 . "arc,*line,ELLIPSE"))))<br /> ;;選擇集轉圖元表    <br />     (setq ss((lambda (x) (vl-remove(last x) x))(mapcar 'cadr(ssnamex ssd))))<br />     (or rrno1* (setq rrno1* 15.))<br />     (setq rr (getdist (strcat "\n輸入圓圈半徑:<" (rtos rrno1* 2) ">: ")))<br />     (if rr(setq rrno1* rr) (setq rr rrno1*))               <br />     (setq ael nil bel nil cel nil)<br /> ;;<-- allpts 全部懸空點 點表  -->   <br />    (setq allpts(get_dangling_point)) <br />    <br /> ;;<-- ael 單點懸空 點表-->   <br />    (setq ael(get_one_point allpts))  <br />    (setq zzael(remove_pp ael allpts))                     ;;從點表中移除單點懸空<br />    <br /> ;;<-- bel 雙點懸空 點表-->   <br />    (setq bel(get_two_point zzael))                          <br />      (setq zel (append(mapcar 'car bel)(mapcar 'cadr bel))) <br />    <br /> ;;<-- cel (單點懸空+旁物) 點表-->   <br />    (setq cel(remove_pp zel cel))                          ;;從點表中移除雙點懸空   <br />    <br />      (command "zoom" "e")<br />    (command "zoom" "0.8x")<br />    (command "UNDO""end")<br />    (setvar "expert" 0)<br />    (setvar "osmode" os)<br />      (setvar "clayer" or_layer)<br />    <br /> );end_defun_tt6<br /> (princ "\n<<<***  執行指令:tt6   ***>>>") <br /> (princ)<br /> ;;----------------------------------------------------------------------------------<br /> ;;亮顯全部懸空數<br /> (defun c:ppa()<br /> (showpp allpts)<br /> (princ "\n亮顯全部懸空數")<br /> (princ)<br /> )<br /> ;;----------------------------------------------------------------------------------<br /> ;;亮顯單點懸空數<br /> (defun c:1pp()<br /> (showpp ael)<br /> (princ "\n亮顯單點懸空數")<br /> (princ)<br /> )<br /> ;;----------------------------------------------------------------------------------<br /> ;;亮顯雙點懸空數<br /> (defun c:2pp()<br /> (showpp zel)<br /> (princ "\n亮顯雙點懸空數")<br /> (princ)<br /> )<br /> ;;----------------------------------------------------------------------------------<br /> ;;亮顯(點懸空+旁物)數<br /> (defun c:1po()<br /> (showpp cel)<br /> (princ "\n亮顯(點懸空+旁物)數")<br /> (princ)<br /> )<br /> ;;----------------------------------------------------------------------------------<br /> ;;顯示懸空雙點之距離值<br /> (defun c:2dst()<br /> (princ "\n顯示懸空雙點之距離值= ")<br /> (dist bel)<br /> )<br /> ;;----------------------------------------------------------------------------------<br />

lee50310

用法 執行指令:TT6 框選全部圖形 輸入圓半徑15 後程式就已將此懸空點轉換好了
之後在執行下列指令:

<亮顯 全部懸空點>        指令 ppa     在螢幕亮顯出24處   存放於變數 allpts 中  查看方式在Command:!allpts

<亮顯 單點懸空>           指令 1pp     在螢幕亮顯出 3處    存放於變數 ael 中     查看方式在Command:!ael

<亮顯 雙點懸空>           指令 2pp     在螢幕亮顯出 4處(8點)    存放於變數 bel 中     查看方式在Command:!bel
                                    指令 2dst    兩懸空點距離值

<亮顯 單點懸空+旁物>  指令 1po     在螢幕亮顯出 13處    存放於變數 cel 中 查看方式在Command:!cel

xuningxu

学习一下 拓展新思路

依然小小鸟

lee50310 发表于 2022-6-25 04:58
用法 執行指令:TT6  框選全部圖形 輸入圓半徑15 後程式就已將此懸空點轉換好了

  指令 ppa     在螢幕亮 ...

找到这些点之后可以 继续处理吗  让线相交

lee50310

依然小小鸟 发表于 2022-7-6 14:22
找到这些点之后可以 继续处理吗  让线相交

區分成三種類型後 可 針對每個不同類型 做個別處理

依然小小鸟

lee50310 发表于 2022-7-6 17:56
區分成三種類型後 可 針對每個不同類型 做個別處理

不太会编程

依然小小鸟

lee50310 发表于 2022-6-25 04:58
用法 執行指令:TT6  框選全部圖形 輸入圓半徑15 後程式就已將此懸空點轉換好了

  指令 ppa     在螢幕亮 ...

有程序吗  我用你发的代码 不能用呢

Dea25

xinxirong 发表于 2022-6-14 11:00
首先这肯定是要绘图标准化，没有严格的标准，怎么交付给下一道工序呢？
其次，如果下一道工序接手的人如果 ...

点赞！
绘图都给不好，想依靠写程序来解决。不知道怎么想的。

liuhe

xinxirong 发表于 2022-6-14 11:00
首先这肯定是要绘图标准化，没有严格的标准，怎么交付给下一道工序呢？
其次，如果下一道工序接手的人如果 ...

受教了 ，机械里面有一个±估计就是这个意思，学习