[LISP程序]：错在哪里？？

redapple

[php]
(defun e (/ en1 en2 en3 en4 pts m arlixq)
  (setq en3 (entsel "xuanzeshiti"))
  (SETQ EN1 (CAR EN3))
  (setq en4 (entsel "xuanzeshiti"))
  (SETQ EN2 (CAR EN4))
  (vl-load-com)
  (if
    (or        (and (= (enty en1) "LINE")
             (= (enty en2) "ARC")
        )
        (and (= (enty en1) "ARC")
             (= (enty en2) "LINE")
        )
    )
     ((setq pts        (vla-IntersectWith
                  (vlax-ename->vla-object en1)
                  (vlax-ename->vla-object en2)
                  acExtendnone
                )
      )
       (setq
         m (vlax-safearray-get-u-bound (vlax-variant-value pts) 1)
       )
       (if (or (< m 0) (> m 2))
         nil
         (setq arlixq T)
       )
     )
  )
)
提示 参数类型错误: variantp nil
多谢！
[/php]

lsjjm

1。enty 函数未定义。
2. ((setq pts 多一个左括号。
。。。

redapple

调试时以定义enty函数，左括号是if条件函数里第二个括号，应该没问题，但运行时有上面的错误提示，还请各位再帮忙看看！

XDSoft

最初由 redapple 发布
[B]调试时以定义enty函数，左括号是if条件函数里第二个括号，应该没问题，但运行时有上面的错误提示，还请各位再帮忙看看！ [/B]

在LISP里面，左括号后面符号，一定是函数，LISP要对左括号后面的第一个符号做为函数进行求值。

所以任何时候：

((setq pts   

这样两个左括号挨着，只有一种可能，就是 pts 值为T或者NIL的时候，在COND多分支情况下，作为一种判断条件。

除了上面的情况，出现((setq pts    这样的两个左括号挨着，一定是“错误”的。

你的程序这个地方不对，你修改下。

redapple

((setq pts
改为
(progn
(setq pts .....
运行正确，多谢，多谢！