如何获得块中的圆的圆心？

欲海猛男

如果块中存在圆 ，如何获得块中的圆的圆心？

x_s_s_1

选择块ss1－>炸开ss1－>ss2 (ssget "p")－>过滤出圆－>删除ss2－>insert ss1

Gu_xl

(setq cp (cdr (assoc 10 (entget (car (setq nel (nentsel "\n选择块中圆：")))))))
(setq cp (polar cp (angle '(0 0 0) (setq pt (cdr (assoc 10 (entget (last (last nel))))))) (distance  '(0 0 0) pt)))

402326352

op--选择--在块中启用夹点，就可以了

liu_kunlun

可适应任何UCS下的圆：
1、用（nentselp）取得:OCS圆心 pt（10组），坐标转换矩阵M，拉伸方向vo（210组）
2、将pt转换到块内“WCS”:(trans pt vo 0)
3、利用坐标转换矩阵M将块内“WCS”转换到块外WCS
4、根据需要转换到当前UCS

欲海猛男

到底怎么弄 需要直接可以用的代码

qjcpj

思路：选中块，然后遍历块中子实体，如果是圆则取出并取其dxf列表，从而获得圆心坐标；如果含嵌套块，则需递归调用。

欲海猛男

如何遍历块中子实体

yshf

2. 
   
3. (defun c:cc()
   
4.     (while (setq ent (nentsel "\nobj:"))
   
5.        (setq dxf (entget (car ent))
   
6.       nam (cdr (assoc 0 dxf))
   
7.       po  (cdr (assoc 10 dxf))
   
8.       x   (car  po)
   
9.       y   (cadr po)
   
10.       z   (last po)
    
11.        )
    
12.        (if (> (length ent) 2)
    
13.            (setq mm  (caddr ent)
    
14.           m0  (car mm)
    
15.           m1  (nth 1 mm)
    
16.           m2  (nth 2 mm)
    
17.           m3  (last mm)
    
18.           x   (+ (* (car po) (cadr m0)) (* (cadr po) (cadr m1)) (* (last po) (cadr m2)) (cadr m3))
    
19.           y   (+ (* (car po) (car  m0)) (* (cadr po) (car  m1)) (* (last po) (car  m2)) (car  m3))
    
20.           z   (+ (* (car po) (last m0)) (* (cadr po) (last m1)) (* (last po) (last m2)) (last  m3))
    
21.     )
    
22.        )
    
23.        (princ (strcat "\n圆心坐标x=" (rtos x 2 4) "  y=" (rtos y 2 4) "  z=" (rtos z 2 4)))
    
24.     )
    
25.     (princ)
    
26. )
    

<br /> (defun c:cc()<br />     (while (setq ent (nentsel "\nobj:"))<br />        (setq dxf (entget (car ent))<br />       nam (cdr (assoc 0 dxf))<br />       po  (cdr (assoc 10 dxf))<br />       x   (car  po)<br />       y   (cadr po)<br />       z   (last po)<br />        )<br />        (if (> (length ent) 2)<br />            (setq mm  (caddr ent)<br />           m0  (car mm)<br />           m1  (nth 1 mm)<br />           m2  (nth 2 mm)<br />           m3  (last mm)<br />           x   (+ (* (car po) (cadr m0)) (* (cadr po) (cadr m1)) (* (last po) (cadr m2)) (cadr m3))<br />           y   (+ (* (car po) (car  m0)) (* (cadr po) (car  m1)) (* (last po) (car  m2)) (car  m3))<br />           z   (+ (* (car po) (last m0)) (* (cadr po) (last m1)) (* (last po) (last m2)) (last  m3))<br />     )<br />        )<br />        (princ (strcat "\n圆心坐标x=" (rtos x 2 4) "  y=" (rtos y 2 4) "  z=" (rtos z 2 4)))<br />     )<br />     (princ)<br /> )<br />

snddd2000

entnext+while
遍历