请高手帮我看看,为什么不能赋予字符串

晓雨

(defun c:gd(/ n pt pt1 pt2 pt3 pt4 pt5 pt6 SS ss1 ang ang1 ST1)
(setq n(getstring "\n 输入基准序号<A>: " ))
(setq pt(getpoint "\n 输入基准符号放置点: " ))
(setq ang(getangle pt "\n 输入第二点确定方向：")) (if (= n nil)
(setq n "A")
)
.............................. 我把A赋给N,为什么不行呢?谢谢

王咣生

怎么不行呢?


有什么不对?

晓雨

我把程序贴上来吧!麻烦王版主帮我看一下, (defun c:gd(/ n pt pt1 pt2 pt3 pt4 pt5 pt6 SS ss1 ang ang1 ST1)
(setq n(getstring "\n 输入基准序号<A>: " ))
(setq pt(getpoint "\n 输入基准符号放置点: " ))
(setq ang(getangle pt "\n 输入第二点确定方向：")) (if (= n nil)
(setq n "A")
)
(setq pt1(list (- (car pt) 2.00) (+ (cadr pt) 1.46)))
(setq pt2(list (+ (car pt) 2.00) (+ (cadr pt) 1.46)))
(setq pt3(list (car pt) (+ (cadr pt) 1.46)))
(setq pt4(list (car pt) (+ (cadr pt) 4.46)))
(setq pt5(list (car pt) (+ (cadr pt) 6.96)))
(setq pt6(list (- (car pt) 0.288) (+ (cadr pt) 7.454)))
(setq ang1(* ang (/ 180 pi)))
;(setq SS (ssadd))

(command "_.undo" "be")
(setq os(getvar "osmode"))
(setvar "clayer" "文字标注")
(setvar "osmode" 0) (command "pline" pt1 "w" "0.7" "0.7" pt2 "")
(setq ss1 (ssget "l"))
(command"line" pt3 pt4 "")
(setq ss2 (ssget "l"))
(command"circle" pt5 "2.5" "")
(setq ss3 (ssget "l")) (command"text" "mc" pt6 "3.5" "0" n "")
(setq ss4 (ssget "l")) (command "rotate" ss4 "" pt5 (- 360 ang1))
(setq ss5 (ssget "l"))
(command "rotate" ss1 ss2 ss3 ss5"" pt ang1)
;(command "rotate" ss4 "" pt )
(command "_.undo" "e")
(setvar "osmode" os)
) 当我输入空格的时候,它就不出现A了,我不知道是什么原因

王咣生

将(= n nil) 改为(= n "")

xyp1964

试试：

2. (defun c:gd (/ pt pt1 pt2 pt3 pt4 pt5 pt6 os ss1 ss2 ss3 ss4 ss5 ang ang1)
3.    (setq  txt1 (ustr 1 "\n\t输入基准序号" txt1 nil)
4.   pt     (getpoint "\n 输入基准符号放置点: ")
5.   ang   (getangle pt "\n 输入第二点确定方向：")
6.    )
7.    (setq  pt1   (list (- (car pt) 2.00) (+ (cadr pt) 1.46))
8.   pt2   (list (+ (car pt) 2.00) (+ (cadr pt) 1.46))
9.   pt3   (list (car pt) (+ (cadr pt) 1.46))
10.   pt4   (list (car pt) (+ (cadr pt) 4.46))
11.   pt5   (list (car pt) (+ (cadr pt) 6.96))
12.   pt6   (list (- (car pt) 0.288) (+ (cadr pt) 7.454))
13.   ang1 (* ang (/ 180 pi))
14.    )
15.    (command "_.undo" "be")
16.    (setq os (getvar "osmode"))
17.    (mkla "文字标注" 4)
18.    (setvar "osmode" 0)
19.    (command "pline" pt1 "w" "0.7" "0.7" pt2 "")
20.    (setq ss1 (ssget "l"))
21.    (command "line" pt3 pt4 "")
22.    (setq ss2 (ssget "l"))
23.    (command "circle" pt5 "2.5")
24.    (setq ss3 (ssget "l"))
25.    (command "text" "j" "mc" pt6 "3.5" "0" txt1)
26.    (setq ss4 (ssget "l"))
27.    (command "rotate" ss4 "" pt5 (- 360 ang1))
28.    (setq ss5 (ssget "l"))
29.    (command "rotate" ss1 ss2 ss3 ss5 "" pt ang1)
30.    (command "_.undo" "e")
31.    (setvar "osmode" os)
32.    (princ)
33. )
34. (defun ustr (bit msg def spflag / inp nval)
35.    (if (and def (/= def ""))
36.        (setq msg (strcat "\n" msg "<" def ">:")
37.      inp (getstring msg spflag)
38.      inp (if (= inp "")
39.     def
40.     inp
41.              )
42.        )
43.        (progn
44.            (setq msg (strcat "\n" msg ": "))
45.            (if (= bit 1)
46.   (while (= "" (setq inp (getstring msg spflag))))
47.   (setq inp (getstring msg spflag))
48.            )
49.        )
50.    )
51.    (if inp
52.        inp
53.        def
54.    )
55. )
56. (defun mkla (name color)
57.    (If (= (Tblsearch "layer" name) nil)
58.        (Command "layer" "m" name "c" color name "")
59.        (Command "layer" "t" name "s" name "c" color name "")
60.    )
61. )

(defun c:gd (/ pt pt1 pt2 pt3 pt4 pt5 pt6 os ss1 ss2 ss3 ss4 ss5 ang ang1)    (setq  txt1 (ustr 1 "\n\t输入基准序号" txt1 nil)   pt     (getpoint "\n 输入基准符号放置点: ")   ang   (getangle pt "\n 输入第二点确定方向：")    )    (setq  pt1   (list (- (car pt) 2.00) (+ (cadr pt) 1.46))   pt2   (list (+ (car pt) 2.00) (+ (cadr pt) 1.46))   pt3   (list (car pt) (+ (cadr pt) 1.46))   pt4   (list (car pt) (+ (cadr pt) 4.46))   pt5   (list (car pt) (+ (cadr pt) 6.96))   pt6   (list (- (car pt) 0.288) (+ (cadr pt) 7.454))   ang1 (* ang (/ 180 pi))    )    (command "_.undo" "be")    (setq os (getvar "osmode"))    (mkla "文字标注" 4)    (setvar "osmode" 0)    (command "pline" pt1 "w" "0.7" "0.7" pt2 "")    (setq ss1 (ssget "l"))    (command "line" pt3 pt4 "")    (setq ss2 (ssget "l"))    (command "circle" pt5 "2.5")    (setq ss3 (ssget "l"))    (command "text" "j" "mc" pt6 "3.5" "0" txt1)    (setq ss4 (ssget "l"))    (command "rotate" ss4 "" pt5 (- 360 ang1))    (setq ss5 (ssget "l"))    (command "rotate" ss1 ss2 ss3 ss5 "" pt ang1)    (command "_.undo" "e")    (setvar "osmode" os)    (princ) ) (defun ustr (bit msg def spflag / inp nval)    (if (and def (/= def ""))        (setq msg (strcat "\n" msg "<" def ">:")      inp (getstring msg spflag)      inp (if (= inp "")     def     inp              )        )        (progn            (setq msg (strcat "\n" msg ": "))            (if (= bit 1)   (while (= "" (setq inp (getstring msg spflag))))   (setq inp (getstring msg spflag))            )        )    )    (if inp        inp        def    ) ) (defun mkla (name color)    (If (= (Tblsearch "layer" name) nil)        (Command "layer" "m" name "c" color name "")        (Command "layer" "t" name "s" name "c" color name "")    ) )

晓雨

谢谢王版主和xyp1964版主,送你们一朵康乃馨,祝你们身体永远健康

xstlf

康乃馨呢？没看到呀，