[编程申请]：急急急！求高手帮忙编面积LSP！

sniawiq

我的思路是这样的用REGION生成面域，然后用LIST查看面积就可以了。
但是程序里必须没有中文，因为工作的环境需要。
还请各位帮忙！！！谢谢！！！！！我这有个REGION。LSP还请各位帮忙看看下面我该怎么写。

zxq0220

[php]
(DEFUN C:AREA2 ()
(SETVAR "CMDECHO" 0)
(COMMAND "_.UNDO" "BE")
(SETQ PT (GETPOINT "\nPick a inside Point:"))
(COMMAND "-BOUNDARY" PT "" "AREA" "O" "L")
(COMMAND "ERASE" "L" "") ; Delete or Remark This Line to Keep Last Entity.
(COMMAND "TEXT" "J" "C" PT "5" "0" (RTOS (GETVAR "AREA") 2 3))
(PRINC "\nThe Area is =")
(PRINC (RTOS (/ (GETVAR "AREA") 1000000) 2 4))
(PRINC "m^2 (")
(PRINC (RTOS (GETVAR "AREA") 2 3))
(PRINC "mm^2)。")
(COMMAND "_.UNDO" "E")
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

lmt112233

剛到這裏看到,希望可以幫到你
http://p4.xdcad.net/forum/showthread.php?s=&threadid=512625

taner

http://www.xdcad.net/forum/showt ... 2517818#post2517818
http://www.xdcad.net/forum/showthread.php?s=&threadid=507794

2. 
   
3.   [FONT=courier new]
   
4. (defun th-getobjareaofss (ss / ss ssv areas)
   
5.   (if (= nil ss)
   
6.     (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
   
7.   )
   
8.   (setq ssv (vla-get-activeselectionset
   
9.                                         (vla-get-activedocument
   
10.                                                                 (vlax-get-acad-object)
    
11.                                         )
    
12.             )
    
13.         areas 0
    
14.   )
    
15.   (vlax-for obj ssv (setq areas (+ areas (vlax-curve-getarea obj))))
    
16. )
    
17. 
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun th-getobjareaofss (ss / ss ssv areas)<br />   (if (= nil ss)<br />     (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))<br />   )<br />   (setq ssv (vla-get-activeselectionset<br />                                         (vla-get-activedocument<br />                                                                 (vlax-get-acad-object)<br />                                         )<br />             )<br />         areas 0<br />   )<br />   (vlax-for obj ssv (setq areas (+ areas (vlax-curve-getarea obj))))<br /> )<br /> <br />   [/FONT]<br />