[討論]巨集 - 3D轉2D

請照以下的文字,輸入在指令的巨集裡就可以了...當畫好3D圖,只要調好視景,按一下按鈕,開新檔按貼上就OK了.
在巨集底下 ^C^C 代表取消, 空白鍵和；代表ENTER, 同時；更代表結束指令!在此,我以@代替空白鍵. 避免大家看不清楚!
         
^C^CUNDO@M；TILEMODE@0；MSPACE；SOLPROF@ALL@@@@；-LAYER@M@1@S@1@F@0@C@2@PV*@C@3@PH*@L@HIDDEN@PH*@；PSPACE；TILEMODE@1；UCS@V；COPYCLIP@ALL@；UNDO@B；

小弟多加了顏色和線型，寫成巨集，把複雜的步驟，讓電腦去執行！沒有圖解，所以如果有問題請告知小弟！記得空白鍵不可多也不可少哦．．
UNDO 退回
TILEMODE 　變數指令（０，１）０為配置，１為模型
MSPACE  配置空間裡的模型空間
SOLPROF  輪廓箤取（執行完這個指令，ＣＡＤ會自動幫你增加圖層，ＰＨ跟ＰＶ圖層，ＰＨ為虛線，ＰＶ為實線）
PSPACE  配置空間
UCS　使用者座標系統
COPYCLIP  複製
希望對各位有幫助

小妖 寫到:請照以下的文字,輸入在指令的巨集裡就可以了...當畫好3D圖,只要調好視景,按一下按鈕,開新檔按貼上就OK了.
在巨集底下 ^C^C 代表取消, 空白鍵和；代表ENTER, 同時；更代表結束指令!在此,我以@代替空白鍵. 避免大家看不清楚!

^C^CUNDO@M；TILEMODE@0；MSPACE；SOLPROF@ALL@@@@；-LAYER@M@1@S@1@F@0@C@2@PV*@C@3@PH*@L@HIDDEN@PH*@；PSPACE；TILEMODE@1；UCS@V；COPYCLIP@ALL@；UNDO@B；

小弟多加了顏色和線型，寫成巨集，把複雜的步驟，讓電腦去執行！沒有圖解，所以如果有問題請告知小弟！記得空白鍵不可多也不可少哦．．
UNDO 退回
TILEMODE 　變數指令（０，１）０為配置，１為模型
MSPACE 配置空間裡的模型空間
SOLPROF 輪廓箤取（執行完這個指令，ＣＡＤ會自動幫你增加圖層，ＰＨ跟ＰＶ圖層，ＰＨ為虛線，ＰＶ為實線）
PSPACE 配置空間
UCS　使用者座標系統
COPYCLIP 複製
希望對各位有幫助

感謝分享~
有興趣的朋友可以試試看，有問題請提出來討論喔!!

不好意思!我想請教一下3D轉2D這些指令要如何下?
是在工具列中的巨集裡嗎?
還是在其它地方下指令
(可否告之步驟)

您好..
您必需新增一個巨集
把這些指令輸入進去..
就可以了..

但我不知要如何新增具集ㄝ
(小弟才疏學淺請不另指教)

這個蠻難解說的吔..
不知有沒有大大願意做圖解教學~~~
如果你有興趣
請PM你的電話給我..

1.我已經先把 @ 及 ； 轉換成 ; 巨集語法(連續指令)如下

代碼:

^C^CUNDO;M;TILEMODE;0;MSPACE;SOLPROF;ALL;;;;;-LAYER;M;1;S;1;F;0;C;2;PV*;C;3;PH*;L;HIDDEN;PH*;;PSPACE;TILEMODE;1;UCS;V;COPYCLIP;ALL;;UNDO;B;

2.你可以直接複製貼上在自訂工具按鈕(巨集)


也可使用工具選項版(連續指令)即可


3.建立方式可以參考以下相關說明文章:

CUI自訂檔_建立和編輯工具列
http://tw.myblog.yahoo.com/tiger-apple/article?mid=358

工具選項板_巨集篇
http://tw.myblog.yahoo.com/tiger-apple/article?mid=172

4.點選按鈕即可完成複製，另外可以在開啟新圖來直接貼上....大功告成!!

補充:
「教學」輪廓 SOLPROF 指令介紹
https://www.autocad-tw.com/t98-topic

[討論] 轉成三視圖
https://www.autocad-tw.com/t1058-topic

可以寫成LISP嗎?
還請高手幫忙!

還是很複雜,但我暫時以平面快照解決我的問題
現因工作太繁忙無空去了解這個巨集指令
但還是謝謝各位的解說
待工作較鬆時我一定會撥空去仔細研究
(平面快照轉2D與這個指令的差別)

ccxsw 寫到:可以寫成LISP嗎?
還請高手幫忙!

其實2007以上版本可以使用 平面快照 即可快速完成~

李俊維 寫到:還是很複雜,但我暫時以平面快照解決我的問題
現因工作太繁忙無空去了解這個巨集指令
但還是謝謝各位的解說
待工作較鬆時我一定會撥空去仔細研究
(平面快照轉2D與這個指令的差別)

這是2006以前版本的方式，2007以上版本我都會跟你一樣建議使用平面快照呢~

Tiger&蘋果爸 寫到:

ccxsw 寫到:可以寫成LISP嗎?
還請高手幫忙!

其實2007以上版本可以使用 平面快照 即可快速完成~

看來我要學學 " 平面快照 "!

ccxsw 寫到:

Tiger&蘋果爸 寫到:

ccxsw 寫到:可以寫成LISP嗎?
還請高手幫忙!

其實2007以上版本可以使用 平面快照 即可快速完成~

看來我要學學 " 平面快照 "!

這裡有介紹喔!!
[討論] 轉成三視圖
https://www.autocad-tw.com/t1058-topic

原來我還無心插柳確是個好方法
(請教蘋果爸我有下載骰子練習也順便下載一些資料但解密時要密碼ㄝ)

李俊維 寫到:(請教蘋果爸我有下載骰子練習也順便下載一些資料但解密時要密碼ㄝ)

哪些資料是在資源分享區的文件，以你現在的等級還無法觀看喔~

請問小妖大大 有關執行完這個指令，ＣＡＤ會自動幫你增加圖層，ＰＨ跟ＰＶ圖層，ＰＨ為虛線，ＰＶ為實線

這個巨集能修改成轉成2D後 圖層及顏色還是依照原來3D實體所設定的圖層及顏色嗎? 謝謝~

iccs你好
是可以的..
^C^CUNDO@M；TILEMODE@0；MSPACE；SOLPROF@ALL@@@@；-LAYER@M@1@S@1@F@0@C@2@PV*@C@3@PH*@L@HIDDEN@PH*@；PSPACE；TILEMODE@1；UCS@V；COPYCLIP@ALL@；UNDO@B；

這兩個數字..就是圖層顏色..
只要把這兩個數字改成你要的顏色數字就可以了..

抱歉~小妖大大 可能我沒說清楚我的意思
舉例來說 譬如小弟的一張3D圖裡有5個實體 這5個實體分別有5個圖層5種顏色 用大大的巨集轉成2D後 2D的圖能不能也是5個圖層5個顏色呢?
而不是實線一種顏色虛線一種顏色 小弟的需求是只留前景線 但這前景線也是依照原來3D實體的所屬圖層顏色 (工作所需 勞煩了><)

多學一點 有益無害
吸~吸~吸~多學多健康
感恩!!

iccs 寫到:抱歉~小妖大大 可能我沒說清楚我的意思
舉例來說 譬如小弟的一張3D圖裡有5個實體 這5個實體分別有5個圖層5種顏色 用大大的巨集轉成2D後 2D的圖能不能也是5個圖層5個顏色呢?
而不是實線一種顏色虛線一種顏色 小弟的需求是只留前景線 但這前景線也是依照原來3D實體的所屬圖層顏色 (工作所需 勞煩了><)

這部份可能不行，必須在後製!
再不然就得自行開發程式~

嗯嗯~看來目前所知的CAD功能均無法解決此問題~就等AUTODESK官方往後的版本會不會提出修正嚕

可以寫成LISP嗎?
還請高手幫忙!

;;;Create 2D image from 3D

;Create 2D image from 3D
(defun c:CREATE2D (/ BLK)
;Routine works on "01" tab
;User must select objects to be converted to 2D

(COMMAND "-LAYOUT" "R" "Layout1" "01")
(COMMAND "-LAYOUT" "SET" "01")
(COMMAND "MSPACE")
(COMMAND "ZOOM" "EXTENTS")
(SETQ BM (SSGET)) ; this is where user must select objects
(COMMAND "SOLPROF" BM "" "YES" "YES" "NO")

(COMMAND "-LAYER" "NEW" "EIEIO" "SET" "EIEIO" "")
(COMMAND "-LAYER" "FREEZE" "*" "THAW" "PV*, FACE*" "")
(COMMAND "SCALE" "ALL" "" "0,0,0" "1.224744871")
(COMMAND "-LAYOUT" "SET" "MODEL")
(COMMAND "UCS" "NEW" "VIEW")
(COMMAND "COPYBASE" "0,0,0" "ALL" "")

)

tan866 寫到:

可以寫成LISP嗎?
還請高手幫忙!

;;;Create 2D image from 3D

Spoiler（用來隱藏帖子內容）:

感謝分享這LISP,有空來試試看指令!

感謝分享! 謝謝前輩的賜教