連結excel點線作图-巨集的應用

scliang

執行巨集(宏)的主程式  main()









[Excel點座標]
[2012 swp檔]

scliang

深入研習可以作出無法想像的線條!

臭臉翔

wow～我怎麼漏掉這帖了。

這很實用ㄟ～感謝梁叔分享

-------------------------------------------------
試用過了，雖然不甚明白，但當做工具收下了。

以後需要用到座標繪圖，另存、修改梁叔的檔案應該就可以了。

scliang

臭臉翔 發表於 2014/8/12 08:41
wow～我怎麼漏掉這帖了。

這很實用ㄟ～感謝梁叔分享

謝謝遲來的支持
發佈半年多沒人支持
真洩氣

臭臉翔

scliang 發表於 2014/8/12 09:12
謝謝遲來的支持
發佈半年多沒人支持
真洩氣

梁叔別洩氣阿...

您的東西都很實用，只是有時不懂用，有時漏掉沒看到，像這次就是...

再次感謝梁叔的用心指導、分享^^

sky92100

是我們功力太差 看不懂怎的使用= =

不過這讓我想起古早以前專題繪製船殼
一個一個點輸入真的要崩潰
要是當時有這個該有多好

judyyai

梁叔~別洩氣~
有看但是不懂 所以不敢出聲

臭臉翔

sky92100 發表於 2014/8/12 09:30
是我們功力太差 看不懂怎的使用= =

不過這讓我想起古早以前專題繪製船殼

真的，這用在大型件特別好用。

sky大是造船系的嗎

scliang

judyyai 發表於 2014/8/12 09:33
梁叔~別洩氣~
有看但是不懂 所以不敢出聲

謝謝諸位大大的補氣!

zh.xiang

梁大您太谦虚了，您和闷大都是小翔学习巨集的偶像。
当年，闷大在三维网将此巨集顶出后，对于我的工作有莫大的帮助。
在此谢过了。

sky92100

臭臉翔 發表於 2014/8/12 09:37
真的，這用在大型件特別好用。

sky大是造船系的嗎

對阿 大學念造船系!!!沒法進中船鐵飯碗= =

scliang

judyyai 發表於 2014/8/12 09:33
梁叔~別洩氣~
有看但是不懂 所以不敢出聲

輔仔,這個編程有試跑看看嗎
是否正常和三維不規則量杯的問題作比對參考

judyyai

scliang 發表於 2014/8/13 08:53
輔仔,這個編程有試跑看看嗎
是否正常和三維不規則量杯的問題作比對參考
...

回梁叔~
巨集開啟 運行情形 草圖沒反應 關閉就有
請看圖!



又發現一件事情...以下2種方式

1.
將SWP檔建立巨集按鈕
打開Excel檔
直接按下巨集鈕~沒有對話框
但有繪製出圖形


2.
打開Excel檔
而用"執行巨集"功能開啟檔案
有對話框~可以選擇~作圖項目
再去按下"執行"

怎麼我老是遇到怪怪的狀況....

scliang

judyyai 發表於 2014/8/13 09:25
回梁叔~
巨集開啟 運行情形 草圖沒反應 關閉就有
請看圖!

試暫關閉防毒軟件再試
有些防毒軟件會把 巨集 當成病毒

臭臉翔

judyyai 發表於 2014/8/13 09:25
回梁叔~
巨集開啟 運行情形 草圖沒反應 關閉就有
請看圖!

輔仔並不孤獨，我也是執行後沒跑線圖，關閉才出現的

judyyai

scliang 發表於 2014/8/13 09:50
試暫關閉防毒軟件再試
有些防毒軟件會把 巨集 當成病毒

報告梁叔~

今天有點忙~晚回覆了~
防毒軟體有關閉~還是一樣~

臭臉翔

請問梁叔，可以讀excel座標寫入SW，那可以反過來從SW寫出給excel嗎？

scliang

臭臉翔 發表於 2015/7/1 19:31
請問梁叔，可以讀excel座標寫入SW，那可以反過來從SW寫出給excel嗎？

可以的,如下參考(座標第3點選成第2點,自行比對就是)

scliang

臭臉翔 發表於 2014/8/13 10:02
輔仔並不孤獨，我也是執行後沒跑線圖，關閉才出現的

改善對策如下處理(在零件檔的對X,Y軸旋轉,XY取0可做簡易的延遲緩衝用)
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0

在原檔補加3句

臭臉翔

scliang 發表於 2015/7/3 09:21
改善對策如下處理(在零件檔的對X,Y軸旋轉,XY取0可做簡易的延遲緩衝用)
Set myModelView = Part.ActiveView ...

跑直線時可以顯示了，但不規則曲線依舊不顯示

臭臉翔

scliang 發表於 2015/7/1 21:58
可以的,如下參考(座標第3點選成第2點,自行比對就是)

請問梁叔：

我照著寫，但最後FILE顯示"必須是::陳述式結尾"

我哪裡寫錯了嗎@@

scliang

22#的問題
想想若有3個點要連"不規則曲線",連第1點,第2點停下,在連第2點,第3點,和直接連第1點,第2點,第3點效果一樣嗎?所以"不規則曲線"是要一氣呵成的(就是中間過程不顯示)

23#的問題
需提供改後巨集才能抓問題

judyyai

梁書~你好
去年測試檔案~找不到~應該是在公司測試的~

今天在家裡,卻執行不了(用原本程式,尚未修正)
我明明打開EXCEL了~我用SW2014如下問題

scliang

可能 excel 檔是2003之後的檔案格式 .xlsx,
請另存成  .xls 副檔名格式

scliang

judyyai 發表於 2015/7/5 11:25
梁書~你好
去年測試檔案~找不到~應該是在公司測試的~

看圖示

judyyai

scliang 發表於 2015/7/5 11:55
可能 excel 檔是2003之後的檔案格式 .xlsx,
請另存成  .xls 副檔名格式

回梁書~檔案格式原本就是*.xls

但是無法啟動~

judyyai

scliang 發表於 2015/7/3 09:21
改善對策如下處理(在零件檔的對X,Y軸旋轉,XY取0可做簡易的延遲緩衝用)
Set myModelView = Part.ActiveView ...

回梁書~

家裡的電腦還是不能啟動~不知道是作業系統問題,還是EXCEL問題~
****************************************************

因為今天在公司測試(WIN7+EXCEL2010+SW2014)
就可以執行~

然後就按照19# 教學 增加那3句程式碼~
附上修正後程式碼


巨集(宏)執行方式 1. & 2.
1.
打開Excel檔
打開SW,將SWP檔建立巨集按鈕
直接按下巨集鈕~沒有對話框出現,無選擇項目,只能畫點
但有繪製出圖形~看的到跑圖呈現動作直至完成圖形

2.
打開Excel檔,打開SW
而用"執行巨集"功能開啟SWP檔案
有對話框,可以選擇,作圖項目
再去按下"執行"有看到畫完圖型,但卻看不到跑圖呈現動作

scliang

judyyai 發表於 2015/7/6 09:39
回梁書~

家裡的電腦還是不能啟動~不知道是作業系統問題,還是EXCEL問題~

謝謝輔導長熱心測試,不管結果如何這對寫編程者都有參考價值.

ji394su3ubp6

sky92100 發表於 2014/8/12 09:30
是我們功力太差 看不懂怎的使用= =

不過這讓我想起古早以前專題繪製船殼

我也是造船系的ㄟ，但是當初學校是教CAD。

sky92100

ji394su3ubp6 發表於 2015/10/19 10:33
我也是造船系的ㄟ，但是當初學校是教CAD。

我也是用cad畫 當時主流
大大是什麼學校阿

sky92100

臭臉翔 發表於 2014/8/12 09:37
真的，這用在大型件特別好用。

sky大是造船系的嗎

是阿~~

ji394su3ubp6

sky92100 發表於 2015/10/29 04:58
我也是用cad畫 當時主流
大大是什麼學校阿

海洋科技大學