作者rage31 (阿吉)
看板Cad_Cae
標題[問題] AutoCAD LSP只正常作動一次?
時間Thu Nov 29 09:39:42 2007
找了一下版上討問到LSP都是比較進階的問題
個人剛接觸LSP程式~心想試一下網路上的程式
程式內容如下:
;第一個lsp程式~繪製長方形中間含十字線
(
defun c:pbox (/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)
;以下 pa、ww、hh 值須由使用者輸入 ww & hh可
;由輸入或以pa為基準點選畫面
(setq pa (getpoint "Enter Left/Low Point:"))
(setq ww (getdist pa "\nWidth:"))
(setq hh (getdist pa "\nHeight:"))
;以下pb、pc、pd值須由程式依據pa、ww、hh求出
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
;以下mp1、mp2、mp3、mp4值須由程式依據pa、ww、hh& pb、pc、pd 值求出
;為矩形中十字線之點座標
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
(setq mp3 (polar pc pi (/ ww 2)))
(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
(command "rectang" pa pc)
(command "line" mp2 mp4 "") ;先繪製矩即發生錯誤的情形
(princ) ;用以清除程式結束之回傳nil
)
內容是網路上的程式加上為了讓自己懂的註解
但發生了一件怪事~當第一次使用時可正常繪製
之後繪製中心十字線則發生錯誤~更怪的是
先繪製十字線再繪製矩形又可正常繪製
請問板上的各位有誰能為我解答十字線繪製錯誤的原因?
感激不盡
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.248.58.82
1F:推 Egriawei:軟體編輯時這排版沒問題,不過貼上來亂掉了,修一下如何? 11/29 22:13
2F:→ Egriawei:另外我先猜猜看是不是osnap(物件鎖點)沒關掉的原因 11/29 22:14