[求助]：请大家看一下，下面的代码有什么错？我怎么也找不出。

bluesky1000 · 发表于 2004-12-6 18:21:52

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

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

×

(defun c:zk ()
  (command "-style" "宋体" "宋体" "" "1.0" "0" "N" "N")
　(if (= bl1 nill) (setq bl1 1.0))
  (setq bls (rtos bl1 2 1))
  (setq blss (strcat "\n请输入图纸比例<" bls">:"))
  (setq bl (getreal blss))
  (if (= bl nill) (setq bl bl1 ))
  (setq bl1 bl)
  (setq blbl (* bl 2))
  (setq INSxy (getpoint (list 0 0) "\n 插入点 : ") )
  (setq x car(INSxy))
  (setq y cadr(INSxy))
  ......

选取好插入点后，我发现程序里的INSxy变量总是NIL，很奇怪，明明选好点的，为什么呢？

cqnj023 · 发表于 2004-12-6 22:10:21

INSxy不会是nil，道是最后两句第2个左括号位置不对，改为(setq x (car INSxy))
(setq y (cadr INSxy))

xyp1964 · 发表于 2004-12-6 22:50:58

nill→nil
[php](defun c:zk ()
  (command "-style" "宋体" "宋体" "" "1.0" "0" "N" "N")
  (if (= bl1 nil)
(setq bl1 1.0)
  )
  (setq bls (rtos bl1 2 1))
  (setq blss (strcat "\n请输入图纸比例<" bls ">:"))
  (setq bl (getreal blss))
  (if (= bl nil)
(setq bl bl1)
  ……
  (setq bl1 bl)
  (setq blbl (* bl 2))
  (setq INSxy (getpoint (list 0 0) "\n 插入点 : "))
  (setq x (car (INSxy)))
  (setq y (cadr (INSxy)))
……
[/php]

bluesky1000 · 发表于 2004-12-7 15:04:19

程序已经修改完成，多谢XYP1964，你的程序我也下载了好几个了，太谢谢了。

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

[求助]：请大家看一下，下面的代码有什么错？我怎么也找不出。

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

相关帖子

浏览过的版块