AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oo-2-110 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ia15010 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ziao1510 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 BPl3tjj [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Uos15010 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Uos15011

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 djh1006 于 2014-10-07, 13:31


代碼:
;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()
附件
[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Attachment
XH.zip 您無權下載這里的附件。(1 Kb) 下載 76 次


djh1006 在 2014-10-09, 20:14 作了第 2 次修改
djh1006
djh1006
中級會員
中級會員

文章總數 : 163
年齡 : 47
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 20年以上
使用版本 : 2014
積分 : 7
經驗值 : 4051
威望值 : 320
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 Tiger&蘋果爸 于 2014-10-07, 14:21

感恩您的熱心分享~
這樣的功能真的很貼心!
熱情

____________________________________________________________________________________
[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oo-2-110 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ia15010 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ziao1510 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 18384
年齡 : 43
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 70976
威望值 : 13564
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 li60830 于 2014-10-07, 16:48

感謝分享~找時間來試試~研究一下~
li60830
li60830
初級會員
初級會員

文章總數 : 328
年齡 : 47
來自 : 亞洲
職業 : 待業
愛好 : 電動~游泳~看書~看影集
個性 : 固執
使用年資 : 18年
使用版本 : 2008 - 2014
積分 : 3
經驗值 : 3920
威望值 : 322
注冊日期 : 2013-04-17
藍鵲697號
男 處女座 豬

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 qaz6605 于 2014-10-08, 08:31

謝謝提供,解釋很清楚.
avatar
qaz6605
初級會員
初級會員

文章總數 : 184
年齡 : 40
來自 : 台南市
職業 : 繪圖員
愛好 : 有關電腦的
個性 : 外向
使用年資 : 剛剛初道
使用版本 : 2006
積分 : 2
經驗值 : 4578
威望值 : 82
注冊日期 : 2008-12-31
經典問與答讀者 藍鵲285號
男 處女座 馬

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 tlx 于 2014-10-08, 13:25

謝謝分享,很不錯的概念用temp圖層不出圖 :D
tlx
tlx
初級會員
初級會員

文章總數 : 45
年齡 : 34
來自 : 新北市
職業 : 水電繪圖員,電切繪圖員ing
愛好 : /游泳/看海
個性 : 隨和/有善
使用年資 : 2012年1月3號開始接觸
使用版本 : 2010
積分 : 1
經驗值 : 2909
威望值 : 42
注冊日期 : 2012-01-07
藍鵲306號
男 雙子座 鼠

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 李青繡 于 2014-10-13, 13:54

謝謝無私的分享
李青繡
李青繡
初級會員
初級會員

文章總數 : 12
年齡 : 41
來自 : 彰化
職業 : 會計
愛好 : 看書
個性 : 一板一眼
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
經驗值 : 1922
威望值 : 6
注冊日期 : 2014-04-17
經典問與答讀者 2014聚會勳章 女 雙子座 蛇

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 hkjyiuop 于 2014-10-13, 15:58

謝謝您無私的分享~

有時間來去研究一下!
hkjyiuop
hkjyiuop
初級會員
初級會員

文章總數 : 100
年齡 : 31
來自 : 台灣新北市土城區
職業 : 機電工程師
愛好 : 學習
個性 : 開朗
使用年資 : 2年
使用版本 : 2016
積分 : 1
經驗值 : 2378
威望值 : 54
注冊日期 : 2014-04-25
2D基礎函授 3D基礎函授 顧問外掛程式 藍鵲671號
2014聚會勳章 2015聚會勳章 2016聚會勳章 男 天蝎座 兔

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 nekolee0816 于 2014-10-13, 16:06

感謝分享還有影片教學 謝謝大大了
nekolee0816
nekolee0816
一般會員
一般會員

文章總數 : 36
年齡 : 48
來自 : 基隆
職業 : 繪圖員
愛好 : 看小說
個性 :
使用年資 : 10年
使用版本 : 2008
經驗值 : 2964
威望值 : 42
注冊日期 : 2011-10-05
藍鵲693號
女 獅子座 狗

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 kimtime 于 2014-10-13, 16:46

謝謝分享!在工作上應該應用的到了!
kimtime
kimtime
一般會員
一般會員

文章總數 : 118
年齡 : 34
來自 : 台中
職業 : 專案主任工程師
愛好 : 看書、運動、打電腦
個性 : 內向
使用年資 : 7年
使用版本 : 2018
經驗值 : 2923
威望值 : 82
注冊日期 : 2012-11-08
2D基礎函授 3D基礎函授 經典問與答讀者 藍鵲674號
男 摩羯座 鼠

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 et1029et 于 2014-11-05, 15:45

感謝大大分享,先收藏下來囉~
et1029et
et1029et
初級會員
初級會員

文章總數 : 356
年齡 : 38
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 3900
威望值 : 324
注冊日期 : 2013-07-02
藍鵲666號
女 天蝎座 猴

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 明月心 于 2014-11-08, 22:12

感謝熱心分享,先下載下來
avatar
明月心
初級會員
初級會員

文章總數 : 101
年齡 : 46
來自 : 高雄
職業 : 消防人員
愛好 : 聽音樂
個性 : 開朗
使用年資 : 5年以上
使用版本 : 2012
積分 : 1
經驗值 : 4486
威望值 : 58
注冊日期 : 2008-05-13
經典問與答讀者 藍鵲445號
女 射手座 鼠

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 hanmitan 于 2015-12-24, 09:38

很實用 謝謝大大分享
hanmitan
hanmitan
一般會員
一般會員

文章總數 : 15
年齡 : 38
來自 : 台中市
職業 : 結構設計
愛好 : 書籍
個性 : 幽默
使用年資 : 3年
使用版本 : 2006及2013
經驗值 : 1899
威望值 : 0
注冊日期 : 2014-05-19
男 射手座 猴

回頂端 向下

[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Empty 回復: [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖

發表 由 chihyan 于 2016-07-25, 10:42

感謝分享,已收下使用
chihyan
chihyan
贊助會員
贊助會員

文章總數 : 36
年齡 : 42
來自 : 台北
職業 : 建築設計
愛好 : 繪圖
個性 : 冷靜
使用年資 : X年
使用版本 : 2014
經驗值 : 2544
威望值 : 18
注冊日期 : 2012-11-26
藍鵲606號
男 處女座 龍

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Uos15011 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Uos15010 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 BPl3tjj [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ziao1510 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Ia15010 [分享]畫圖水平輔助線(建構線),並繪於TEMP圖層,該圖層設為不出圖 Oo-2-110