[求助]：默认选择及输入问题：

flh1314

下面这一段程序实现的是通过选择二个点及预设的宽度，确定填充范围来填充预定图案。

“SC” 为填充图案的比例，在命令运行后，需要输入一个数值。但是在下次再使用这个命令时，还是要重新输入，感觉很麻烦，有没有办法可以让“Sc” 记住上次使用该命令时的输入数值？

“Mod”为填充方式，有二个选项“V H”，同样是要每次都输入，可以可以把他默认为“H”，仅空格就能达到输入H的目的？[PHP](Defun C:wf (/ P1 P2 P3 P4 Sc W H Ro Roa el Ln On)
  (prompt "\n 该命令将绘制一个焊缝图案")
  (setq        p1 (getpoint "\n请选择焊缝起点: ")
        P2 (Getpoint P1 "\n请选择焊缝终点: "))
  (Setq Sc (Getreal "\n输入焊缝比例: "))
  (setq        P3 (polar P2 (+ (angle p1 p2) (angtof "90")) 4)
        p4 (polar P1 (+ (angle p1 p2) (angtof "90")) 4))
  (initget 1 "V H")
  (setq Mod (strcase (getkword "\n垂直于焊接面(V)/正常(H):")))
  (cond        ((= Mod "V") (setq Ro (+ (atof (angtos (angle p1 p2))) 45)))
        ((= Mod "H") (setq Ro (atof (angtos (angle p1 p2) 0 1))))
  )
  (command "pline" p1 p2 p3 p4 "c")
  (setq el (entlast))
  (command "-bhatch" "p" "ANSI31" Sc Ro "S" el "" "")
  (command "erase" el "")
  (PRINC)
)[/PHP]

lazybug

1. 将"SC"改为较长有特色不大容易跟其他变量重名的名字，然后设成全局变量。

2. 将下面两句替换
(cond    ((= Mod "V") (setq Ro (+ (atof (angtos (angle p1 p2))) 45)))
    ((= Mod "H") (setq Ro (atof (angtos (angle p1 p2) 0 1))))
  )
——〉
(if (or (= mod "V") (= mod "v"))
    (setq ro (+ (atof (angtos (angle p1 p2))) 45))
    (setq ro (atof (angtos (angle p1 p2) 0 1)))
)

xyp1964

2. [FONT=courier new](Defun C:wf (/ P1 P2 P3 P4 W H Ro Roa el Ln On)
   
3.   (if (null scc)
   
4.     (setq scc 1)
   
5.   )
   
6.   (if (null Mod)
   
7.     (setq Mod "V")
   
8.   )
   
9.   (prompt "\n该命令将绘制一个焊缝图案")
   
10.   (setq        p1  (getpoint "\n请选择焊缝起点: ")
    
11.         P2  (Getpoint P1 "\n请选择焊缝终点: ")
    
12.         Scc (UREAL 7 "" "输入焊缝比例" scc)
    
13.         P3  (polar P2 (+ (angle p1 p2) (angtof "90")) 4)
    
14.         p4  (polar P1 (+ (angle p1 p2) (angtof "90")) 4)
    
15.   )
    
16.   (setq mod (UKWORD 7 "V H" "垂直于焊接面(V)/正常(H)" mod))
    
17.   (cond        ((= Mod "V") (setq Ro (+ (atof (angtos (angle p1 p2))) 45)))
    
18.         ((= Mod "H") (setq Ro (atof (angtos (angle p1 p2) 0 1))))
    
19.   )
    
20.   (command "pline" p1 p2 p3 p4 "c")
    
21.   (setq el (entlast))
    
22.   (command "-bhatch" "p" "ANSI31" Scc Ro "S" el "" "")
    
23.   (command "erase" el "")
    
24.   (princ)
    
25. )
    
26. (defun ukword (bit kwd msg def / inp)
    
27.   (if (and def (/= def ""))
    
28.     (setq msg (strcat "\n" msg "<" def ">:")
    
29.           bit (* 2 (fix (/ bit 2)))
    
30.     )
    
31.     (setq msg (strcat "\n" msg ":"))
    
32.   )
    
33.   (initget bit kwd)
    
34.   (setq inp (getkword msg))
    
35.   (if inp
    
36.     inp
    
37.     def
    
38.   )
    
39. )
    
40. (defun ureal (bit kwd msg def / inp)
    
41.   (if def
    
42.     (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
    
43.           bit (* 2 (fix (/ bit 2)))
    
44.     )
    
45.     (setq msg (strcat "\n" msg ": "))
    
46.   )
    
47.   (initget bit kwd)
    
48.   (setq inp (getreal msg))
    
49.   (if inp
    
50.     inp
    
51.     def
    
52.   )
    
53. )[/FONT]

[FONT=courier new](Defun C:wf (/ P1 P2 P3 P4 W H Ro Roa el Ln On)<br />   (if (null scc)<br />     (setq scc 1)<br />   )<br />   (if (null Mod)<br />     (setq Mod "V")<br />   )<br />   (prompt "\n该命令将绘制一个焊缝图案")<br />   (setq        p1  (getpoint "\n请选择焊缝起点: ")<br />         P2  (Getpoint P1 "\n请选择焊缝终点: ")<br />         Scc (UREAL 7 "" "输入焊缝比例" scc)<br />         P3  (polar P2 (+ (angle p1 p2) (angtof "90")) 4)<br />         p4  (polar P1 (+ (angle p1 p2) (angtof "90")) 4)<br />   )<br />   (setq mod (UKWORD 7 "V H" "垂直于焊接面(V)/正常(H)" mod))<br />   (cond        ((= Mod "V") (setq Ro (+ (atof (angtos (angle p1 p2))) 45)))<br />         ((= Mod "H") (setq Ro (atof (angtos (angle p1 p2) 0 1))))<br />   )<br />   (command "pline" p1 p2 p3 p4 "c")<br />   (setq el (entlast))<br />   (command "-bhatch" "p" "ANSI31" Scc Ro "S" el "" "")<br />   (command "erase" el "")<br />   (princ)<br /> )<br /> (defun ukword (bit kwd msg def / inp)<br />   (if (and def (/= def ""))<br />     (setq msg (strcat "\n" msg "<" def ">:")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ":"))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getkword msg))<br />   (if inp<br />     inp<br />     def<br />   )<br /> )<br /> (defun ureal (bit kwd msg def / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getreal msg))<br />   (if inp<br />     inp<br />     def<br />   )<br /> )[/FONT]

Dream.Fei

试过，可行，但是能不能说下是怎么实现的呢？我想要的，不仅是可以用，还要知道是怎么样做出来的。

我现在就是想在输入比例的时候，换成输入字符，但是却被提示要输入数值。

所以，请指教下是怎么实现的。那样省掉我频繁发同种贴子，搞得像灌水一样。

lazybug

源程序都给出来了，还要问是怎么实现的。你需要的不是频繁发同种贴子，而是好好看看参考书或是函数说明

zih1427

菜鸟的答案

1.让"Sc" 记住上次使用该命令时的输入数值:

首先把局部变量 Sc 升级为全局变量, 增加一局部变量 Sctmp

  (Setq Sc (Getreal "\n输入焊缝比例: "))

改为

  (if (null Sc)  (setq Sc 1.0)) ;;第一次运行时赋值为1.0

  (setq Sctmp (getreal (strcat "\n输入焊缝比例<" (rtos Sc) ">: ")))

  (if Sctmp (setq Sc Sctmp))


;;回答1 完毕