iCAx开思网

标题: 关于文件夹名称的链接 [打印本页]

作者: zaq12 时间: 2014-12-13 09:41
标题: 关于文件夹名称的链接
本帖最后由 zaq12 于 2014-12-13 09:54 编辑

我只想要得到文件夹名称不要全路径行不行啊 ? 如图圈住的部分.
用别的法子实现也行要自动化的,求摸索,主要目的用来显示项目名
或者把一属性指向一个文本文件的内容

作者: 营口人 时间: 2014-12-14 11:48
你说清楚那行文字是如何得到的吗，想求助还说不清楚问题

作者: vincent3166 时间: 2014-12-15 18:15
来吧，我顶一下，求答案。大家帮忙看看~

看看热闹。

作者: gt.adan 时间: 2014-12-17 14:31
本帖最后由 gt.adan 于 2014-12-17 14:42 编辑

試試以下代碼…執行以後會新增一個"FolderName"(資料夾名稱)的屬性。
路徑改變時記得再執行一次。

Sub main()
Set swApp = Application.SldWorks
Set model = swApp.ActiveDoc
modelpathname = model.GetPathName
pathname = Left(modelpathname, InStrRev(modelpathname, "") - 1)
pathname2 = Left(pathname, InStrRev(pathname, ""))
folder = Right(pathname, Len(pathname) - Len(pathname2))
retval = swApp.ActiveDoc.DeleteCustomInfo2(sConfigName, "FolderName")
retval = swApp.ActiveDoc.AddCustomInfo3(sConfigName, "FolderName", swCustomInfoText, folder)
End Sub

复制代码

作者: zaq12 时间: 2014-12-18 08:36

营口人发表于 2014-12-14 11:48
你说清楚那行文字是如何得到的吗，想求助还说不清楚问题

{:soso_e140:},理解不同,表达亦不同

作者: zaq12 时间: 2014-12-18 08:37

gt.adan 发表于 2014-12-17 14:31
試試以下代碼…執行以後會新增一個"FolderName"(資料夾名稱)的屬性。
路徑改變時記得再執行一次。

能不能不用宏啊?或者让宏重建时自动触发运行

作者: gt.adan 时间: 2014-12-18 08:59
本帖最后由 gt.adan 于 2014-12-18 09:01 编辑

zaq12 发表于 2014-12-18 08:37
能不能不用宏啊?或者让宏重建时自动触发运行

樓主的要求一直都很「特別」~
此處若不想用宏，已經不是我這種半桶水能解決的了。

若想自動觸發運行，目前只想到「特徵宏」，但是我不會寫。。。{:soso_e127:}

作者: zaq12 时间: 2014-12-18 09:02

gt.adan 发表于 2014-12-17 14:31
試試以下代碼…執行以後會新增一個"FolderName"(資料夾名稱)的屬性。
路徑改變時記得再執行一次。

还是要感谢丹大的代码,虽然只实现了半自动

作者: Francis 时间: 2014-12-18 12:34

gt.adan 发表于 2014-12-18 08:59
樓主的要求一直都很「特別」~
此處若不想用宏，已經不是我這種半桶水能解決的了。

自動執行除了【宏特徵】還有更安全的【常駐宏】。
丹弟也成功測試的，見以下鏈接：
https://www.3dportal.cn/discuz/f ... amp;fromuid=1188094

提取當前文件夾名稱的【常駐宏】更是有現成可用的，見以下鏈接，只是各位都貴人善忘或日理萬機，忽略這些不顯眼的小東西不足為奇。
https://www.icax.org/forum.php?m ... 474&fromuid=128
[attach]1212808[/attach]

作者: gt.adan 时间: 2014-12-18 13:13

Francis 发表于 2014-12-18 12:34
自動執行除了【宏特徵】還有更安全的【常駐宏】。
丹弟也成功測試的，見以下鏈接：
https://www.3dporta ...

阿丹才想利用中午時間回顧悶哥的教程：
https://www.solidworks.org.tw/forum.php?mod=viewthread&tid=21968

還沒看完就被您抓到了~~~真是慚愧呀…
回顧以前的帖子總是有幫助的，謝謝悶哥提醒！

作者: api163 时间: 2014-12-27 13:00
很不错，顶一顶。

作者: zaq12 时间: 2014-12-28 12:45

Francis 发表于 2014-12-18 12:34
自動執行除了【宏特徵】還有更安全的【常駐宏】。
丹弟也成功測試的，見以下鏈接：
https://www.3dporta ...

版主牛逼

作者: zaq12 时间: 2014-12-28 14:02
本帖最后由 zaq12 于 2014-12-28 14:05 编辑

gt.adan 发表于 2014-12-18 13:13
阿丹才想利用中午時間回顧悶哥的教程：
https://www.solidworks.org.tw/forum.php?mod=viewthread&tid=21 ...

丹大用闷大的AutoRun.swp宏的代码怎么实现运行我的宏啊？

或者说能不能把AutoRun.swp的内容替换成别的宏代码，为啥这个“常驻宏（AutoRun.swp）” 要间接去运行别的宏啊？闷大的AutoRun.swp代码完全不知道该怎么弄，我的自动运行宏啊，求帮助。
能不能把闷大的AutoRun.swp的没用的代码去除掉，只留自动运行子宏的代码。
不懂VB编程的表示很吃力。

作者: gt.adan 时间: 2014-12-30 12:45
本帖最后由 gt.adan 于 2014-12-30 15:59 编辑

zaq12 发表于 2014-12-28 14:02
丹大用闷大的AutoRun.swp宏的代码怎么实现运行我的宏啊？

或者说能不能把AutoRun.sw ...

为啥这个“常驻宏（AutoRun.swp）” 要间接去运行别的宏啊？以下是俺個人的理解…

藉由「AutoRun.swp」(名字當然是自訂。)這個「介面」，
執行不同功能的代碼，工作上就可以依每次的需求來完成不同的任務。
例如此處，樓主是需要提取每個檔案當前所在的資料夾名稱。
又例如，可以配合「代號- 名稱分離」的代碼來實現添加代號及檔案名稱兩欄屬性。

誠如悶老大所說，常駐宏的使用比起特徵宏來得更為直觀，
個人解讀：有需要時就讓autorun執行不同功能的宏代碼；不需要時，就無需執行。

操作方式及過程悶大都寫得很詳細，連結也很完全，俺也是按其操作成功的~
樓主建立/操作過程有什麼問題不妨提出來討論。
如果只有一句不懂編程…相信悶大的「鴨梨」不會少於您的~~{:soso_e113:}

作者: ep2708605440 时间: 2015-7-28 08:47
留下记号

作者: 楠柠檬、 时间: 2015-7-28 09:45

gt.adan 发表于 2014-12-30 12:45
为啥这个“常驻宏（AutoRun.swp）” 要间接去运行别的宏啊？以 ...

丹大，楼主太雷人了。。。
懒到极致了。。。
丹大你还能这么耐心的讲解，我还真是挺佩服你的{:soso_e110:}

欢迎光临 iCAx开思网 (https://www.icax.org/)