(新手二次开发)各位帮我看看,too few arguments???为什么这样子...
www.dimcax.com
(新手二次开发)各位帮我看看,too few arguments???为什么这样子...
(defun c:gdss (/pt1 pt2 scl sal aa n tena ttab ttabt ttablt)
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n视图左下角")
pt2 (getcorner pt1 "\n选右上角")
scl (getreal "请输入比例直")
sal (ssget "w" pt1 pt2)
aa (sslength sal)
n 0
)
(repeat aa
(setq tena (ssname sal n))
(setq ttab (entget tena))
(setq ttabt (cdr (assoc 0 ttab)))
(setq ttablt (cdr (assoc 6 ttab)))
(if (and (= "line" ttabt)
(or (= "center" ttablt) (= "dashed" ttablt))
)
(command "change" tena "" "p" "ltscale" scl "")
)
(setq n (+ n 1))
)
(setvar "cmdecho" 1)
)
黑体部分单独调试ok,但是命令调用时却出现问题,定义的元素太少??什么意思啊??
错误在第一行
(defun c:gdss (/pt1 pt2 scl sal aa n tena ttab ttabt ttablt)
应为
(defun c:gdss (/ pt1 pt2 scl sal aa n tena ttab ttabt ttablt)
注意/与pt1之间应有空格。
非常感谢,以后请多多指教