china-hz 发表于 2006-2-25 19:58:00

菜单问题

本帖最后由 作者 于 2006-2-25 20:43:12 编辑

如何增加支持文件路径（就是选项里的那个路径）？先谢了

王咣生 发表于 2006-2-25 21:16:00

reply

Sub test()<BR>&nbsp;&nbsp;&nbsp; Dim preferences As AcadPreferences<BR>&nbsp;&nbsp;&nbsp; Dim currSupportPath As String<BR>&nbsp;&nbsp;&nbsp; Dim newSupportPath As String<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Set preferences = ThisDrawing.Application.preferences<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; currSupportPath = preferences.Files.SupportPath<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; newSupportPath = "c:\;" + currSupportPath&nbsp;&nbsp; '添加c:\<BR>&nbsp;&nbsp;&nbsp; preferences.Files = newSupportPath<BR>End Sub<BR>

china-hz 发表于 2006-2-25 21:31:00

谢谢

china-hz 发表于 2006-2-25 21:50:00

加载没问题了，可是在卸载的时候，会把不想要卸载的也会卸掉，如何解决呢？

王咣生 发表于 2006-2-25 22:35:00

<P>你要判断要删除哪个路径了,</P>
<P>哪个不想卸就留着啊.</P>

china-hz 发表于 2006-2-26 09:58:00

请问如何卸载呢？比如要卸载刚才加载的"c:\"路径
页: [1]
查看完整版本: 菜单问题