[编程申请]：关于闭合曲线合并的问题

陌生人

龙龙仔,我试了你的程序,提点建议
1.对于看上去闭合,但是画图时没用close画的pl线不认. 是否先加个自动闭合功能?
2.对于圆仍不能处理, 应该先自动将圆转为pl线

fyje

最初由 LUCAS 发布
[B]“圆”有内点表吗?
Wb0815你不了解问题的问题点!闭合曲线有很多种类!!
连接点也是随便点选!
要是你能写出一个满意的程序,我在明经给你加分。
;;程序要求处理"圆" & "闭合2dPolyline"
;;-----------------------... [/B]

谢谢LUCAS,能否把源程序给我，让我学习一下？Email：fyje@xinhuanet.com

LUCAS

2. 
   
3. ;;看来Wb0815的程序是出不来了
   
4. ;;BY LUCAS(龙龙仔)
   
5. ;;只处理"圆" & "闭合2dPolyline"
   
6. ;;-----------------------------
   
7. ;;只处理聚合线旗号
   
8. ;; 1 = 此为封闭聚合线。
   
9. ;; 2 = 已加入曲线拟合顶点。
   
10. ;; 4 = 已加入云形线拟合顶点。
    
11. ;;线条显示太小时会出错!!
    
12. (defun C:CONNECT (/          HOLDECHO          HOLDOSMODE          PT1
    
13.                   PT2          LENT          ENT1          ENT2          SPT1          EPT1
    
14.                   SPT2          EPT2
    
15.                  )
    
16.   (vl-load-com)
    
17.   (defun ENTSEL_MSG_FILTER (MSG FILTER MSG1 / SS SSS)
    
18.     (while (not SS)
    
19.       (setq SS (entsel MSG))
    
20.       (if (/= SS NIL)
    
21.         (progn
    
22.           (command "_.SELECT" (car SS) "")
    
23.           (if (not (setq SSS (ssget "P" FILTER)))
    
24.             (progn
    
25.               (setq SS NIL)
    
26.               (prompt MSG1)
    
27.             )
    
28.             (list (ssname SSS 0) (cadr SS))
    
29.           )
    
30.         )
    
31.       )
    
32.     )
    
33.   )
    
34. 
    
35.   (defun DO_IT (ENT PT / C)
    
36.     (command "_.circle" PT 0.01)
    
37.     (setq C (entlast))
    
38.     (command
    
39.       "_.trim"
    
40.       (entlast)
    
41.       ""
    
42.       (list ENT PT)
    
43.       ""
    
44.     )
    
45.     (if        (not (equal C (entlast)))
    
46.       (progn
    
47.         (command "_.pedit"
    
48.                  (entlast)
    
49.                  "j"
    
50.                  "ALL"
    
51.                  ""
    
52.                  ""
    
53.         )
    
54.         (setq ENT (entlast))
    
55.       )
    
56.     )
    
57.     (command "_.erase" C "")
    
58.     (vlax-ename->vla-object ENT)
    
59.   )
    
60. 
    
61.   (setq HOLDECHO (getvar "CMDECHO"))
    
62.   (setvar "CMDECHO" 0)
    
63.   (command "_.UNDO" "_GROUP")
    
64.   (setq        ENT1 (ENTSEL_MSG_FILTER
    
65.                "\n选第一条闭合曲线: "
    
66.                '((-4 . "<OR")
    
67.                  (0 . "CIRCLE")
    
68.                  (-4 . "<AND")
    
69.                  (0 . "*POLYLINE")
    
70.                  (70 . 1)
    
71.                  (-4 . "AND>")
    
72.                  (-4 . "<AND")
    
73.                  (0 . "*POLYLINE")
    
74.                  (70 . 3)
    
75.                  (-4 . "AND>")
    
76.                  (-4 . "<AND")
    
77.                  (0 . "*POLYLINE")
    
78.                  (70 . 5)
    
79.                  (-4 . "AND>")
    
80.                  (-4 . "OR>")
    
81.                 )
    
82.                "\n所选线段程序不能处理!!"
    
83.              )
    
84.   )
    
85.   (setq        ENT2 (ENTSEL_MSG_FILTER
    
86.                "\n选第二条闭合曲线: "
    
87.                '((-4 . "<OR")
    
88.                  (0 . "CIRCLE")
    
89.                  (-4 . "<AND")
    
90.                  (0 . "*POLYLINE")
    
91.                  (70 . 1)
    
92.                  (-4 . "AND>")
    
93.                  (-4 . "<AND")
    
94.                  (0 . "*POLYLINE")
    
95.                  (70 . 3)
    
96.                  (-4 . "AND>")
    
97.                  (-4 . "<AND")
    
98.                  (0 . "*POLYLINE")
    
99.                  (70 . 5)
    
100.                  (-4 . "AND>")
     
101.                  (-4 . "OR>")
     
102.                 )
     
103.                "\n所选线段程序不能处理!!"
     
104.              )
     
105.   )
     
106. 
     
107.   (setq PT1 (osnap (cadr ENT1) "_NEA"))
     
108.   (setq PT2 (osnap (cadr ENT2) "_NEA"))
     
109.   (setq ENT1 (car ENT1))
     
110.   (setq ENT2 (car ENT2))
     
111.   (if (not (equal ENT1 ENT2))
     
112.     (progn
     
113.       (setq HOLDOSMODE (getvar "OSMODE"))
     
114.       (setvar "osmode" 0)
     
115.       (setq ENT1 (DO_IT ENT1 PT1))
     
116.       (setq ENT2 (DO_IT ENT2 PT2))
     
117.       (setq SPT1 (vlax-curve-getstartpoint ENT1))
     
118.       (setq EPT1 (vlax-curve-getendpoint ENT1))
     
119.       (setq SPT2 (vlax-curve-getstartpoint ENT2))
     
120.       (setq EPT2 (vlax-curve-getendpoint ENT2))
     
121.       (setq LENT (entlast))
     
122.       (if (inters SPT1 SPT2 EPT1 EPT2)
     
123.         (command "_.line" SPT1 EPT2 "" "_.line" EPT1 SPT2 "")
     
124.       )
     
125.       (if (inters SPT1 EPT2 EPT1 SPT2)
     
126.         (command "_.line" SPT1 SPT2 "" "_.line" EPT1 EPT2 "")
     
127.       )
     
128.       (if (not (equal LENT (entlast)))
     
129.         (command "_.pedit"
     
130.                  (entlast)
     
131.                  "y"
     
132.                  "j"
     
133.                  (entnext LENT)
     
134.                  (vlax-vla-object->ename ENT1)
     
135.                  (vlax-vla-object->ename ENT2)
     
136.                  ""
     
137.                  ""
     
138.         )
     
139.       )
     
140.      (setvar "OSMODE" HOLDOSMODE)
     
141.     )
     
142.     (alert "\n 所选是相同的线!! ")
     
143.   )
     
144.   (command "_.UNDO" "_END")
     
145.   (setvar "CMDECHO" HOLDECHO)
     
146.   (princ)
     
147. )
     
148. (prompt "\nType CONNECT 执行,BY LUCAS(龙龙仔)")
     

<br /> ;;看来Wb0815的程序是出不来了<br /> ;;BY LUCAS(龙龙仔)<br /> ;;只处理"圆" & "闭合2dPolyline"<br /> ;;-----------------------------<br /> ;;只处理聚合线旗号<br /> ;; 1 = 此为封闭聚合线。 <br /> ;; 2 = 已加入曲线拟合顶点。 <br /> ;; 4 = 已加入云形线拟合顶点。 <br /> ;;线条显示太小时会出错!!<br /> (defun C:CONNECT (/          HOLDECHO          HOLDOSMODE          PT1<br />                   PT2          LENT          ENT1          ENT2          SPT1          EPT1<br />                   SPT2          EPT2<br />                  )<br />   (vl-load-com)<br />   (defun ENTSEL_MSG_FILTER (MSG FILTER MSG1 / SS SSS)<br />     (while (not SS)<br />       (setq SS (entsel MSG))<br />       (if (/= SS NIL)<br />         (progn<br />           (command "_.SELECT" (car SS) "")<br />           (if (not (setq SSS (ssget "P" FILTER)))<br />             (progn<br />               (setq SS NIL)<br />               (prompt MSG1)<br />             )<br />             (list (ssname SSS 0) (cadr SS))<br />           )<br />         )<br />       )<br />     )<br />   )<br /> <br />   (defun DO_IT (ENT PT / C)<br />     (command "_.circle" PT 0.01)<br />     (setq C (entlast))<br />     (command<br />       "_.trim"<br />       (entlast)<br />       ""<br />       (list ENT PT)<br />       ""<br />     )<br />     (if        (not (equal C (entlast)))<br />       (progn<br />         (command "_.pedit"<br />                  (entlast)<br />                  "j"<br />                  "ALL"<br />                  ""<br />                  ""<br />         )<br />         (setq ENT (entlast))<br />       )<br />     )<br />     (command "_.erase" C "")<br />     (vlax-ename->vla-object ENT)<br />   )<br /> <br />   (setq HOLDECHO (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (command "_.UNDO" "_GROUP")<br />   (setq        ENT1 (ENTSEL_MSG_FILTER<br />                "\n选第一条闭合曲线: "<br />                '((-4 . "<OR")<br />                  (0 . "CIRCLE")<br />                  (-4 . "<AND")<br />                  (0 . "*POLYLINE")<br />                  (70 . 1)<br />                  (-4 . "AND>")<br />                  (-4 . "<AND")<br />                  (0 . "*POLYLINE")<br />                  (70 . 3)<br />                  (-4 . "AND>")<br />                  (-4 . "<AND")<br />                  (0 . "*POLYLINE")<br />                  (70 . 5)<br />                  (-4 . "AND>")<br />                  (-4 . "OR>")<br />                 )<br />                "\n所选线段程序不能处理!!"<br />              )<br />   )<br />   (setq        ENT2 (ENTSEL_MSG_FILTER<br />                "\n选第二条闭合曲线: "<br />                '((-4 . "<OR")<br />                  (0 . "CIRCLE")<br />                  (-4 . "<AND")<br />                  (0 . "*POLYLINE")<br />                  (70 . 1)<br />                  (-4 . "AND>")<br />                  (-4 . "<AND")<br />                  (0 . "*POLYLINE")<br />                  (70 . 3)<br />                  (-4 . "AND>")<br />                  (-4 . "<AND")<br />                  (0 . "*POLYLINE")<br />                  (70 . 5)<br />                  (-4 . "AND>")<br />                  (-4 . "OR>")<br />                 )<br />                "\n所选线段程序不能处理!!"<br />              )<br />   )<br /> <br />   (setq PT1 (osnap (cadr ENT1) "_NEA"))<br />   (setq PT2 (osnap (cadr ENT2) "_NEA"))<br />   (setq ENT1 (car ENT1))<br />   (setq ENT2 (car ENT2))<br />   (if (not (equal ENT1 ENT2))<br />     (progn<br />       (setq HOLDOSMODE (getvar "OSMODE"))<br />       (setvar "osmode" 0)<br />       (setq ENT1 (DO_IT ENT1 PT1))<br />       (setq ENT2 (DO_IT ENT2 PT2))<br />       (setq SPT1 (vlax-curve-getstartpoint ENT1))<br />       (setq EPT1 (vlax-curve-getendpoint ENT1))<br />       (setq SPT2 (vlax-curve-getstartpoint ENT2))<br />       (setq EPT2 (vlax-curve-getendpoint ENT2))<br />       (setq LENT (entlast))<br />       (if (inters SPT1 SPT2 EPT1 EPT2)<br />         (command "_.line" SPT1 EPT2 "" "_.line" EPT1 SPT2 "")<br />       )<br />       (if (inters SPT1 EPT2 EPT1 SPT2)<br />         (command "_.line" SPT1 SPT2 "" "_.line" EPT1 EPT2 "")<br />       )<br />       (if (not (equal LENT (entlast)))<br />         (command "_.pedit"<br />                  (entlast)<br />                  "y"<br />                  "j"<br />                  (entnext LENT)<br />                  (vlax-vla-object->ename ENT1)<br />                  (vlax-vla-object->ename ENT2)<br />                  ""<br />                  ""<br />         )<br />       )<br />      (setvar "OSMODE" HOLDOSMODE)<br />     )<br />     (alert "\n 所选是相同的线!! ")<br />   )<br />   (command "_.UNDO" "_END")<br />   (setvar "CMDECHO" HOLDECHO)<br />   (princ)<br /> )<br /> (prompt "\nType CONNECT 执行,BY LUCAS(龙龙仔)")<br />