AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.

[問題] lisp 圖紙空間設定比例 語法問題

2 posters

向下

[問題] lisp 圖紙空間設定比例 語法問題 Empty [問題] lisp 圖紙空間設定比例 語法問題

發表 由 肥宅工程師 2022-11-05, 13:54

大家好, 我在寫lisp時又發生了些問題, 想在這請教先進們

代碼:

; made by ChangYen
;2022/11/05
; 畫完圖後, 將圖對正, 並設定圖紙空間
(defun c:AE(/ DSC )
        (setvar "cmdecho" 0)
   (setq dsc(getstring "\n請輸入圖紙比例"))
        (command "Tilemode" "1")
        (command "zoom" "e")
        (command "Tilemode" "0")
        (command "PSPACE")
        (command "zoom" "e")
        (command "MSPACE") ;進模型空間
        (command "Zoom" "c" "0,0" "dsc")
        (command "PSPACE")
        (command "Tilemode" "1")
)
如上面的程式 我想做一個畫完圖後整理的lisp

代碼如上, 在dsc的地方 他要求要寫入一個距離/值X
而我需要輸入的值 可能為 71/2000XP

嘗試過如下寫法
1. 設 dsc
   (setq dsc(geststring "\n輸入比例值"))

測試!dsc 回傳的是正確的值
但是代入會失敗

2. 設num1 num2 num3

  (setq num1(getint "\n輸入圖紙比例"))
  (setq num2(getint "\n輸入出圖比例"))
  (setq num3(/ num1 num2))

用!num3 檢測, 有成功製作出我需要的值, 但沒辦法加上xp, 而且將num3代入??? 也是失敗


還請各位先進有空的話, 幫小弟看一下應該怎麼輸入這個???較好

____________________________________________________________________________________
[問題] lisp 圖紙空間設定比例 語法問題 Ioaoe110 [問題] lisp 圖紙空間設定比例 語法問題 Zuoiy_10 [問題] lisp 圖紙空間設定比例 語法問題 2020-211 [問題] lisp 圖紙空間設定比例 語法問題 Aizyao11 [問題] lisp 圖紙空間設定比例 語法問題 Iyb_1510
[問題] lisp 圖紙空間設定比例 語法問題 Aizyao10 [問題] lisp 圖紙空間設定比例 語法問題 BPl3tjj.png [問題] lisp 圖紙空間設定比例 語法問題 Ziao1510 [問題] lisp 圖紙空間設定比例 語法問題 Oo-2-110 [問題] lisp 圖紙空間設定比例 語法問題 Oooa_110
肥宅工程師
肥宅工程師
一般會員
一般會員

文章總數 : 19
年齡 : 31
來自 : Taichang
職業 : 機構工程師
愛好 : 沒日沒夜的工作&賭博
個性 : 隨興而致 自我中心
使用年資 : 約6yers
使用版本 : 2020 chanica
經驗值 : 405
威望值 : 12
注冊日期 : 2022-04-24
男 雙魚座 羊

回頂端 向下

[問題] lisp 圖紙空間設定比例 語法問題 Empty 回復: [問題] lisp 圖紙空間設定比例 語法問題

發表 由 肥宅工程師 2022-11-11, 18:26

經過一段時間精進後, 將問題用另一個方式解決了
找到了一個PAUSE功能的指令
修改後如下
代碼:

; 畫完圖後, 將圖對正, 並設定圖紙空間
(defun c:AE( / )
        (setvar "cmdecho" 0)
        (command "Tilemode" "1")
        (command "zoom" "e")
        (command "zoom" "0.9XP")
        (command "Tilemode" "0")
        (command "PSPACE")
        (command "zoom" "e")
        (command "zoom" "0.9XP")
        (command "MSPACE")
        (command "Zoom" "c" "0,0" pause "")
        (command "PSPACE")
     (command "Tilemode" "1")
   (prompt "\n 程式由肥宅工程師所編寫, 敬請指教")(prin1)
)

____________________________________________________________________________________
[問題] lisp 圖紙空間設定比例 語法問題 Ioaoe110 [問題] lisp 圖紙空間設定比例 語法問題 Zuoiy_10 [問題] lisp 圖紙空間設定比例 語法問題 2020-211 [問題] lisp 圖紙空間設定比例 語法問題 Aizyao11 [問題] lisp 圖紙空間設定比例 語法問題 Iyb_1510
[問題] lisp 圖紙空間設定比例 語法問題 Aizyao10 [問題] lisp 圖紙空間設定比例 語法問題 BPl3tjj.png [問題] lisp 圖紙空間設定比例 語法問題 Ziao1510 [問題] lisp 圖紙空間設定比例 語法問題 Oo-2-110 [問題] lisp 圖紙空間設定比例 語法問題 Oooa_110
肥宅工程師
肥宅工程師
一般會員
一般會員

文章總數 : 19
年齡 : 31
來自 : Taichang
職業 : 機構工程師
愛好 : 沒日沒夜的工作&賭博
個性 : 隨興而致 自我中心
使用年資 : 約6yers
使用版本 : 2020 chanica
經驗值 : 405
威望值 : 12
注冊日期 : 2022-04-24
男 雙魚座 羊

回頂端 向下

[問題] lisp 圖紙空間設定比例 語法問題 Empty 回復: [問題] lisp 圖紙空間設定比例 語法問題

發表 由 阿希 2022-12-27, 17:18

修改為下面的
(COMMAND "ZOOM" "C" "0,0" DSC)

你前面已經用GETSTRING 取得字串了, 後面就不需要再用 "" 去定義變數字串
avatar
阿希
高級會員
高級會員

文章總數 : 341
年齡 : 42
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 6125
威望值 : 220
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

[問題] lisp 圖紙空間設定比例 語法問題 Empty 回復: [問題] lisp 圖紙空間設定比例 語法問題

發表 由 阿希 2022-12-29, 11:53

肥宅工程師 寫到:大家好, 我在寫lisp時又發生了些問題, 想在這請教先進們

代碼:

; made by ChangYen
;2022/11/05
; 畫完圖後, 將圖對正, 並設定圖紙空間
(defun c:AE(/ DSC )
        (setvar "cmdecho" 0)
   (setq dsc(getstring "\n請輸入圖紙比例"))
        (command "Tilemode" "1")
        (command "zoom" "e")
        (command "Tilemode" "0")
        (command "PSPACE")
        (command "zoom" "e")
        (command "MSPACE") ;進模型空間
        (command "Zoom" "c" "0,0" "dsc")
        (command "PSPACE")
        (command "Tilemode" "1")
)
如上面的程式 我想做一個畫完圖後整理的lisp

代碼如上, 在dsc的地方 他要求要寫入一個距離/值X
而我需要輸入的值 可能為 71/2000XP

嘗試過如下寫法
1. 設 dsc
   (setq dsc(geststring "\n輸入比例值"))

測試!dsc 回傳的是正確的值
但是代入會失敗

2. 設num1 num2 num3

  (setq num1(getint "\n輸入圖紙比例"))
  (setq num2(getint "\n輸入出圖比例"))
  (setq num3(/ num1 num2))

用!num3 檢測, 有成功製作出我需要的值, 但沒辦法加上xp, 而且將num3代入??? 也是失敗


還請各位先進有空的話, 幫小弟看一下應該怎麼輸入這個???較好


補充一下
1.
(command "Zoom" "c" "0,0" "dsc")
修改為
(command "Zoom" "c" "0,0" dsc)

2.
  (setq num1(getint "\n輸入圖紙比例")) ; 這是實數函數
  (setq num2(getint "\n輸入出圖比例")) ; 這是實數函數
  (setq num3(/ num1 num2)) ; 這求得的是實數

如要加上 XP, XP屬於字串, 必須將num3的實數轉換為字串再與 XP字串做結合
avatar
阿希
高級會員
高級會員

文章總數 : 341
年齡 : 42
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 6125
威望值 : 220
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

Tiger&蘋果爸 likes this post

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[問題] lisp 圖紙空間設定比例 語法問題 Ioaoe110 [問題] lisp 圖紙空間設定比例 語法問題 2020-310 [問題] lisp 圖紙空間設定比例 語法問題 Oiu15010 [問題] lisp 圖紙空間設定比例 語法問題 2020-211 [問題] lisp 圖紙空間設定比例 語法問題 Ia15010 [問題] lisp 圖紙空間設定比例 語法問題 Aizyao10
[問題] lisp 圖紙空間設定比例 語法問題 Uos15010 [問題] lisp 圖紙空間設定比例 語法問題 BPl3tjj [問題] lisp 圖紙空間設定比例 語法問題 Ziao1510 [問題] lisp 圖紙空間設定比例 語法問題 Oo-2-110 [問題] lisp 圖紙空間設定比例 語法問題 Zuoiy_10 [問題] lisp 圖紙空間設定比例 語法問題 Aizyao11
[問題] lisp 圖紙空間設定比例 語法問題 Aoe1-111 [問題] lisp 圖紙空間設定比例 語法問題 Uos15011 [問題] lisp 圖紙空間設定比例 語法問題 RQvAhqF [問題] lisp 圖紙空間設定比例 語法問題 YdKelqY [問題] lisp 圖紙空間設定比例 語法問題 K410yWG