点选块，如何求出这块内的圆的圆心点和该块的插入点？我想在这两点间自动标出尺寸！

clh521

如图，求块的插入点我当然会，但求那个块内圆的圆心点不会了。求帮忙

clh521

我是想用(car (entsel))点选块得到块图元名，再跟据块图元名自动找出块插入点和里面的圆心点，再根据这两点标出尺寸。整个过程只需点选一下图块就行了

鱼与熊掌

进图块内部,读取圆的位置 在换算一下坐标

clh521

鱼与熊掌 发表于 2015-7-29 16:47
进图块内部,读取圆的位置 在换算一下坐标

就是这个不会，如何进块的内部？

ymcui

(setq SS (nentsel))
(setq P1 (osnaP (cadr SS) "CEN"))
(setq P2 (osnaP (cadr SS) "INS"))

edata

2. (defun sk_get_circle_cen (en / obj x cen)
   
3.   (if (and en
   
4.            (= (type en) 'ENAME)
   
5.       )
   
6.     (progn
   
7.       (vlax-for        X
   
8.                 (vla-item
   
9.                   (vla-get-blocks
   
10.                     (vla-get-ActiveDocument (vlax-get-acad-object))
    
11.                   )
    
12.                   (vla-get-name (setq OBJ (vlax-ename->vla-Object en)))
    
13.                 )
    
14.         (if (wcmatch (vla-get-ObjectName X) "AcDbCircle")
    
15.           (setq cen (vla-get-center X ))
    
16.         )
    
17.       )
    
18.       (if cen (vlax-safearray->list(vlax-variant-value cen )))
    
19.     )
    
20.   )
    
21. )
    
22. ;;获取等比缩放块块内圆心，非等比缩放不正确
    
23. ;;code by edata@mjtd 2015年7月29日
    
24. (defun c:tt(/ _dxf en cen1 ds a41 a50 p10 cen2)
    
25.   (defun _dxf(e i)(cdr(assoc i (entget e))))
    
26.   (setq en(car(entsel)))
    
27.   (setq cen1(sk_get_circle_cen en))
    
28.   (setq ds(distance '(0 0 0) cen1))
    
29.   (setq a41(_dxf en 41)
    
30.         a50(_dxf en 50)
    
31.         p10(_dxf en 10)
    
32.         )
    
33.   (setq cen2(polar p10 (+ (angle '(0 0 0) cen1) a50) (* ds a41)))
    
34.   (entmake (list '(0 . "CIRCLE") (cons 10 cen2) (cons 40 100)))
    
35.   )
    
36. 
    

(defun sk_get_circle_cen (en / obj x cen)<br />   (if (and en<br />            (= (type en) 'ENAME)<br />       )<br />     (progn<br />       (vlax-for        X<br />                 (vla-item<br />                   (vla-get-blocks<br />                     (vla-get-ActiveDocument (vlax-get-acad-object))<br />                   )<br />                   (vla-get-name (setq OBJ (vlax-ename->vla-Object en)))<br />                 )<br />         (if (wcmatch (vla-get-ObjectName X) "AcDbCircle")<br />           (setq cen (vla-get-center X ))<br />         )<br />       )<br />       (if cen (vlax-safearray->list(vlax-variant-value cen )))<br />     )<br />   )<br /> )<br /> ;;获取等比缩放块块内圆心，非等比缩放不正确<br /> ;;code by edata@mjtd 2015年7月29日<br /> (defun c:tt(/ _dxf en cen1 ds a41 a50 p10 cen2)<br />   (defun _dxf(e i)(cdr(assoc i (entget e))))<br />   (setq en(car(entsel)))<br />   (setq cen1(sk_get_circle_cen en))<br />   (setq ds(distance '(0 0 0) cen1))<br />   (setq a41(_dxf en 41)<br />         a50(_dxf en 50)<br />         p10(_dxf en 10)<br />         )<br />   (setq cen2(polar p10 (+ (angle '(0 0 0) cen1) a50) (* ds a41)))<br />   (entmake (list '(0 . "CIRCLE") (cons 10 cen2) (cons 40 100)))<br />   )<br /> <br />

xyp1964

试试用捕捉 "cen"

vormittag

块内是否只有一个圆？块内有多个圆的时候咋办？
建议用nentselp来选择块，选块的时候直接选要标注的圆。nentselp的返回值包括块插入的图元名以及选择的子图元图元名和子图元相应的转换矩阵，通过子图元图元名和转换矩阵可以找出圆心在世界坐标系位置。通过图元名可以找出块插入点的世界坐标系位置，标注就很容易了。

ymcui

2. (defun c:tt ()
   
3. (setq SS (nentsel))
   
4. (command "_.DIMALIGNED" (osnaP (cadr SS) "CEN") (osnaP (cadr SS) "INS") PAUSE)
   
5. (princ)
   
6. )

(defun c:tt ()<br /> (setq SS (nentsel))<br /> (command "_.DIMALIGNED" (osnaP (cadr SS) "CEN") (osnaP (cadr SS) "INS") PAUSE)<br /> (princ)<br /> )

clh521

ymcui 发表于 2015-7-30 08:22

谢谢，代码简短，但还不是能满足我要求，我要求是点击图块的任何地方就会标出尺寸！不需要点击块中的圆