请教这个程序问题在哪？

morecs · 发表于 2003-9-20 12:07:00

斑竹我编了消除重复直线的程序，不知问题在哪，麻烦你分析一下。谢谢！！！
(defun c:xc()
(vl-load-com)
(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 CURVE1 (vlax-ename->vla-object (ssname SS N1)))
(setq CURVE2 (vlax-ename->vla-object (ssname SS N2)))
(cond (> d1 d2)
   (a1)
)
(cond ( t1 0) (> t2 0))
      (if (> t1 t2)
            (progn
                  (command "line" p1 q2 "")
                  (command "line" q1 p2 "")
            )
            (progn
                  (command "line" p1 q1 "")
                  (command "line" p2 q2 "")
            )
         )
   (command "erase" l1 "")
   )
   (cond (and (> t1 0) (= t2 0))
         (if  (= q2 p1)
               (progn
                     (command "line" p2 q1 "")
               )
               (progn
                     (setq dd1 (distance p1 q2))
                     (setq dd2 (distance p2 q2))
                     (if (> dd1 dd2)
                        (command "line" p1 q1 "")
                        (command "line" p2 q1 "")
                     )
               )
            )
      (command "erase" l1 "")
      )
   (cond (and (= t1 0) (> t2 0))
         (if  (= q1 p1)
               (progn
                     (command "line" q2 p2 "")
               )
               (progn
                     (setq ddd1 (distance p1 q1))
                     (setq ddd2 (distance p2 q1))
                     (if (> ddd1 ddd2)
                        (command "line" q2 p1 "")
                        (command "line" q2 p2 "")
                     )
               )
            )
      (command "erase" l1 "")
      )
)
(defun a2()
   (setq tt1 (vlax-curve-getdistatparam CURVE2 p1))
   (setq tt2 (vlax-curve-getdistatparam CURVE2 p2))
   (cond (and (> tt1 0) (> tt2 0))
      (command "erase" l1 "")
   )
   (cond (and (> tt1 0) (= tt2 0))
         (if  (= p2 q1)
               (progn
                     (command "erase" l1 "")
               )
               (progn
                     (setq dp1 (distance q1 p2))
                     (setq dp2 (distance q2 p2))
                     (if (> dp1 dp2)
                        (command "line" q2 p2 "")
                        (command "erase" l1 "")
                     )
               )
            )
      )
      (cond (and (= tt1 0) (> tt2 0))
         (if  (= q1 p1)
               (progn
                     (command "erase" l1 "")
               )
               (progn
                     (setq dpp1 (distance q1 p1))
                     (setq dpp2 (distance q2 p1))
                     (if (> dpp1 dpp2)
                        (command "line" q2 p1 "")
                        (command "line" p1 q1 "")
                     )
                     (command "erase" l1 "")
               )
            )
      )
)
(defun a3()
   (cond (and (= p1 q1) (= p2 q2))
         (command "erase" l1 "")
   )
   (cond (and (= p1 q2) (= p2 q1))
         (command "erase" l1 "")
   )
)

请教这个程序问题在哪？

发表回复

精选推荐