在程序中加上上次操作设置的参数

wxa123wl

在编号的参数中加上上次默认的参数设置，， 例如我们使用偏移命令的时候第一输入了100 第二次，偏移的时候，默认就有100的偏移量，，我们可以直接回车就可以再次完成偏移100，，，，于此类似，，
(defun c:ddc (/ ss ss1 str i)
(if    (and (progn           (princ "\n选择复制图层实体....")        
   (setq ss (ssget)) )      
   (progn        
   (setq i  -1     str ""  )     
      (repeat (sslength ss)      
       (setq   str (strcat(cdr (assoc 8 (entget (ssname ss (setq i (1+ i))))))
         ","                    
         str     
          ))))
        (progn   
        (princ "\n选择复制范围.....")
      (setq ss1 (ssget (list (cons 8 str))))))  
     (vl-cmdf "move"  ss ss1 ""))
(princ))


这个lisp是移动懂选定的图层上的实体，， 我想在多次用这个命令的时候，回车后能自动记住上次的选定的参数，，，回车就可以再次选择操作，，不用再次指定图层！

st788796

你的程序没有移动距离提示

wxa123wl

st788796 发表于 2014-2-22 21:42
你的程序没有移动距离提示

这个是要默认上次选中的图层，作为筛选条件！距离，位置，，都是手动的！

wxa123wl

st788796 发表于 2014-2-22 21:42
你的程序没有移动距离提示

还有这个程序就是你写的呀，，！！嘎嘎！

st788796

wxa123wl 发表于 2014-2-22 22:55
还有这个程序就是你写的呀，，！！嘎嘎！

你顶楼说的是距离，没说默认图层

st788796

wxa123wl 发表于 2014-2-22 22:55
还有这个程序就是你写的呀，，！！嘎嘎！

1. (defun c:ddc (/ ss ss1 i pro str)
   
2.   (if **FilterLayer**
   
3.     (progn
   
4.       (princ (strcat "\n当前选择图层为 " **FilterLayer** " ...."))
   
5.       (setq pro "\n选择复制图层实体<回车默认图层>....")
   
6.     )
   
7.     (setq pro "\n选择复制图层实体....")
   
8.   )
   
9.   (and (progn (princ pro)
   
10.               (setq ss (ssget))
    
11.        )
    
12.        (progn
    
13.          (setq i   -1
    
14.                str ""
    
15.          )
    
16.          (repeat (sslength ss)
    
17.            (setq
    
18.              str (strcat
    
19.                    (cdr (assoc 8 (entget (ssname ss (setq i (1+ i))))))
    
20.                    ","
    
21.                    str
    
22.                  )
    
23.            )
    
24.          )
    
25.          (setq **FilterLayer** str)
    
26.        )
    
27.   )
    
28.   (if **FilterLayer**
    
29.     (progn
    
30.       (princ "\n选择复制范围.....")
    
31.       (setq ss1 (ssget (list (cons 8 **FilterLayer**))))
    
32.       (if ss
    
33.         (vl-cmdf "move" ss ss1 "")
    
34.         (vl-cmdf "move" ss1 "")
    
35.       )
    
36.     )
    
37.     (princ)
    
38.   )
    
39. )

(defun c:ddc (/ ss ss1 i pro str)<br />   (if **FilterLayer**<br />     (progn<br />       (princ (strcat "\n当前选择图层为 " **FilterLayer** " ...."))<br />       (setq pro "\n选择复制图层实体<回车默认图层>....")<br />     )<br />     (setq pro "\n选择复制图层实体....")<br />   )<br />   (and (progn (princ pro)<br />               (setq ss (ssget))<br />        )<br />        (progn<br />          (setq i   -1<br />                str ""<br />          )<br />          (repeat (sslength ss)<br />            (setq<br />              str (strcat<br />                    (cdr (assoc 8 (entget (ssname ss (setq i (1+ i))))))<br />                    ","<br />                    str<br />                  )<br />            )<br />          )<br />          (setq **FilterLayer** str)<br />        )<br />   )<br />   (if **FilterLayer**<br />     (progn<br />       (princ "\n选择复制范围.....")<br />       (setq ss1 (ssget (list (cons 8 **FilterLayer**))))<br />       (if ss<br />         (vl-cmdf "move" ss ss1 "")<br />         (vl-cmdf "move" ss1 "")<br />       )<br />     )<br />     (princ)<br />   )<br /> )

wxa123wl

st788796 发表于 2014-2-23 14:33

谢谢，是我要的效果，，哈哈，我都有种想拜你为师的冲动了，！！嘎嘎