offgrid脚本报错，求大家看看

linda313417

如图，使用的是论坛里大佬写的代码，但是会报两种错误。

①如果选一个path或者rect然后进行该操作就会报

1. *Error* putOnGridCB: too many arguments (1 expected, 3 given) - (0.005 t nil)
   

复制代码

②如果全选整个模块的内容再进行该操作就会报如下错误，并且整个virtuoso就会卡住必须得kill才能关闭。

1. "Put On Grid: Encountered unknown shape"
   
2. "pathSeg"
   

复制代码

完整代码如下：

1. /*PutOnGrid procedure*/
   
2.         
   
3. procedure( grid()
   
4. let((gridField putOnGridForm)
   
5.         hiCreateForm('putOnGridForm "Put On Grid"
   
6.                         "putOnGridCB(        putOnGridForm->gridField->value
   
7.                                         putOnGridForm->convPathToPolygonButton->value
   
8.                                         putOnGridForm->selectAllObjButton->value)"
   
9.                         list(        hiCreateFloatField(
   
10.                                         ?name 'gridField
    
11.                                         ?prompt "Enter Grid Value"
    
12.                                         ?defValue 0.1
    
13.                                 );
    
14. 
    
15.                                 hiCreateBooleanButton(
    
16.                                         ?name 'convPathToPolygonButton
    
17.                                         ?buttonText "Do you want to convert path to polygon?"
    
18.                                         ?value nil
    
19.                                         ?defValue nil
    
20.                                 );
    
21. 
    
22.                                 hiCreateBooleanButton(
    
23.                                         ?name 'selectAllObjButton
    
24.                                         ?buttonText "Select all object?"
    
25.                                         ?value t
    
26.                                         ?defValue t
    
27.                                 );
    
28.                         );list
    
29.         );hiCreateForm
    
30. 
    
31.         hiDisplayForm(putOnGridForm)
    
32. );let
    
33. );procedure
    
34. 
    
35. procedure(putOnGridCB(grid convPathToPolygon selectAll)
    
36. prog( (compFactor cv selset saveLayer theta p obj path loc)
    
37. 
    
38.         compFactor = 1 / (geGetEditCellView()~>"DBUPerUU")
    
39.        
    
40.         if(!compFactor then
    
41.                 hiDisplayModelessDBox('formHandle "Put On Grid"
    
42.                         "The CellView does not have the DBUPerUU property defined"
    
43.                         "" ""
    
44.                 );
    
45.                 return()
    
46.         );fi
    
47. 
    
48.         cv=geGetEditCellView()
    
49. 
    
50.         if(selectAll == t
    
51.            then selset=nconc(cv~>shapes cv~>instances cv~>mosaic)
    
52.         else
    
53.                 selset=selectedSet()
    
54.         );fi
    
55. 
    
56.         if(selset == nil then
    
57.                 hiDisplayModelessDBox('formHandle "Put On Grid"
    
58.                         "Nothing has been selected objects"
    
59.                         "" ""
    
60.                 );
    
61.                 return()
    
62.         );fi
    
63. 
    
64.         when(convPathToPolygon
    
65.                 foreach(obj selset
    
66.                         when(obj~>objType=="path"
    
67.                                 dbConvertPathToPolygon(obj)
    
68.                         );when
    
69.                 );foreach
    
70.         );when
    
71. 
    
72.         foreach( obj selset
    
73.                 case( obj~>objType
    
74.                         ("rect"
    
75.                                 path=obj~>bBox
    
76.                         );
    
77. 
    
78.                         (("polygon" "path")
    
79.                                 path=obj~>points
    
80.                         );
    
81. 
    
82.                         (("label" "inst" "mosaic" "mosaicInst")
    
83.                                 path=list(obj~>xy)                        );
    
84. 
    
85.                         (t
    
86.                                 println(obj~>objType)
    
87.                         );
    
88.                 );case
    
89. 
    
90.                 newpath=nil
    
91.                 foreach( pt path
    
92.                         newpath=cons(roundCoord(pt grid) newpath)
    
93.                 );foreach
    
94. 
    
95.                 path=newpath
    
96. 
    
97.                 case( obj~>objType
    
98.                         ("rect"
    
99.                                 obj~>bBox=path
    
100.                         );
     
101. 
     
102.                         (("polygon" "path")
     
103.                                 obj~>points=path
     
104.                         );
     
105. 
     
106.                         (("label" "inst" "mosaic" "mosaicInst")
     
107.                                 obj~>xy=car(path)
     
108.                         );
     
109. 
     
110.                         (t
     
111.                                 println("Put On Grid: Encountered unknown shape");
     
112. 
     
113.                         );
     
114.                 );case
     
115. 
     
116.         );foreach
     
117. );prog
     
118. );procedure
     
119. 
     
120. procedure(roundCoord(point grid)
     
121. prog((x y)
     
122.         x=round((xCoord(point) + compFactor)/grid)*grid
     
123.         y=round((yCoord(point) + compFactor)/grid)*grid
     
124.         return(list(x y))
     
125. );prog
     
126. );procedure
     
127. hiSetBindKey("Layout" "<Key>1" "grid()")
     

复制代码