1樓：紅加黑
(setq a (progn
(initget "a h l u w")(getpoint "\n輸入點") ;可輸入座標，或字母 a h l u w
)(cond
((= a "a") 表示式 ) ; 輸入a時((=a "h") 表示式) ； 輸入h時.......................................
(t nil) ；沒有輸入（initget）限定的字母時，什麼也不做)
autolisp程式除錯問題！ 如何除錯一個帶有使用者輸入的autolisp程式呢？ 10
2樓：求欣初晴雪
在除錯選單中選擇「出錯時停止」，一般情況下會設定「斷點」，然後進行手工除錯，同時監視變數值，這樣是最合理的做法。
3樓：幹笛
cad自帶的visual lisp編輯器中,就有引數監視的功能,還能加入斷點,你想在哪一行**停下來都可以,介面上就有圖示的,你自己找一下吧,我好久沒用了
用autocad lisp編寫一程式，在給定的一系列點之間繪製高壓輸電線 50
4樓：匿名使用者
試一試下面的程式。
(defun c:try (/ p)
(setq p (getpoint "from point: "))(command "pline")
(while p
(command p)
(setq p (getpoint "to point: ")))(command))
求lisp程式
我寫的autolisp**錯了，請大俠幫忙解決下。載入的時候出現（命令: ; 錯誤: 輸入的列表有缺陷）
5樓：設計人生
問題一：
(setq px2 (nth 0 point2)) ;得到點的x座標值
(setq py2 (nth 1 point2)) ;得到點的y座標值
(setq bg2 (rtos (+ (- py2 py1) bg1)) 2 dd) ;求得bg2值----此句有問題，
變成了下面的這個樣子
(setq bg2 (rtos (+ (- py2 py1) bg1))
2 dd
) 問題二：
最後的兩個括號請將 ）改成 )
即全形改成半形
在linux中,iff,在linux中,iff1的含義
這是一個判斷語句的頭半句,意思是 將一個檔案普通名傳給傳給 1,並判斷這個檔案是否存在。後半句應該還有 then.存在應該怎樣做 和else.不存在應該怎樣做。linux 中 1什麼意思?比如 if test z 1這個名命令啥子作用?1在shell中稱為 位置引數 表示傳入的第1個引數 第1個入參...
怎樣在中繪圖，怎樣在word中繪圖
word繪圖工具 在office2010軟體中，word畫圖工具的查詢路徑是 插入 形狀。以常見的流程圖為例，說明word繪圖工具的使用方法。插入 形狀 新建繪圖畫布。繪圖工具欄中，直接選取矩形框。預設畫出的矩形框是被填充的顏色的，在繪圖工具欄中，可以改變矩形框裡的填充顏色，也可以取消矩形框的填充顏...
在中在字型下邊怎麼加下劃線，在Word中在字型下邊怎麼加下劃線
操作方法如下 1 開啟 編輯 選單，選擇 替換 命令或按ctrl h 快捷鍵 2 游標定位在 查詢內容 輸入框內 不需要輸入任何內容 單擊 高階 按鈕，在單擊 格式 按鈕 3 在彈出列表中選擇 字型 在彈出的 查詢字型 對話方塊框中，在 字型 選項卡下 4 單擊 字型顏色 下拉選單框中選擇黑色 此時...