报错：语法错误，求指导

echor

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

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

start4444

错误太多， 找例子看吧

wzg356

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

wzg356

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

bssurvey

(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

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

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

echor

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

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

echor

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

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

echor

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

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