[求助]：如何对已有的填充图案加上边框线？

beyondhoom

我们正常时往往是在画好的边框里填充图案，但有没有一个相反的办法为已有的填充图案加上它的外框呢？

请高手指教。

民工

acad2006，2007的填充命令本身就有重建边界这个功能。

晓东工具箱也有这个功能

zzsong

民工兄弟，为什么使用这个选项后，结果有时是一个整体有时又是分散的线段呢？
原来我想，可能关联填充用这个选项后是一个整体，可经试验不是那么回事，懵了，找不到规律。
整体了好调整，分散了就麻烦，所以有此一问。

beyondhoom

对，请高手解答一下3楼这个问题。以供新手学习，我们需要更多关于此类比较怪的方法，希望高手能出相关的专题学习

似水无痕

明经通道上有一个恢复图案填充边界的程序，不知行不行，各位试试：

2. ;;; HATCHB.LSP ver 1.6
   
3. ;;; Recreates hatch boundary by selecting a hatch
   
4. ;;; Boundary is created in current layer/color/linetype in WCS
   
5. ;;; By Jimmy Bergmark
   
6. ;;; Copyright (C) 1997-2002 JTB World, All Rights Reserved
   
7. ;;; Website:[url]www.jtbworld.com[/url] / [url]http://jtbworld.vze.com[/url]
   
8. ;;; E-mail: [email]info@jtbworld.com[/email] / [email]jtbworld@hotmail.com[/email]
   
9. ;;; 2000-02-12 - First release
   
10. ;;; 2000-03-27 - Counterclockwise arc's and ellipse's fixed
    
11. ;;;Objects created joined to lwpolyline if possible
    
12. ;;;Error-handling, undo of command
    
13. ;;;Can handle PLINETYPE = 0,1,2
    
14. ;;; 2000-03-30 - Integrating hatchb and hatchb14
    
15. ;;;Selection of many hatches
    
16. ;;;Splines supported if closed.
    
17. ;;; 2001-04-02 - Fixed bug with entmake of line with no Z for r14
    
18. ;;; 2001-07-31 - Removed an irritating semicolon to enable polylines to be created.
    
19. ;;; 2001-10-04 - Changed mail and homepage so it's easy to find when new versions comes up.
    
20. ;;; Tested on AutoCAD r14, 2000, 2000i, 2002
    
21. ;;; should be working on older versions too.
    
22. 
    
23. (defun c:hb () (c:hatchb))                ; this line can be commented out if there is an existing command called hb
    
24. (defun c:hatchb        (/              esblayed1           ed2                loops1bptfpart
    
25.                  etnoe              plist           icbul        nrang1ang2obj
    
26.                  *ModelSpace* *PaperSpace* space        cw
    
27.                  errexit      undox           olderr        oldcmdecho
    
28.                  ss1              lastent           en1                en2
    
29.                  ss              lwp           list->variantArray
    
30.                  3dPoint->2dPoint           A2k                ent
    
31.                  i              ss2           knot-list
    
32.                  controlpoint-list           kn                cn
    
33.                  pos              xv
    
34.                 )
    
35.   (setq A2k (wcmatch (getvar "ACADVER") "15*"))
    
36.   (if A2k
    
37.     (defun list->variantArray (ptsList / arraySpace sArray)
    
38.       (setq arraySpace
    
39.              (vlax-make-safearray
    
40.                vlax-vbdouble
    
41.                (cons 0 (- (length ptsList) 1))
    
42.              )
    
43.       )
    
44.       (setq sArray (vlax-safearray-fill arraySpace ptsList))
    
45.       (vlax-make-variant sArray)
    
46.     )
    
47.   )
    
48.   (if A2k
    
49.     (defun 3dPoint->2dPoint (3dpt)
    
50.       (list (float (car 3dpt)) (float (cadr 3dpt)))
    
51.     )
    
52.   )
    
53. 
    
54.   (defun errexit (s)
    
55.     (princ "\nError:")
    
56.     (princ s)
    
57.     (restore)
    
58.   )
    
59. 
    
60.   (defun undox ()
    
61.     (command "._ucs" "_p")
    
62.     (command "._undo" "_E")
    
63.     (setvar "cmdecho" oldcmdecho)
    
64.     (setq *error* olderr)
    
65.     (princ)
    
66.   )
    
67. 
    
68.   (setq        olderr *error*
    
69.          restore
    
70.         undox
    
71.          *error*
    
72.         errexit
    
73.   )
    
74.   (setq oldcmdecho (getvar "cmdecho"))
    
75.   (setvar "cmdecho" 0)
    
76.   (command "._UNDO" "_BE")
    
77.   (if A2k
    
78.     (progn
    
79.       (vl-load-com)
    
80.       (setq *ModelSpace* (vla-get-ModelSpace
    
81.                            (vla-get-ActiveDocument (vlax-get-acad-object))
    
82.                          )
    
83.             *PaperSpace* (vla-get-PaperSpace
    
84.                            (vla-get-ActiveDocument (vlax-get-acad-object))
    
85.                          )
    
86.       )
    
87.     )
    
88.   )
    
89. 
    
90. 
    
91.                                         ; For testing purpose
    
92.                                         ; (setq A2k nil)
    
93. 
    
94.   (if (/= (setq ss2 (ssget '((0 . "HATCH")))) nil)
    
95.     (progn
    
96.       (setq i 0)
    
97.       (while (setq ent (ssname ss2 i))
    
98.         (setq ed1 (entget ent))
    
99.         (if (not (equal (assoc 210 ed1) '(210 0.0 0.0 1.0)))
    
100.           (princ "\nHatch not in WCS!")
     
101.         )
     
102.         (setq xv (cdr (assoc 210 ed1)))
     
103.         (command "._ucs" "_w")
     
104.         (setq loops1 (cdr (assoc 91 ed1)))
     
105.                                         ; number of boundary paths (loops)
     
106.         (if (and A2k (= (strcase (cdr (assoc 410 ed1))) "MODEL"))
     
107.           (setq space *ModelSpace*)
     
108.           (setq space *PaperSpace*)
     
109.         )
     
110.         (repeat        loops1
     
111.           (setq ed1 (member (assoc 92 ed1) ed1))
     
112.           (setq bptf (cdr (car ed1)))        ; boundary path type flag
     
113.           (setq ic (cdr (assoc 73 ed1))) ; is closed
     
114.           (setq noe (cdr (assoc 93 ed1))) ; number of edges
     
115.           (setq ed1 (member (assoc 72 ed1) ed1))
     
116.           (setq bul (cdr (car ed1)))        ; bulge
     
117.           (setq plist nil)
     
118.           (setq blist nil)
     
119.           (cond
     
120.             ((> (boole 1 bptf 2) 0)        ; polyline
     
121.              (repeat noe
     
122.                (setq ed1 (member (assoc 10 (cdr ed1)) ed1))
     
123.                (setq plist (append plist (list (cdr (assoc 10 ed1)))))
     
124.                (setq blist (append blist
     
125.                                    (if (> bul 0)
     
126.                                      (list (cdr (assoc 42 ed1)))
     
127.                                      nil
     
128.                                    )
     
129.                            )
     
130.                )
     
131.              )
     
132.              (if A2k
     
133.                (progn
     
134.                  (setq polypoints
     
135.                         (apply 'append
     
136.                                (mapcar '3dPoint->2dPoint plist)
     
137.                         )
     
138.                  )
     
139.                  (setq VLADataPts (list->variantArray polypoints))
     
140.                  (setq
     
141.                    obj (vla-addLightweightPolyline space VLADataPts)
     
142.                  )
     
143.                  (setq nr 0)
     
144.                  (repeat (length blist)
     
145.                    (if (/= (nth nr blist) 0)
     
146.                      (vla-setBulge obj nr (nth nr blist))
     
147.                    )
     
148.                    (setq nr (1+ nr))
     
149.                  )
     
150.                  (if (= ic 1)
     
151.                    (vla-put-closed obj T)
     
152.                  )
     
153.                )
     
154.                (progn
     
155.                  (if (= ic 1)
     
156.                    (entmake '((0 . "POLYLINE") (66 . 1) (70 . 1)))
     
157.                    (entmake '((0 . "POLYLINE") (66 . 1)))
     
158.                  )
     
159.                  (setq nr 0)
     
160.                  (repeat (length plist)
     
161.                    (if (= bul 0)
     
162.                      (entmake (list (cons 0 "VERTEX")
     
163.                                     (cons 10 (nth nr plist))
     
164.                               )
     
165.                      )
     
166.                      (entmake (list (cons 0 "VERTEX")
     
167.                                     (cons 10 (nth nr plist))
     
168.                                     (cons 42 (nth nr blist))
     
169.                               )
     
170.                      )
     
171.                    )
     
172.                    (setq nr (1+ nr))
     
173.                  )
     
174.                  (entmake '((0 . "SEQEND")))
     
175.                )
     
176.              )
     
177.             )
     
178.             (t                                ; not polyline
     
179.              (setq lastent (entlast))
     
180.              (setq lwp T)
     
181.              (repeat noe
     
182.                (setq et (cdr (assoc 72 ed1)))
     
183.                (cond
     
184.                  ((= et 1)                ; line
     
185.                   (setq ed1 (member (assoc 10 (cdr ed1)) ed1))
     
186.                   (if A2k
     
187.                     (vla-AddLine
     
188.                       space
     
189.                       (vlax-3d-point (cdr (assoc 10 ed1)))
     
190.                       (vlax-3d-point (cdr (assoc 11 ed1)))
     
191.                     )
     
192.                     (entmake
     
193.                       (list
     
194.                         (cons 0 "LINE")
     
195.                         (list 10
     
196.                               (cadr (assoc 10 ed1))
     
197.                               (caddr (assoc 10 ed1))
     
198.                               0
     
199.                         )
     
200.                         (list 11
     
201.                               (cadr (assoc 11 ed1))
     
202.                               (caddr (assoc 11 ed1))
     
203.                               0
     
204.                         )
     
205.                                         ;(cons 210 xv)
     
206.                       )
     
207.                     )
     
208.                   )
     
209.                   (setq ed1 (cddr ed1))
     
210.                  )
     
211.                  ((= et 2)                ; circular arc
     
212.                   (setq ed1 (member (assoc 10 (cdr ed1)) ed1))
     
213.                   (setq ang1 (cdr (assoc 50 ed1)))
     
214.                   (setq ang2 (cdr (assoc 51 ed1)))
     
215.                   (setq cw (cdr (assoc 73 ed1)))
     
216.                   (if (equal ang2 6.28319 0.00001)
     
217.                     (progn
     
218.                       (if A2k
     
219.                         (vla-AddCircle
     
220.                           space
     
221.                           (vlax-3d-point (cdr (assoc 10 ed1)))
     
222.                           (cdr (assoc 40 ed1))
     
223.                         )
     
224.                         (entmake (list (cons 0 "CIRCLE")
     
225.                                        (assoc 10 ed1)
     
226.                                        (assoc 40 ed1)
     
227.                                  )
     
228.                         )
     
229.                       )
     
230.                       (setq lwp nil)
     
231.                     )
     
232.                     (if        A2k
     
233.                       (vla-AddArc
     
234.                         space
     
235.                         (vlax-3d-point (cdr (assoc 10 ed1)))
     
236.                         (cdr (assoc 40 ed1))
     
237.                         (if (= cw 0)
     
238.                           (- 0 ang2)
     
239.                           ang1
     
240.                         )
     
241.                         (if (= cw 0)
     
242.                           (- 0 ang1)
     
243.                           ang2
     
244.                         )
     
245.                       )
     
246.                       (entmake (list (cons 0 "ARC")
     
247.                                      (assoc 10 ed1)
     
248.                                      (assoc 40 ed1)
     
249.                                      (cons 50
     
250.                                            (if (= cw 0)
     
251.                                              (- 0 ang2)
     
252.                                              ang1
     
253.                                            )
     
254.                                      )
     
255.                                      (cons 51
     
256.                                            (if (= cw 0)
     
257.                                              (- 0 ang1)
     
258.                                              ang2
     
259.                                            )
     
260.                                      )
     
261.                                )
     
262.                       )
     
263.                     )
     
264.                   )
     
265.                   (setq ed1 (cddddr ed1))
     
266.                  )
     
267.                  ((= et 3)                ; elliptic arc
     
268.                   (setq ed1 (member (assoc 10 (cdr ed1)) ed1))
     
269.                   (setq ang1 (cdr (assoc 50 ed1)))
     
270.                   (setq ang2 (cdr (assoc 51 ed1)))
     
271.                   (setq cw (cdr (assoc 73 ed1)))
     
272.                   (if A2k
     
273.                     (progn
     
274.                       (setq obj        (vla-AddEllipse
     
275.                                   space
     
276.                                   (vlax-3d-point (cdr (assoc 10 ed1)))
     
277.                                   (vlax-3d-point (cdr (assoc 11 ed1)))
     
278.                                   (cdr (assoc 40 ed1))
     
279.                                 )
     
280.                       )
     
281.                       (vla-put-startangle
     
282.                         obj
     
283.                         (if (= cw 0)
     
284.                           (- 0 ang2)
     
285.                           ang1
     
286.                         )
     
287.                       )
     
288.                       (vla-put-endangle
     
289.                         obj
     
290.                         (if (= cw 0)
     
291.                           (- 0 ang1)
     
292.                           ang2
     
293.                         )
     
294.                       )
     
295.                     )
     
296.                     (princ "\nElliptic arc not supported!")
     
297.                   )
     
298.                   (setq lwp nil)
     
299.                  )
     
300.                  ((= et 4)                ; spline
     
301.                   (setq ed1 (member (assoc 94 (cdr ed1)) ed1))
     
302.                   (setq knot-list nil)
     
303.                   (setq controlpoint-list nil)
     
304.                   (setq kn (cdr (assoc 95 ed1)))
     
305.                   (setq cn (cdr (assoc 96 ed1)))
     
306.                   (setq pos (vl-position (assoc 40 ed1) ed1))
     
307.                   (repeat kn
     
308.                     (setq
     
309.                       knot-list        (cons (cons 40 (cdr (nth pos ed1)))
     
310.                                       knot-list
     
311.                                 )
     
312.                     )
     
313.                     (setq pos (1+ pos))
     
314.                   )
     
315.                   (setq pos (vl-position (assoc 10 ed1) ed1))
     
316.                   (repeat cn
     
317.                     (setq controlpoint-list
     
318.                            (cons
     
319.                              (cons 10 (cdr (nth pos ed1)))
     
320.                              controlpoint-list
     
321.                            )
     
322.                     )
     
323.                     (setq pos (1+ pos))
     
324.                   )
     
325.                   (setq knot-list (reverse knot-list))
     
326.                   (setq controlpoint-list (reverse controlpoint-list))
     
327.                   (entmake (append
     
328.                              (list '(0 . "SPLINE"))
     
329.                              (list (cons 100 "AcDbEntity"))
     
330.                              (list (cons 100 "AcDbSpline"))
     
331.                              (list (cons 70
     
332.                                          (+ 1
     
333.                                             8
     
334.                                             (* 2 (cdr (assoc 74 ed1)))
     
335.                                             (* 4 (cdr (assoc 73 ed1)))
     
336.                                          )
     
337.                                    )
     
338.                              )
     
339.                              (list (cons 71 (cdr (assoc 94 ed1))))
     
340.                              (list (cons 72 kn))
     
341.                              (list (cons 73 cn))
     
342.                              knot-list
     
343.                              controlpoint-list
     
344.                            )
     
345.                   )
     
346.                   (setq ed1 (member (assoc 10 ed1) ed1))
     
347.                   (setq lwp nil)
     
348.                  )
     
349.                )                        ; end cond
     
350.              )                                ; end repeat noe
     
351.              (if lwp
     
352.                (progn
     
353.                  (setq en1 (entnext lastent))
     
354.                  (setq ss (ssadd))
     
355.                  (ssadd en1 ss)
     
356.                  (while        (setq en2 (entnext en1))
     
357.                    (ssadd en2 ss)
     
358.                    (setq en1 en2)
     
359.                  )
     
360.                  (command "_.pedit" (entlast) "_Y" "_J" ss "" "")
     
361.                )
     
362.              )
     
363.             )                                ; end t
     
364.           )                                ; end cond
     
365.         )                                ; end repeat loops1
     
366.         (setq i (1+ i))
     
367.       )
     
368.     )
     
369.   )
     
370.   (restore)
     
371.   (princ)
     
372. )

;;; HATCHB.LSP ver 1.6<br /> ;;; Recreates hatch boundary by selecting a hatch<br /> ;;; Boundary is created in current layer/color/linetype in WCS<br /> ;;; By Jimmy Bergmark<br /> ;;; Copyright (C) 1997-2002 JTB World, All Rights Reserved<br /> ;;; Website:[url]www.jtbworld.com[/url] / [url]http://jtbworld.vze.com[/url]<br /> ;;; E-mail: [email]info@jtbworld.com[/email] / [email]jtbworld@hotmail.com[/email]<br /> ;;; 2000-02-12 - First release<br /> ;;; 2000-03-27 - Counterclockwise arc's and ellipse's fixed<br /> ;;;Objects created joined to lwpolyline if possible<br /> ;;;Error-handling, undo of command<br /> ;;;Can handle PLINETYPE = 0,1,2<br /> ;;; 2000-03-30 - Integrating hatchb and hatchb14<br /> ;;;Selection of many hatches<br /> ;;;Splines supported if closed.<br /> ;;; 2001-04-02 - Fixed bug with entmake of line with no Z for r14<br /> ;;; 2001-07-31 - Removed an irritating semicolon to enable polylines to be created.<br /> ;;; 2001-10-04 - Changed mail and homepage so it's easy to find when new versions comes up.<br /> ;;; Tested on AutoCAD r14, 2000, 2000i, 2002<br /> ;;; should be working on older versions too.<br /> <br /> (defun c:hb () (c:hatchb))                ; this line can be commented out if there is an existing command called hb<br /> (defun c:hatchb        (/              esblayed1           ed2                loops1bptfpart<br />                  etnoe              plist           icbul        nrang1ang2obj<br />                  *ModelSpace* *PaperSpace* space        cw<br />                  errexit      undox           olderr        oldcmdecho<br />                  ss1              lastent           en1                en2<br />                  ss              lwp           list->variantArray<br />                  3dPoint->2dPoint           A2k                ent<br />                  i              ss2           knot-list<br />                  controlpoint-list           kn                cn<br />                  pos              xv<br />                 )<br />   (setq A2k (wcmatch (getvar "ACADVER") "15*"))<br />   (if A2k<br />     (defun list->variantArray (ptsList / arraySpace sArray)<br />       (setq arraySpace<br />              (vlax-make-safearray<br />                vlax-vbdouble<br />                (cons 0 (- (length ptsList) 1))<br />              )<br />       )<br />       (setq sArray (vlax-safearray-fill arraySpace ptsList))<br />       (vlax-make-variant sArray)<br />     )<br />   )<br />   (if A2k<br />     (defun 3dPoint->2dPoint (3dpt)<br />       (list (float (car 3dpt)) (float (cadr 3dpt)))<br />     )<br />   )<br /> <br />   (defun errexit (s)<br />     (princ "\nError:")<br />     (princ s)<br />     (restore)<br />   )<br /> <br />   (defun undox ()<br />     (command "._ucs" "_p")<br />     (command "._undo" "_E")<br />     (setvar "cmdecho" oldcmdecho)<br />     (setq *error* olderr)<br />     (princ)<br />   )<br /> <br />   (setq        olderr *error*<br />          restore<br />         undox<br />          *error*<br />         errexit<br />   )<br />   (setq oldcmdecho (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (command "._UNDO" "_BE")<br />   (if A2k<br />     (progn<br />       (vl-load-com)<br />       (setq *ModelSpace* (vla-get-ModelSpace<br />                            (vla-get-ActiveDocument (vlax-get-acad-object))<br />                          )<br />             *PaperSpace* (vla-get-PaperSpace<br />                            (vla-get-ActiveDocument (vlax-get-acad-object))<br />                          )<br />       )<br />     )<br />   )<br /> <br /> <br />                                         ; For testing purpose<br />                                         ; (setq A2k nil)<br /> <br />   (if (/= (setq ss2 (ssget '((0 . "HATCH")))) nil)<br />     (progn<br />       (setq i 0)<br />       (while (setq ent (ssname ss2 i))<br />         (setq ed1 (entget ent))<br />         (if (not (equal (assoc 210 ed1) '(210 0.0 0.0 1.0)))<br />           (princ "\nHatch not in WCS!")<br />         )<br />         (setq xv (cdr (assoc 210 ed1)))<br />         (command "._ucs" "_w")<br />         (setq loops1 (cdr (assoc 91 ed1)))<br />                                         ; number of boundary paths (loops)<br />         (if (and A2k (= (strcase (cdr (assoc 410 ed1))) "MODEL"))<br />           (setq space *ModelSpace*)<br />           (setq space *PaperSpace*)<br />         )<br />         (repeat        loops1<br />           (setq ed1 (member (assoc 92 ed1) ed1))<br />           (setq bptf (cdr (car ed1)))        ; boundary path type flag<br />           (setq ic (cdr (assoc 73 ed1))) ; is closed<br />           (setq noe (cdr (assoc 93 ed1))) ; number of edges<br />           (setq ed1 (member (assoc 72 ed1) ed1))<br />           (setq bul (cdr (car ed1)))        ; bulge<br />           (setq plist nil)<br />           (setq blist nil)<br />           (cond<br />             ((> (boole 1 bptf 2) 0)        ; polyline<br />              (repeat noe<br />                (setq ed1 (member (assoc 10 (cdr ed1)) ed1))<br />                (setq plist (append plist (list (cdr (assoc 10 ed1)))))<br />                (setq blist (append blist<br />                                    (if (> bul 0)<br />                                      (list (cdr (assoc 42 ed1)))<br />                                      nil<br />                                    )<br />                            )<br />                )<br />              )<br />              (if A2k<br />                (progn<br />                  (setq polypoints<br />                         (apply 'append<br />                                (mapcar '3dPoint->2dPoint plist)<br />                         )<br />                  )<br />                  (setq VLADataPts (list->variantArray polypoints))<br />                  (setq<br />                    obj (vla-addLightweightPolyline space VLADataPts)<br />                  )<br />                  (setq nr 0)<br />                  (repeat (length blist)<br />                    (if (/= (nth nr blist) 0)<br />                      (vla-setBulge obj nr (nth nr blist))<br />                    )<br />                    (setq nr (1+ nr))<br />                  )<br />                  (if (= ic 1)<br />                    (vla-put-closed obj T)<br />                  )<br />                )<br />                (progn<br />                  (if (= ic 1)<br />                    (entmake '((0 . "POLYLINE") (66 . 1) (70 . 1)))<br />                    (entmake '((0 . "POLYLINE") (66 . 1)))<br />                  )<br />                  (setq nr 0)<br />                  (repeat (length plist)<br />                    (if (= bul 0)<br />                      (entmake (list (cons 0 "VERTEX")<br />                                     (cons 10 (nth nr plist))<br />                               )<br />                      )<br />                      (entmake (list (cons 0 "VERTEX")<br />                                     (cons 10 (nth nr plist))<br />                                     (cons 42 (nth nr blist))<br />                               )<br />                      )<br />                    )<br />                    (setq nr (1+ nr))<br />                  )<br />                  (entmake '((0 . "SEQEND")))<br />                )<br />              )<br />             )<br />             (t                                ; not polyline<br />              (setq lastent (entlast))<br />              (setq lwp T)<br />              (repeat noe<br />                (setq et (cdr (assoc 72 ed1)))<br />                (cond<br />                  ((= et 1)                ; line<br />                   (setq ed1 (member (assoc 10 (cdr ed1)) ed1))<br />                   (if A2k<br />                     (vla-AddLine<br />                       space<br />                       (vlax-3d-point (cdr (assoc 10 ed1)))<br />                       (vlax-3d-point (cdr (assoc 11 ed1)))<br />                     )<br />                     (entmake<br />                       (list<br />                         (cons 0 "LINE")<br />                         (list 10<br />                               (cadr (assoc 10 ed1))<br />                               (caddr (assoc 10 ed1))<br />                               0<br />                         )<br />                         (list 11<br />                               (cadr (assoc 11 ed1))<br />                               (caddr (assoc 11 ed1))<br />                               0<br />                         )<br />                                         ;(cons 210 xv)<br />                       )<br />                     )<br />                   )<br />                   (setq ed1 (cddr ed1))<br />                  )<br />                  ((= et 2)                ; circular arc<br />                   (setq ed1 (member (assoc 10 (cdr ed1)) ed1))<br />                   (setq ang1 (cdr (assoc 50 ed1)))<br />                   (setq ang2 (cdr (assoc 51 ed1)))<br />                   (setq cw (cdr (assoc 73 ed1)))<br />                   (if (equal ang2 6.28319 0.00001)<br />                     (progn<br />                       (if A2k<br />                         (vla-AddCircle<br />                           space<br />                           (vlax-3d-point (cdr (assoc 10 ed1)))<br />                           (cdr (assoc 40 ed1))<br />                         )<br />                         (entmake (list (cons 0 "CIRCLE")<br />                                        (assoc 10 ed1)<br />                                        (assoc 40 ed1)<br />                                  )<br />                         )<br />                       )<br />                       (setq lwp nil)<br />                     )<br />                     (if        A2k<br />                       (vla-AddArc<br />                         space<br />                         (vlax-3d-point (cdr (assoc 10 ed1)))<br />                         (cdr (assoc 40 ed1))<br />                         (if (= cw 0)<br />                           (- 0 ang2)<br />                           ang1<br />                         )<br />                         (if (= cw 0)<br />                           (- 0 ang1)<br />                           ang2<br />                         )<br />                       )<br />                       (entmake (list (cons 0 "ARC")<br />                                      (assoc 10 ed1)<br />                                      (assoc 40 ed1)<br />                                      (cons 50<br />                                            (if (= cw 0)<br />                                              (- 0 ang2)<br />                                              ang1<br />                                            )<br />                                      )<br />                                      (cons 51<br />                                            (if (= cw 0)<br />                                              (- 0 ang1)<br />                                              ang2<br />                                            )<br />                                      )<br />                                )<br />                       )<br />                     )<br />                   )<br />                   (setq ed1 (cddddr ed1))<br />                  )<br />                  ((= et 3)                ; elliptic arc<br />                   (setq ed1 (member (assoc 10 (cdr ed1)) ed1))<br />                   (setq ang1 (cdr (assoc 50 ed1)))<br />                   (setq ang2 (cdr (assoc 51 ed1)))<br />                   (setq cw (cdr (assoc 73 ed1)))<br />                   (if A2k<br />                     (progn<br />                       (setq obj        (vla-AddEllipse<br />                                   space<br />                                   (vlax-3d-point (cdr (assoc 10 ed1)))<br />                                   (vlax-3d-point (cdr (assoc 11 ed1)))<br />                                   (cdr (assoc 40 ed1))<br />                                 )<br />                       )<br />                       (vla-put-startangle<br />                         obj<br />                         (if (= cw 0)<br />                           (- 0 ang2)<br />                           ang1<br />                         )<br />                       )<br />                       (vla-put-endangle<br />                         obj<br />                         (if (= cw 0)<br />                           (- 0 ang1)<br />                           ang2<br />                         )<br />                       )<br />                     )<br />                     (princ "\nElliptic arc not supported!")<br />                   )<br />                   (setq lwp nil)<br />                  )<br />                  ((= et 4)                ; spline<br />                   (setq ed1 (member (assoc 94 (cdr ed1)) ed1))<br />                   (setq knot-list nil)<br />                   (setq controlpoint-list nil)<br />                   (setq kn (cdr (assoc 95 ed1)))<br />                   (setq cn (cdr (assoc 96 ed1)))<br />                   (setq pos (vl-position (assoc 40 ed1) ed1))<br />                   (repeat kn<br />                     (setq<br />                       knot-list        (cons (cons 40 (cdr (nth pos ed1)))<br />                                       knot-list<br />                                 )<br />                     )<br />                     (setq pos (1+ pos))<br />                   )<br />                   (setq pos (vl-position (assoc 10 ed1) ed1))<br />                   (repeat cn<br />                     (setq controlpoint-list<br />                            (cons<br />                              (cons 10 (cdr (nth pos ed1)))<br />                              controlpoint-list<br />                            )<br />                     )<br />                     (setq pos (1+ pos))<br />                   )<br />                   (setq knot-list (reverse knot-list))<br />                   (setq controlpoint-list (reverse controlpoint-list))<br />                   (entmake (append<br />                              (list '(0 . "SPLINE"))<br />                              (list (cons 100 "AcDbEntity"))<br />                              (list (cons 100 "AcDbSpline"))<br />                              (list (cons 70<br />                                          (+ 1<br />                                             8<br />                                             (* 2 (cdr (assoc 74 ed1)))<br />                                             (* 4 (cdr (assoc 73 ed1)))<br />                                          )<br />                                    )<br />                              )<br />                              (list (cons 71 (cdr (assoc 94 ed1))))<br />                              (list (cons 72 kn))<br />                              (list (cons 73 cn))<br />                              knot-list<br />                              controlpoint-list<br />                            )<br />                   )<br />                   (setq ed1 (member (assoc 10 ed1) ed1))<br />                   (setq lwp nil)<br />                  )<br />                )                        ; end cond<br />              )                                ; end repeat noe<br />              (if lwp<br />                (progn<br />                  (setq en1 (entnext lastent))<br />                  (setq ss (ssadd))<br />                  (ssadd en1 ss)<br />                  (while        (setq en2 (entnext en1))<br />                    (ssadd en2 ss)<br />                    (setq en1 en2)<br />                  )<br />                  (command "_.pedit" (entlast) "_Y" "_J" ss "" "")<br />                )<br />              )<br />             )                                ; end t<br />           )                                ; end cond<br />         )                                ; end repeat loops1<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   (restore)<br />   (princ)<br /> )

g174157601

看着眼睛花
干脆搞个附件多好

民工

最初由 zzsong 发布
[B]民工兄弟，为什么使用这个选项后，结果有时是一个整体有时又是分散的线段呢？
原来我想，可能关联填充用这个选项后是一个整体，可经试验不是那么回事，懵了，找不到规律。
整体了好调整，分散了就麻烦，所以有此一... [/B]

这个跟填充原来的边界有关，原来的边界如果包含椭圆、spline，acad没法把它们连接成pline，所以是分散的。

目前恐怕只能通过手工转换，spline--pline，然后再连接。

zzsong

还是有疑虑，为什么这么说呢？因为平常很少接触椭圆、spline作边界的啊，可这事又是经常发生的。
难道没别的可能？……

民工

最初由 zzsong 发布
[B]还是有疑虑，为什么这么说呢？因为平常很少接触椭圆、spline作边界的啊，可这事又是经常发生的。
难道没别的可能？…… [/B]

这个问题要是问游手好闲，他肯定说跟人品有关

你首先要找到问题发生的规律：
如果是跟特定的图形有关，你可以发上来看看
如果是跟软件有关，你换台电脑试试
如果是跟姿势有关，你倒立操作试试
要是被小游不幸言中......

zzsong

民工果然不同凡响，看来偶得闭门思过了。

andyhua5240

这个问题可能是这样，你原来的填充图案是点选边界生成的话，那么重建边界后就是个连结的pl线。
但是如果你原来的填充图案是选择对象，窗选生成的话，那么重建边界后就是分散的line线？

民工

最初由 andyhua5240 发布
[B]这个问题可能是这样，你原来的填充图案是点选边界生成的话，那么重建边界后就是个连结的pl线。
但是如果你原来的填充图案是选择对象，窗选生成的话，那么重建边界后就是分散的line线？ [/B]

好像是这样，本来这个区域选定方式就对填充速度有很大影响，现在看来还影响到边界的信息。

zzsong

也忘了这种情况是点选还是选择对象，不过马上简单地试验一下，果然如andyhua5240 所言，点选边界的话生成的是pl线，选择对象后则生成的是分散的line线。
但我又发现，就是即使是点选边界的情况， 如果进行了编辑，比如剪切，则重建边界后还是分散的line线，还是不太爽。
不过还是很感谢两位，起码弄懂了原因。