找了一下版上讨问到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