[求助]：各们兄弟能否帮我找出这段程序的错误

xxming · 发表于 2004-4-17 11:30:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

各位高手：本人是AUTOLISP初学者近日做一道练习：“在TEST.LSP程式檔中,新增程式RECT,以對角的兩點建立矩形(聚合線),再詢問是否在矩形中加上對角線,最後將圖形以輸入的角度旋轉”
程序如下：
(defun c:rect ( )    (setq pt_stat (getpoint "select first point")
pt_end  (getcorner "select second point")
                  pt_tmp1 (list (car pt_stat) (cadr pt_end))
                  pt_tmp2 (list (car pt_end) (cadr pt_stat)))

               (command "pline" pt_stat pt_tmp1 pt_end pt_tmp2 "c" )
               (command "select" "l" "")
               (initget 128 "Yes No")
  (setq YesNo (getkword "diagonal line(y/n): "))
  (if (= YesNo "yes")  (progn
   (command "line" pt_stat pt_end "")
   (command "select" "p" "l" "")
   (command "line" pt_tmp1 pt_tmp2 "")
   (command "select" "p" "l" "")))
   (command "rotate" "p" "" pt_stat
      (*(getangle pt_stat "rotate angle:") (/ 180 pi))
  (princ))

运行程序后却出现 “输入的列表有缺陷” 能否找出错误

gaolaosan · 发表于 2004-4-17 15:35:16

这样就可以啦！
(defun c:rect ()
  (setq pt_stat (getpoint "select first point")
pt_end (getcorner pt_stat "select second point")
pt_tmp1 (list (car pt_stat) (cadr pt_end))
pt_tmp2 (list (car pt_end) (cadr pt_stat))
  )

  (command "pline" pt_stat pt_tmp1 pt_end pt_tmp2 "c")
  (command "select" "l" "")
  (initget 128 "Yes No")
  (setq YesNo (getkword "diagonal line(y/n): "))
  (if (= YesNo "yes")
   (progn
      (command "line" pt_stat pt_end "")
      (command "select" "p" "l" "")
      (command "line" pt_tmp1 pt_tmp2 "")
      (command "select" "p" "l" "")
   )
)
(command "rotate" "p"    "" pt_stat    (* (getangle pt_stat "rotate angle:") (/ 180 pi))
)
(princ)
)

xxming · 发表于 2004-4-17 19:28:58

楼上：是哪一行错了说清楚点好吗

841594 · 发表于 2004-4-17 19:38:36

“输入的列表有缺陷”一般是括弧不配对，相信你自己能找出来。
养成良好的书写习惯有助于避免这类问题。

gaolaosan · 发表于 2004-4-18 08:32:54

第三行
pt_end (getcorner pt_stat "select second point")
中，少了第一点pt_stat ；
最后的COMMAND括号不匹配
(command "rotate" "p" "" pt_stat (*(getangle pt_stat "rotate angle:") (/ 180 pi))
加上就好了！

xxming · 发表于 2004-4-18 15:58:01

楼上谢了。。是啊要养成良好的书写习惯是重要的

fallrain · 发表于 2004-5-9 09:33:18

请问，怎样检查程序的错误啊，只提示有错，可是不知道错在那里，怎样检查啊

lijiao · 发表于 2004-5-9 10:54:23

用VL的编辑环境

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：各们兄弟能否帮我找出这段程序的错误

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块