调用子函数怎么说参数太多？？

MRHDF

买的一本书有这个： ;;;连续注标高
(defun c:level (/ s a a1 c k0 k00)
(setvar "cmdecho" 0)
(setq s (getreal "\n输入出图比例[1: ]<100>:"))
(if (= s nil)
(setq s 100)
)
(setq a (getpoint "\n 输入零点标高插入点："))
(command "insert" "bg2" a (/ s 100) "" "")
(while a
(setq a1 (getpoint a "\n 输入标高插入点："))
(if (= (nth 1 a1) (nth 1 a))
(command "insert" "bg2" a1 (/ s 100) "" "")
(progn
(setq k0 (/ (- (nth 1 a1) (nth 1 a)) 1000))
(setq k00 (rtos k0 2 3))
(initget "Down Up")
(setq c (getkword "\n 尖端向下/尖端向上[Down/Up]<Down>:"))
(if (= c nil)(setq c "Down"))
(cond
((= c "Down")
(command "insert" "bg" a1 (/ s 100) "" "" k00)
)
((= c "Up")
(command "insert" "bg1" a1 (/ s 100) "" "" k00))
)
)
)
)
)
我想不用块 ，直接调用函数来画： ;;;连续注标高
(defun c:lev (/ s s1 s2 a a1 k0 k00)
(setvar "cmdecho" 0)
(setq s (getreal "\n输入出图比例[1: ]<100>:"))
(if (= s nil)
(setq s 100)
)
(setq s1 (* 300 (/ s 100)))
(setq s2 (* 300 (/ s 100)))
(setq t0 "%%p0.000")
(setq a (getpoint "\n 输入零点标高插入点："))
(dbg a s1 s2 t0)
(while a
(setq a1 (getpoint a "\n 输入标高插入点："))
(if (= (nth 1 a1) (nth 1 a))
(dbg a s1 s2 t0)
(progn
(setq k0 (/ (- (nth 1 a1) (nth 1 a)) 1000))
(setq k00 (rtos k0 2 3))
(dbg a s1 s2 k00)
) ) ) )
(defun dbg(/ pt1 s1 s2 t0)
(setq pt2(list(+ (car pt1) S1)(+ (cadr pt1) S1)))
(setq pt3(list(-(car pt1) S1)(+(cadr pt1) S1)))
(setq pt4(list(car pt1) (+ (cadr pt1) S1)))
(setq pt5(list(+ (car pt4) (* 5 S1))(cadr pt4)))
(setq pt6(list(car pt1) (+ (cadr pt1) (* 1.5 S1))))
(command "line" pt2 pt1 pt3 pt2 "")
(command "line" pt4 pt5 "")
(command "text" pt6 s2 "" t0 "")
) 那位大侠可以帮我修正一下。

sorrel

我不知道自己的意见对不对,因为我看lisp也不过几天.


定义自定义函数时,变元表斜杠之前的为形参,可以传递参数;斜杠之后的为局部变量,对与你的例子来说pt1 s1 s2 t0仅在函数dbg中起作用,不能在调用的时候起到传递参数的作用.


你的自定义函数中没有定义形参,所以会有参数太多的提示

xyp1964

2. ;;;连续注标高
3. (defun c:lev (/ s s1 k00)
4.    (setvar "cmdecho" 0)
5.    (setq s (getreal "\n输入出图比例[1:]<100>:"))
6.    (if (= s nil)
7.        (setq s 100)
8.    )
9.    (setq  s1 (* 300 (/ s 100))
10.   t0 "%%p0.000"
11.   a   (getpoint "\n输入零点标高插入点 : ")
12.    )
13.    (dbg a s1 t0)
14.    (while (setq a1 (getpoint a "\n输入标高插入点 : "))
15.        (setq k00 (rtos (/ (- (cadr a1) (cadr a)) 1000) 2 3))
16.        (dbg a1 s1 k00)
17.    )
18. )(defun dbg (pt1 s1 t0)
19.    (setq  pt2 (list (+ (car pt1) S1) (+ (cadr pt1) S1))
20.   pt3 (list (- (car pt1) S1) (+ (cadr pt1) S1))
21.   pt4 (list (car pt1) (+ (cadr pt1) S1))
22.   pt5 (list (+ (car pt4) (* 5 S1)) (cadr pt4))
23.   pt6 (list (car pt1) (+ (cadr pt1) (* 1.5 S1)))
24.    )
25.    (command "pline" pt2 pt1 pt3 pt5 "")
26.    (command "text" pt6 s1 "" t0)
27. )

;;;连续注标高 (defun c:lev (/ s s1 k00)    (setvar "cmdecho" 0)    (setq s (getreal "\n输入出图比例[1:]<100>:"))    (if (= s nil)        (setq s 100)    )    (setq  s1 (* 300 (/ s 100))   t0 "%%p0.000"   a   (getpoint "\n输入零点标高插入点 : ")    )    (dbg a s1 t0)    (while (setq a1 (getpoint a "\n输入标高插入点 : "))        (setq k00 (rtos (/ (- (cadr a1) (cadr a)) 1000) 2 3))        (dbg a1 s1 k00)    ) )(defun dbg (pt1 s1 t0)    (setq  pt2 (list (+ (car pt1) S1) (+ (cadr pt1) S1))   pt3 (list (- (car pt1) S1) (+ (cadr pt1) S1))   pt4 (list (car pt1) (+ (cadr pt1) S1))   pt5 (list (+ (car pt4) (* 5 S1)) (cadr pt4))   pt6 (list (car pt1) (+ (cadr pt1) (* 1.5 S1)))    )    (command "pline" pt2 pt1 pt3 pt5 "")    (command "text" pt6 s1 "" t0) )

MRHDF

又是         cyp                 .                                                                                 3Q                 3Q         3Q

MRHDF

谢谢楼上的两位。         


有点小问题，多半情况下好用，有时候（视图zoom得看到的范围较大时）绘画出错误的图案。

meflying

把捕捉关掉应该就可以了。。。


更正一下，应该“XYP。。。”，不是CYP