一个上下左右平移文字的程序

meja

我用过外源码改成了 上下 和 左右 两个平移的程序，现在想合成一个，但是cond这个东西不好弄，越搞越糊涂

向大家请教一下，该如何完善！

2. (defun c:MoveIt (/ ss d dir ang i e rot)
   
3. 
   
4.       (setq ss (ssget ":L" '((0 . "TEXT,MTEXT"))))
   
5.       (setq d (getdist "\nSpecify offset distance: "))
   
6.       (initget "L R U D")
   
7.       (setq dir
   
8.                      (cond
   
9.                         (getkword "\nChoose direction [上下左右] <右/R>:")
   
10.                         (if (NULL dir) (setq dir "R")
    
11.                          )     
    
12.                      (t dir)         
    
13.                      )
    
14.        )
    
15.       (cond     ((= dir "U")  (setq ang (/ pi 2) ))
    
16.                     ((= dir "R")  (setq ang  0))
    
17.                     ((= dir "D")  (setq ang (* 3 (/ pi 2)) ) )
    
18.                     ((= dir "L")  (setq ang pi))         
    
19.       )
    
20.       
    
21.      (repeat (setq i (sslength ss))
    
22.        (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
    
23.        (setq rot (vlax-get e 'Rotation) ip (vlax-get e 'InsertionPoint))
    
24.        (Vlax-put e 'InsertionPoint (polar ip (+ ang rot) d)
    
25.        )
    
26.      )
    
27.     (princ)
    
28. )

(defun c:MoveIt (/ ss d dir ang i e rot)<br /> <br />       (setq ss (ssget ":L" '((0 . "TEXT,MTEXT"))))<br />       (setq d (getdist "\nSpecify offset distance: "))<br />       (initget "L R U D")<br />       (setq dir <br />                      (cond <br />                         (getkword "\nChoose direction [上下左右] <右/R>:")<br />                         (if (NULL dir) (setq dir "R") <br />                          )     <br />                      (t dir)          <br />                      )<br />        )<br />       (cond     ((= dir "U")  (setq ang (/ pi 2) ))<br />                     ((= dir "R")  (setq ang  0))<br />                     ((= dir "D")  (setq ang (* 3 (/ pi 2)) ) )<br />                     ((= dir "L")  (setq ang pi))          <br />       )<br />       <br />      (repeat (setq i (sslength ss))<br />        (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))<br />        (setq rot (vlax-get e 'Rotation) ip (vlax-get e 'InsertionPoint))<br />        (Vlax-put e 'InsertionPoint (polar ip (+ ang rot) d)<br />        )<br />      )<br />     (princ)<br /> )

start4444

(defun c:MoveIt (/ ang d dir e i ip rot ss)
        (setq ss (ssget "" '((0 . "TEXT,MTEXT"))))
        (setq d (getdist "\nSpecify offset distance: "))
        (while d
                (initget "L R U D")
                (setq dir (getkword "\nChoose direction [上(U)/下(D)/左(L)/右(R)] <右/R>:"))
                (if (NULL dir) (setq dir "R"))
                (cond     ((= dir "U")  (setq ang (/ pi 2) ))
                        ((= dir "R")  (setq ang  0))
                        ((= dir "D")  (setq ang (* 3 (/ pi 2)) ) )
                        ((= dir "L")  (setq ang pi))
                )
                (repeat (setq i (sslength ss))
                        (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
                        (setq rot (vlax-get e 'Rotation) ip (vlax-get e 'InsertionPoint))
                        (Vlax-put e 'InsertionPoint (polar ip (+ ang rot) d)
                        )
                ))
        (princ)
)

弄明白就是很简单的

meja

start4444 发表于 2023-5-31 10:50
(defun c:MoveIt (/ ang d dir e i ip rot ss)
        (setq ss (ssget "" '((0 . "TEXT,MTEXT"))))
        (setq d ...

谢谢楼上的兄弟，又学习了while和cond！