明总帮帮小弟分析一下我错在哪，谢了！！！

morecs · 发表于 2003-9-23 08:41:00

(defun c:xc1(/ ss n1 n2 s1 s2 d1 d2 d11 d12 d21 d22 l1 l2)
            (setq ocmde (getvar "cmdecho"))
            (setq oblip (getvar "blipmode"))
            (setq oosmode (getvar "osmode"))
            (setvar "cmdecho" 0)
            (setvar "blipmode" 0)
            (setvar "osmode" 0)
            (setq ss (ssget '((0 . "LINE"))))
            (setq n1 0)
            (setq s1 (sslength ss))
   (repeat s1
            (setq l1 (ssname ss n1))
            (setq l1_data (entget l1))
            (setq pts1 (assoc 10 l1_data))
            (setq p1 (cdr pts1))
            (setq pte1 (assoc 11 l1_data))
            (setq p2 (cdr pte1))
            (setq d1 (distance p1 p2))
            (setq n2 (+ n1 1))
            (setq s2 (- s1 n2))
         (repeat s2
            (setq l2 (ssname ss n2))
            (setq l2_data (entget l2))
            (setq pts2 (assoc 10 l2_data))
            (setq q1 (cdr pts2))
            (setq pte2 (assoc 11 l1_data))
            (setq q2 (cdr pte2))
            (setq d2 (distance q1 q2))
            (setq d11 (distance p1 q1))
            (setq d12 (distance p1 q2))
            (setq d21 (distance p2 q1))
            (setq d22 (distance p2 q2))
            (setq ang1 (angle p1 p2))
            (setq ang2 (angle q1 q2))
            (cond ((> d1 d2) (a1));;首先判断哪条直线长，在判断短直线两个端点是否在长直线上
                  ((< d1 d2) (a2))
                  ((= d1 d2) (a3))
                  (t       (princ))
            )
                  (setq n2 (+ 1 n2))
         )
                  (setq n1 (+ 1 n1))
      )
            (setq ss nil)
            (setvar "blipmode" oblip)
            (setvar "cmdecho" ocmde)
            (setvar "osmode" oosmode)
            (princ)
)
(defun a1()
(cond
      ((and (= d1 (+ d11 d21)) (= d1 (+ d12 d22)));;两端点在长直线上
            (if (< d11 d12) ;;判断短直线的方向
               (progn
                     (command "line" p1 q1 "")
                     (command "line" q2 p2 "")
                     (command "erase" l1 "")
                  )
                  (progn
                     (command "line" p2 q1 "")
                     (command "line" q2 p1 "")
                     (command "erase" l1 "")
                  )
            )
      )
      ((and (/= d1 (+ d11 d21)) (= d1 (+ d12 d22)) (= ang1 ang2));; 起点不在长直线上
            (if (< d11 d21) ;;判断短直线的方向
                  (progn
                        (command "line" q2 p2 "")
                        (command "erase" l1 "")
                  )
                  (progn
                        (command "line" q2 p1 "")
                        (command "erase" l1 "")
                  )
               )
      )
      ((and (= d1 (+ d11 d21)) (/= d1 (+ d12 d22)) (= ang1 ang2));; 终点不在长直线上
            (if (< d12 d22) ;;判断短直线的方向
                  (progn
                        (command "line" p2 q1 "")
                        (command "erase" l1 "")
                  )
                  (progn
                        (command "line" p1 q1 "")
                        (command "erase" l1 "")
                  )
            )
      )
      (t       (princ))
   )
)
(defun a2()
   (cond
         ((and (= d2 (+ d11 d12)) (= d2 (+ d21 d22)));;两端点在长直线上
                        (command "erase" l1 "")
         )
         ((and (/= d2 (+ d11 d12)) (= d2 (+ d21 d22)) (= ang1 ang2));;起点在长直线上
               (if (< d11 d12) ;;判断短直线的方向
                  (progn
                        (command "line" p1 q1 "")
                        (command "erase" l1 "")
                     )
                     (progn
                        (command "line" q2 p1 "")
                        (command "erase" l1 "")
                     )
               )
         )
         ((and (= d2 (+ d11 d12)) (/= d2 (+ d21 d22) (= ang1 ang2));; 终点不在长直线上
               (if (< d21 d22) ;;判断短直线的方向
                  (progn
                        (command "line" p2 q1 "")
                        (command "erase" l1 "")
                     )
                     (progn
                        (command "line" q2 p2 "")
                        (command "erase" l1 "")
                     )
               )
         )
         (t       (princ))
   )
)
(defun a3() ;;判断两点是否同一点
            (cond
                  ((and (= d11 0 ) (= d22 0))
                     (command "erase" l1 "")
                  )
                  ((and (= d12 0) (= d21 0))
                        (command "erase" l1 "")
                  )
                  (t       (princ))
            )
)