[求助]：麻烦各位分析一下程序错在哪，谢谢！！！

morecs · 发表于 2003-9-22 16:58:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;消除直线间重线的程序，先比较第一条与后面所有的直线是否重线

;;
(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))
(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)));; 起点不在长直线上
(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)));; 终点不在长直线上
(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)));;起点在长直线上
(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));; 终点不在长直线上
(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 ) (= t22 0))
(command "erase" l1 "")
)
((and (= d12 0) (= d21 0))
(command "erase" l1 "")
)
(t (princ))
)
)

;; 
(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)) 
                (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)));; 起点不在长直线上 
                (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)));; 终点不在长直线上 
                (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)));;起点在长直线上 
                 (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));; 终点不在长直线上 
                  (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 ) (= t22 0)) 
                         (command "erase" l1 "") 
                    ) 
                    ((and (= d12 0) (= d21 0))   
                           (command "erase" l1 "") 
                    ) 
                    (t         (princ)) 
               ) 
)

版主提示：在不同论坛发同一主题帖子 By eachy

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：麻烦各位分析一下程序错在哪，谢谢！！！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块