[已解決]lisp框選時的外框

(defun c:zw(/ zw1 zw2)
  (setvar "osmode" 4311)
  (setq zw1(getpoint "指定第一角點"))
  (setq zw2(getpoint "指定對角點"))
  (command "zoom" "w" zw1 zw2)
  (prin1)
)

我要怎麼寫在框選的時候才會有框選外框?

選單一物件,用entsel,選多數物件要用ssget.

(setq zw2 (getcorner zw1 "指定對角點"))
我就是要這個，非常感謝歐~~

但我發現了另一個奇怪的問題，我如果把這3個寫在一個檔案命名"zoom.lsp"框框就不會出現，單獨寫一個檔案命名"zw.lsp"框框就會出現，不過都可以執行，這是為啥??
而且寫在一個檔案裡連回應的對話都會顯示在同一行，變成這樣"指定第一角點指定對角點"，然後這一行不會出現"-----zw-----"。

(defun c:zw(/ zw1 zw2);顯示框選範圍
  (setvar "osmode" 4311)
  (setq zw1(getpoint "\n指定第一角點"))
  (setq zw2(getcorner zw1 "\n指定對角點"))
  (command "zoom" "w" zw1 zw2)
  (prompt "\n-----zw-----") 
  (prin1)
)

(defun c:ze();顯示實際範圍
  (command "zoom" "e")
  (prompt "\n-----ze-----")
  (prin1)
)


(defun c:zp();顯示前一畫面範圍
  (command "zoom" "p")
  (prompt "\n-----zp-----")
  (prin1)
)

我剛測了一下.!!我的是都沒問題.!! 測試版本是2010 
可能要其他人再幫你測一下.看有沒問題.!! 

zoom 是autocad 標準指令. 所以我是沒寫LISP.
zw ze zp 這3個.我是直接在MENU檔內.把巨集設在按鍵上!!不用下指令.也不用Enter .就直接執行.

應為我比較習慣鍵盤下指令，所以才把他寫成LISP

我剛剛試了一下，果然是LISP檔名的問題。
把"zoom.lsp"改成"zom.lsp"就都正常了。
應該是BUG吧!  我的是2012 感謝歐~~

awi 寫到:應為我比較習慣鍵盤下指令，所以才把他寫成LISP

我剛剛試了一下，果然是LISP檔名的問題。
把"zoom.lsp"改成"zom.lsp"就都正常了。
應該是BUG吧!  我的是2012 感謝歐~~

誠如shenhung說的,zoom是autocad的內部指令,所以不能把它當成lisp的指令名稱(並不是BUG哦),否則auotcad會先執行自己的內部指令
當然也有指令可以先把zoom的內部指令取消,再把自己的zoom.lsp載入即可使用自己寫的zoom指令了,不過不建議這麼做,至於什麼指令可取消內部指令zoom,很抱歉,我忘了,在論壇裡有人提到,忘了在哪一篇文章裡,自己爬文吧,不好意思哦

djh1006 寫到:誠如shenhung說的,zoom是autocad的內部指令,所以不能把它當成lisp的指令名稱(並不是BUG哦),否則auotcad會先執行自己的內部指令
當然也有指令可以先把zoom的內部指令取消,再把自己的zoom.lsp載入即可使用自己寫的zoom指令了,不過不建議這麼做,至於什麼指令可取消內部指令zoom,很抱歉,我忘了,在論壇裡有人提到,忘了在哪一篇文章裡,自己爬文吧,不好意思哦

補充：把內部指令取消是這一篇文章！
https://www.autocad-tw.com/t9104p15-topic#106639
 

Tiger&蘋果爸 寫到:

djh1006 寫到:誠如shenhung說的,zoom是autocad的內部指令,所以不能把它當成lisp的指令名稱(並不是BUG哦),否則auotcad會先執行自己的內部指令
當然也有指令可以先把zoom的內部指令取消,再把自己的zoom.lsp載入即可使用自己寫的zoom指令了,不過不建議這麼做,至於什麼指令可取消內部指令zoom,很抱歉,我忘了,在論壇裡有人提到,忘了在哪一篇文章裡,自己爬文吧,不好意思哦

補充：把內部指令取消是這一篇文章！
https://www.autocad-tw.com/t9104p15-topic#106639
 

可是我並不是把zoom設定成指令，我只是把他設為LISP的檔案名，指令是ZW ZE ZP，這樣也會有衝突嗎?

awi 寫到: 可是我並不是把zoom設定成指令，我只是把他設為LISP的檔案名，指令是ZW ZE ZP，這樣也會有衝突嗎?

你可以直接測試看看，如果不行表示有衝突！
 

如果只是要加自訂指令，我建議你可以透過以下方式：
[教學]LISP快捷鍵-視窗工具