[問題] AutoCAD LSP只正常作動一次?

看板Cad_Cae (電腦輔助設計)作者rage31 (阿吉)時間18年前 (2007/11/29 09:39)推噓1(1推 0噓 1→)

留言2則, 1人參與討論串1/1

找了一下版上討問到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