layout 多边形转换成矩形

yangwgtop

1. hiSetBindKeys("Layout" list(list("<Key>F12" "PolygonToRect()")))
   
2. 
   
3. procedure(PolygonToRect()
   
4. let((cv)
   
5. cv = geGetEditCellView()
   
6. objs = geGetSelSet()
   
7. 
   
8. foreach(obj objs
   
9.         when(obj~>objType=="polygon"
   
10.                 objbox=obj~>bBox
    
11.                 Xmin=leftEdge(objbox)
    
12.                 Xmax=rightEdge(objbox)
    
13.                 Ymin=bottomEdge(objbox)
    
14.                 Ymax=topEdge(objbox)
    
15.                 objpoints=obj~>points
    
16.                 newpoint=list()
    
17.                 newpointY=list()
    
18.                 newpointX=list()
    
19.                 pointA=car(last(objpoints))                               
    
20.                 foreach(        point objpoints
    
21.                         pointB=point       
    
22.                         if(car(pointA) == car(pointB) then
    
23.                                 pointy=list((car(pointA):Ymin) (car(pointB):Ymax))                               
    
24.                                 when(member(pointy newpointY)==nil
    
25.                                         newpointY=append1(newpointY pointy)
    
26.                                         )
    
27.                         else
    
28.                                 pointy=list(Xmin:cadr(pointA) (Xmax:cadr(pointB)))
    
29.                                 when(member(pointy newpointX)==nil
    
30.                                         newpointX=append1(newpointX pointy)
    
31.                                         )
    
32.                                 );if
    
33.                         pointA=pointB
    
34.                         );foreach
    
35. 
    
36.                 if(length(newpointY) >= length(newpointX) then
    
37.                         newpoint= newpointX
    
38.                         else
    
39.                         newpoint= newpointY
    
40.                         );if
    
41. 
    
42.                         objsa=list(obj)
    
43.                         sum=1
    
44.                 foreach(pointa newpoint
    
45.                         if(sum==1 then
    
46.                                 objsaa=objsa
    
47.                         else
    
48.                                 objsaa=nconc(objsf objse)
    
49.                         );if
    
50.                         objsf=objsaa
    
51.                         objse=nil
    
52.                         objsc=nil
    
53.                         objsd=nil
    
54.                         foreach(objsb objsaa
    
55.                                 objsd=leChopShape(objsb pointa nil nil 10)
    
56.                                 when(objsd!=nil
    
57.                                         objsf=remove(objsb objsf)
    
58.                                         objsc=objsd
    
59.                                         foreach(objsd1 objsd
    
60.                                                 when(objsd1~>objType!="polygon"
    
61.                                                         objsc=remove(objsd1 objsc)
    
62.                                                 )
    
63.                                         );foreach
    
64.                                         objse=nconc(objse objsc)
    
65.                                 );when
    
66.                        
    
67.                         );foreach
    
68.                         sum=sum+1
    
69.                         );foreach
    
70. 
    
71.                 );when
    
72.         );foreach
    
73. )
    
74. )
    

复制代码