谁来完成这个任务

小弟在编程方面的功力实在太差了。
刚刚录制了几个Macro都不起作用。
但是这些选项的确很有用！特别是在做工程图的时候。
可惜的是：SW没有把它做到属性管理员里面去！
只有咱自己动手了。
兄弟们，试试手吧！

还有很多：

我录制的去掉Solid Leader的macro怎么不起作用呢？
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
End Sub

另外：
这个宏如果起作用，能否在草图绘制中，退出草图后，工程图环境中都通用呢？
要适应各种环境才行！