[编程申请]：如何加強曉東工具的功能

skevin1

在曉東工具中有一個功能能否把這功能加強跟另一個功能類似?

2. 
   
3.   命令：XDTB_HatchArea
   
4.   功能：求填充HATCH和SOLID實體的面積
   
5. |;
   
6. (defun c:XDTB_HatchArea (/ ss harea e hnum snum tf i)
   
7.   (if (not $XDTB_HATCH_TOTAL_AREA)
   
8.     (setq $XDTB_HATCH_TOTAL_AREA 0.0)
   
9.   )
   
10. 
    
11.   (while (progn
    
12.            (initget "C")
    
13.            (setq sel (getkword (strcat "\n{歷史記錄: " (rtos $XDTB_HATCH_TOTAL_AREA
    
14.                                                              2 2
    
15.                                                        )
    
16.                                        " | 歷史清空[C]}<繼續>:"
    
17.                                )
    
18.                      )
    
19.            )
    
20.          )
    
21.     (cond
    
22.       ((= sel "C")
    
23.         (setq $XDTB_HATCH_TOTAL_AREA 0.0)
    
24.       )
    
25.     )
    
26.   )
    
27.   (prompt "\n請選取計算面積的Hatch,Solid實體[ALL-全選]<退出>:")
    
28.   (if (setq ss (ssget '((0 . "hatch,solid"))))
    
29.     (progn
    
30.       (xdrx_setsstodb ss 0)
    
31.       (setq harea 0
    
32.             hnum 0
    
33.             snum 0
    
34.       )
    
35.       (setq tf (> (setq len (sslength ss))
    
36.                   100
    
37.                )
    
38.       )
    
39.       (if tf
    
40.         (progn
    
41.           (xdrx_pbarbegin "計算中..." len)
    
42.           (setq i 0
    
43.                 eNum 0
    
44.                 lNum 0
    
45.           )
    
46.         )
    
47.       )
    
48.       (while (setq e (xdrx_getentdata 0))
    
49.         (if tf
    
50.           (xdrx_pbarsetpos (setq i (1+ i)))
    
51.         )
    
52.         (setq enttype (xdrx_getentdxf 0))
    
53.         (cond
    
54.           ((= "SOLID" enttype)
    
55. 
    
56.             (setq ss1 (ssadd)
    
57.                   ss1 (ssadd e ss1)
    
58.                   snum (+ snum 1)
    
59.             )
    
60.             (setq harea (+ harea (abs (apply
    
61.                                         'xdrx_parea
    
62.                                         (car (xdrx_searchoutline ss1))
    
63.                                       )
    
64.                                  )
    
65.                         )
    
66.             )
    
67.           )
    
68.           ((= "HATCH" enttype)
    
69.             (setq hnum (+ hnum 1)
    
70.                   harea (+ harea (car (xdrx_getarea e)))
    
71.             )
    
72.           )
    
73.         )
    
74.       )
    
75.       (if tf
    
76.         (xdrx_pbarend)
    
77.       )
    
78.       (setq $XDTB_HATCH_TOTAL_AREA (+ $XDTB_HATCH_TOTAL_AREA harea))
    
79.       (prompt (strcat "\n共選取了 " (itoa hnum) " 個Hatch, " (itoa snum)
    
80.                       " 個Solid,面積總和是：" (rtos harea 2 2)
    
81.                       " 歷史記錄總和是: " (rtos $XDTB_HATCH_TOTAL_AREA 2 2)
    
82.               )
    
83.       )
    
84.     )
    
85.   )
    
86.   (princ)
    
87. )
    
88. 
    
89. (defun c:UCS_Z ()
    
90.   (if (setq e (car (xdrx_entsel "\n請選取一個POLYLINE<退出>:" '((0 . "*polyline")))))
    
91.     (progn
    
92.       (command "._ucs" "ob" e)
    
93.       (command "._ucs" "n" "za" "" '(0 -1 0))
    
94.     )
    
95.   )
    
96.   (pirnc)
    
97. )
    
98. 
    
99. 
    
100. 
     
101. 計算面積並能自動輸出至螢幕中  能否能告訴我如何把以上這個改到像以下這個呢
     
102. 
     
103. (defun c:mj ()
     
104. 
     
105. (prompt "\n輸入字高：<") (princ (getvar "textsize")) (princ ">")
     
106. (setq 輸入字高 (getreal))
     
107. (if (not 輸入字高)
     
108. (setq 字高 (getvar "textsize"))
     
109. (setq 字高 輸入字高)
     
110. )
     
111. 
     
112. 
     
113. (setq a t)
     
114. (while a
     
115. (setq a (getpoint "\n選取封閉區域:"))
     
116. (command "-boundary" a "" "yes")
     
117. (setq ent (entlast))
     
118. (command "area" "o" ent)
     
119. (setq mianji (strcat (rtos (/ (getvar "area") 1000000) 2 1) "㎡"))
     
120. (if (eq ent ent1)
     
121. (alert "選取的區域沒有封閉"))
     
122. (command "text" a 字高 "0" mianji)
     
123. (setq ent1 ent)
     
124. (princ)
     
125. )
     
126. )

<br />   命令：XDTB_HatchArea<br />   功能：求填充HATCH和SOLID實體的面積<br /> |;<br /> (defun c:XDTB_HatchArea (/ ss harea e hnum snum tf i)<br />   (if (not $XDTB_HATCH_TOTAL_AREA)<br />     (setq $XDTB_HATCH_TOTAL_AREA 0.0)<br />   )<br /> <br />   (while (progn<br />            (initget "C")<br />            (setq sel (getkword (strcat "\n{歷史記錄: " (rtos $XDTB_HATCH_TOTAL_AREA<br />                                                              2 2<br />                                                        )<br />                                        " | 歷史清空[C]}<繼續>:"<br />                                )<br />                      )<br />            )<br />          )<br />     (cond<br />       ((= sel "C")<br />         (setq $XDTB_HATCH_TOTAL_AREA 0.0)<br />       )<br />     )<br />   )<br />   (prompt "\n請選取計算面積的Hatch,Solid實體[ALL-全選]<退出>:")<br />   (if (setq ss (ssget '((0 . "hatch,solid"))))<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (setq harea 0<br />             hnum 0<br />             snum 0<br />       )<br />       (setq tf (> (setq len (sslength ss))<br />                   100<br />                )<br />       )<br />       (if tf<br />         (progn<br />           (xdrx_pbarbegin "計算中..." len)<br />           (setq i 0<br />                 eNum 0<br />                 lNum 0<br />           )<br />         )<br />       )<br />       (while (setq e (xdrx_getentdata 0))<br />         (if tf<br />           (xdrx_pbarsetpos (setq i (1+ i)))<br />         )<br />         (setq enttype (xdrx_getentdxf 0))<br />         (cond<br />           ((= "SOLID" enttype)<br /> <br />             (setq ss1 (ssadd)<br />                   ss1 (ssadd e ss1)<br />                   snum (+ snum 1)<br />             )<br />             (setq harea (+ harea (abs (apply<br />                                         'xdrx_parea<br />                                         (car (xdrx_searchoutline ss1))<br />                                       )<br />                                  )<br />                         )<br />             )<br />           )<br />           ((= "HATCH" enttype)<br />             (setq hnum (+ hnum 1)<br />                   harea (+ harea (car (xdrx_getarea e)))<br />             )<br />           )<br />         )<br />       )<br />       (if tf<br />         (xdrx_pbarend)<br />       )<br />       (setq $XDTB_HATCH_TOTAL_AREA (+ $XDTB_HATCH_TOTAL_AREA harea))<br />       (prompt (strcat "\n共選取了 " (itoa hnum) " 個Hatch, " (itoa snum)<br />                       " 個Solid,面積總和是：" (rtos harea 2 2)<br />                       " 歷史記錄總和是: " (rtos $XDTB_HATCH_TOTAL_AREA 2 2)<br />               )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (defun c:UCS_Z ()<br />   (if (setq e (car (xdrx_entsel "\n請選取一個POLYLINE<退出>:" '((0 . "*polyline")))))<br />     (progn<br />       (command "._ucs" "ob" e)<br />       (command "._ucs" "n" "za" "" '(0 -1 0))<br />     )<br />   )<br />   (pirnc)<br /> )<br /> <br /> <br /> <br /> 計算面積並能自動輸出至螢幕中  能否能告訴我如何把以上這個改到像以下這個呢<br /> <br /> (defun c:mj () <br /> <br /> (prompt "\n輸入字高：<") (princ (getvar "textsize")) (princ ">") <br /> (setq 輸入字高 (getreal)) <br /> (if (not 輸入字高) <br /> (setq 字高 (getvar "textsize")) <br /> (setq 字高 輸入字高) <br /> ) <br /> <br /> <br /> (setq a t) <br /> (while a <br /> (setq a (getpoint "\n選取封閉區域:")) <br /> (command "-boundary" a "" "yes") <br /> (setq ent (entlast)) <br /> (command "area" "o" ent) <br /> (setq mianji (strcat (rtos (/ (getvar "area") 1000000) 2 1) "㎡")) <br /> (if (eq ent ent1) <br /> (alert "選取的區域沒有封閉")) <br /> (command "text" a 字高 "0" mianji) <br /> (setq ent1 ent) <br /> (princ) <br /> ) <br /> )