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

[已解決]一個lisp執行與想的不同

上一篇主題 下一篇主題 向下

[已解決]一個lisp執行與想的不同

發表 由 anais99 于 2010-09-21, 03:57

我看書寫了一個lisp 一個方框繪製中心線,可是我執行完繪製成對角線,請問大大們可以幫我看看哪裡有錯嗎?
(defun c:pbox()
(setvar "cmdecho" 0)
(setq pa (getpoint "輸入左下角點:"))
(setq ww (getreal "\n輸入寬度:"))
(setq hh (getreal "\n輸入高度:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "line" pa pb pc pd "c")
(setq mp1 (polar pa 0 (* ww 0.5)))
(setq mp2 (polar pb (/ pi 2) (* hh 0.5)))
(setq mp3 (polar pd 0 (* ww 0.5)))
(setq mp4 (polar pa (/ pi 2) (* hh 0.5)))
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")
(prin1)
)


anais99 在 2010-09-21, 04:42 作了第 1 次修改
avatar
anais99
初級會員
初級會員

文章總數 : 79
年齡 : 39
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 3015
威望值 : 12
注冊日期 : 2010-06-14
串連貼紙成功 女 雙子座 馬

回頂端 向下

回復: [已解決]一個lisp執行與想的不同

發表 由 lsj 于 2010-09-21, 04:27

在程式中有用到繪圖或框選的功能,請先關掉物件鎖點

(setq osm (getvar "osmode"))
(setvar "osmode" 0)
...
(setvar "osmode" osm)
avatar
lsj
初級會員
初級會員

文章總數 : 43
年齡 : 52
來自 : 桃園
職業 : 營建工程
愛好 :
個性 :
使用年資 : 10↑
使用版本 : 2008
積分 : 2
經驗值 : 2966
威望值 : 104
注冊日期 : 2010-06-28
男 水瓶座 龍

回頂端 向下

回復: [已解決]一個lisp執行與想的不同

發表 由 anais99 于 2010-09-21, 04:33

感謝lsj這們快地幫我解決問題,這個lisp我是看書寫的,書本都沒說要關掉物件 鎖點,那是不是我不用這樣寫,寫成抓中點就可以囉!
avatar
anais99
初級會員
初級會員

文章總數 : 79
年齡 : 39
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 3015
威望值 : 12
注冊日期 : 2010-06-14
串連貼紙成功 女 雙子座 馬

回頂端 向下

回復: [已解決]一個lisp執行與想的不同

發表 由 lsj 于 2010-09-21, 04:50

您可以試試看抓中點會有什麼結果
多一次體驗多一份心得
在多次的錯誤中最後找到正確的路,以後您會習慣順著路走
avatar
lsj
初級會員
初級會員

文章總數 : 43
年齡 : 52
來自 : 桃園
職業 : 營建工程
愛好 :
個性 :
使用年資 : 10↑
使用版本 : 2008
積分 : 2
經驗值 : 2966
威望值 : 104
注冊日期 : 2010-06-28
男 水瓶座 龍

回頂端 向下

回復: [已解決]一個lisp執行與想的不同

發表 由  于 2010-09-21, 05:00

最好還是給座標值比較好~這是我的習慣
因為在跑LISP程式如果物件很多
用抓點的方式
CAD的介面範圍如果超出很容易出錯

初級會員
初級會員

文章總數 : 42
年齡 : 37
來自 : 台北
職業 : 工程師
愛好 : 電腦
個性 : 一般
使用年資 : 10幾年
使用版本 : 2008
積分 : 1
經驗值 : 3477
威望值 : 45
注冊日期 : 2008-10-20
男 雙子座 猴

http://www.facebook.com/?ref=logo#!/group.php?gid=14518553218008

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章