[討論]請教模型空間PDF出圖的LISP

由 **a1793524860** 周四 27 6月 2013 - 15:47

大家好，我近三個月來第一次接觸到LISP並用工作空檔上網研究摸索，目前也只是能拼湊些基本程式來用而已
作業上是在模型空間製圖，並在繪製出不會列印出來的A4直框或橫框中繪圖
所以我先是寫出了以下LISP來加快出圖速度，能在輸入檔名並儲存後結束程式
直框只是改了徑度與距離而已所以以下只貼出橫框程式碼

(DEFUN C:b ()
(setq osm (getvar "osmode"));這一行請放置於第三行
(setq a (getpoint "\n▂ ▃ ▄ ▅ ▆ ▇ █ 橫框 █ ▇ ▆ ▅ ▄ ▃ ▂"));抓取左下角為第一點
(setq b (polar a 0.615 363.7));以第一點a為起點徑度0.615與距離363.7
(setvar "osmode" (+ 16384 osm));暫時關閉物件鎖點(請放至於繪圖指令前)
(COMMAND "plot" "Y" "" "" "" "M" "L" "Y" "W" a b "" "" "" "" "" "" "" "" "")
(setvar "osmode" osm);恢復初始設定值
(PRINC)
)

先感謝版上的大家，關閉鎖點的部分是在版上參考到的，所以我自己寫的部分真的很皮毛啊

接下來以下問題想請教：

1. 我試著想寫出迴圈直到案ESC為止才停止程式，網路上參考很多while語法來試，不過像是"交叉線段切斷於點"我能成功寫出來(只是在COMMAND前加上一層while T)，但在這個程式卻會無限執行導致卡死，我不知道是否不同需求的程式內容會有不同的while寫法，或是有其他語法可用？請賜教謝謝！

(7/2更新)這個也自己解決了，也是語法位置放錯的問題.....，把while T放在DEFUN下一層的最前頭就行了

2. 因為有些案子全用直框或是全用橫框繪製，排圖我個人是五張圖為一排，所以想寫一個連續出五張圖的LISP，試驗上我只試了出兩張圖，一樣用polar的方式寫出了下一個圖框的c跟d兩個對角點，但是出圖後第二張圖卻一樣是抓了a跟b兩個點來出圖，請問這怎麼回事？(很抱歉我都是工作空檔拼湊程式碼來亂試，前天這個問題的LSP不小心刪掉了，所以現在想不起來當初寫出來的完整程式內容.....)
(6/28更新)今天寫出來了，很簡單，大概之前語法位置放錯吧..... 三條線