iCAx开思网

标题: 草圖驅動排列，數量的標注 [打印本页]

---

作者: Francis    时间: 2012-4-8 15:10
标题: 草圖驅動排列，數量的標注
這樣的標注，雖是不太實際的一回事，還是拿出來討論一下，望得到高人的高見，悶人可從中學習。
[attach]1124776[/attach]

---

作者: zhoushan403    时间: 2012-4-8 16:06
顶闷大！

---

作者: mygc    时间: 2012-4-8 16:37
{:soso_e113:}{:soso_e179:}

---

作者: ltq59    时间: 2012-4-8 17:09
闷大总是有文章{:soso_e179:}

---

作者: sehom    时间: 2012-4-8 18:29
呃，看起来好强大的样子

---

作者: 龙行天下    时间: 2012-4-9 01:21
强悍啊，求教材。

---

作者: judyyai    时间: 2012-4-9 09:40


這方法真的很奇特～
但我不會...只好好默默看 其他人討論～
自己也會努力研究...

---

作者: gt.adan    时间: 2012-4-9 09:56
悶大總有新鮮事兒~~~頂頂頂頂頂！

---

作者: Francis    时间: 2012-4-9 11:19
2011版本源文件，歡迎討論。

---

作者: Francis    时间: 2012-4-9 11:21

gt.adan 发表于 2012-4-9 09:56
悶大總有新鮮事兒~~~頂頂頂頂頂！

蛋爺，這樣標注由來已久並不新鮮，只是大多數人不關注而已。

---

作者: gt.adan    时间: 2012-4-9 13:30

Francis 发表于 2012-4-9 11:21
蛋爺，這樣標注由來已久並不新鮮，只是大多數人不關注而已。

回悶大
俺關注！俺關注！
真想看教程，可惜2011版公司無法開…

---

作者: 木瓜小子    时间: 2012-4-9 13:32

Francis 发表于 2012-4-9 11:19
2011版本源文件，歡迎討論。

版本太高，无法打开

---

作者: houge    时间: 2012-4-9 13:57
“在窗口中编辑文字”发现如下代码$PRPMODEL:"Sketch3"-"D2@Sketch2@sk-2@Drawing View1"x"D1@Sketch2@sk-2@Drawing View1"

---

作者: 鲁智深    时间: 2012-4-9 14:13
太神奇了，不会~

---

作者: 大叶子    时间: 2012-4-9 14:26
学习。闷大的参数化真是用的出神入化。

---

作者: gt.adan    时间: 2012-4-9 15:08

houge 发表于 2012-4-9 13:57
“在窗口中编辑文字”发现如下代码$PRPMODEL:"Sketch3"-"D2@Sketch2@sk-2@Drawing View1"x"D1@Sketch2@sk-2 ...

謝謝HOUGE大佬代PO內容…

---

作者: Francis    时间: 2012-4-9 15:23

houge 发表于 2012-4-9 13:57
“在窗口中编辑文字”发现如下代码$PRPMODEL:"Sketch3"-"D2@Sketch2@sk-2@Drawing View1"x"D1@Sketch2@sk-2 ...

關鍵不在于此

---

作者: gt.adan    时间: 2012-4-9 15:49

Francis 发表于 2012-4-9 15:23
關鍵不在于此

莫非真的要用宏？

---

作者: zhoushan403    时间: 2012-4-9 16:14
顶闷大。
我看到有里面的：呼叫”

---

作者: Francis    时间: 2012-4-9 22:42

木瓜小子 发表于 2012-4-9 13:32
版本太高，无法打开

附件版本2008，做法有點不同，編寫嵌合程式沒高版本方便，局限較大。

---

作者: gt.adan    时间: 2012-4-11 00:00
如此題目，都沒人再接續討論？？

---

作者: jxhaha    时间: 2012-4-11 03:57
顶闷兄！
但俺估计:闷兄的这个开发，就适应草图中相同几何形态的实体必须用“阵列”，如果是“镜像”+“镜像”+“镜像”再加“阵列”+“复制”+..反正都属于相同几何形态的实体，行么？

---

作者: Francis    时间: 2012-4-11 09:10

jxhaha 发表于 2012-4-11 03:57
顶闷兄！
但俺估计:闷兄的这个开发，就适应草图中相同几何形态的实体必须用“阵列”，如果是“镜像”+“镜 ...

不用估計，檔案任由下載，看過就知道，不看是您笨。（一笑）

哈兄道出了重點，答案是：不行。

---

作者: qyq0610    时间: 2012-4-11 10:43

Francis 发表于 2012-4-9 11:21
蛋爺，這樣標注由來已久並不新鮮，只是大多數人不關注而已。

ding 有意思！！

---

作者: jxhaha    时间: 2012-4-11 16:31

Francis 发表于 2012-4-11 09:10
不用估計，檔案任由下載，看過就知道，不看是您笨。（一笑）

哈兄道出了重點，答案是：不行。

哦，昨晚没看见闷兄又传了早版本，这就赶紧下来学习
记得闷兄早先设计键盘，一个视面上百十个相同的洞洞眼，而装配螺钉就一键到位..这会这个开发，想必也是为了高效标注，否则，相同洞洞眼超过10个就要数错，更别说上百上千。
设计类型不同，遇到的难题也不同，比如俺的机械设计，相同的洞洞眼一般不多，数就数一下，数错了工艺者会反馈回来
再顶闷兄！

---

作者: jxhaha    时间: 2012-4-11 16:45

Francis 发表于 2012-4-9 22:42
附件版本2008，做法有點不同，編寫嵌合程式沒高版本方便，局限較大。

闷兄，我到草图中加了1点，3个洞洞眼了，但标注还是“2-8x14"。拷贝代码在注过也还是2

---

作者: jxhaha    时间: 2012-4-11 16:55
哦哦要到属性中改，那也就不是自动算得的么，在零件文件中先数好洞洞眼{:soso_e102:}

---

作者: Francis    时间: 2012-4-12 00:10

jxhaha 发表于 2012-4-11 16:55
哦哦要到属性中改，那也就不是自动算得的么，在零件文件中先数好洞洞眼

2008嵌合碼在高版本不兼容，有勞哈兄再試一下這個附件，看看能否自動算得。{:soso_e181:}

---

作者: jxhaha    时间: 2012-4-12 05:39

Francis 发表于 2012-4-12 00:10
2008嵌合碼在高版本不兼容，有勞哈兄再試一下這個附件，看看能否自動算得。

这会行啦～～

---

作者: 三维专家    时间: 2012-5-12 13:07
闷人的宏所在：[attach]1129612[/attach]

---

作者: 斷翅    时间: 2012-5-16 19:52
一時看不懂.....可能會一直理解不來

---

作者: yunhe2    时间: 2012-5-16 20:34
很神奇

---

作者: Francis    时间: 2013-12-17 15:06
只怪悶人當日隨手編寫沒想清楚，通用性不高，代碼中的局限了草圖的名稱。
以下代碼，無論有多少個草圖陣列的特徵，都會自動搜尋，再自動以該特徵的名稱建立自定義屬性。
證明實驗成功者，技術+1。

1. 1
   
2. Dim FeatObj As Object
   
3. Set FeatObj = Part.FirstFeature
   
4. Dim FeatObjname As String
   
5. Dim pparents() As Object
   
6. Dim pparentscount, i As Integer
   
7. Dim swpParentFeat As Object
   
8. Dim found As Object
   
9. Dim PointsCount As Double
   
10. While Not (FeatObj.GetNextFeature Is Nothing)
    
11. Set FeatObj = FeatObj.GetNextFeature
    
12. FeatObjname = FeatObj.GetTypeName
    
13. If FeatObjname = "SketchPattern" Then
    
14. pparents = FeatObj.GetParents
    
15. pparentscount = UBound(pparents)
    
16. For i = 0 To pparentscount
    
17. Set swpParentFeat = pparents(i)
    
18. If swpParentFeat.GetTypeName = "ProfileFeature" Then Set found = swpParentFeat.GetSpecificFeature2
    
19. Next i
    
20. PointsCount = found.GetSpecificFeature2.GetUserPointsCount
    
21. Part.DeleteCustomInfo2 "", FeatObj.Name
    
22. Part.AddCustomInfo3 "", FeatObj.Name, 30, PointsCount + 1
    
23. End If
    
24. Wend

复制代码

---

作者: Francis    时间: 2013-12-17 15:12
除了不明朗及比較複雜的嵌合宏外，還有以下2個方式給各位研究：
CountSketchDrivenPattern.swp=每次設變後都需要手動執行的宏
FeatureCountSketchDrivenPattern.swp=每一個檔案只需執行一次的宏特徵

---

作者: gt.adan    时间: 2013-12-17 16:05
報告悶大，測試成功！測試版本：2012 sp4.0
謝謝悶大的改良宏！{:soso_e179:}

[attach]1190161[/attach]

---

作者: gt.adan    时间: 2013-12-17 16:24
謝謝悶大加分，再補一個2010 sp5.0的成功測試結果。

[attach]1190162[/attach]

---

作者: gt.adan    时间: 2013-12-17 20:42


【CountSketchDrivenPattern】===好用！

[attach]1190181[/attach]

---

作者: gt.adan    时间: 2013-12-17 20:52
【FeatureCountSketchDrivenPattern】===超方便！

[attach]1190184[/attach]

---

作者: gt.adan    时间: 2013-12-17 20:57
全部用了一次，都很好用！謝謝悶大的分享！

---

作者: Francis    时间: 2014-1-23 00:54

jxhaha 发表于 2012-4-11 03:57
顶闷兄！
但俺估计:闷兄的这个开发，就适应草图中相同几何形态的实体必须用“阵列”，如果是“镜像”+“镜 ...

一直記掛著哈兄這一席話，一年多過去了，終於初步實現出來，望哈兄有空回來看看。
https://www.icax.org/forum.php?m ... 870&fromuid=128

---

作者: liuguangdong    时间: 2014-1-23 15:30
{:soso_e179:}

---

作者: lbery    时间: 2014-5-10 19:09
這方法真的很奇特

---

作者: 楠柠檬、    时间: 2015-6-17 08:13


谢谢闷大提供的实用宏！非常好用！两个都很好用~！[attach]1220295[/attach]
忘了说了，这是2014sp5的测试结果~~~

---

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

Powered by Discuz! X3.3