代码求测试，自己也不知道问题出在哪

qinleilei

;电脑没有网络就用手机上的论坛，不便上图，大家谅解下，此代码主要是判断圆的大小来补画3/4的圆弧！每次3D导图到2D里面后，用此命令可以选取到指定大小的圆，但是就是生成不了圆弧，老提示图圆错误，只有自己手动画的圆它才可以识别 画圆弧！很纠结！不知道是怎么回事，公司用的是中望cad，

(DEFUN C:v5()
(setq ss (ssget '( (0 . "CIRCLE")(-4 . "<OR")

(40 . 2.1) (40 . 2.6) (40 . 3.4) (40 . 3.375) (40 . 4.25) (40 . 5.125) (40 . 5.15)


(40 . 7.0) (40 . 8.75)

(-4 . "OR>") ) ))





(setq n 0)

(repeat (sslength ss)

(setq en   (ssname ss n)

       pt  (cdr (assoc 10(entget en)));取坐标值

       rr  (cdr (assoc 40(entget en)));取圆的半径

   )



(COND

  ((= rr 2.1)(setq r 2.5))

  ((= rr 2.6)(setq r 3.0))

  ((= rr 3.375)(setq r 4.0))

  ((= rr 3.4)(setq r 4.0))

  ((= rr 4.25)(setq r 5.0))

  ((= rr 5.125)(setq r 6.0))

  ((= rr 5.15)(setq r 6.0))

  ((= rr 7.0)(setq r 8.0))

  (progn

    (princ "\n选取的图元错误!!!")

    (quit)

    )

)

(entmake (list '(0 . "ARC") (cons 10 pt) (cons 40 r) '(50 . 4.71239) '(51 .


3.14159)))

(setq n(1+ n))

  )

(princ)

)

Andyhon

您得先确认 ss 的返回值与期望之间是否完全吻合...
若是 那么可能得有 Dwg 来确认症结之所在

qinleilei

Andyhon 发表于 2015-9-2 20:36
您得先确认 ss 的返回值与期望之间是否完全吻合...
若是 那么可能得有 Dwg 来确认症结之所在

rr的值完全一样，有点搞不明白了

xyp1964

2. (defun c:tt ()
   
3.   (setq ss (ssget '((0 . "circle")
   
4.                     (-4 . "<or")
   
5.                     (40 . 2.1)
   
6.                     (40 . 2.6)
   
7.                     (40 . 3.4)
   
8.                     (40 . 3.375)
   
9.                     (40 . 4.25)
   
10.                     (40 . 5.125)
    
11.                     (40 . 5.15)
    
12.                     (40 . 7.0)
    
13.                     (40 . 8.75)
    
14.                     (-4 . "or>")
    
15.                    )
    
16.            )
    
17.         n  -1
    
18.   )
    
19.   (repeat (sslength ss)
    
20.     (setq s1 (ssname ss (setq n (1+ n)))
    
21.           pt (cdr (assoc 10 (entget s1)))
    
22.           rr (cdr (assoc 40 (entget s1))) ;取圆的半径
    
23.           r  (cond ((= rr 2.1) 2.5)
    
24.                    ((= rr 2.6) 3.0)
    
25.                    ((= rr 3.375) 4.0)
    
26.                    ((= rr 3.4) 4.0)
    
27.                    ((= rr 4.25) 5.0)
    
28.                    ((= rr 5.125) 6.0)
    
29.                    ((= rr 5.15) 6.0)
    
30.                    ((= rr 7.0) 8.0)
    
31.                    ((= rr 8.75) 9.05)
    
32.              )
    
33.     )
    
34.     (entmake (list '(0 . "arc")
    
35.                    (cons 10 pt)
    
36.                    (cons 40 r)
    
37.                    '(50 . 4.71239)
    
38.                    '(51 . 3.14159)
    
39.              )
    
40.     )
    
41.   )
    
42.   (princ)
    
43. )

(defun c:tt ()<br />   (setq ss (ssget '((0 . "circle")<br />                     (-4 . "<or")<br />                     (40 . 2.1)<br />                     (40 . 2.6)<br />                     (40 . 3.4)<br />                     (40 . 3.375)<br />                     (40 . 4.25)<br />                     (40 . 5.125)<br />                     (40 . 5.15)<br />                     (40 . 7.0)<br />                     (40 . 8.75)<br />                     (-4 . "or>")<br />                    )<br />            )<br />         n  -1<br />   )<br />   (repeat (sslength ss)<br />     (setq s1 (ssname ss (setq n (1+ n)))<br />           pt (cdr (assoc 10 (entget s1)))<br />           rr (cdr (assoc 40 (entget s1))) ;取圆的半径<br />           r  (cond ((= rr 2.1) 2.5)<br />                    ((= rr 2.6) 3.0)<br />                    ((= rr 3.375) 4.0)<br />                    ((= rr 3.4) 4.0)<br />                    ((= rr 4.25) 5.0)<br />                    ((= rr 5.125) 6.0)<br />                    ((= rr 5.15) 6.0)<br />                    ((= rr 7.0) 8.0)<br />                    ((= rr 8.75) 9.05)<br />              )<br />     )<br />     (entmake (list '(0 . "arc")<br />                    (cons 10 pt)<br />                    (cons 40 r)<br />                    '(50 . 4.71239)<br />                    '(51 . 3.14159)<br />              )<br />     )<br />   )<br />   (princ)<br /> )

qinleilei

xyp1964 发表于 2015-9-2 23:11

院长  不行耶！提示错误


附上图档帮忙测试一下

xyp1964

2. (defun c:tt ()
   
3.   (setq n -1)
   
4.   (if (setq ss (ssget '((0 . "circle")
   
5.                         (-4 . "<or")
   
6.                         (40 . 2.1)
   
7.                         (40 . 2.6)
   
8.                         (40 . 3.4)
   
9.                         (40 . 3.375)
   
10.                         (40 . 4.25)
    
11.                         (40 . 5.125)
    
12.                         (40 . 5.15)
    
13.                         (40 . 7.0)
    
14.                         (40 . 8.75)
    
15.                         (-4 . "or>")
    
16.                        )
    
17.                )
    
18.       )
    
19.     (repeat (sslength ss)
    
20.       (setq s1 (ssname ss (setq n (1+ n)))
    
21.             pt (cdr (assoc 10 (entget s1)))
    
22.             rr (cdr (assoc 40 (entget s1)))
    
23.             r  (cond ((equal rr 2.1 1e-3) 2.5)
    
24.                      ((equal rr 2.6 1e-3) 3.0)
    
25.                      ((equal rr 3.375 1e-3) 4.0)
    
26.                      ((equal rr 3.4 1e-3) 4.0)
    
27.                      ((equal rr 4.25 1e-3) 5.0)
    
28.                      ((equal rr 5.125 1e-3) 6.0)
    
29.                      ((equal rr 5.15 1e-3) 6.0)
    
30.                      ((equal rr 7.0 1e-3) 8.0)
    
31.                      ((equal rr 8.75 1e-3) 9.05)
    
32.                )
    
33.       )
    
34.       (entmake (list '(0 . "arc")
    
35.                      (cons 10 pt)
    
36.                      (cons 40 r)
    
37.                      '(50 . 4.71239)
    
38.                      '(51 . 3.14159)
    
39.                )
    
40.       )
    
41.     )
    
42.   )
    
43.   (princ)
    
44. )

(defun c:tt ()<br />   (setq n -1)<br />   (if (setq ss (ssget '((0 . "circle")<br />                         (-4 . "<or")<br />                         (40 . 2.1)<br />                         (40 . 2.6)<br />                         (40 . 3.4)<br />                         (40 . 3.375)<br />                         (40 . 4.25)<br />                         (40 . 5.125)<br />                         (40 . 5.15)<br />                         (40 . 7.0)<br />                         (40 . 8.75)<br />                         (-4 . "or>")<br />                        )<br />                )<br />       )<br />     (repeat (sslength ss)<br />       (setq s1 (ssname ss (setq n (1+ n)))<br />             pt (cdr (assoc 10 (entget s1)))<br />             rr (cdr (assoc 40 (entget s1)))<br />             r  (cond ((equal rr 2.1 1e-3) 2.5)<br />                      ((equal rr 2.6 1e-3) 3.0)<br />                      ((equal rr 3.375 1e-3) 4.0)<br />                      ((equal rr 3.4 1e-3) 4.0)<br />                      ((equal rr 4.25 1e-3) 5.0)<br />                      ((equal rr 5.125 1e-3) 6.0)<br />                      ((equal rr 5.15 1e-3) 6.0)<br />                      ((equal rr 7.0 1e-3) 8.0)<br />                      ((equal rr 8.75 1e-3) 9.05)<br />                )<br />       )<br />       (entmake (list '(0 . "arc")<br />                      (cons 10 pt)<br />                      (cons 40 r)<br />                      '(50 . 4.71239)<br />                      '(51 . 3.14159)<br />                )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

sicky111

选圆生成螺纹孔？