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