报错：语法错误，求指导

echor · 发表于 2020-11-28 17:00

本帖最后由 echor 于 2020-11-30 17:11 编辑

(defun c:mm ( / #g1 &k1 &kw1 &n1 &n2 &txtt)
(if (= &txtt nil)
(setq &txtt "1-")
);初始化变量&txtt
(setq &n1 (getstring (strcat "\n 请输入要相乘的数值<" &txtt " >: "))) ;获取用户输入的数值
(if (= &n1 "")
(setq &kw1 &txtt);如果n1为空，则将&txtt传递给&kw1
(setq &txtt &kw1);否则将&kw1传递给&txtt
)
(while (setq &k1 (ssname &kw1 0)) ;这里扑街，参数类型错误“1-”
(setq &kw1 (ssdel &k1 &kw1) #g1 (entget &k1))
(setq &n2 (read (cdr (assoc 1 #g1))))
(if (numberp &n2);如果是数值
(progn
(setq &n2 (rtos (* &n2 &n1) 2 0))
(setq #g1 (subst (cons 1 &n2) (assoc 1 #g1) #g1))
(entmod #g1)
)
)
);while
)
(princ)
;这次我感觉是少了点东西，估计是传参问题。

start4444 · 发表于 2020-11-28 19:57

错误太多，找例子看吧

wzg356 · 发表于 2020-11-28 19:58

(setq &n1 (getstring (strcat "\n 请输入要相乘的数值<" &txtt " >: ")))

wzg356 · 发表于 2020-11-28 20:00

请使用编辑器everedit
这样好成对成双看括号
另外，我觉得你的变量名好扎眼

bssurvey · 发表于 2020-11-30 09:40

(defun c:mm ( / #g1 &k1 &kw1 &n1 &n2 &txtt)
(if (= &txtt nil)
(setq &txtt "1-")
)
(setq &n1 (getstring (strcat "\n 请输入要相乘的数值<" &txtt " >: "))) ;這裡要結束，不能放在最底下
(if (= &n1 "")
(setq &n1 &txtt)
(setq &txtt &n1)
)
  (progn  ;這個是多餘的
(while (setq &k1 (ssname &kw1 0)) ;這裡的&kw1上方並沒有實質的定義，也會出錯
(setq &kw1 (ssdel &k1 &kw1) #g1 (entget &k1))
(setq &n2 (read (cdr (assoc 1 #g1))))
(if (numberp &n2);如果是数值
   (progn
   (setq &n2 (rtos (* &n2 &n1) 2 0))
   (setq #g1 (subst (cons 1 &n2) (assoc 1 #g1) #g1))
   (entmod #g1)
   )
)
);while
  )
)
(princ)
)

echor · 发表于 2020-11-30 10:55

bssurvey 发表于 2020-11-30 09:40
(defun c:mm ( / #g1 &k1 &kw1 &n1 &n2 &txtt)
(if (= &txtt nil)
(setq &txtt "1-")

感谢大神，谢谢您不嫌弃我的菜来指点！

echor · 发表于 2020-11-30 11:03

start4444 发表于 2020-11-28 19:57
错误太多，找例子看吧

纯属天赋问题，每天有空就会找教程、找例子，可能学习方法出问题了。

echor · 发表于 2020-11-30 11:09

wzg356 发表于 2020-11-28 20:00
请使用编辑器everedit
这样好成对成双看括号
另外，我觉得你的变量名好扎眼

感谢！这个编辑器实在太清晰了，再也不怕被绕晕了！

echor · 发表于 2020-11-30 11:21

wzg356 发表于 2020-11-28 20:00
请使用编辑器everedit
这样好成对成双看括号
另外，我觉得你的变量名好扎眼

解决了括号问题了，谢谢！

账号		自动登录	找回密码
密码			注册

[提问] 报错：语法错误，求指导