程序不稳定是怎么回事

易云网络

麻烦高手帮我看看

(defun c:ts11()
(setvar "cmdecho" 1)
  (princ "\n选择相交直线")
  (setq ss (ssget '((0 . "LINE")))
   )
  (setq e1   (ssname ss 0)
        en   (entget e1)
a   (cdr (assoc 10 en))
         ax    (car a)   
         ay    (cadr a)
b   (cdr (assoc 11 en))
         bx    (car b)   
         by    (cadr b)
             
        e2   (ssname ss 1)
        en   (entget e2)


c   (cdr (assoc 10 en))
         cx    (car c)   
         cy    (cadr c)       
d   (cdr (assoc 11 en))
         dx    (car d)   
         dy    (cadr d)
     wzb   (inters a b c d nil)
     uzb   (trans wzb 0 1)
        x    (car wzb)   
        y    (cadr wzb)
          
)


(if (/= ax bx)                              

   (if (< (/ (+ ax bx)2) x)      ;111.aaaaaaabbbbbxxxxxxxxxxxxxxxxxAB是横线
            (if (< (/ (+ cy dy)2) y)
                    (entmake (list '(0 . "CIRCLE") (cons 10 (list(+ x 2.)(+ y 2.))) (cons 40 0.444)))
                    (entmake (list '(0 . "CIRCLE") (cons 10 (list(+ x 2.)(- y 2.))) (cons 40 0.444))))
                     (if (< (/ (+ cy dy)2) y)
                           (entmake (list '(0 . "CIRCLE") (cons 10 (list(- x 2.)(+ y 2.))) (cons 40 0.444)))
                        (entmake (list '(0 . "CIRCLE") (cons 10 (list(- x 2.)(- y 2.))) (cons 40 0.444)))))

(if (< (/(+ ay by) 2) y)                ;111.aaaaaabbbbbyyyyyyyyyyyyyyAB是竖线
            (if (< (/ (+ cx dx)2) x)
              (entmake (list '(0 . "CIRCLE") (cons 10 (list (+ x 2.)(+ y 2.))) (cons 40 0.444)))
              (entmake (list '(0 . "CIRCLE") (cons 10 (list(- x 2.)(+ y 2.))) (cons 40 0.444))))
             
       (if (< (/ (+ cx dx)2) x)
                    (entmake (list '(0 . "CIRCLE") (cons 10 (list(+ x 2.)(- y 2.))) (cons 40 0.444)))
                 (entmake (list '(0 . "CIRCLE") (cons 10 (list(- x 2.)(- y 2.))) (cons 40 0.444)))))


   )


    (command "ucs"  "O" uzb )

)

ivde

内外有别   

易云网络

ivde 发表于 2014-10-12 19:08
内外有别

可以说清楚吗？有时候好的有时候不行，拾取直线的顺序变了就好了（右边的例子），
我这个程序是不分顺序的为什么会这样呢

lsjj

你要不要試著用COND,順便把4個條件搞清楚些

易云网络

就有个别图这样，不知道是不是图的关系

自贡黄明儒

你可写个判断，圆心到交点小于到直线的另一端点

ZZXXQQ

判断太复杂，换个思路

2. (defun c:ts11()
   
3. (setvar "cmdecho" 1)
   
4. (princ "\n选择相交直线")
   
5. (if (and (setq ss (ssget '((0 . "LINE")))) (= (sslength ss) 2)) (progn
   
6.   (setq ent1 (entget(ssname ss 0))
   
7.        a (cdr (assoc 10 ent1))
   
8.        b   (cdr (assoc 11 ent1))
   
9.        ent2  (entget (ssname ss 1))
   
10.        c   (cdr (assoc 10 ent2))
    
11.        d   (cdr (assoc 11 ent2))
    
12.        wzb   (inters a b c d nil)
    
13.        uzb   (trans wzb 0 1))
    
14.   (setq ang1 (if (< (distance a wzb) (distance b wzb)) (angle a b) (angle b a)))
    
15.   (setq ang2 (if (< (distance c wzb) (distance d wzb)) (angle c d) (angle d c)))
    
16.   (setq pt (polar(polar uzb ang1 2) ang2 2))
    
17.   (entmake (list '(0 . "CIRCLE") (cons 10 pt) '(40 . 0.444)))
    
18.   (command "ucs"  "O" uzb )
    
19. ))
    
20. (princ)
    
21. )
    

(defun c:ts11()<br /> (setvar "cmdecho" 1)<br /> (princ "\n选择相交直线")<br /> (if (and (setq ss (ssget '((0 . "LINE")))) (= (sslength ss) 2)) (progn<br />   (setq ent1 (entget(ssname ss 0))<br />        a (cdr (assoc 10 ent1))<br />        b   (cdr (assoc 11 ent1))<br />        ent2  (entget (ssname ss 1))<br />        c   (cdr (assoc 10 ent2))<br />        d   (cdr (assoc 11 ent2))<br />        wzb   (inters a b c d nil)<br />        uzb   (trans wzb 0 1))<br />   (setq ang1 (if (< (distance a wzb) (distance b wzb)) (angle a b) (angle b a)))<br />   (setq ang2 (if (< (distance c wzb) (distance d wzb)) (angle c d) (angle d c)))<br />   (setq pt (polar(polar uzb ang1 2) ang2 2))<br />   (entmake (list '(0 . "CIRCLE") (cons 10 pt) '(40 . 0.444)))<br />   (command "ucs"  "O" uzb )<br /> ))<br /> (princ)<br /> )<br />

nzl1116

易云网络 发表于 2014-10-12 19:13
可以说清楚吗？有时候好的有时候不行，拾取直线的顺序变了就好了（右边的例子），
我这个程序是不分顺序 ...

看楼主的程序是没问题，难道和组码210有关？

易云网络

ZZXXQQ 发表于 2014-10-13 08:19
判断太复杂，换个思路

居然可以这么精简，看来要学的东西还很多。
这个还是有一点问题：1.圆的位置反了ang1 -2) ang2 -2)) 改成-2好了
                    2.为什么就只画一次圆，再执行就没有了，要新建一个图才可以

易云网络

nzl1116 发表于 2014-10-13 09:00
看楼主的程序是没问题，难道和组码210有关？

很奇怪呀！90%没有错误，偶尔会出现这样