前辈们！帮我找找错误！

honboo

我的程序是想实现：给图框自动编辑图号的 可是我就是发现不到错误！请老师们指出。 (defun c:tuhao() (setq fir (getpoint "\n请选定图框的左下角"))
(setq text (getstring "\n请输入图号号码:"))
(setq number (getstring "\n请输入本行图框数目:"))
(setq tex (atoi text))
(setq n (atoi number)) (setq os (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)

(repeat n
(setq wri (polar fir (/ pi 75) 358))
(setq m (itoa tex))
(command "text" wri 4 0 (strcat "SS-SF-" m))
(setq fir (list (+(car fir) 420) cadr fir))
(setq tex (+ tex 1))
)
(setvar "osmode" os)
(princ)
)

honboo

哈哈，我知道了！给“cadr fir”加括号就可以了


谢谢，刚传上来就发现问题了，不过我还想问个问题，如何再擦除刚才自动排列的图号呢？？

xyp1964

错误：(setq fir (list (+(car fir) 420) cadr fir))→(setq fir (list (+(car fir) 420) (cadr fir)))

改成这样会更好。

2. (defun c:tuhao (/ os pt pt2 m text)
3.    (cmndla0)
4.    (setq  pt         (getpoint "\n请选定图框的左下角")
5.   no1     (@ureal 1 "" "\n请输入图号号码" no1)
6.   text no1  
7.   no2 (@ureal 1 "" "\n请输入本行图框数目" no2)
8.    )
9.    (setvar "osmode" 0)
10.    (setvar "cmdecho" 0)
11.    (mkla"图号"4)
12.    (command ".undo" "BE")
13.    (repeat (fix no2)
14.        (setq pt2 (polar pt (/ pi 75) 358)
15.      m     (rtos text 2 0)
16.        )
17.        (command "text" pt2 "4" "0" (strcat "SS-SF-" m))
18.        (setq pt     (list (+ (car pt) 420) (cadr pt))
19.      text (+ text 1)
20.        )
21.    )
22.    (command ".undo" "E")
23.    (cmdla1)
24. )
25. (defun @ureal (bit kwd msg def / inp)
26.    (if def
27.        (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
28.      bit (* 2 (fix (/ bit 2)))
29.        )
30.        (setq msg (strcat "\n" msg ": "))
31.    )
32.    (initget bit kwd)
33.    (setq inp (getreal msg))
34.    (if inp
35.        inp
36.        def
37.    )
38. )
39. (defun CMDLA0 ()
40.    (setq cmdech (getvar "CMDECHO"))
41.    (setq oom (getvar "orthomode"))
42.    (setq osm (getvar "osmode"))
43.    (SETQ LA (getvar "clayer"))
44.    (setq rmode (getvar "regenmode"))
45.    (setq pw (getvar "plinewid"))
46.    (setvar "regenmode" 0)
47.    (setvar "CMDECHO" 0)
48.    (princ)
49. )
50. (defun CMDLA1 ()
51.    (setvar "CMDECHO" cmdech)
52.    (setvar "orthomode" oom)
53.    (setvar "osmode" osm)
54.    (setvar "clayer" LA)
55.    (setvar "regenmode" rmode)
56.    (setvar "plinewid" pw)
57.    (princ)
58. )
59. (defun mkla (name color)
60.    (If (= (Tblsearch "layer" name) nil)
61.        (Command "layer" "m" name "c" color name "")
62.        (Command "layer" "t" name "s" name "c" color name "")
63.    )
64. )

(defun c:tuhao (/ os pt pt2 m text)    (cmndla0)    (setq  pt         (getpoint "\n请选定图框的左下角")   no1     (@ureal 1 "" "\n请输入图号号码" no1)   text no1     no2 (@ureal 1 "" "\n请输入本行图框数目" no2)    )    (setvar "osmode" 0)    (setvar "cmdecho" 0)    (mkla"图号"4)    (command ".undo" "BE")    (repeat (fix no2)        (setq pt2 (polar pt (/ pi 75) 358)      m     (rtos text 2 0)        )        (command "text" pt2 "4" "0" (strcat "SS-SF-" m))        (setq pt     (list (+ (car pt) 420) (cadr pt))      text (+ text 1)        )    )    (command ".undo" "E")    (cmdla1) ) (defun @ureal (bit kwd msg def / inp)    (if def        (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")      bit (* 2 (fix (/ bit 2)))        )        (setq msg (strcat "\n" msg ": "))    )    (initget bit kwd)    (setq inp (getreal msg))    (if inp        inp        def    ) ) (defun CMDLA0 ()    (setq cmdech (getvar "CMDECHO"))    (setq oom (getvar "orthomode"))    (setq osm (getvar "osmode"))    (SETQ LA (getvar "clayer"))    (setq rmode (getvar "regenmode"))    (setq pw (getvar "plinewid"))    (setvar "regenmode" 0)    (setvar "CMDECHO" 0)    (princ) ) (defun CMDLA1 ()    (setvar "CMDECHO" cmdech)    (setvar "orthomode" oom)    (setvar "osmode" osm)    (setvar "clayer" LA)    (setvar "regenmode" rmode)    (setvar "plinewid" pw)    (princ) ) (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 "")    ) )

honboo

谢谢，虽然对我来说，看懂是有点难度，但是我会慢慢搞清楚的！