以下的程序怎样把指定第二点可以在屏幕上任意指定的功能加进去，同矩形命令默认的...

李青松

以下的程序怎样把指定第二点可以在屏幕上任意指定的功能加进去，同矩形命令默认的那个功能。


(defun c:f3(/ osm p1 w)
  (setq osm(getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 15359)
   (initget 1)
   (setq p1(getpoint"\n请指定矩形的插入点："))


   (setq w(getstring "\n输入矩形的宽度高度，用逗号隔开(比如25,30):"))
   
   (setvar "osmode" 0)
   (command ".rectangle" p1 (strcat "@" w))
  
(setvar "osmode" osm)
(princ)
)

ZZXXQQ

2. (defun c:f3(/ osm p1 w)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq osm(getvar "osmode"))
   
5.   (setvar "osmode" 15359)
   
6.   (initget 1)
   
7.   (setq p1 (getpoint "\n请指定矩形的插入点: "))
   
8.   (if (= (setq w (getstring "\n输入矩形的宽度高度，用逗号隔开(比如25,30):")) "") (progn
   
9.    (setq p2 (getcorner p1 "\n输入矩形另一角点: "))
   
10.    (command ".rectangle" "non" p1 "non" p2)
    
11.   )
    
12.    (command ".rectangle" "non" p1 "non" (strcat "@" w))
    
13.   )
    
14.   (setvar "osmode" osm)
    
15.   (setvar "CMDECHO" 1)
    
16.   (princ)
    
17. )
    

(defun c:f3(/ osm p1 w)<br />   (setvar "cmdecho" 0)<br />   (setq osm(getvar "osmode"))<br />   (setvar "osmode" 15359)<br />   (initget 1)<br />   (setq p1 (getpoint "\n请指定矩形的插入点: "))<br />   (if (= (setq w (getstring "\n输入矩形的宽度高度，用逗号隔开(比如25,30):")) "") (progn<br />    (setq p2 (getcorner p1 "\n输入矩形另一角点: "))<br />    (command ".rectangle" "non" p1 "non" p2)<br />   )<br />    (command ".rectangle" "non" p1 "non" (strcat "@" w))<br />   )<br />   (setvar "osmode" osm)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br />

李青松

以上程序并没有增加矩形命令默认的那个功能，第2点在屏幕上自由指定。

D:\LQS

doro

是把动态输入打开的效果吧