申请扩展getpoint功能调试！

Dream.Fei · 发表于 2006-7-15 09:38:45

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

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

×

这个程序是在点选之前可以作出选择来执行不同的程序，现在的问题是可以通过选择来执行不同的程序，但是却不能直接通过在屏幕上点选来运行程序了。

[php]
(defun c:x1 ()
  (initget 2 "s a")
  (if (setq pt (getpoint "\n请确定插入点[选项(S)角度(A)]<退出>:"))
(cond ((= (strcase pt) "S")
   (prompt "\n 选择S") ;_这里是执行选项函数
   )
   ((= (strcase pt) "A")
   (print "选择A") ;_这里是执行选项函数
   )
   ((= (type pt) 'LIST)
   (command "Line" pt ) ;_这里是正常执行函数或语句.
   )
)
  )
)
[/php]

直接在屏幕上选点后，不能执行“Line”操作。提示出现如下错误：
参数类型错误: stringp (86909.0 3389.31 0.0)

请帮我看下，谢谢！

雨箭风刀 · 发表于 2006-7-15 12:45:50

((= (type pt) 'LIST)
(command "Line" pt ) ;_这里是正常执行函数或语句.
这一句放到前面

((and pt (= (type pt) 'LIST) )
(command "Line" pt )
)

Dream.Fei · 发表于 2006-7-15 14:57:14

晕，这么简单！！！

但是为什么放到后面不行呢？

小菜 · 发表于 2006-7-15 15:35:27

因为如果输入是点座标的话，((= (strcase pt) "S") 会出错

xiao_longxin · 发表于 2006-7-15 15:39:03

COND函数首先判断第一个条件是否成立，如果成立执行相应语句。
判断条件1时执行了(strcase pt)，而PT为LIST，所以会出错

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

申请扩展getpoint功能调试！

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

相关帖子