[求助]请哪位帮我看看这个错在哪里 谢谢

jixiang0908

我想通过输入数值 求点坐标 然后用PLINE线画图形 可是不行

(defun c:dxsxl
        (/ L T1 T2 B H P1 P2 P3 P4 P5 P6 P7 P8 N1 N2 N3 N4 N5)
     ; L顶板宽，T1翼缘端部，T2翼缘根部，B挑臂长，H梁高
  (setq L (getreal "请输入顶板宽L:"))
  (setq T1 (getreal "请输入翼缘端部T1:"))
  (setq T2 (getreal "请输入翼缘根部T2:"))
  (setq B (getreal "请输入挑臂长B:"))
  (setq H (getreal "请输入梁高H:"))
  (setq N1 (- 0 T1))
  (setq N2 (+ 0 B))
  (setq N3 (- 0 T2))
  (setq N4 (- 0 H))
  (setq N5 (- L B))
  (setq p1 '(0 0))
  (setq p2 '(0 N1))
  (setq p3 '(N2 N3))
  (setq P4 '(N2 N4))
  (setq P5 '(N5 N4))
  (setq P6 '(N5 N3))
  (setq P7 '(L N1))
  (setq P8 '(L 0))
  (command "pline" p1 p2 p3 p4 p5 p6 p7 p8 "c")
)

Student

除了(setq p1 '(0 0))这句不必改动外，把
  (setq p2 '(0 N1))
  (setq p3 '(N2 N3))
  (setq P4 '(N2 N4))
  (setq P5 '(N5 N4))
  (setq P6 '(N5 N3))
  (setq P7 '(L N1))
  (setq P8 '(L 0))
中的 '( 改成 (list
例如：(setq p2 '(0 N1))
改成：(setq p2 (list 0 N1))
试试如何

phoenixdjq

程序没有看，不管是不是这个原因

你必须要把捕捉关掉

(setvar "osmode" 0)

jixiang0908

谢谢 好了