头疼+++++++

我还有梦想

在封闭的面域中（或质心点）生成面域的面积（亩）并显示，例如：1.23亩。我有一段别人的源码，只能每一个面域点击才能生成（调用CAD的boundary命令），能否实现批量生成和标注呢？

dingtiedt

要批量，就不是点选，而是用“框选”。论坛里有的。

http://bbs.mjtd.com/thread-95135-2-1.html

我还有梦想

dingtiedt 发表于 2015-11-27 17:13
要批量，就不是点选，而是用“框选”。论坛里有的。

http://bbs.mjtd.com/thread-95135-2-1.html

你好，我这个目的不是导出来。显示在面域即可。还是很感谢。

Gu_xl

需加载XLRX_API使用:

1. (defun c:tt (/ ss a pt)
   
2.   (if (setq ss (ssget (list '(0 . "*polyline")        '(-4 . "<or")
   
3.                             '(70 . 1)                '(70 . 129)
   
4.                             '(-4 . "or>")
   
5.                            )
   
6.                )
   
7.       )
   
8.     (progn
   
9.       (foreach e (XLRX-PickSet->List ss)
   
10.         (setq
    
11.           a (strcat (rtos (/ (* (xlrx-curve-getarea e) 3) 2000) 2 2)
    
12.                     "亩"
    
13.             )
    
14.         )
    
15.         (setq
    
16.           en (xlrx-make "text" (setq pt (XLRX-GetInnerPoint e)) a 2.0)
    
17.         )
    
18.         (xlrx-set en "HorizontalMode" 1)
    
19.         (xlrx-set en "VerticalMode" 2)
    
20.         (xlrx-set en "AlignmentPoint" pt)
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

(defun c:tt (/ ss a pt)<br />   (if (setq ss (ssget (list '(0 . "*polyline")        '(-4 . "<or")<br />                             '(70 . 1)                '(70 . 129)<br />                             '(-4 . "or>")<br />                            )<br />                )<br />       )<br />     (progn<br />       (foreach e (XLRX-PickSet->List ss)<br />         (setq<br />           a (strcat (rtos (/ (* (xlrx-curve-getarea e) 3) 2000) 2 2)<br />                     "亩"<br />             )<br />         )<br />         (setq<br />           en (xlrx-make "text" (setq pt (XLRX-GetInnerPoint e)) a 2.0)<br />         )<br />         (xlrx-set en "HorizontalMode" 1)<br />         (xlrx-set en "VerticalMode" 2)<br />         (xlrx-set en "AlignmentPoint" pt)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

我还有梦想

Gu_xl 发表于 2015-11-27 20:25
需加载XLRX_API使用:

谢谢G版主，用你的代码已解决问题，感谢。