求解计算封闭路线的面积并注计在其形心

郭文姬happy

求解计算封闭路线的面积并注计在其形心

nzl1116

东西呢，在哪里？？？

king20061335

标题党

newbuser

2. (vl-load-com)
   
3. (defun c:mj (/)
   
4.   (setq e (car (entsel "\n 请选择多边形==>>  ")))
   
5.   (setq e_obj (vlax-ename->vla-object e))
   
6.   (vla-getboundingbox e_obj 'minpt 'maxpt)
   
7.   (setq p1 (vlax-safearray->list minpt))
   
8.   (setq p2 (vlax-safearray->list maxpt))
   
9.   (setq mid (mapcar '(lambda (x y) (/ (+ x y) 2.)) p1 p2));;求两点中点
   
10.   (setq mj (rtos (vla-get-area e_obj) 2 3))
    
11.   (entmake
    
12.     (list '(0 . "TEXT")
    
13.     (cons 1 mj)
    
14.     (cons 10 mid)
    
15.     (cons 40 (* (vla-get-area e_obj) 0.001))
    
16.     )
    
17.   )
    
18.   (setq wjb (cdr (assoc 5 (entget (entlast)))))
    
19.   (setq wjl (list wjb))
    
20.   (setq objlt (list e_obj))  ;图元名转换为VLA对象
    
21.   (setq  vrl (vlr-pers
    
22.         (vlr-object-reactor objlt wjl '((:vlr-modified . c-2l)))
    
23.       )
    
24.   )
    
25.   (princ)        ;静默退出
    
26. )
    
27. (defun c-2l (notifier-object
    
28.        reactor-object
    
29.        parameter-list
    
30.        /
    
31.       )
    
32.   (setq mj (rtos (vla-get-area notifier-object) 2 3))
    
33.   (vla-getboundingbox notifier-object 'minpt 'maxpt)
    
34.   (setq p1 (vlax-safearray->list minpt))
    
35.   (setq p2 (vlax-safearray->list maxpt))
    
36.   (setq mid (mapcar '(lambda (x y) (/ (+ x y) 2.)) p1 p2)) ;;求两点中点
    
37.   (setq we (handent (car (vlr-data reactor-object)))) ;获取文本图元名
    
38.   (setq wel (entget we))
    
39.   (setq wel (subst (vl-list* 10 mid) (assoc 10 wel) wel))
    
40.   (setq wel (subst (vl-list* 1 mj) (assoc 1 wel) wel))
    
41.   (setq
    
42.     wel  (subst (vl-list* 40 (* (vla-get-area notifier-object) 0.0001))
    
43.          (assoc 40 wel)
    
44.          wel
    
45.   )
    
46.   )
    
47.   (entmod wel)        ;更新文本图元表
    
48. )
    
49. 
    

(vl-load-com)<br /> (defun c:mj (/)<br />   (setq e (car (entsel "\n 请选择多边形==>>  ")))<br />   (setq e_obj (vlax-ename->vla-object e))<br />   (vla-getboundingbox e_obj 'minpt 'maxpt)<br />   (setq p1 (vlax-safearray->list minpt))<br />   (setq p2 (vlax-safearray->list maxpt))<br />   (setq mid (mapcar '(lambda (x y) (/ (+ x y) 2.)) p1 p2));;求两点中点<br />   (setq mj (rtos (vla-get-area e_obj) 2 3))<br />   (entmake<br />     (list '(0 . "TEXT")<br />     (cons 1 mj)<br />     (cons 10 mid)<br />     (cons 40 (* (vla-get-area e_obj) 0.001))<br />     )<br />   )<br />   (setq wjb (cdr (assoc 5 (entget (entlast)))))<br />   (setq wjl (list wjb))<br />   (setq objlt (list e_obj))  ;图元名转换为VLA对象<br />   (setq  vrl (vlr-pers<br />         (vlr-object-reactor objlt wjl '((:vlr-modified . c-2l)))<br />       )<br />   )<br />   (princ)        ;静默退出<br /> )<br /> (defun c-2l (notifier-object<br />        reactor-object<br />        parameter-list<br />        /<br />       )<br />   (setq mj (rtos (vla-get-area notifier-object) 2 3))<br />   (vla-getboundingbox notifier-object 'minpt 'maxpt)<br />   (setq p1 (vlax-safearray->list minpt))<br />   (setq p2 (vlax-safearray->list maxpt))<br />   (setq mid (mapcar '(lambda (x y) (/ (+ x y) 2.)) p1 p2)) ;;求两点中点<br />   (setq we (handent (car (vlr-data reactor-object)))) ;获取文本图元名<br />   (setq wel (entget we))<br />   (setq wel (subst (vl-list* 10 mid) (assoc 10 wel) wel))<br />   (setq wel (subst (vl-list* 1 mj) (assoc 1 wel) wel))<br />   (setq<br />     wel  (subst (vl-list* 40 (* (vla-get-area notifier-object) 0.0001))<br />          (assoc 40 wel)<br />          wel<br />   )<br />   )<br />   (entmod wel)        ;更新文本图元表<br /> )<br /> <br />

这是个带反应器的面积标注，又不妥之处还望高手多多指点。

郭文姬happy

newbuser 发表于 2014-12-22 19:21
这是个带反应器的面积标注，又不妥之处还望高手多多指点。

谢谢

zbwei120

这个求面积挺好，能否带反应器实现个功能，就是确定一个面积值，然后将某个点朝某个方向移动后自动确定到相应的位置，面积刚好是输入的面积值。

小灰345

支持一下啊

newbuser

zbwei120 发表于 2014-12-24 00:04
这个求面积挺好，能否带反应器实现个功能，就是确定一个面积值，然后将某个点朝某个方向移动后自动确定到相 ...

没看懂你说的这个意思。

香田里浪人

newbuser 发表于 2014-12-22 19:21
这是个带反应器的面积标注，又不妥之处还望高手多多指点。

这是个带反应器的面积标注，确实不错，再修改一下，能框选多个标注更好。

461045462

newbuser 发表于 2014-12-22 19:21
这是个带反应器的面积标注，又不妥之处还望高手多多指点。

收藏了，好好看看学习学习。
谢谢！
圣诞节快乐