小弟由於工作需求自製
提供給有需要的人
使用說明:
1.解壓縮後將Autolisp及Lisp資料夾放到D碟中
2.開啟CAD 設定搜尋支援檔可讀取LISP資料夾
3.Autolisp資料夾路徑必須為"D:\\AutoLisp\\sample.dwg"(路徑檔名均為絕對 不可更改)
4.sample.dwg為動態圖塊存放用檔案
5.support應用程式內含以下:
(1) steel
快速插入常用鋼鐵
(2) screw
快速插入常用螺絲 (圓頭平頭寫反了，請大家看圖片吧!!)
6.CAD指令欄中鍵入steel 或 screw 會彈出如上圖所示的畫面 即可選擇要插入的圖塊
7.插入後自行點擊可見性修改為須要的尺寸
▼載點如下(*回覆可見*)：
下載載點： https://drive.google.com/file/d/0B41hPtWnOM8Qdk1oOHZRaWhnVzA/view?usp=sharing
備用載點： https://goo.gl/knMJ4X
https://db.tt/ZO0piSYd
104.10.19
附上LISP原始檔案
之所以做成VLX檔起因是因為公司同事大部分也看不懂這些東西 ...
↧
[討論]分享常用鋼鐵及螺絲動態圖塊insert
↧
[分享]LISP增量編碼程式
會員好康分享又來囉！這次一樣分享Lee Mac提供的lisp～
以下提供「增量編碼程式」操作範例，就是文字遞增功能，而且還可以套用在「屬性圖塊」的文字遞增喔！
使用者加載完LISP掛入後，可以使用NumInc指令，並且透過「增量編碼程式」對話方塊方式操作，原始程式為英文版，花了一點時間把它繁體中文化。有需要的會員朋友請下載使用吧～
程式作者 Lee Mac
http://lee-mac.com/programs.html
註：缺點是程式有一些BUG，有時候會執行失敗，必須要多試幾次，請大家看在免費使用的面子上"加減用吧"。
▼文字遞增功能：
▼多行文字遞增功能：
▼屬性圖塊遞增功能：
各位朋友別只是下載，別忘發表感想喔～
如果無法回覆文章下載附件，表示您尚未升等為「一般會員」喔！
▼升等辦法：
http://www.autocad-tw.com/t1685-topic
▼lsp程式下載(回覆文章可見)：
■繁體中文：
https://goo.gl/nXUCN1
■繁體中文(備用)：
https://db.tt/jWFCHbLT
https://www.box.com/s/wvot7ielmdc4wr9kax1e
■英文版：
https://goo.gl/yrYHKA
■英文版(備用)：
https://db.tt/Z49T28x7
https://www.box.com/s/il5ij1296luz58fnfzvk
↧
↧
[分享]自動圖塊(H型鋼)，POLAR函數運用
這是多年前學LISP時，第一堂課學到的第一個「函數」POLAR，也是當初第一支程式，程式碼很單純簡單，在這裡與大家分享研討。
POLAR 可以用的地方很廣，如建立表格、畫門、畫窗等等，有興趣的朋友歡迎一起討論喔～
代碼:(defun C:RHSTEEL ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOSMODE (GETVAR "OSMODE"))
(SETQ OLDLAYEAR (GETVAR "CLAYER"))
(SETQ BN (GETSTRING "\n輸入圖塊名稱:"));;;GETSTRING請輸入字串
(setq P1 (getpoint "\n指定圖塊插入點:")
H ...
↧
[互助]字體檔分享交流~
鑒於大家都經常遇到字體問題，故分享一下自己蒐集的資料，並邀請大家一起來分享一下自己的字體檔(*回覆可見*)。
JUDY補充公告
提醒各位，字體不要一次掛載太多，10年前的版本很容易因為字體過多發生當掉的情形，現在較新的版本不知道還會不會發生這個問題。
繁體字體（載點期限109/03/20）*到期無法下載，請通知蘋果爸補上傳*
*下載網址回覆可見*
下載：
https://we.tl/t-N30ykWKR3L
註：主題回覆權限為「一般會員」。
[公告]禁止使用灌水方式回文(回覆文章不得少於10個字)
2016-02-22補充：
字體檔位置:
C:\Program Files\autodesk\AutoCAD 版本\fonts
C:\Program Files\AutoCAD 版本\fonts（2011以下版本）
相關主題討論：
DWG圖檔找不到大字體(SHX檔)之「替代大字體」解決方案
[教學]AutoCAD新增字型搜尋路徑
http://www.autocad-tw.com/t887-topic
↧
[報告]DWG圖檔找不到大字體(SHX檔)之「替代大字體」解決方案
當在傳輸交流DWG圖檔時，我們必須提供對方圖檔相關聯的檔案（如:字體檔及大字體檔），對方才可以正常顯示圖面中所有文字內容，雖然可以透過「電子傳送」ETRANSMIT指令，自動將DWG圖檔所有字體檔打包成ZIP格式檔，連同DWG圖檔一併提供給對方，但有了字體檔使用者本身還是必須手動方式，放置到AutoCAD系統預設的字型支援路徑中，這樣開啟DWG圖檔才能正確找到字體顯示文字內容。
AutoCAD一直以來沒有自動指定替代「中文大字體檔(SHX)」功能，簡單說就是打開DWG圖檔後，圖面中若找不到的中文大字體，可透過介面設定以「chineset.shx」大字體暫時替換。目前使用者依預設當找不到中文大字體時，螢幕畫面會出現「替換字體」對話方塊，需以手動方式逐一選用「替代字體檔」，通常選用「chineset.shx」大字體暫時替換。
註:這邊的「暫時替換」意思是說，在目前圖面中暫時顯示正確文字內容而已，既有的文字型式大字體並不會替換，也就是說下次關閉AutoCAD後，再開啟圖檔或不同電腦開啟仍然需要手動方式選用「替代字體檔」。
所以目前業界選用「chineset.shx」大字體方式千其百種，在我的工作經歷及教學過程也提到了不少方式，但是截至目前為止AutoCAD仍然沒有一個簡單又有效率的方式，在這裡特別整理出心得與解決方法供大家參考，希望能對各界朋友在工作中能夠順利的解決替代大字體問題。
...
↧
↧
報到vincentchow
{1}如何得知 AutoCAD顧問 論壇：www.Google.com
{2}論壇中憑第一印象那個討論版區最吸引你：2D討論
{3}AutoCAD中您最感興趣的指令或功能： [請列舉二個，選其他請說明]
基礎指令增強功能和配置出圖
{4}AutoCAD中您最擅長的指令或功能： [請列舉二個，選其他請說明]
基礎指令增強功能和配置出圖
{5}AutoCAD中您最困擾的指令或功能： [請列舉二個，選其他請說明]
外部參考和圖紙集
{6}感想/建議/意見提供： [務必說明您的感想或看法(建議)]
希望能夠在此論壇學習正確使用方法和互相交流!
↧
[分享]座標式標註 座標如果是負值 數字前自動加負號
這是manson666於2011.09.11發問的題目
[討論]請問座標式標註 座標如果是負值 請問要怎麼顯示呢?(詳圖)
以下的程式是我的原創，歡迎更改，若能修改缺點並加以回饋更好
座標式負向加負號是AUTOCAD的不體貼之一，明明ID可以確認座標值是正或是負，但在標註時卻不能顯示出來。
代碼:;DX.lsp
;X軸座標_負號
;載入後輸入DX執行
(defun C:DX(/ LL OSP OCT XY CL PT1 TIMES DIMXY N1 NN1 P1 P2 PTN PTN1)
(graphscr)
(setvar "CMDECHO" 0)
;===新增圖層DIM===
(command "-LAYER" "P" "N" "0" "") ;將圖層0設為不出圖
(setq LAY_CURRENT ...
↧
[分享]AutoCAD 2018 Express指令大全.pdf
Express是隨軟體附贈的工具，可以說是原廠提供的免費外掛程式！
記得安裝AutoCAD時要自訂打勾「安裝Express工具」～
好用的外掛可以讓你事半功倍...真的
以下一樣整理成PDF檔案有需要的朋友，請回覆文章即可看見網址下載！
▼AutoCAD 2018 Express指令大全.pdf（*回覆文章可見*）
https://goo.gl/mFQ5ZL
備用：
https://app.box.com/s/9v0cbp8cydp8n8lly3wtwxed6l4r9rvf
▼尚未安裝的朋友可以參考以下方式補安裝：
AutoCAD 2013~2018 Express補安裝步驟
↧
報到 shichi8
站長好、版主好、大家好：
新手上路，來學習CAD的操作方式，請多指教！
新手上路，來學習CAD的操作方式，請多指教！
↧
↧
報到 CHXiang
{1}如何得知 AutoCAD顧問 論壇： [朋友(老師)介紹請註明朋友帳號(老師姓名)、網路搜尋(網路轉載)
請註明網址]
google搜尋 autocad 巨集寫法
{2}論壇中憑第一印象那個討論版區最吸引你：
autocad2D討論
{3}AutoCAD中您最感興趣的指令或功能： [請列舉二個，選其他請說明]
■基礎指令增強功能 □UCS座標 □外部參考 □配置出圖 □圖紙集 □系統規劃 □LISP程式 ■皆感興趣 □皆無興
趣 □其他
{4}AutoCAD中您最擅長的指令或功能： [請列舉二個，選其他請說明]
■基礎指令增強功能 □UCS座標 □外部參考 □配置出圖 □圖紙集 □系統規劃 □LISP程式 □皆擅長 □皆不擅長
□其他
{5}AutoCAD中您最困擾的指令或功能： [請列舉二個，選其他請說明]
□基礎指令增強功能 □UCS座標 ■外部參考 □配置出圖 □圖紙集 □系統規劃 □LISP程式 □皆不困擾 □皆困擾
□其他
{6}感想/建議/意見提供： [務必說明您的感想或看法(建議)]
還有很多東西必須學習
↧
新手沈恒新
新手報到
↧
[問題]線段無法用 JOIN 接合,用 PE 也沒有反應
蘋果爸你好, ![微笑]()
想像你請教一下,最近拿到一張圖面,
打算用指令接合 JOIN 串起成一條線,但實際卻發現接不起來,
後來改用指令 PE 也沒辦法完全接起來
(使用 PE 指令一次全選有的會接起來但有的依然不會接起來),
想向你請教是否有哪邊變數要另外設定呢?~謝謝
PS 用面域指令 reg 是可達到把這些線段都接起來,
但不曉得指令 JOIN、PE 是真的無法接起來嗎?~~謝謝
敬祝商期~
Ashin
想像你請教一下,最近拿到一張圖面,
打算用指令接合 JOIN 串起成一條線,但實際卻發現接不起來,
後來改用指令 PE 也沒辦法完全接起來
(使用 PE 指令一次全選有的會接起來但有的依然不會接起來),
想向你請教是否有哪邊變數要另外設定呢?~謝謝
PS 用面域指令 reg 是可達到把這些線段都接起來,
但不曉得指令 JOIN、PE 是真的無法接起來嗎?~~謝謝
敬祝商期~
Ashin
↧
AutoCAD 2021 繁體中文版-安裝/啟用說明
😽預購2020 2D入門 👉 http://bit.ly/2vEJHmh 👈
AutoCAD 2021 啟用完成🎉
AutoCAD新版本您不一定要追著他！其實手邊AutoCAD版本夠用就好！
不過你必須知道AutoCAD新版本增加了什麼新功能，以後有機會可以用喔～
☺️歡迎一起研討新功能！
▼AutoCAD 2021安裝步驟：
1、「安裝」→「在此電腦安裝」
2、「授權合約」→「我同意」→「下一步」
3、「規劃安裝」→「安裝」→「按一下開啟並規劃」→「安裝類型」→ 打勾「Express Tools」→「安裝」
4、「安裝進度開始」
5、「安裝中...」
6、安裝完成
7、AutoCAD 2021桌面捷徑
8、移轉自訂設定...(建議取消)
9、啟動AutoCAD 2021
10.DWG檔永遠與AutoCAD關聯
11、「開始使用」→「輸入序號」
12、「隱私權聲明」
13、Autodesk授權「啟動」
14、「啟用」→「輸入序號」
15、「啟用中...」
15、「啟用完成」
16、AutoCAD ...
↧
↧
AutoCAD 2021 help 線上說明
說明：在AutoCAD中預設開啟「F1說明」會使用線上版本，你必須連線網際網路。
AutoCAD 2021 線上說明（繁體中文）
http://help.autodesk.com/view/ACD/2021/CHT/
AutoCAD 2021 線上說明（英文）
http://help.autodesk.com/view/ACD/2021/ENU/
AutoCAD 2021 線上說明（簡體中文）
http://help.autodesk.com/view/ACD/2021/CHS/
AutoCAD 2021 LT版 線上說明（繁體中文）
http://help.autodesk.com/view/ACDLT/2021/CHT/
AutoCAD 2021 LT版 線上說明（英文）
http://help.autodesk.com/view/ACDLT/2021/ENU/
AutoCAD 2021 LT版 線上說明（簡體中文）
http://help.autodesk.com/view/ACDLT/2021/CHS/
說明：如果用戶沒有網際網路，可以下載離線說明版。
下載並安裝AutoCAD ...
↧
[分享]3D排水另件DWG檔
分享3D排水另件給大家參考
↧
CAD 現地編輯圖塊中為什麼會框選到其他圖層
您好，請問cad現地編輯圖塊會框選到其他圖層，如附圖
如果刪除也是一併刪除，求解，謝謝。
如果刪除也是一併刪除，求解，謝謝。
↧
if 大於小於問題
原本寫一個程式
點選一條線 (正交的線)
算出這條線方向 與距離
距離小於100 在線 中點 插入圖塊
大於100 線的兩端點各減少15後的座標 插入圖塊
大於230 線的兩端點各減少15後的座標 跟 中點插入圖塊
但在寫大於430時發生個問題
原本是打算 線的兩端點各減少15後的座標 然後在這個座標上在往左或往右+200距離 插入圖塊 (中點部插入凸塊)
但假如線長500 卻同時達成 230 430 的條件 會變成連中點也有
是否可以限制成 線長>430 時只執行某某程式?
或者限制成 230~430時 執行某某程式?
以下是程式 但已把430部分去除掉了
代碼:(defun c:EXE1()
(setvar "cmdecho" 0)
(command "LAYER" "S" "切割線" "")
(setq en (entsel "1文字"))
(setq ...
↧
↧
請問畫線問題!!(新手)
我畫一條長1000的線要在300的地方在劃一條線的起點請問要怎麼做??
↧
[分享]AutoCAD 2019 指令大全.pdf
[1111優惠活動]AutoCAD完整入門教學包 >> https://goo.gl/MvKGP7
↧
fanshinasb新手報到
新手報到方式：請發表新主題，主旨格式開頭為 「報到」您的帳號 ，
內容請依照以下格式填寫，讓團隊的所有成員認識你以後可以互相支援幫忙，麻煩請撥空完整填寫，嚴禁不實資料填寫喔~
****************************************************
{1}如何得知 AutoCAD顧問 論壇： [朋友(老師)介紹請註明朋友帳號(老師姓名)、網路搜尋(網路轉載)請註明網址]
google網路搜尋http://www.autocad-tw.com/t21162-topic
{2}論壇中憑第一印象那個討論版區最吸引你：
進階討論區
{3}AutoCAD中您最感興趣的指令或功能： [請列舉二個，選其他請說明]
□基礎指令增強功能 □UCS座標 ■外部參考 □配置出圖 □圖紙集 □系統規劃 □LISP程式 □皆感興趣 □皆無興趣 □其他
{4}AutoCAD中您最擅長的指令或功能： [請列舉二個，選其他請說明]
■基礎指令增強功能 □UCS座標 □外部參考 □配置出圖 □圖紙集 □系統規劃 □LISP程式 □皆擅長 □皆不擅長 ...
↧