请大侠帮忙改改一个单向阵列LISP

tangjunasd

能不能把下面的源码改成可以记忆之前用过的数据，比如，我用这个阵列过一次，重复用的时候 不用再次输入行距或拾取行距



(defun c:aw (/ )
  (setvar "cmdecho" 0)
  (princ "\n选择要阵列的对象")
  (setq ss (ssget))
  (setq rs (getreal "\n请输入行距或右键量取距离："))
(if (= rs nil)(progn
             (setq pt1(getpoint "\n拾取第1点:"))
             (setq pt2(getpoint pt1 "\n拾取第2点:"))
             (setq rs(rtos (distance pt1 pt2) 2 2))
           )
  )
  (setq rl (getint "\n请输入行数: <6>"))
  (if (null rl)  (setq rl 6) )
  (command "_.Array" ss "" "r" rl 1 rs 1)
  (setvar "cmdecho" 1)
  (princ)
)

预知幸福

tangjunasd58 发表于 2013-12-10 11:12
加入的别人的通用函数，在这个基础上能不做个判断执行下次命令的时候全安上一次的参数执行

把通用函数分享一下 谢谢

tangjunasd

还可以不可以改成往哪个方向拾取就向那个方向阵列，比如我向上拾取距离，阵列就向上，向左拾取距离，阵列就向左

hhbhyt

阵列方向我一般都是用正负号控制，至于说记忆上次，没弄过，是不是可以考虑向黑板中写入数值到时去提取，只是个思路，不知对不对。

ZZXXQQ

1. (defun c:aw ()
   
2. (setvar "cmdecho" 0)
   
3. (princ "\n选择要阵列的对象")
   
4. (setq ss (ssget))
   
5. (setq p1 (getpoint "\n起点 :"))
   
6. (if (setq p (getpoint p1 "\n请输入方向(间距) :")) (setq p2 p))
   
7. (setq ang (angle p1 p2))
   
8. (setq dst (distance p1 p2))
   
9. (setq r1 (if (numberp r1) r1 6))
   
10. (setq r (getint (strcat "\n请输入数量: <" (rtos r1) ">")))
    
11. (setq r (if (numberp r) r r1) r1 r)
    
12. (command "_.COPY" ss "" "M" p1)
    
13. (repeat r
    
14.   (command (setq p1 (polar p1 ang dst)))
    
15. )
    
16. (command "")
    
17. )
    
18. (setvar "cmdecho" 1)
    
19. (princ)
    
20. )
    

(defun c:aw ()<br /> (setvar "cmdecho" 0)<br /> (princ "\n选择要阵列的对象")<br /> (setq ss (ssget))<br /> (setq p1 (getpoint "\n起点 :"))<br /> (if (setq p (getpoint p1 "\n请输入方向(间距) :")) (setq p2 p))<br /> (setq ang (angle p1 p2))<br /> (setq dst (distance p1 p2))<br /> (setq r1 (if (numberp r1) r1 6))<br /> (setq r (getint (strcat "\n请输入数量: <" (rtos r1) ">")))<br /> (setq r (if (numberp r) r r1) r1 r)<br /> (command "_.COPY" ss "" "M" p1)<br /> (repeat r<br />   (command (setq p1 (polar p1 ang dst)))<br /> )<br /> (command "")<br /> )<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> )<br />

tangjunasd58

谢谢了，这个只能记录下个数，不能记录下距离跟方向

xyp1964

2. ;; 伪源码需要e派工具箱(XCAD)的支持
   
3. (defun c:tt (/ t0 lst ll1 ll2 ilst)
   
4.   (defun main-pro (/ p0 d0 ss)
   
5.     (setq p0  '(0 0)
   
6.           d0  0
   
7.           rad (xyp-d2r ang)
   
8.     )
   
9.     (if        (setq ss (ssget))
   
10.       (repeat num
    
11.         (setq d0 (+ d0 dist))
    
12.         (xyp-copymove ss p0 (polar p0 rad d0))
    
13.       )
    
14.     )
    
15.   )
    
16.   (setq        ll1 '(dist num ang)
    
17.         ll2 '(100. 5 0.)
    
18.   )
    
19.   (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))
    
20.   (xyp-initSet ll1 ll2)
    
21.   (setq        ilst '(("dist" "间距" "real" "8")
    
22.                ("ang" "角度" "real" "8")
    
23.                ("num" "数量" "int" "8")
    
24.                "spacer;"
    
25.               )
    
26.   )
    
27.   (if (= (xyp-Dcl-Init Ilst "【单向阵列】" t) 1)
    
28.     (main-pro)
    
29.   )
    
30.   (princ)
    
31. )

;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt (/ t0 lst ll1 ll2 ilst)<br />   (defun main-pro (/ p0 d0 ss)<br />     (setq p0  '(0 0)<br />           d0  0<br />           rad (xyp-d2r ang)<br />     )<br />     (if        (setq ss (ssget))<br />       (repeat num<br />         (setq d0 (+ d0 dist))<br />         (xyp-copymove ss p0 (polar p0 rad d0))<br />       )<br />     )<br />   )<br />   (setq        ll1 '(dist num ang)<br />         ll2 '(100. 5 0.)<br />   )<br />   (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))<br />   (xyp-initSet ll1 ll2)<br />   (setq        ilst '(("dist" "间距" "real" "8")<br />                ("ang" "角度" "real" "8")<br />                ("num" "数量" "int" "8")<br />                "spacer;"<br />               )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【单向阵列】" t) 1)<br />     (main-pro)<br />   )<br />   (princ)<br /> )

hehoubin

院长的伪源码用的太广泛了

香田里浪人

ZZXXQQ 发表于 2012-12-29 08:26

感觉良好，如能增加首部数字递增更好。

tangjunasd58

加入的别人的通用函数，在这个基础上能不做个判断执行下次命令的时候全安上一次的参数执行


(defun C:AWW ( / ss ang bp cnt dist d)
  (cond
    (  (setq ss (ssget))
       (initget 1)
       (setq bp (getpoint "\n基点： "))
       (initget 1)
       (setq ang (getangle bp "\n阵列方向： "))
       (setq dist (xx-dist "行距" rs 2.2))
       (setq cnt (xx-int "整数" rl 5))
       (setq d 0.0)
       (setvar "cmdecho" 0)
       (command "_.undo" "_g" "_.copy" ss "" "_m" bp)           
       (repeat (1- cnt)
       (command (polar bp ang (setq d (+ d dist)))))        
       (command "" "_.undo" "_e"))) (princ))  

wangxf888

收藏  学习