[LISP程序]：请问如何解决边画矩形边显示面积的功能呢

tomzzz

请问如何解决边画矩形边显示面积的功能呢

lijiao

用GRREAD函数可以实现。

LUCAS

2. 
   
3. ;;請問如何解決邊畫矩形邊顯示面積的功能呢!
   
4. ;;BY LUCAS(龍龍仔)
   
5. (defun C:BB (/ ANG BOOLEAN CODE CURVE-OBJ TXT ENT MOTION PT PT1 PT2)
   
6.   (vl-load-com)
   
7.   (command "_.RECTANG"
   
8.            (setq SPT (getpoint "\n指定第一個角點: "))
   
9.            "@"
   
10.   )
    
11.   (setq BOOLEAN t)
    
12.   (setq        ENT (entlast)
    
13.         TXT ENT
    
14.         PT2 SPT
    
15.   )
    
16.   (prompt "\n指定其他角點: ")
    
17.   (while BOOLEAN
    
18.     (setq MOTION (grread t 15 0))
    
19.     (setq CODE (car MOTION))
    
20.     (cond
    
21.       ((= CODE 5)                        ;滑鼠遊移
    
22.        (setq PT (cadr MOTION))
    
23.        (if (not (equal PT PT2))
    
24.          (progn
    
25.            (setq MPT (mapcar '(lambda (A B) (/ (+ A B) 2)) SPT PT))
    
26.            (command
    
27.              "_.text"
    
28.              "mc"
    
29.              MPT
    
30.              5
    
31.              ""
    
32.              (rtos (vla-get-area (vlax-ename->vla-object ENT)) 2 4)
    
33.            )
    
34.            (command "_.erase" ENT TXT "")
    
35.            (setq TXT (entlast))
    
36.            (command "_.rectang" SPT PT)
    
37.            (setq ENT (entlast)
    
38.                  PT2 PT
    
39.            )
    
40.          )
    
41.        )
    
42.       )
    
43.       ((= CODE 3)                        ;滑鼠左鍵按下
    
44.        (setq BOOLEAN NIL)
    
45.       )
    
46.     )
    
47.   )
    
48.   (princ)
    
49. )
    

<br /> ;;請問如何解決邊畫矩形邊顯示面積的功能呢!<br /> ;;BY LUCAS(龍龍仔)<br /> (defun C:BB (/ ANG BOOLEAN CODE CURVE-OBJ TXT ENT MOTION PT PT1 PT2)<br />   (vl-load-com)<br />   (command "_.RECTANG"<br />            (setq SPT (getpoint "\n指定第一個角點: "))<br />            "@"<br />   )<br />   (setq BOOLEAN t)<br />   (setq        ENT (entlast)<br />         TXT ENT<br />         PT2 SPT<br />   )<br />   (prompt "\n指定其他角點: ")<br />   (while BOOLEAN<br />     (setq MOTION (grread t 15 0))<br />     (setq CODE (car MOTION))<br />     (cond<br />       ((= CODE 5)                        ;滑鼠遊移<br />        (setq PT (cadr MOTION))<br />        (if (not (equal PT PT2))<br />          (progn<br />            (setq MPT (mapcar '(lambda (A B) (/ (+ A B) 2)) SPT PT))<br />            (command<br />              "_.text"<br />              "mc"<br />              MPT<br />              5<br />              ""<br />              (rtos (vla-get-area (vlax-ename->vla-object ENT)) 2 4)<br />            )<br />            (command "_.erase" ENT TXT "")<br />            (setq TXT (entlast))<br />            (command "_.rectang" SPT PT)<br />            (setq ENT (entlast)<br />                  PT2 PT<br />            )<br />          )<br />        )<br />       )<br />       ((= CODE 3)                        ;滑鼠左鍵按下<br />        (setq BOOLEAN NIL)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

mage

请问怎么用这个命令啊，我不懂啊，能给个文件下载吗，谢谢

xyp1964

懂了点grread的应用。

zb_lou

我想能在状态栏左边显示面积会好点。能不能作这样的修改？
还有，能否增加一个这样的功能，选择一条封闭的PL线，移动其中的一个顶点，可以动态地在状态栏的左边显示封闭PL线的面积。万分期待！