很是纠结的一个问题，请路过的高手帮忙看看！

yjr111

       自己搞得“BREAK”程序，经过仔细观察，发现线和圆的交点总是差那么一点点，用DI量了一下，基本是0.005这个级别，但就是无法得到重合点，线和线之间没问题，对程序调试发现到“intersectwith"求出交点这一步就已经差了那么一点点了，因此怀疑是不是“intersectwith"的BUG?对一些高手的BREAK程序进行了测试，同样发现这个问题，如著名的BREAKALL。。。
如下图所示：

yjr111

1548845899 发表于 2011-12-8 21:36
不会，这是显示精度问题

将圆弧平弧度调整到20000，多段线线段数调整到32767，测量小数点调到最多位，再次测量为0.000013左右，请问一下1548845899，显示精度问题如何解决？

Andyhon

LUPREC System Variable

Type: Integer
Saved in: Drawing
Initial value: 4


...圆弧平弧度...
参考 ===> WhipARC

yjr111

Andyhon 发表于 2011-12-8 21:54
LUPREC System Variable

Type: Integer

一、LUPREC 设置为4，的确可以让数据显示为0.000，但我将LUPREC 设置为8，数据还是会显示为0.000013，交点也不会重合。。。
二、圆弧平弧度我前面已经设置过了，没用！
请继续赐教！

Andyhon

能上传该图纸作为验证之用吗?

yjr111

Andyhon 发表于 2011-12-8 22:21
能上传该图纸作为验证之用吗?

实在对不起，我的网速也很纠结，所以反应可能会慢一点。。。
上传测试图纸和本人自己写的break程序（真不敢拿出来见人）。。。

2. ;;;;;;;;;;;;;;;;;;与线相交交点打断;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
3. ;;;;;;;;;;;;;;;;;;BY YJR111 2011-11-24;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
4. ;;;;;;;;;;;;;;;;;;适用于所有曲线;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
5. (defun c:brs (/                n          e            ee              s
   
6.               lst_e        vla_x          vla_y            point     vla_point
   
7.               p_lst        point1          dxf10_line              dxf11_line
   
8.               ee_new        ee_last          ss   ss_1    ss_2   lst_newpoint
   
9.               entname   vla_entname
   
10.              )
    
11.   (command "_.undo" "be")
    
12.   (setq oldosmode (getvar "osmode"))
    
13.   (setq oldorthomode (getvar "orthomode"))
    
14.   (setvar "osmode" 0)
    
15.   (setvar "cmdecho" 0)
    
16.   (setvar "orthomode" 0)
    
17.   (setq n 0)
    
18.   (setq sss (ssadd))
    
19.   (setq ee (car (entsel "\n选择一条曲线：")))
    
20.   (redraw ee 3)
    
21.   (ssadd ee sss)
    
22.   (setq vla_ee (vlax-ename->vla-object ee))
    
23.   (vla-getboundingbox vla_ee 'minpoint 'maxpoint)
    
24.   (setq        minpoint (vlax-safearray->list minpoint)
    
25.         maxpoint (vlax-safearray->list maxpoint)
    
26.   )
    
27.   (INITGET 128 "S O")
    
28.   (SETQ        KEY
    
29.          (GETKWORD
    
30.            "\n 所选曲线自身在交点被打断凡或与所选曲线相交的曲线被打断(S)[右键确认(S)/自身打断(O)]"
    
31.          ) ;_ 结束GETKWORD
    
32.   ) ;_ 结束SETQ
    
33.   (if (not KEY)
    
34.     (setq key "S")
    
35.   ) ;_ 结束if
    
36.   (setq        ss (ssget "c" minpoint maxpoint)
    
37.         n  0
    
38.   ) ;_ 结束setq
    
39. (setq        ss (ssget "p"
    
40.                   '((-4 . "")(-4 . "")
    
41.                     (-4 . "")
    
42.                     (-4 . "")
    
43.                     (-4 . "")
    
44.                     (-4 . "")(-4 . "and>")
    
45.                    )
    
46.            )
    
47.   )
    
48.   (while (< n (sslength ss))
    
49.     (setq e        (ssname ss n)
    
50.           s        (entget e)
    
51.           lst_e        (append lst_e (list e))
    
52.           n        (1+ n)
    
53.     ) ;_ 结束setq
    
54. ;_ 结束setq
    
55.   ) ;_ 结束while
    
56.   (setq        n 0
    
57.         i 0
    
58.   ) ;_ 结束setq
    
59.   (foreach y lst_e
    
60.     (setq vla_y (vlax-ename->vla-object y))
    
61.     (if        (and (not (equal vla_ee vla_y))
    
62.              (/= (safearray-value
    
63.                    (vlax-variant-value
    
64.                      (setq vla_point (vlax-invoke-method
    
65.                                        vla_ee
    
66.                                        'IntersectWith
    
67.                                        vla_y
    
68.                                        acExtendNone
    
69.                                      ) ;_ 结束vlax-invoke-method
    
70.                      ) ;_ 结束setq
    
71.                    ) ;_ 结束vlax-variant-value
    
72.                  ) ;_ 结束safearray-value
    
73.                  nil
    
74.              ) ;_ 结束/=
    
75.         ) ;_ 结束and
    
76.       (progn
    
77.         (setq
    
78.           point        (vlax-safearray->list (vlax-variant-value vla_point))
    
79.         ) ;_ 结束setq
    
80.         (if (> (length point) 3)
    
81.           (progn
    
82.             (lst->3p point)
    
83.             (setq p_lst lst_newpoint)
    
84.             (if        (= key "S")
    
85.               (progn
    
86.               (setq ssss (ssadd))
    
87.               (ssadd y ssss)
    
88.               (sssbreak y ss ssss p_lst)
    
89.               (if(or(=(vla-get-objectname vla_y)"AcDbCircle")(=(vla-get-objectname vla_y)"AcDbEllipse"))
    
90.                   (alert (strcat "\n不能单点打断闭合曲线!""\n\n"
    
91.                    "\n共打断 0 个交点!"
    
92.                      )
    
93.                     ) ;_ 结束if
    
94.           ) ;_ 结束progn
    
95.           )
    
96.               )
    
97.             )
    
98.           (progn
    
99.             (setq point        (vlax-safearray->list
    
100.                           (vlax-variant-value vla_point)
     
101.                         ) ;_ 结束vlax-safearray->list
     
102.             ) ;_ 结束vlax-safearray->list
     
103. 
     
104.             (if
     
105.               (not
     
106.                 (or (equal (vlax-curve-getstartpoint vla_y) point 1e-4)
     
107.                     (equal (vlax-curve-getendpoint vla_y) point 1e-4)
     
108.                 )
     
109.               ) ;_ 结束not
     
110.                (setq p_lst (cons point p_lst))
     
111.             ) ;_ 结束setq
     
112.             (if        (= key "S")
     
113.               (command "_.break" (list y point) "_non" (trans point 0 1) "_non" (trans point 0 1))
     
114.             ) ;_ 结束if
     
115.           ) ;_ 结束progn
     
116.         ) ;_ 结束if
     
117.       ) ;_ 结束progn
     
118.     ) ;_ 结束if
     
119.     (redraw y 4)
     
120.   ) ;_ 结束foreach
     
121.   (if (= key "O")
     
122.     (sssbreak ee ss sss p_lst)
     
123.   ) ;_ 结束if
     
124.   (if (and(or(=(vla-get-objectname vla_ee)"AcDbCircle")(=(vla-get-objectname vla_ee)"AcDbEllipse"))
     
125.              (= key "O"))
     
126.          (alert (strcat "\n不能单点打断闭合曲线!""\n\n"
     
127.                    "\n共打断 0 个交点!"
     
128.            ))
     
129.    
     
130.    (if(not(and (= key "S") (vlax-curve-isClosed vla_Y)))
     
131.    (princ (strcat "\n共打断<" (itoa (length p_lst)) " >个交点!")))
     
132.   )
     
133.   (command "_.undo" "end")
     
134.   (setvar "osmode" oldosmode)
     
135.   (setvar "orthomode" oldorthomode)
     
136.   (princ)
     
137. ) ;_ 结束defun
     
138. ;;;;;;;;将点表3个一组重新组表，用于处理多段线;;;;;;;;;;;;;;;;;;;;;
     
139. (defun lst->3p (lst / n lst_new1)
     
140.   (setq n 0)
     
141.   (mapcar
     
142.     (function
     
143.       (lambda (x)
     
144.         (setq lst_new1 (append lst_new1 (list x)))
     
145.         (if (= (rem (1+ n) 3) 0)
     
146.           (progn
     
147.             (setq lst_newpoint (append (list lst_new1) lst_newpoint))
     
148.             (setq lst_new1 nil)
     
149.           )
     
150.         )
     
151.         (setq n (1+ n))
     
152.       )
     
153.     )
     
154.     lst
     
155.   )
     
156. 
     
157. )
     
158.   
     
159. 
     
160. ;;;;;;;;;;;;;;;;;重新构造选择集进行交点打断;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
161. (defun sssbreak        (entname ss_1 ss_2 p_lst / i n)
     
162.   (foreach x p_lst
     
163.     (setq i 0)
     
164.     (if        (> (sslength ss_2) 0)
     
165.       (while (< i (sslength ss_2))
     
166.         (setq entname (ssname ss_2 i))
     
167.         (setq vla_entname (vlax-ename->vla-object entname))
     
168.         (if (equal (vlax-curve-getClosestPointTo vla_entname x) x 1e-4)
     
169.           (command "_.break" (list entname x) "_non" (trans x 0 1) "_non" (trans x 0 1))
     
170.           ;(command "_.break" (list entname x)"_non" x "_non" x)
     
171.         )
     
172.         (setq i (1+ i))
     
173.       ) ;_ 结束while
     
174.     ) ;_ 结束if
     
175.     (setq ss_2 (ssget "c" minpoint maxpoint))
     
176.     (setq ss_2 (ssget "p"
     
177.                   '((-4 . "")(-4 . "")
     
178.                     (-4 . "")
     
179.                     (-4 . "")
     
180.                     (-4 . "")
     
181.                     (-4 . "")(-4 . "and>")
     
182.                    )
     
183.            )
     
184.   )
     
185.     (command "_.select" SS_1 ss_2 "")
     
186.     (setq ss_2 (ssget "P"))
     
187.     (ssdel entname SS_1)
     
188.     (setq n 0)
     
189.     (repeat (sslength SS_1)
     
190.       (setq i 0)
     
191.       (while (< i (sslength ss_2))
     
192.         (if (equal (ssname SS_1 n) (ssname ss_2 i))
     
193.           (progn
     
194.             (ssdel (ssname ss_2 i) ss_2)
     
195.             (setq i (sslength ss_2))
     
196.           ) ;_ 结束progn
     
197.         ) ;_ 结束if
     
198.         (setq i (1+ i))
     
199.       ) ;_ 结束while
     
200.       (setq n (1+ n))
     
201.     ) ;_ 结束repeat
     
202.   )
     
203. )

;;;;;;;;;;;;;;;;;;与线相交交点打断;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;;BY YJR111 2011-11-24;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;;适用于所有曲线;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun c:brs (/                n          e            ee              s<br />               lst_e        vla_x          vla_y            point     vla_point<br />               p_lst        point1          dxf10_line              dxf11_line<br />               ee_new        ee_last          ss   ss_1    ss_2   lst_newpoint<br />               entname   vla_entname<br />              )<br />   (command "_.undo" "be")<br />   (setq oldosmode (getvar "osmode"))<br />   (setq oldorthomode (getvar "orthomode"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setvar "orthomode" 0)<br />   (setq n 0)<br />   (setq sss (ssadd))<br />   (setq ee (car (entsel "\n选择一条曲线：")))<br />   (redraw ee 3)<br />   (ssadd ee sss)<br />   (setq vla_ee (vlax-ename->vla-object ee))<br />   (vla-getboundingbox vla_ee 'minpoint 'maxpoint)<br />   (setq        minpoint (vlax-safearray->list minpoint)<br />         maxpoint (vlax-safearray->list maxpoint)<br />   )<br />   (INITGET 128 "S O")<br />   (SETQ        KEY<br />          (GETKWORD<br />            "\n 所选曲线自身在交点被打断凡或与所选曲线相交的曲线被打断(S)[右键确认(S)/自身打断(O)]"<br />          ) ;_ 结束GETKWORD<br />   ) ;_ 结束SETQ<br />   (if (not KEY)<br />     (setq key "S")<br />   ) ;_ 结束if<br />   (setq        ss (ssget "c" minpoint maxpoint)<br />         n  0<br />   ) ;_ 结束setq<br /> (setq        ss (ssget "p"<br />                   '((-4 . "")(-4 . "")<br />                     (-4 . "")<br />                     (-4 . "")<br />                     (-4 . "")<br />                     (-4 . "")(-4 . "and>")<br />                    )<br />            )<br />   )<br />   (while (< n (sslength ss))<br />     (setq e        (ssname ss n)<br />           s        (entget e)<br />           lst_e        (append lst_e (list e))<br />           n        (1+ n)<br />     ) ;_ 结束setq<br /> ;_ 结束setq<br />   ) ;_ 结束while<br />   (setq        n 0<br />         i 0<br />   ) ;_ 结束setq<br />   (foreach y lst_e<br />     (setq vla_y (vlax-ename->vla-object y))<br />     (if        (and (not (equal vla_ee vla_y))<br />              (/= (safearray-value<br />                    (vlax-variant-value<br />                      (setq vla_point (vlax-invoke-method<br />                                        vla_ee<br />                                        'IntersectWith<br />                                        vla_y<br />                                        acExtendNone<br />                                      ) ;_ 结束vlax-invoke-method<br />                      ) ;_ 结束setq<br />                    ) ;_ 结束vlax-variant-value<br />                  ) ;_ 结束safearray-value<br />                  nil<br />              ) ;_ 结束/=<br />         ) ;_ 结束and<br />       (progn<br />         (setq<br />           point        (vlax-safearray->list (vlax-variant-value vla_point))<br />         ) ;_ 结束setq<br />         (if (> (length point) 3)<br />           (progn<br />             (lst->3p point)<br />             (setq p_lst lst_newpoint)<br />             (if        (= key "S")<br />               (progn<br />               (setq ssss (ssadd))<br />               (ssadd y ssss)<br />               (sssbreak y ss ssss p_lst)<br />               (if(or(=(vla-get-objectname vla_y)"AcDbCircle")(=(vla-get-objectname vla_y)"AcDbEllipse"))<br />                   (alert (strcat "\n不能单点打断闭合曲线!""\n\n"<br />                    "\n共打断 0 个交点!"<br />                      )<br />                     ) ;_ 结束if<br />           ) ;_ 结束progn<br />           )<br />               )<br />             )<br />           (progn<br />             (setq point        (vlax-safearray->list<br />                           (vlax-variant-value vla_point)<br />                         ) ;_ 结束vlax-safearray->list<br />             ) ;_ 结束vlax-safearray->list<br /> <br />             (if<br />               (not<br />                 (or (equal (vlax-curve-getstartpoint vla_y) point 1e-4)<br />                     (equal (vlax-curve-getendpoint vla_y) point 1e-4)<br />                 )<br />               ) ;_ 结束not<br />                (setq p_lst (cons point p_lst))<br />             ) ;_ 结束setq<br />             (if        (= key "S")<br />               (command "_.break" (list y point) "_non" (trans point 0 1) "_non" (trans point 0 1))<br />             ) ;_ 结束if<br />           ) ;_ 结束progn<br />         ) ;_ 结束if<br />       ) ;_ 结束progn<br />     ) ;_ 结束if<br />     (redraw y 4)<br />   ) ;_ 结束foreach<br />   (if (= key "O")<br />     (sssbreak ee ss sss p_lst)<br />   ) ;_ 结束if<br />   (if (and(or(=(vla-get-objectname vla_ee)"AcDbCircle")(=(vla-get-objectname vla_ee)"AcDbEllipse"))<br />              (= key "O"))<br />          (alert (strcat "\n不能单点打断闭合曲线!""\n\n"<br />                    "\n共打断 0 个交点!"<br />            ))<br />     <br />    (if(not(and (= key "S") (vlax-curve-isClosed vla_Y)))<br />    (princ (strcat "\n共打断<" (itoa (length p_lst)) " >个交点!")))<br />   )<br />   (command "_.undo" "end")<br />   (setvar "osmode" oldosmode)<br />   (setvar "orthomode" oldorthomode)<br />   (princ)<br /> ) ;_ 结束defun<br /> ;;;;;;;;将点表3个一组重新组表，用于处理多段线;;;;;;;;;;;;;;;;;;;;;<br /> (defun lst->3p (lst / n lst_new1)<br />   (setq n 0)<br />   (mapcar<br />     (function<br />       (lambda (x)<br />         (setq lst_new1 (append lst_new1 (list x)))<br />         (if (= (rem (1+ n) 3) 0)<br />           (progn<br />             (setq lst_newpoint (append (list lst_new1) lst_newpoint))<br />             (setq lst_new1 nil)<br />           )<br />         )<br />         (setq n (1+ n))<br />       )<br />     )<br />     lst<br />   )<br /> <br /> )<br />   <br /> <br /> ;;;;;;;;;;;;;;;;;重新构造选择集进行交点打断;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun sssbreak        (entname ss_1 ss_2 p_lst / i n)<br />   (foreach x p_lst<br />     (setq i 0)<br />     (if        (> (sslength ss_2) 0)<br />       (while (< i (sslength ss_2))<br />         (setq entname (ssname ss_2 i))<br />         (setq vla_entname (vlax-ename->vla-object entname))<br />         (if (equal (vlax-curve-getClosestPointTo vla_entname x) x 1e-4)<br />           (command "_.break" (list entname x) "_non" (trans x 0 1) "_non" (trans x 0 1))<br />           ;(command "_.break" (list entname x)"_non" x "_non" x)<br />         )<br />         (setq i (1+ i)) <br />       ) ;_ 结束while<br />     ) ;_ 结束if<br />     (setq ss_2 (ssget "c" minpoint maxpoint))<br />     (setq ss_2 (ssget "p"<br />                   '((-4 . "")(-4 . "")<br />                     (-4 . "")<br />                     (-4 . "")<br />                     (-4 . "")<br />                     (-4 . "")(-4 . "and>")<br />                    )<br />            )<br />   )<br />     (command "_.select" SS_1 ss_2 "")<br />     (setq ss_2 (ssget "P"))<br />     (ssdel entname SS_1)<br />     (setq n 0)<br />     (repeat (sslength SS_1)<br />       (setq i 0)<br />       (while (< i (sslength ss_2))<br />         (if (equal (ssname SS_1 n) (ssname ss_2 i))<br />           (progn<br />             (ssdel (ssname ss_2 i) ss_2)<br />             (setq i (sslength ss_2))<br />           ) ;_ 结束progn<br />         ) ;_ 结束if<br />         (setq i (1+ i))<br />       ) ;_ 结束while<br />       (setq n (1+ n))<br />     ) ;_ 结束repeat<br />   )<br /> )

Andyhon

Command: (rtos (cdr (assoc 40 (entget ee))) 2 16)
"1.547820147438836"    <== 这是半径值

距离 :1.547820147438854   <== 这是断点至圆心的距离值
(-1.378832381450592 -0.7032556239952328 0.000000000000000)