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

xyp1964

2. ;; tt(面积标注)
   
3. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/Qh7rDf4Y2xwYN（提取码：06ee）
   
4. (defun c:tt ()
   
5.   (xyp-Start)
   
6.   (setq i -1)
   
7.   (if (setq ss (ssget '((0 . "*polyLINE,ARC,CIRCLE,ELLIPSE"))))
   
8.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.       (xyp-Text 5 (xyp-9pt s1 5) (rtos (xyp-get "area" s1) 2 2))
   
10.     )
    
11.   )
    
12.   (xyp-End)
    
13. )

;; tt(面积标注)<br /> ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/Qh7rDf4Y2xwYN（提取码：06ee）<br /> (defun c:tt ()<br />   (xyp-Start)<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "*polyLINE,ARC,CIRCLE,ELLIPSE"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (xyp-Text 5 (xyp-9pt s1 5) (rtos (xyp-get "area" s1) 2 2))<br />     )<br />   )<br />   (xyp-End)<br /> )

zbwei120

newbuser 发表于 2014-12-25 14:44
没看懂你说的这个意思。

我说的是先确定（输入）一个面积值，然后通过拉伸某个点或某条边，顺着拉伸方向，那个点自动移动相应的位置，而且最终面积刚好为那个输入的面积 。比如征地的时候，领导要求只能征500个平方，但你测量时不可能刚好是500个平方，然后通过拉伸某个点，顺着拉伸方向，该点自动移位，面积却是500个平方。不知这么说你能明白。

newbuser

香田里浪人 发表于 2014-12-25 19:54
这是个带反应器的面积标注，确实不错，再修改一下，能框选多个标注更好。

哥，有了这个单独标注的，框选的只需要加个repeat循环下就行了。

newbuser

zbwei120 发表于 2014-12-25 23:39
我说的是先确定（输入）一个面积值，然后通过拉伸某个点或某条边，顺着拉伸方向，那个点自动移动相应的位 ...

看了阁下的这段非常详实的语言描述，终于明白了您的最终意图，但，对目前本人的瓜娃子水平来说，确实有些难度啊。我看我还是不要研究了，需要用到的东西太多。Grread函数是个瓶颈，可能还要用运算域的东西。搞不来啊。

zbwei120

没事，这个可能确实有点难，等待大侠出现。

wsjchc

学习一下看看，谢谢分享！

llsheng_73

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

意思对注记的面积作一个反应器，修改它的值的时候反过来去调整多线段？但减小面积的情况下，可能移动一个点是无法达到目标面积的。。。

bai2000

标注的字体太小，怎么修改？颜色也不显亮

newbuser

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

鉴于本人没有什么数学造诣，关于形心我也就只能理解到图形内一点靠近中心的位置了。

香田里浪人

bai2000 发表于 2015-8-22 12:26
标注的字体太小，怎么修改？颜色也不显亮

图层，字体及颜色可以自己修改，添加即可。