[求助]请各位高手帮我看一下这个程序错在哪里

aytxq

程序可以正常执行.可是执行完总会出再这个提示:错误: 参数类型错误: lentityp nil

 

muwind

;分圓孔
(Defun C:33(/ );Hv Lr Ud Cen Rad A1 A2 Arc1 Arc2 N All
  (Setvar "Cmdecho" 1)
  (Setq All (Ssget '((0 . "Circle"))))
  (Setq N 0)
  (Initget "Horizontal Vertical")
  (Setq HV (Getkword "\n 水平分割(H)/垂直分割(V)?:"))
  (If (= HV "Horizontal")
      (progn
       (Setq HV Nil)
       (Initget "Left Right")
       (Setq LR (Getkword "\n 下半部分左移(L)/右移(R)?:"))
         (If (= LR "Left")
         (While (< N (Sslength All))
          (Setq Cen (Cdr (Assoc 10 (Entget (Ssname All N))))
                    Rad (Cdr (Assoc 40 (Entget (Ssname All N))))
                A1 0
                A2 Pi
                Arc1 (Entmake (List (Cons 0 "Arc") (Cons 10 (List (- (Car Cen) 0.0015) (Cadr Cen))) (Cons 50 A2) (Cons 51 A1) (Cons 40 Rad)))
                    Arc2 (Entmake (List (Cons 0 "Arc") (Cons 10 (List (+ (Car Cen) 0.0015) (Cadr Cen))) (Cons 50 A1) (Cons 51 A2) (Cons 40 Rad)))
            N (1+ N))
          (Entdel (Ssname All (- N 1)))
        );L End
         (While (< N (Sslength All))
          (Setq Cen (Cdr (Assoc 10 (Entget (Ssname All N))))
                    Rad (Cdr (Assoc 40 (Entget (Ssname All N))))
                A1 0
                A2 Pi
                Arc1 (Entmake (List (Cons 0 "Arc") (Cons 10 (List (+ (Car Cen) 0.0015) (Cadr Cen))) (Cons 50 A2) (Cons 51 A1) (Cons 40 Rad)))
                    Arc2 (Entmake (List (Cons 0 "Arc") (Cons 10 (List (- (Car Cen) 0.0015) (Cadr Cen))) (Cons 50 A1) (Cons 51 A2) (Cons 40 Rad)))
            N (1+ N))
              (Entdel (Ssname All (- N 1)))
         );R End
        );LR End
       );H End
      ((Setq HV Nil)
       (Initget "Up Down")
       (Setq UD (Getkword "\n 左半部分上移(U)/下移(D)?:"))
         (If (= UD "Up")
         (While (< N (Sslength All))
          (Setq Cen (Cdr (Assoc 10 (Entget (Ssname All N))))
                    Rad (Cdr (Assoc 40 (Entget (Ssname All N))))
                A1 (* 1.5 Pi)
                A2 (* 0.5 Pi)
                Arc1 (Entmake (List (Cons 0 "Arc") (Cons 10 (List (Car Cen) (+ (Cadr Cen) 0.0015))) (Cons 50 A2) (Cons 51 A1) (Cons 40 Rad)))
                    Arc2 (Entmake (List (Cons 0 "Arc") (Cons 10 (List (Car Cen) (- (Cadr Cen) 0.0015))) (Cons 50 A1) (Cons 51 A2) (Cons 40 Rad)))
            N (1+ N))
          (Entdel (Ssname All (- N 1)))
         );U End
       (While (< N (Sslength All))
          (Setq Cen (Cdr (Assoc 10 (Entget (Ssname All N))))
                    Rad (Cdr (Assoc 40 (Entget (Ssname All N))))
                A1 (* 1.5 Pi)
                A2 (* 0.5 Pi)
                Arc1 (Entmake (List (Cons 0 "Arc") (Cons 10 (List (Car Cen) (- (Cadr Cen) 0.0015))) (Cons 50 A2) (Cons 51 A1) (Cons 40 Rad)))
                    Arc2 (Entmake (List (Cons 0 "Arc") (Cons 10 (List (Car Cen) (+ (Cadr Cen) 0.0015))) (Cons 50 A1) (Cons 51 A2) (Cons 40 Rad)))
            N (1+ N))
             (Entdel (Ssname All (- N 1)))
         );D End
        );UD End
       );V End
    );HV End
  (Setvar "Cmdecho" 1)
  (Princ)
)

试下这个，困了睡觉先

muwind

(> (Sslength All) 0)
这个条件 好象是一直成立的，你在下面的代码没有减少ALL选集中的图元的，只要你有一个非空的选集ALL，这个条件就成立。所以当N超过(Sslength All)的时候就会出错

可能是这样的吧

aytxq

上网不易,今天才回复.谢谢上面两位高手了.问题已按muwind的方法解决了.再次谢谢.