根據用戶輸入的引數，然后計算出坐標，畫多線段，每次輸入變數都畫不出來，要是輸入坐標就能畫出來，為什么？求各位大神幫忙看看，謝謝！
(defun C:jjgg()
(setq kc (getint "\n請輸入長:\n"))
(setq kk (getint "\n請輸入寬:\n"))
(setq kg (getint "\n請輸入高:\n"))
(setq gh (getint "\n請輸入厚度:\n"))
(setq kh (getint "\n請輸入框厚度:\n"))
(setq dh (getint "\n請輸入底板厚度:\n"))
(setq zc (getint "\n請輸入折彎長度:\n"))
(setq fj (getint "\n請輸入分幾個，如果是橫2豎2輸入5:\n"))
(setq kcd1 '(0 0))
(setq kcd2 '(kc 0))
(setq kcd3 '(kc (- 0 (- kg kh))))
(setq kcd4 '((- kc zc) (- 0 (- kg kh))))
(setq kcd5 '((- kc zc) (- 0 (- (+ kg zc) kh kh))))
(setq kcd6 '(zc (- 0 (- (+ kg zc) kh kh))))
(setq kcd7 '(zc (- 0 (- kg kh))))
(setq kcd8 '(0 (- 0 (- kg kh))))
(setq kcd9 '(0 0))
(command "pline" kcd1 kcd2 kcd3 kcd4 kcd5 kcd6 kcd7 kcd8 kcd9 "")
(princ)
)
uj5u.com熱心網友回復：
下面是運行的顯示請輸入長:
800
請輸入寬:
1200
請輸入高:
100
請輸入厚度:
5
請輸入框厚度:
5
請輸入底板厚度:
5
請輸入折彎長度:
30
請輸入分幾個，如果是橫2豎2輸入5:
2 pline
指定起點:
當前線寬為 0.0000
指定下一個點或 [圓弧(A)/半寬(H)/長度(L)/放棄(U)/寬度(W)]:
命令:
命令:
命令:
命令:
命令:
命令:
命令:
命令: JJGG
未知命令“JJGG”。按 F1 查看幫助。
命令:
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/43367.html
標籤：其他開發語言