[求助]：各位：帮我看看这段求交点座标的程序错在哪里(帮我指出来)

xxming

(DEFUN C:INT_L ( )
       (SETQ OBJ1 (ENTSEL "\nSelect first line : ")
               OBJ2 (ENTSEL "\nSelect second line : "))
       (IF (OR (= OBJ1 NIL) (= OBJ2 NIL))
               (PRINC "\nNone object select") (PRONG
               (SETQ ENT1 (ENTGET (CAR OBJ1)) ENT2 (ENTGET (CAR OBJ2)))
               (IF (OR (/= (CDR (ASSOC 0 ENT1)) "LINE")
                            (/= CDR (ASSOC 0 ENT2)) "LINE"))
                       (PRINC "\nObject type is not a Line") (PROGN
                       (SETQ PT1 (CDR (ASSOC 10 ENT1)) PT2 (CDR (ASSOC 11 ENT1))
                               PT3 (CDR (ASSOC 10 ENT2) PT4 (CDR (ASSOC 11 ENT2)))
                       (SETQ PT_INT (INTERS PT1 PT2 PT3 PT4 NIL))
                       (IF (= PT_NIT NIL)
                               (PRINC "\nNone Intersection Point")
                               (COMMAND "LINE" PT_INT)
                       )
               ))
       ))
       (PRINC))

maplesu

(PRINC "\nNone object select") (PRONG

progn写成prong了

(IF (OR (/= (CDR (ASSOC 0 ENT1)) "LINE")
(/= CDR (ASSOC 0 ENT2)) "LINE"))

都少了括号应为
(IF (OR (/= (CDR (ASSOC 0 ENT1))  "LINE")
(/= (CDR (ASSOC 0 ENT2) ) "LINE"))

你写的程序也太乱了
写的规范一点就不会有这些错误了

我修改以后如下
[php]
(DEFUN C:INT_L ( )
  (SETQ OBJ1 (ENTSEL "\nSelect first line : ")
        OBJ2 (ENTSEL "\nSelect second line : "))
  (IF (OR (= OBJ1 NIL) (= OBJ2 NIL))
    (PRINC "\nNone object select")
    (progn
      (SETQ ENT1 (ENTGET (CAR OBJ1)) ENT2 (ENTGET (CAR OBJ2)))
      (IF (OR (/= (CDR (ASSOC 0 ENT1)) "LINE")
              (/= (CDR (ASSOC 0 ENT2)) "LINE"))
        (PRINC "\nObject type is not a Line")
        (PROGN
          (SETQ PT1 (CDR (ASSOC 10 ENT1))
                PT2 (CDR (ASSOC 11 ENT1))
                PT3 (CDR (ASSOC 10 ENT2))
                PT4 (CDR (ASSOC 11 ENT2)))
          (SETQ PT_INT (INTERS PT1 PT2 PT3 PT4 NIL))
          (IF (= PT_INT nil)
            (PRINC "\nNone Intersection Point")
            (COMMAND "LINE" PT_INT)
            )
          )
        )
      )
    )
  (PRINC)
  )
[/php]

xxming

楼上兄弟上面程序怎么求不出交点？

maplesu

(IF (= PT_NIT nil)
这句也错了，是PT_INT不是T_NIT
这个我到没有看出来！！

上面也已经改过来了

xxming

楼上兄台谢了，我是初学者，以后要多多指教了