用论坛上的代码改了一个面积和长度计算的程序，但功能不够完善，请指教。

mikary

“选择对象 或 单位|样式[毫米(1)/米(2)]<毫米(1)>:”
现在这一步需要输入"1、2或者空格回车"后，才能执行下一步选择对象的命令。
请问如何实现——
A.可以不输入12空格回车，直接就能选择对象，程序会按默认选项执行下去。
B.输入1或2后，不需要再加空格回车确认，直接执行下一步。

新手一枚，见笑了。

1. (defun C:TEST (/ ar_style ss l i tot_area ename obj entarea tot_length)
   
2.   (initget "1 2")
   
3.   (setq ar_style (getkword "\n选择对象 或 单位|样式[毫米(1)/米(2)]<毫米(1)>: "))
   
4.   (if (null ar_style)
   
5.     (setq ar_style "1"))
   
6.   (if (setq ss (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,SPLINE,REGION,ARC,LINE"))))
   
7.     (progn
   
8.       (vl-load-com)
   
9.       (setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object))))
   
10.       (setq l (sslength ss) i 0 tot_area 0 tot_length 0)
    
11.       (repeat l
    
12.         (setq ename (ssname ss i))
    
13.         (setq obj (vlax-ename->vla-object ename))
    
14.         (if (vlax-property-available-p obj "area")
    
15.         (setq tot_area (+ (vlax-get-property obj 'area) tot_area))
    
16.         )
    
17.         (if (= (cdr (assoc 0 (entget ename))) "MLINE")
    
18.         (setq tot_length (+ tot_length (ml-length ename)))
    
19.         (setq tot_length (+ tot_length (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))
    
20.         )
    
21.         (setq i (1+ i))
    
22.       )  
    
23.       ;;;根据制图单位选择数据比例      
    
24.       (cond
    
25.         (( = ar_style "1")
    
26.         (setq tot_area (rtos (* 0.000001 tot_area) 2 2 ))
    
27.         (princ (strcat "总面积= " tot_area " ㎡" "    总长度= " (rtos (* 0.001 tot_length) 2 3 ) " m" ))
    
28.         )
    
29.         (( = ar_style "2")
    
30.         (setq ha_area (rtos (* 0.0015 tot_area) 2 2 ))
    
31.         (setq tot_area (rtos (* 1 tot_area) 2 2 ))
    
32.         (princ (strcat "总面积= " tot_area " ㎡" "    总长度= " (rtos (* 1 tot_length) 2 3 ) " m"  "    折合 " ha_area " 亩"))
    
33.         )      
    
34.       )
    
35.       ;;;把面积结果写在图纸上
    
36.       (setq set_point (getpoint "\n请点取计算面积书写位置：" ))
    
37.       (command "text" set_point (* 3 (GETVAR "DIMSCALE")) 0 tot_area)
    
38.       (princ)
    
39.     )
    
40.   )
    
41. )

(defun C:TEST (/ ar_style ss l i tot_area ename obj entarea tot_length)<br />   (initget "1 2")<br />   (setq ar_style (getkword "\n选择对象 或 单位|样式[毫米(1)/米(2)]<毫米(1)>: "))<br />   (if (null ar_style) <br />     (setq ar_style "1"))<br />   (if (setq ss (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,SPLINE,REGION,ARC,LINE"))))<br />     (progn<br />       (vl-load-com)<br />       (setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object))))<br />       (setq l (sslength ss) i 0 tot_area 0 tot_length 0)<br />       (repeat l<br />         (setq ename (ssname ss i))<br />         (setq obj (vlax-ename->vla-object ename))<br />         (if (vlax-property-available-p obj "area")<br />         (setq tot_area (+ (vlax-get-property obj 'area) tot_area))<br />         )<br />         (if (= (cdr (assoc 0 (entget ename))) "MLINE")<br />         (setq tot_length (+ tot_length (ml-length ename)))<br />         (setq tot_length (+ tot_length (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))<br />         )<br />         (setq i (1+ i))<br />       )  <br />       ;;;根据制图单位选择数据比例      <br />       (cond<br />         (( = ar_style "1") <br />         (setq tot_area (rtos (* 0.000001 tot_area) 2 2 ))<br />         (princ (strcat "总面积= " tot_area " ㎡" "    总长度= " (rtos (* 0.001 tot_length) 2 3 ) " m" ))<br />         )<br />         (( = ar_style "2") <br />         (setq ha_area (rtos (* 0.0015 tot_area) 2 2 ))<br />         (setq tot_area (rtos (* 1 tot_area) 2 2 ))<br />         (princ (strcat "总面积= " tot_area " ㎡" "    总长度= " (rtos (* 1 tot_length) 2 3 ) " m"  "    折合 " ha_area " 亩"))<br />         )      <br />       )<br />       ;;;把面积结果写在图纸上<br />       (setq set_point (getpoint "\n请点取计算面积书写位置：" ))<br />       (command "text" set_point (* 3 (GETVAR "DIMSCALE")) 0 tot_area)<br />       (princ)<br />     )<br />   )<br /> )

该贴已经同步到 mikary的微博

zjxsky

可以用grread函数,参考 http://bbs.mjtd.com/forum.php?mo ... 0839&fromuid=282351