AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe1-113[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Ioaoe110[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 2020-310[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Oiu15010[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 2020-211[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Ia15010[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aizyao10[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Uos15010[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 BPl3tjj[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Ziao1510
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe15010[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Oo-2-110[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Zuoiy_10[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aizyao11[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Iyb_1510[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe1-112[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Uos15011[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe2da10[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe2da11[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe10

[討論]執行完繪圖指令後將物件放置預設的圖層

+32
asd601023
shackle_2005
ray63
qaz914133
zirca
id66fion
ming1789
ccsu009
ShineHo
老水牛
wu200090
DARDAR
lingo_st
djh1006
chengshunyi
希卡亞
hsian
vl7120
enemaman
妤璇
anais99
張譽璋
ginse0727
adslwang
sammi0322
verlth
明~
bruce79
judyyai
DevilWang
Tiger&蘋果爸
leoneriol
36 posters

2頁(共3頁) 上一頁  1, 2, 3  下一步

向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 leoneriol 2010-05-19, 16:04

主題回顧 :

代碼:
(defun c:1a();;線性
  (setvar "cmdecho" 0);關閉LISP在指令區的操綽回應
  (setq oldlay (getvar "clayer"));取出舊圖層設定值
  (setq oldos (getvar "osmode"));取出舊物件鎖點設定值
  (setvar "osmode" 0);關閉物件鎖點*避免物件鎖點干擾
  (command "-layer" "s" "標註" "")
  (command "_dimlinear" pause pause pause)
  (setvar "clayer" oldlay);還原圖層
  (setvar "osmode" oldos);還原物件鎖點設定
  (setvar "cmdecho" 1);還原LISP在指令區的操綽回應
  (prin1)
  )
以此程式為例,希望線性標註直接畫在既設的標註圖層下
但是我主要碰的的問題是(command "_dimlinear" pause pause pause)
一次pause可以讓使用者輸入一次,但是如果我想要使用無限次的話要怎麼呢??
又萬一我想要用線性標註指令內的文字取代的話我又應該如何處理比較好??

此程式是小弟目前在幫做室內設計的朋友寫的,
他的需求其實只是希望能有個按鈕或指令,
在他畫標註(dimlinear),柱子(pline)或是牆(line)的時圖層自動跑去相對應的圖層
不知道前輩有沒有甚麼建議或是意見能提供呢?


Tiger&蘋果爸 在 2010-05-26, 12:39 作了第 2 次修改 (原因 : 此主題為[討論]類型)
leoneriol
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 818
年齡 : 40
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 9157
威望值 : 960
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下


[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 張譽璋 2010-08-03, 07:35

幫大家補一段程式可以增加自動建立圖層的功能,又可以將物件至於指定圖層中

代碼:
(defun ladim ()
    (setq nla (tblsearch "layer" "DIM"))
    (setq nlb (cdr (assoc 2 nla)))
    (if (= nla nil) (progn (command "layer" "n" "DIM" "c" "252" "DIM" "l" "continuous" "DIM"
                                    "lw" "0.09" "DIM" "")
                          (setvar "clayer" "DIM")
                          (setq nlb (getvar "clayer"))
                    )
    )
    (setvar "clayer" nlb)
  )
(setq layold (getvar "clayer"))
(ladim)
(command "dimlinear" pause pause pause)
(setvar "clayer" layold)
avatar
張譽璋
榮譽顧問
榮譽顧問

文章總數 : 304
年齡 : 54
來自 : 彰化縣員林鎮
職業 : 機械設計工程師/AutoCAD講師/AutoCAD外掛系統開發/AutoCAD書籍作者
愛好 : 旅行及電影
個性 : 風趣健談
使用年資 : 25年
使用版本 : AutoCAD2010/2011/2012/2013
積分 : 20
經驗值 : 7478
威望值 : 641
發帖精華 : 2
回帖精華 : 1
注冊日期 : 2008-05-28
藍鵲12號
男 處女座 狗

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 anais99 2010-10-07, 12:38

我也要來看看大家所討論的程式,感謝大家的分享!
anais99
anais99
初級會員
初級會員

文章總數 : 107
年齡 : 46
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 5642
威望值 : 12
注冊日期 : 2010-06-14
串連貼紙成功 女 雙子座 馬

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 妤璇 2010-10-26, 15:03

我也想用看看,每次在標柱時我都要把圖層改為標柱圖層 生氣

妤璇
妤璇
初級會員
初級會員

文章總數 : 66
年齡 : 47
來自 : 台中市
職業 : 家管
愛好 : 看書、音樂、戶外活動、逗女兒生氣……
個性 : 溫和
使用年資 : 五年
使用版本 : 2011
積分 : 3
經驗值 : 5378
威望值 : 39
注冊日期 : 2010-10-01
串連貼紙成功 女 雙子座 蛇

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 enemaman 2011-07-13, 17:32

謝謝蘋果爸跟DevilWang的解答,一切的謎題都解開了。

我是打算讓xline在輔助線圖層上,畫完之後再回到原先使用的圖層。
不過剛開始試著玩巨集,搞了一上午搞不定。
剛好拿這篇解說來套用,太感謝了
enemaman
enemaman
一般會員
一般會員

文章總數 : 12
年齡 : 44
來自 : 台中市
職業 : 建築設計
愛好 : 音樂演奏、欣賞
個性 : 邪惡
使用年資 : 9
使用版本 : 2006
經驗值 : 4896
威望值 : 18
注冊日期 : 2011-07-13
男 巨蟹座 猴

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 adslwang 2011-07-13, 22:01

DevilWang 寫到:蘋果爸的 Lisp 應該是經過簡化了。
使用程式可能需注意兩點:
1. 儲存目前圖層變數
2. 使用時按 Enter 中斷時機須在出現"指定第二條延伸線原點"時,才能回到原圖層。

以下是根據你的程式稍加調整的(按 Esc 中斷),提供參考。
(程式回覆可見)

(while (/= (getvar "ERRNO") 52)
請問這一行的意思是檢查錯誤嘛? 52代表什麼意思呢?

52代表說明:
http://autocad.bestoforum.net/t10509-topic#72283


Tiger&蘋果爸 在 2011-07-16, 11:32 作了第 1 次修改 (原因 : 補充)
adslwang
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 46
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 7168
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 vl7120 2012-03-10, 14:34

真是個魚幫水水幫魚的地方
感謝蘋果爸等各位LISP高手的付出

____________________________________________________________________________________
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 078
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1810 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad2010 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1810
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1211 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1311 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1511
vl7120
vl7120
初級會員
初級會員

文章總數 : 91
年齡 : 55
來自 : 高雄
職業 : 待業
愛好 : 旅遊
個性 : 木訥
使用年資 : 新手初學
使用版本 : 2000
積分 : 1
經驗值 : 5248
威望值 : 45
注冊日期 : 2011-07-02
藍鵲215號
女 天秤座 雞

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 hsian 2012-03-13, 16:05

對LISP很陌生,想了解一下...
hsian
hsian
初級會員
初級會員

文章總數 : 30
年齡 : 48
來自 : 桃園
職業 : 機械製圖
愛好 : 聽音樂,戶外踏青
個性 : 死腦筋
使用年資 : 1年
使用版本 : 2009
積分 : 3
經驗值 : 5600
威望值 : 40
注冊日期 : 2009-10-27
藍鵲550號
男 天蝎座 兔

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 希卡亞 2012-11-16, 12:55

對於切換標註圖層的問題一直很困擾...
一直在尋找解決問題做法
希卡亞
希卡亞
一般會員
一般會員

文章總數 : 6
年齡 : 37
來自 : 宜蘭
職業 : 工業設計
愛好 : CAD,3DMAX,SketchUp
個性 : 沉默,投機取巧
使用年資 : 1年
使用版本 : AutoCAD2008
經驗值 : 4376
威望值 : 0
注冊日期 : 2012-11-08
男 摩羯座 虎

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 chengshunyi 2012-11-18, 11:12

可以做成副程式方便設計時取用
也可依個人需求再擴充
程式碼如下,是書上的範例,供參考
(defun s_acad_sysvar()
(setq acad_sysvar_list '("clayer" "osmode" "textstyle" "cmdecho" "celtype"))
(setq old_sysvar_list (mapcar 'getvar acad_sysvar_list))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "undo" "be")
)
(defun r_acad_sysvar()
(command "undo" "e")
(mapcar 'setvar acad_sysvar_list old_sysvar_list)
(prin1)
)
chengshunyi
chengshunyi
高級會員
高級會員

文章總數 : 66
年齡 : 58
來自 : 台北市文山區
職業 : 建築規劃
愛好 : 散步
個性 : 溫和
使用年資 : 15
使用版本 : 2018
經驗值 : 5650
威望值 : 97
注冊日期 : 2010-07-04
男 處女座 馬

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 Tiger&蘋果爸 2013-01-13, 11:18

weiyaolieh 寫到:test test
提醒您:
回覆文章不得少於10個字(不包含符號,不可以重複),請多點鼓勵與互動!!
說明: http://autocad.bestoforum.net/t7044-topic

謝謝配合~

____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Sesa2011 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Youtub11 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Oiea2011 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Oe20011 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Fbi20011 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21330
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90052
威望值 : 17174
注冊日期 : 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

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 djh1006 2013-04-07, 22:10

試試以下程式,這是我們公司的設定,標註完後會自動將標註物件變更到DIM圖層,可依自己需求修改圖層名稱

;DJH_080.lsp
;線性標註
(defun C:DJH_080(/ LL OCE OCT OCV PT1 PT2 P1 P2 PTN PTN4)
(graphscr)
(command "-LAYER" "P" "N" "0" "");將0層設為不出圖
(setq LL (tblsearch "LAYER" "DIM"));看看這個圖檔是否有DIM層
(if (= LL nil)(command "-LAYER" "N" "DIM" ""));若沒DIM層則新增DIM層
(command "-LAYER" "ON" "DIM" "T" "DIM" "U" "DIM" "");設定DIM層的條件
(setq
OCE (getvar "CMDECHO")
OCT (getvar "CTAB");UCS不在世界座標時的差值
OCV (getvar "CVPORT");判斷是否在模型空間
PT1 nil
PT2 nil
)
(setvar "CMDECHO" 0)
(setq PT1 (getpoint "\n指定第一條延伸線原點:"))
(if (/= PT1 nil)
(setq PT2 (getpoint PT1 "\n指定第二條延伸線原點:"))
)
(while (/= PT1 nil)
(command "UNDO" "BE")
(command "DIMLINEAR" PT1 PT2);線性標註指令,對齊式指令DIMALIGNED
(while (= (getvar "CMDACTIVE") 1)
(command pause)
)
(setq P1 (polar PT1 (/ (* 135 PI) 180) 10));找出第一點的左上角10mm處
(setq P2 (polar PT1 (/ (* 315 PI) 180) 10));找出第一點的右下角10mm處
(command "ZOOM" P1 P2);放大第一點附近_將上面的標註變成DIM層
(setq PTN (ssget PT1))
(if (/= PTN nil)
(progn
(setq PTN4 (cdr (assoc 0 (entget (ssname PTN 0)))))
(if (= PTN4 "DIMENSION")
(command "CHANGE" PT1 "" "P" "LA" "DIM" "C" "BYLAYER" "LT" "BYLAYER" "")將上面的標註變成DIM層
)
)
)
(command "ZOOM" "P")
(command "UNDO" "E")
(if (and (/= OCT "Model")(/= OCV 1))(command "MSPACE"));若在配置而不在視埠內時,切換到作用的視埠,不知道此行是否可以刪除?
(setq PT1 (getpoint "\n指定第一條延伸線原點:"))
(if (/= PT1 nil)
(setq PT2 (getpoint PT1 "\n指定第二條延伸線原點:"))
)
) ;end while
(princ)
)
djh1006
djh1006
中級會員
中級會員

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

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 lingo_st 2013-04-21, 16:59

這篇文章起初一直看不出用途,剛剛才發現是個很體貼的想法.
看看討論感覺也吸收到一點
很高興又挖到寶
感恩囉

____________________________________________________________________________________
沒有功勞也有苦勞,沒有苦勞也有疲勞的年代已經過去
現在是...........................................
沒有功勞直接就是個屁,連個屁都不是,那就真的很疲勞了
大家一起努力吧,努力別落到連個屁都不是................
lingo_st
lingo_st
中級會員
中級會員

文章總數 : 211
年齡 : 60
來自 : 新北市
職業 : 營造,建設
愛好 : 學習,服務,電腦軟硬體
個性 : 正直,達觀且無可救藥的雞婆
使用年資 : 使用12年但真的是新手
使用版本 : 2012,2013
積分 : 6
經驗值 : 5922
威望值 : 271
注冊日期 : 2011-12-18
經典問與答讀者 藍鵲238號
男 雙魚座 龍

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 DARDAR 2013-04-21, 19:57

很陌生LISP,來試試看~~謝謝分享囉............ 害羞
DARDAR
DARDAR
高級會員
高級會員

文章總數 : 337
年齡 : 66
來自 : 台北
職業 : 營造金屬
愛好 : AutoCAD
個性 : 隨和
使用年資 : 5年↑
使用版本 : 2012
積分 : 15
經驗值 : 6684
威望值 : 96
注冊日期 : 2008-05-13
經典問與答讀者 藍鵲49號
男 白羊座 狗

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 wu200090 2013-07-21, 11:07

在 Mechanical 底下可以自定三個圖層,所以我都是用key的來指定這常用的三個圖層,當然是不夠,如果可以隨意增加指定層,那真是太棒了,來看看,先謝了

____________________________________________________________________________________
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Ioaoe110 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Zuoiy_10 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 2020-211 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aizyao11 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Iyb_1510
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aizyao10 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 BPl3tjj.png [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Ziao1510 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Oo-2-110 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Oooa_110
wu200090
wu200090
初級會員
初級會員

文章總數 : 142
年齡 : 50
來自 : 高雄市
職業 : 沖,塑模設計
愛好 : 大自然,登山健行
個性 : 随和
使用年資 : 9
使用版本 : 2012
積分 : 2
經驗值 : 5689
威望值 : 163
注冊日期 : 2011-03-27
經典問與答讀者 藍鵲113號
男 射手座 牛

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 judyyai 2013-07-21, 11:39

djh1006 寫到:試試以下程式,這是我們公司的設定,標註完後會自動將標註物件變更到DIM圖層,可依自己需求修改圖層名稱

代碼:
;DJH_080.lsp
;線性標註
(defun C:DJH_080(/ LL OCE OCT OCV PT1 PT2 P1 P2 PTN PTN4)
  (graphscr)
  (command "-LAYER" "P" "N" "0" "");將0層設為不出圖
  (setq LL (tblsearch "LAYER" "DIM"));看看這個圖檔是否有DIM層
  (if (= LL nil)(command "-LAYER" "N" "DIM" ""));若沒DIM層則新增DIM層
  (command "-LAYER" "ON" "DIM" "T" "DIM" "U" "DIM" "");設定DIM層的條件
  (setq
    OCE (getvar "CMDECHO")
    OCT (getvar "CTAB");UCS不在世界座標時的差值
    OCV (getvar "CVPORT");判斷是否在模型空間
    PT1 nil
    PT2 nil
  )
  (setvar "CMDECHO" 0)
  (setq PT1 (getpoint "\n指定第一條延伸線原點:"))
  (if (/= PT1 nil)
    (setq PT2 (getpoint PT1 "\n指定第二條延伸線原點:"))
  )
  (while (/= PT1 nil)
    (command "UNDO" "BE")
    (command "DIMLINEAR" PT1 PT2);線性標註指令,對齊式指令DIMALIGNED
    (while (= (getvar "CMDACTIVE") 1)
      (command pause)
   )
    (setq P1 (polar PT1 (/ (* 135 PI) 180) 10));找出第一點的左上角10mm處
    (setq P2 (polar PT1 (/ (* 315 PI) 180) 10));找出第一點的右下角10mm處
    (command "ZOOM" P1 P2);放大第一點附近_將上面的標註變成DIM層
    (setq PTN (ssget PT1))
    (if (/= PTN nil)
      (progn
        (setq PTN4 (cdr (assoc 0 (entget (ssname PTN 0)))))
        (if (= PTN4 "DIMENSION")
          (command "CHANGE" PT1 "" "P" "LA" "DIM" "C" "BYLAYER" "LT" "BYLAYER" "")將上面的標註變成DIM層
       )
      )
    )
    (command "ZOOM" "P")
    (command "UNDO" "E")
    (if (and (/= OCT "Model")(/= OCV 1))(command "MSPACE"));若在配置而不在視埠內時,切換到作用的視埠,不知道此行是否可以刪除?
    (setq PT1 (getpoint "\n指定第一條延伸線原點:"))
    (if (/= PT1 nil)
      (setq PT2 (getpoint PT1 "\n指定第二條延伸線原點:"))
    )
  )  ;end while
  (princ)
)

感謝分享~有空來試試看~

____________________________________________________________________________________
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Ioaoe110 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Zuoiy_10 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 2020-211 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aizyao11 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe10
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aizyao10 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 BPl3tjj.png [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Ziao1510 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Oo-2-110 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe1-111
judyyai
judyyai
管理顧問
管理顧問

文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30402
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 老水牛 2015-05-19, 14:07

我正遇這方面的問題,看看有什麼更好的方法可以解決
avatar
老水牛
初級會員
初級會員

文章總數 : 107
年齡 : 62
來自 : 台北縣
職業 : 電機
愛好 : 閱讀
個性 : 溫和
使用年資 : 6
使用版本 : 2006
積分 : 1
經驗值 : 6085
威望值 : 0
注冊日期 : 2008-10-17
男 天蝎座 牛

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 ShineHo 2015-06-04, 23:26

這真的很實用....有空來試試,謝謝分享

____________________________________________________________________________________
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 078
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1810 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad2010 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1810
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1211 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1311 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1511
ShineHo
ShineHo
一般會員
一般會員

文章總數 : 19
年齡 : 38
來自 : 台北
職業 : 室內設計
愛好 : 美食
個性 : 安靜
使用年資 : 12年
使用版本 : 2013
經驗值 : 3554
威望值 : 0
注冊日期 : 2015-04-04
男 天秤座 牛

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 ccsu009 2016-01-20, 18:27

有興趣lisp、也想看 DevilWang的回覆
希望學到東西、並且希望會越來越有經驗

____________________________________________________________________________________
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 078
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1810 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad2010 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1810
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1211 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1311 [討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acad1511
ccsu009
ccsu009
初級會員
初級會員

文章總數 : 39
年齡 : 62
來自 : 高雄
職業 : 待業
愛好 : 上網,電玩遊戲
個性 : 內向寡言
使用年資 : 新手初學
使用版本 : 2014
積分 : 1
最佳解答 : 1
經驗值 : 3412
威望值 : 30
注冊日期 : 2015-12-04
男 天秤座 虎

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 ming1789 2016-07-19, 07:31

感謝蘋果爸的分享
ming1789
ming1789
一般會員
一般會員

文章總數 : 26
年齡 : 49
來自 : 彰化
職業 : 機械
愛好 : 上網
個性 : 樂觀
使用年資 : 10
使用版本 : 2014
經驗值 : 3160
威望值 : 0
注冊日期 : 2016-06-18
男 獅子座 兔

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 djh1006 2016-07-20, 12:27

可以參考一下這個程式
https://www.autocad-tw.com/t17991-topic

____________________________________________________________________________________
微笑
djh1006
djh1006
中級會員
中級會員

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

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 id66fion 2016-09-06, 23:31

遇到相同問題,希望可以增進功力
id66fion
id66fion
初級會員
初級會員

文章總數 : 57
年齡 : 47
來自 : 台北
職業 : 家管
愛好 : 研究CAD
個性 : 對cad 有高度熱情
使用年資 : 5年
使用版本 : 2008
積分 : 2
經驗值 : 5688
威望值 : 18
注冊日期 : 2009-10-17
女 雙子座 蛇

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 rickyyang 2019-07-30, 23:35

感謝大大無私的分享感恩
rickyyang
rickyyang
專屬會員
專屬會員

文章總數 : 196
年齡 : 45
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 17
使用版本 : AutoCAD 2023
經驗值 : 4548
威望值 : 36
注冊日期 : 2014-11-11
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Acadad10 男 射手座 馬

rickyyang likes this post

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 id66fion 2020-03-07, 14:12

謝謝這個LISP的提供
這可以把圖層快速處理
id66fion
id66fion
初級會員
初級會員

文章總數 : 57
年齡 : 47
來自 : 台北
職業 : 家管
愛好 : 研究CAD
個性 : 對cad 有高度熱情
使用年資 : 5年
使用版本 : 2008
積分 : 2
經驗值 : 5688
威望值 : 18
注冊日期 : 2009-10-17
女 雙子座 蛇

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 zirca 2020-06-07, 13:09

正好需要轉換圖層的lisp
希望能解決我的問題
zirca
zirca
一般會員
一般會員

文章總數 : 4
年齡 : 46
來自 : 台中
職業 : 工程師
愛好 : 打電動
個性 : 文靜
使用年資 : 15年
使用版本 : 2007
經驗值 : 1614
威望值 : 0
注冊日期 : 2020-05-30
男 天蝎座 蛇

回頂端 向下

[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Empty 回復: [討論]執行完繪圖指令後將物件放置預設的圖層

發表 由 qaz914133 2020-10-27, 12:01

最近剛好遇到檔案圖層越來越複雜的問題,需要許多關於整理檔案圖層級加快繪圖速度的資訊,非常感謝!
qaz914133
qaz914133
一般會員
一般會員

文章總數 : 4
年齡 : 29
來自 : 高雄
職業 : 繪圖員
愛好 : 繪圖
個性 : 安靜
使用年資 : 7年
使用版本 : 2020
經驗值 : 1612
威望值 : 0
注冊日期 : 2020-06-01
女 雙魚座 豬

回頂端 向下

2頁(共3頁) 上一頁  1, 2, 3  下一步

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe1-113[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Ioaoe110[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 2020-310[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Oiu15010[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 2020-211[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Ia15010[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aizyao10[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Uos15010[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 BPl3tjj[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Ziao1510
[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe15010[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Oo-2-110[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Zuoiy_10[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aizyao11[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Iyb_1510[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe1-112[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Uos15011[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe2da10[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe2da11[討論]執行完繪圖指令後將物件放置預設的圖層 - 頁 2 Aoe10