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

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

由 **ray63** 2021-03-02, 09:26

學習一下,謝謝分享

由 **shackle_2005** 2021-03-02, 17:51

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

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

隨然不是很懂LISP 但是程式名稱取做LA,跟內定強碰
代碼:
指令: la LAYER

程式設計及電腦字元符號基本運用原則就是 i, j, l, 0, O, o ... 等形體類似的字元符號都要盡量避免使用. 客戶永遠是對的, For, Next 迴圈我都會用 i_count, d_count. 幾千行, 一萬行以上的程式變數定義英文更是多的讓人頭昏眼花. 所以講來講去還是英文, 數學的基本功夫最重要, 加油.

由 **asd601023** 2021-03-11, 03:34

感謝兩位前輩的分享! 又有新東西可以研究了!

由 **sniper3252** 2021-03-24, 06:57

沒事多爬文，就能精進繪圖技巧~真不錯!!

由 **LUCAS_LAI** 2021-05-31, 09:35

;; 貼一個超好用的反應器程式,自動轉圖層
;;看來沒人看,那先隱藏好了 (回復可見)

由 **rickyyang** 2021-11-17, 11:58

感謝大大無私地分享......感恩

由 **rickyyang** 2021-11-17, 12:07

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

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

隨然不是很懂LISP 但是程式名稱取做LA,跟內定強碰
代碼:
指令: la LAYER

程式設計及電腦字元符號基本運用原則就是 i, j, l, 0, O, o ... 等形體類似的字元符號都要盡量避免使用. 客戶永遠是對的, For, Next 迴圈我都會用 i_count, d_count. 幾千行, 一萬行以上的程式變數定義英文更是多的讓人頭昏眼花. 所以講來講去還是英文, 數學的基本功夫最重要, 加油.