【求助】帮忙看1下哪里错了！！！

seven11

(defun c:ljjx ()
   (setq czlx (ssadd)
         czbz (ssadd)
   )
   (setq jihe (ssget '((-4 . "<or") (8 . "梁虚线") (8 . "梁原位标注") (-4 . "or>"))))
   (setq njihe (sslength jihe))
   (setq aa 0)
     (repeat njihe
        (if
           (and (= (cdr (assoc 8 (entget (ssname jihe aa)))) "梁虚线")
                (= (cdr (assoc 0 (entget (ssname jihe aa)))) "LINE")
           )
           (progn
             (setq pt1 (assoc 10 (entget (ssname jihe aa))))
             (setq pt2 (assoc 11 (entget (ssname jihe aa))))
             (setq pt3 (list (nth 1 pt1) (nth 2 pt1)))
             (setq pt4 (list (nth 1 pt2) (nth 2 pt2)))
             (setq angle1 (angle pt3 pt4))
             (if
               (or (< (abs (- angle1 (/ pi 2))) 0.08)
                   (< (abs (- angle1 (* 3 (/ pi 2)))) 0.08)
               )
               (progn
               (ssadd (ssname jihe aa) czlx)   ;垂直梁线集合
               (setq aa (1+ aa))
               )
               (setq aa (1+ aa))
             )
           )
         )
      (if      
         (and (= (cdr (assoc 8 (entget (ssname jihe aa)))) "梁原位标注")
              (= (cdr (assoc 0 (entget (ssname jihe aa)))) "TEXT")
         )
         (progn
           (setq angle2 (cdr (assoc 50 (entget (ssname jihe aa)))))
           (if
             (or (< (abs (- angle2 (/ pi 2))) 0.08)
                 (< (abs (- angle2 (* 3 (/ pi 2)))) 0.08)
             )
             (progn
             (ssadd (ssname jihe aa) czbz)   ;垂直标注集合
             (setq aa (1+ aa))
             )
            (setq aa (1+ aa))
          )
         )
       )
      (setq aa (1+ aa))
     )
)

提示lentityp nil ,哪位知道哪里错了？
初学，水平低，能帮忙精简1下最好，先谢了!!!

duotu007

(defun c:ljjx ()
   (setq czlx (ssadd)
         czbz (ssadd)
   )
   (setq jihe (ssget '((-4 . "<or") (8 . "梁虚线") (8 . "梁原位标注") (-4 . "or>"))))
   (if jihe     (progn
   (setq njihe (sslength jihe))
   (setq aa 0)
     (repeat njihe
        (if
           (and (= (cdr (assoc 8 (entget (ssname jihe aa)))) "梁虚线")
                (= (cdr (assoc 0 (entget (ssname jihe aa)))) "LINE")
           )
           (progn
             (setq pt1 (assoc 10 (entget (ssname jihe aa))))
             (setq pt2 (assoc 11 (entget (ssname jihe aa))))
             (setq pt3 (list (nth 1 pt1) (nth 2 pt1)))
             (setq pt4 (list (nth 1 pt2) (nth 2 pt2)))
             (setq angle1 (angle pt3 pt4))
             (if
               (or (< (abs (- angle1 (/ pi 2))) 0.08)
                   (< (abs (- angle1 (* 3 (/ pi 2)))) 0.08)
               )
               (progn
               (ssadd (ssname jihe aa) czlx)   ;垂直梁线集合
               (setq aa (1+ aa))
               )
               (setq aa (1+ aa))
             )
           )
         )
      (if      
         (and (= (cdr (assoc 8 (entget (ssname jihe aa)))) "梁原位标注")
              (= (cdr (assoc 0 (entget (ssname jihe aa)))) "TEXT")
         )
         (progn
           (setq angle2 (cdr (assoc 50 (entget (ssname jihe aa)))))
           (if
             (or (< (abs (- angle2 (/ pi 2))) 0.08)
                 (< (abs (- angle2 (* 3 (/ pi 2)))) 0.08)
             )
             (progn
             (ssadd (ssname jihe aa) czbz)   ;垂直标注集合
             (setq aa (1+ aa))
             )
            (setq aa (1+ aa))
          )
         )
       )
      (setq aa (1+ aa))
     )
   )
   (alert "没有满足条件的选择")
   )
)

seven11

不行啊，还是有那个错误。。。

ljpnb

2. 
   
3. (defun c:ljjx ()
   
4.   (setq        czlx (ssadd)
   
5.         czbz (ssadd)
   
6.   )
   
7.   (setq        ss (ssget '((-4 . "<or")
   
8.                     (8 . "梁虚线")
   
9.                     (8 . "梁原位标注")
   
10.                     (-4 . "or>")
    
11.                    )
    
12.            )
    
13.   )
    
14.   (setq k 0)
    
15.   (repeat (sslength ss)
    
16.     (setq en  (ssname ss k)
    
17.           ent (entget en)
    
18.     )
    
19.     (if
    
20.       (and (= (cdr (assoc 8 ent)) "梁虚线")
    
21.            (= (cdr (assoc 0 ent)) "LINE")
    
22.       )
    
23.        (progn
    
24.          (setq pt1 (cdr (assoc 10 ent)))
    
25.          (setq pt2 (cdr (assoc 11 ent)))
    
26.          (setq angle1 (angle pt1 pt2))
    
27.          (if
    
28.            (or (< (abs (- angle1 (/ pi 2))) 0.08)
    
29.                (< (abs (- angle1 (* 3 (/ pi 2)))) 0.08)
    
30.            )
    
31.             (ssadd en czlx)                ;垂直梁线集合
    
32.          )
    
33.        )
    
34.     )
    
35.     (if
    
36.       (and (= (cdr (assoc 8 ent)) "梁原位标注")
    
37.            (= (cdr (assoc 0 ent)) "TEXT")
    
38.       )
    
39.        (progn
    
40.          (setq angle2 (cdr (assoc 50 ent)))
    
41.          (if
    
42.            (or (< (abs (- angle2 (/ pi 2))) 0.08)
    
43.                (< (abs (- angle2 (* 3 (/ pi 2)))) 0.08)
    
44.            )
    
45.             (ssadd en czbz)        ;垂直标注集合
    
46.          )
    
47.        )
    
48.     )
    
49.     (setq k (1+ k))
    
50.   )
    
51. )
    

<br /> (defun c:ljjx ()<br />   (setq        czlx (ssadd)<br />         czbz (ssadd)<br />   )<br />   (setq        ss (ssget '((-4 . "<or")<br />                     (8 . "梁虚线")<br />                     (8 . "梁原位标注")<br />                     (-4 . "or>")<br />                    )<br />            )<br />   )<br />   (setq k 0)<br />   (repeat (sslength ss)<br />     (setq en  (ssname ss k)<br />           ent (entget en)<br />     )<br />     (if<br />       (and (= (cdr (assoc 8 ent)) "梁虚线")<br />            (= (cdr (assoc 0 ent)) "LINE")<br />       )<br />        (progn<br />          (setq pt1 (cdr (assoc 10 ent)))<br />          (setq pt2 (cdr (assoc 11 ent)))<br />          (setq angle1 (angle pt1 pt2))<br />          (if<br />            (or (< (abs (- angle1 (/ pi 2))) 0.08)<br />                (< (abs (- angle1 (* 3 (/ pi 2)))) 0.08)<br />            )<br />             (ssadd en czlx)                ;垂直梁线集合<br />          )<br />        )<br />     )<br />     (if<br />       (and (= (cdr (assoc 8 ent)) "梁原位标注")<br />            (= (cdr (assoc 0 ent)) "TEXT")<br />       )<br />        (progn<br />          (setq angle2 (cdr (assoc 50 ent)))<br />          (if<br />            (or (< (abs (- angle2 (/ pi 2))) 0.08)<br />                (< (abs (- angle2 (* 3 (/ pi 2)))) 0.08)<br />            )<br />             (ssadd en czbz)        ;垂直标注集合<br />          )<br />        )<br />     )<br />     (setq k (1+ k))<br />   )<br /> )<br />

海盗曹

结构同行前来观光