[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
+11
明月心
et1029et
kimtime
nekolee0816
hkjyiuop
李青繡
tlx
qaz6605
li60830
Tiger&蘋果爸
djh1006
15 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
- 代碼:
;XH.lsp
;作圖線-水平
;水平的建構線,圖層為TEMP,設為不出圖圖層
(defun C:XH()
(graphscr)
(setvar "CMDECHO" 0)
;===作圖線建構於TEMP圖層===
(command "-LAYER" "P" "N" "0" "")
(setq LAY_CURRENT (getvar "CLAYER"))
(command "-LAYER" "ON" LAY_CURRENT "T" LAY_CURRENT "U" LAY_CURRENT "")
(setq LL (tblsearch "LAYER" "TEMP"));偵測是否有TEMP圖層
(if (= LL nil)(command "-LAYER" "N" "TEMP" ""));若無則新建TEMP圖層
(command "-LAYER" "ON" "TEMP" "T" "TEMP" "U" "TEMP" "C" "47" "TEMP" "P" "N" "TEMP""")
;打開TEMP並解鎖,解凍,設為不出圖
;===
;===中斷處理的程式===
(defun *error*()
(princ "錯誤!")
(setvar "OSMODE" 4151) ;若被ESC中斷則回復常用鎖點模式
(setvar "AUTOSNAP" 63)
(princ)
)
(defun useerr(s)
(setq *error* olderr)
(setvar "CECOLOR" CCLR)
(setvar "CELTYPE" CLTP)
(setvar "CLAYER" CLAY)
(command "UNDO" "E")
(princ)
)
(setq olderr *error* *error* useerr)
;===
(setq
CCLR (getvar "CECOLOR") ;記憶系統顏色
CLTP (getvar "CELTYPE")
CLAY (getvar "CLAYER")
)
(setvar "CLAYER" "TEMP")
(setvar "CELTYPE" "BYLAYER")
(setvar "CECOLOR" "BYLAYER")
(princ "\n▂▂▂水平作圖線插入點:")
(command "XLINE" "H")
(while (/= (getvar "cmdactive") 0)
(command pause)
(princ "\n▂▂▂水平作圖線插入點:")
)
(setvar "CECOLOR" CCLR)
(setvar "CELTYPE" CLTP)
(setvar "CLAYER" CLAY)
(command "UNDO" "E")
;===將*error*回覆成預設功能===
(setq *error* olderr)
;===
(princ)
)
程式載入後,直接輸入XH
若要繪垂直線則將其中一行
(command "XLINE" "H")
改成
(command "XLINE" "V")
即可
檔名可以改成XV.LSP
並將此行
(defun C:XH()
改成
(defun C:XV()
- 附件
djh1006 在 周四 9 10月 - 20:14 作了第 2 次修改
____________________________________________________________________________________
djh1006- 中級會員
- 文章總數 : 177
年齡 : 53
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 6137
威望值 : 359
注冊日期 : 2011-06-16
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
感恩您的熱心分享~
這樣的功能真的很貼心!
這樣的功能真的很貼心!
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
感謝分享~找時間來試試~研究一下~
li60830- 初級會員
- 文章總數 : 345
年齡 : 53
來自 : 亞洲
職業 : 待業
愛好 : 電動~游泳~看書~看影集
個性 : 固執
使用年資 : 18年
使用版本 : 2008 - 2014
積分 : 5
經驗值 : 6000
威望值 : 340
注冊日期 : 2013-04-17
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
謝謝提供,解釋很清楚.
qaz6605- 初級會員
- 文章總數 : 193
年齡 : 46
來自 : 台南市
職業 : 繪圖員
愛好 : 有關電腦的
個性 : 外向
使用年資 : 剛剛初道
使用版本 : 2006
積分 : 2
經驗值 : 6622
威望值 : 82
注冊日期 : 2008-12-31
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
謝謝分享,很不錯的概念用temp圖層不出圖 :D
tlx- 初級會員
- 文章總數 : 45
年齡 : 40
來自 : 新北市
職業 : 水電繪圖員,電切繪圖員ing
愛好 : /游泳/看海
個性 : 隨和/有善
使用年資 : 2012年1月3號開始接觸
使用版本 : 2010
積分 : 1
經驗值 : 4918
威望值 : 42
注冊日期 : 2012-01-07
李青繡- 初級會員
- 文章總數 : 12
年齡 : 47
來自 : 彰化
職業 : 會計
愛好 : 看書
個性 : 一板一眼
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
經驗值 : 3931
威望值 : 6
注冊日期 : 2014-04-17
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
謝謝您無私的分享~
有時間來去研究一下!
有時間來去研究一下!
hkjyiuop- 初級會員
- 文章總數 : 105
年齡 : 37
來自 : 台灣新北市土城區
職業 : 機電工程師
愛好 : 學習
個性 : 開朗
使用年資 : 2年
使用版本 : 2016
積分 : 1
經驗值 : 4422
威望值 : 54
注冊日期 : 2014-04-25
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
感謝分享還有影片教學 謝謝大大了
nekolee0816- 一般會員
- 文章總數 : 38
年齡 : 54
來自 : 基隆
職業 : 繪圖員
愛好 : 看小說
個性 : 靜
使用年資 : 10年
使用版本 : 2008
經驗值 : 4983
威望值 : 42
注冊日期 : 2011-10-05
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
謝謝分享!在工作上應該應用的到了!
kimtime- 一般會員
- 文章總數 : 122
年齡 : 39
來自 : 台中
職業 : 專案主任工程師
愛好 : 看書、運動、打電腦
個性 : 內向
使用年資 : 7年
使用版本 : 2018
經驗值 : 4946
威望值 : 82
注冊日期 : 2012-11-08
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
感謝大大分享,先收藏下來囉~
et1029et- 初級會員
- 文章總數 : 356
年齡 : 44
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 5909
威望值 : 324
注冊日期 : 2013-07-02
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
感謝熱心分享,先下載下來
明月心- 初級會員
- 文章總數 : 108
年齡 : 51
來自 : 高雄
職業 : 消防人員
愛好 : 聽音樂
個性 : 開朗
使用年資 : 5年以上
使用版本 : 2012
積分 : 1
經驗值 : 6522
威望值 : 58
注冊日期 : 2008-05-13
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
很實用 謝謝大大分享
hanmitan- 一般會員
- 文章總數 : 15
年齡 : 43
來自 : 台中市
職業 : 結構設計
愛好 : 書籍
個性 : 幽默
使用年資 : 3年
使用版本 : 2006及2013
經驗值 : 3908
威望值 : 0
注冊日期 : 2014-05-19
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
感謝分享,已收下使用
chihyan- 一般會員
- 文章總數 : 47
年齡 : 48
來自 : 台北
職業 : 建築設計
愛好 : 繪圖
個性 : 冷靜
使用年資 : X年
使用版本 : 2014
經驗值 : 4604
威望值 : 18
注冊日期 : 2012-11-26
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
就是要找建構線相關lisp
感謝大大的分享
今天有得學了
感謝大大的分享
今天有得學了
zirca- 一般會員
- 文章總數 : 4
年齡 : 47
來自 : 台中
職業 : 工程師
愛好 : 打電動
個性 : 文靜
使用年資 : 15年
使用版本 : 2007
經驗值 : 1657
威望值 : 0
注冊日期 : 2020-05-30
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
謝謝分享 學長請問可以再改成十字建構線嗎
shyrchu- 贊助會員
- 文章總數 : 119
年齡 : 49
來自 : 草屯鎮
職業 : 鐵工
愛好 : 學習
個性 : 文静
使用年資 : 1
使用版本 : AUTOCAD2024
經驗值 : 1087
威望值 : 42
注冊日期 : 2023-05-28
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
你目前的論壇外掛也有這個 十字建構線 功能shyrchu 寫到:謝謝分享 學長請問可以再改成十字建構線嗎
AutoCAD顧問外掛程式 - 輔助建構線工具操作(點我查看)
論壇前輩也有分享 十字建構線 功能
[分享]繪製與刪除水平_垂直_十字_任意角度建構線.LSP
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖
我使用選項版巨集^C^CLINE;\@0,-35;@15,0;@0,-15;@170,0已將線組再做成圖塊 距離1(15公分要拉到35公分)@15,0在做拉伸時@0,-35;不會以0度方向跟的移動 距離2(170公分要拉到190公分)@170,0在做拉伸時@0,-15;不會以0度方向跟的移動
shyrchu- 贊助會員
- 文章總數 : 119
年齡 : 49
來自 : 草屯鎮
職業 : 鐵工
愛好 : 學習
個性 : 文静
使用年資 : 1
使用版本 : AUTOCAD2024
經驗值 : 1087
威望值 : 42
注冊日期 : 2023-05-28
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章