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

clh521

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

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

e2002

如果只是你这个特定的块，可以写出专门对应的代码来实现你的要求，无法适用于其他的块(也可以此为判断条件，只选择这个特定的块进行处理）。

cable2004

edata大师的，顺路改改！

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

<br /> (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)(vl-load-com)<br />   (defun _dxf(e i)(cdr(assoc i (entget e))))<br />   (setq en(car(entsel)))<br />   (if (= "INSERT" (_dxf en 0))(progn<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 />   (vla-GetBoundingBox (vlax-ename->vla-Object en) 'Minp 'Maxp)<br />   (setq pt (cadr (mapcar 'vlax-safearray->list (list Minp Maxp))))<br />   ))<br />   (command "_dimlinear" cen2 pt PAUSE)<br />   (princ)<br />   )<br />

clh521

cable2004 发表于 2015-7-31 19:48
edata大师的，顺路改改！

谢谢cable2004，程序有正确的结果;但是当图块旋转90度后，就不正确了

clh521

edata 发表于 2015-7-29 17:41

谢谢edata大师提供核代码，正在研究

clh521

edata 发表于 2015-7-29 17:41

真的谢谢edada,把你的源程序改一行，就得到正确结果了，故意让我自已动脑去改。
看看我改的那行，我注释出来了：
(defun sk_get_circle_cen (en / obj x cen)
  (if (and en
           (= (type en) 'ENAME)
      )
    (progn
      (vlax-for        X
                (vla-item
                  (vla-get-blocks
                    (vla-get-ActiveDocument (vlax-get-acad-object))
                  )
                  (vla-get-name (setq OBJ (vlax-ename->vla-Object en)))
                )
        (if (wcmatch (vla-get-ObjectName X) "AcDbCircle")
          (setq cen (vla-get-center X ))
        )
      )
      (if cen (vlax-safearray->list(vlax-variant-value cen )))
    )
  )
)
;;获取等比缩放块块内圆心，非等比缩放不正确
;;code by edata@mjtd 2015年7月29日
(defun c:tt(/ _dxf en cen1 ds a41 a50 p10 cen2)
  (defun _dxf(e i)(cdr(assoc i (entget e))))
  (setq en(car(entsel)))
  (setq cen1(sk_get_circle_cen en))
  (setq ds(distance '(0 0 0) cen1))
  (setq a41(_dxf en 41)
        a50(_dxf en 50)
        p10(_dxf en 10)
        )
  (setq cen2(polar p10 (+ (angle '(0 0 0) cen1) a50) (* ds a41)))
  ;;(entmake (list '(0 . "CIRCLE") (cons 10 cen2) (cons 40 100)))  ;;这行代码不要，改为下面的那行
  (command "_dimaligned" p10 cen2 PAUSE)
  )

clh521

clh521 发表于 2015-8-2 10:26
真的谢谢edada,把你的源程序改一行，就得到正确结果了，故意让我自已动脑去改。
看看我改的那行，我注 ...

工作太忙，晚上还要加班，难得星期天休息，才来研究

clh521

edata 发表于 2015-7-29 17:41

工作太忙，天天晚上还要加班，难得星期天休息，才来研究