PBOX.LSP 程式產生的問題測試時有問題利用網頁成功的程式

由 **brucecad** 2024-10-09, 19:10

各位大師與蘋爸你好
小弟測試好久
不知問題哪
如附圖
感謝大家協助

指令:
指令: _appload pbox.lsp 成功載入。
pbox.lsp 成功載入。
指令: ********** << C:PBOX >> **********
指令: ********** << C:PBOX >> **********
指令:
指令: PBOX
Enter Left/Low Point:
Width:100
Height:50
; 錯誤: no function definition: 指令
指令:

(defun D:\Autolisp\pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

;以下 pa、ww、hh 值須由使用者輸入

(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))

;以下依據 pa、pb、pc、pd 點畫矩形

(指令 "pline" pa pb pc pd "c")

;以下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 pd 0 (/ ww 2)))

(setq mp4 (polar pa (/ pi 2) (/ hh 2)))

;以下依據 mp1、mp2、mp3、mp4 點畫出二條線

(指令 "line" mp1 mp3 "")

(指令 "line" mp2 mp4 "")

(prin1)

)

(prompt "********** << C:PBOX >> **********")

(prin1)

附件