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

主題回顧 :

代碼:

(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)的時圖層自動跑去相對應的圖層
不知道前輩有沒有甚麼建議或是意見能提供呢?

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

代碼:

(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)

我也要來看看大家所討論的程式，感謝大家的分享！

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

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

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

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

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

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

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

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

對LISP很陌生,想了解一下...

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

可以做成副程式方便設計時取用
也可依個人需求再擴充
程式碼如下,是書上的範例,供參考
(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)
)

weiyaolieh 寫到:test test

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

謝謝配合~

試試以下程式,這是我們公司的設定,標註完後會自動將標註物件變更到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)
)

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

很陌生LISP,來試試看~~謝謝分享囉............

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

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)
)

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

我正遇這方面的問題，看看有什麼更好的方法可以解決

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

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

感謝蘋果爸的分享

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

遇到相同問題，希望可以增進功力

感謝大大無私的分享感恩

謝謝這個LISP的提供
這可以把圖層快速處理

正好需要轉換圖層的lisp
希望能解決我的問題

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