[LISP]求救 谢谢呵呵！

lyy

;;能用repeat的就不要用while
(defun c:cc(/ i ss en p1 p2 p3 p4 ang)
  (setq i -1)
  (if (setq ss (ssget '((0 . "text") (72 . 0))))
    (repeat (sslength ss)
      (setq en (entget (ssname ss (setq i (1+ i))))
            p1 (car (textbox en))
            p2 (cadr (textbox en))
            p3 (polar p1 (angle p1 p2) (/ (distance p1 p2) 2))
            p4 (cdr (assoc 10 en))
            ang (cdr (assoc 50 en))
            p3 (mapcar '+ (polar '(0 0 0) (+ (angle '(0 0 0) p3) ang) (distance '(0 0 0) p3)) p4)
      )
      (setq en (subst (cons 11 p3) (assoc 11 en) en))
      (setq en (subst (cons 72 4) (assoc 72 en) en))
      (entmod en)
    )
  )
  (princ)
)

呆呆

谢谢lyy的帮助 我对函数“mapcar”的用法还是不理解

呆呆

请问在什么情况下用函数mapcar

meflying

要对表里的元素进行单独处理，并且还返回这个表时。。
如果要对'(10 11 12)都加1就这样
(mapcar '1+ '(10 11 12))
返回
(11 12 13)
...

呆呆

请问飞哥 我的程序的错误在哪里？
(defun c:ae()
  (setq m(getreal "\n请输入保留的小数位数:"))
  (prompt "\n选择所要改变的数字:")
  (setq ss(ssget ' ((0 . "text"))))
  (setq i 0)
  (repeat (sslength ss)
    (setq s1 (entget (ssname ss i))
          nr (assoc 1 s1)
          nr_1(cdr nr)
          nr_2(atof nr_2)
          nr_3(rtos nr_3  2  m)
     )
    (setq s1 (subst (cons 1 nr_3) nr s1))
    (entmod)
    (setq i (1+ i))
   )
)

呆呆

我怎么不能发帖子了 我不知道为什么  我只好把问题回复到这里了
我现在有两个问题 一个上面的  另外一个是下面的

呆呆

请问飞哥我的程序怎么改变才能循环使用
(defun o_set()
     (setvar "cmdecho" 1)
     (command "offset" pause pause pause "")
     (setq e1 (entlast))
)
(defun c:op(/ oce ofe ode e1 )
      (setq ode (getvar "osmode"))
      (setq oce (getvar "cmdecho"))
      (setq ofe (getvar "clayer"))
      (setvar "osmode" 0)
      (o_set)
      (setvar "cmdecho" 0)
      (command "change" e1 "" "p" "la" ofe "")
      (setvar "cmdecho" oce)
      (setvar "osmode" ode)
      (prin1)
)

meflying

先回答第一个：
有几个问题：
1、rtos 后面的两个参数是整型，所以你的m必须是整形，你用getreal就不行了，用getint
2、注意系统变量dimzin的影响，可能导致后续的0无法显示需要的位数。
3、程序中给nr_2和nr_3赋值的时候有问题，自己看看，这是粗心的错误。。。

2. 
   
3. (defun c:ae ()
   
4.   (setq m (getint "\n请输入保留的小数位数:"))
   
5.   (setq dim (getvar "dimzin"))
   
6.   (setvar "dimzin" 0)
   
7.   (prompt "\n选择所要改变的数字:")
   
8.   (setq ss (ssget '((0 . "text"))))
   
9.   (setq i 0)
   
10.   (repeat (sslength ss)
    
11.     (setq s1   (entget (ssname ss i))
    
12.           nr   (assoc 1 s1)
    
13.           nr_1 (cdr nr)
    
14.           nr_2 (atof nr_1)
    
15.           nr_3 (rtos nr_2 2 m)
    
16.     )
    
17.     (setq s1 (subst (cons 1 nr_3) nr s1))
    
18.     (entmod s1)
    
19.     (setq i (1+ i))
    
20.   )
    
21.   (setvar "dimzin" dim)
    
22.   (princ)
    
23. )
    

<br /> (defun c:ae ()<br />   (setq m (getint "\n请输入保留的小数位数:"))<br />   (setq dim (getvar "dimzin"))<br />   (setvar "dimzin" 0)<br />   (prompt "\n选择所要改变的数字:")<br />   (setq ss (ssget '((0 . "text"))))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq s1   (entget (ssname ss i))<br />           nr   (assoc 1 s1)<br />           nr_1 (cdr nr)<br />           nr_2 (atof nr_1)<br />           nr_3 (rtos nr_2 2 m)<br />     )<br />     (setq s1 (subst (cons 1 nr_3) nr s1))<br />     (entmod s1)<br />     (setq i (1+ i))<br />   )<br />   (setvar "dimzin" dim)<br />   (princ)<br /> )<br />

呆呆

谢谢飞哥的指教 非常感谢！！我以后回小心的！

meflying

第二个问题如果循环容易，但要退出就比较麻烦，用取消就相当于出错退出，除非offect中的PAUSE都用参数代替，至少第一个PAUSE用参数代替，就比较好办

2. 
   
3. (defun o_set ()
   
4.   (setvar "cmdecho" 1)
   
5.   (initget "q")
   
6.   (setq        dist (getreal (strcat "输入偏移距离[(Q)退出]<"
   
7.                               (rtos (getvar "offsetdist"))
   
8.                               ">:"
   
9.                       )
   
10.              )
    
11.   )
    
12.   (if (not dist)
    
13.     (setq dist (getvar "offsetdist"))
    
14.   )
    
15.   (if (/= "q" dist)
    
16.     (progn
    
17.       (command "offset" dist pause pause "")
    
18.       (setq e1 (entlast))
    
19.       (setvar "cmdecho" 0)
    
20.       (command "change" e1 "" "p" "la" ofe "")
    
21.     )
    
22.     (setq m nil)
    
23.   )
    
24. )
    
25. (defun c:op (/ oce ofe ode e1)
    
26.   (setq ode (getvar "osmode"))
    
27.   (setq oce (getvar "cmdecho"))
    
28.   (setq ofe (getvar "clayer"))
    
29.   (setvar "osmode" 0)
    
30.   (setq m t)
    
31.   (while m
    
32.     (o_set)
    
33.   )
    
34.   (setvar "cmdecho" oce)
    
35.   (setvar "osmode" ode)
    
36.   (prin1)
    
37. )
    

<br /> (defun o_set ()<br />   (setvar "cmdecho" 1)<br />   (initget "q")<br />   (setq        dist (getreal (strcat "输入偏移距离[(Q)退出]<"<br />                               (rtos (getvar "offsetdist"))<br />                               ">:"<br />                       )<br />              )<br />   )<br />   (if (not dist)<br />     (setq dist (getvar "offsetdist"))<br />   )<br />   (if (/= "q" dist)<br />     (progn<br />       (command "offset" dist pause pause "")<br />       (setq e1 (entlast))<br />       (setvar "cmdecho" 0)<br />       (command "change" e1 "" "p" "la" ofe "")<br />     )<br />     (setq m nil)<br />   )<br /> )<br /> (defun c:op (/ oce ofe ode e1)<br />   (setq ode (getvar "osmode"))<br />   (setq oce (getvar "cmdecho"))<br />   (setq ofe (getvar "clayer"))<br />   (setvar "osmode" 0)<br />   (setq m t)<br />   (while m<br />     (o_set)<br />   )<br />   (setvar "cmdecho" oce)<br />   (setvar "osmode" ode)<br />   (prin1)<br /> )<br />