怎么样给我的代码增加记忆功能

xyp1964

2. (defun c:tt (/ pt sc ss)
   
3.   (defun ureal (bit kwd msg def / inp)
   
4.     (if        def
   
5.       (setq msg        (strcat "\n" msg "<" (rtos def 2) ">: ")
   
6.             bit        (* 2 (fix (/ bit 2)))
   
7.       )
   
8.       (setq msg (strcat "\n" msg ": "))
   
9.     )
   
10.     (initget bit kwd)
    
11.     (setq inp (getreal msg))
    
12.     (if        inp
    
13.       inp
    
14.       def
    
15.     )
    
16.   )
    
17.   (setvar "CMDECHO" 0)
    
18.   (setq NO1 (UREAL 7 "" "缩放值" NO1))
    
19.   (princ "\n选择缩放实体<退出>: ")
    
20.   (while (and (setq ss (ssget))
    
21.               (setq pt (getpoint "\n指定一点<退出>: "))
    
22.          )
    
23.     (command ".scale" "non" ss "" pt (/ 1.0 NO1))
    
24.     (princ "\n选择缩放实体<退出>: ")
    
25.   )
    
26.   (setvar "CMDECHO" 1)
    
27.   (princ)
    
28. )

(defun c:tt (/ pt sc ss)<br />   (defun ureal (bit kwd msg def / inp)<br />     (if        def<br />       (setq msg        (strcat "\n" msg "<" (rtos def 2) ">: ")<br />             bit        (* 2 (fix (/ bit 2)))<br />       )<br />       (setq msg (strcat "\n" msg ": "))<br />     )<br />     (initget bit kwd)<br />     (setq inp (getreal msg))<br />     (if        inp<br />       inp<br />       def<br />     )<br />   )<br />   (setvar "CMDECHO" 0)<br />   (setq NO1 (UREAL 7 "" "缩放值" NO1))<br />   (princ "\n选择缩放实体<退出>: ")<br />   (while (and (setq ss (ssget))<br />               (setq pt (getpoint "\n指定一点<退出>: "))<br />          )<br />     (command ".scale" "non" ss "" pt (/ 1.0 NO1))<br />     (princ "\n选择缩放实体<退出>: ")<br />   )<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )

hhh454

回复 xyp1964 的帖子

谢谢院长，感谢。

hhh454

回复 guankuiwu 的帖子

这个代码的功能和sc一样，就是省去了每次都要输入比例值。

669423907

都是好程序啊！
不知能否做到连续缩放呢？

daiguafan

呵呵，学习了，谢谢

先进者

2. ;角度阵列程序;(2005.8.5胡晓航(Angle array routine）,
   
3. (defun C:AAR ( / ss ang bp cnt dist d)
   
4. (PRINC "\n 角度阵列 ")
   
5.   (cond
   
6.     (  (setq ss (ssget))
   
7.        (initget 1)
   
8.        (setq bp (getpoint "\n基点： "))
   
9.        (initget 1)
   
10.        (setq ang
    
11.            (getangle bp "\n阵列方向： "))
    
12.          (initget 7)
    
13.          (setq dist
    
14.            (getdist "\n对象间距： "))
    
15.          (initget 7)
    
16.          (setq cnt (getint "\n对象个数： "))
    
17.          (setq d 0.0)
    
18.          (setvar "cmdecho" 0)
    
19.          (command "_.undo" "_g"
    
20.                   "_.copy" ss "" "_m" bp)
    
21.          (repeat (1- cnt)
    
22.            (command
    
23.                (polar bp ang (setq d (+ d dist)))))
    
24.                (command "" "_.undo" "_e")
    
25.         )
    
26.       )
    
27.       (princ)
    
28. )
    
29. 
    

;角度阵列程序;(2005.8.5胡晓航(Angle array routine）,<br /> (defun C:AAR ( / ss ang bp cnt dist d)<br /> (PRINC "\n 角度阵列 ")<br />   (cond<br />     (  (setq ss (ssget))<br />        (initget 1)<br />        (setq bp (getpoint "\n基点： "))<br />        (initget 1)<br />        (setq ang<br />            (getangle bp "\n阵列方向： "))<br />          (initget 7)<br />          (setq dist<br />            (getdist "\n对象间距： "))<br />          (initget 7)<br />          (setq cnt (getint "\n对象个数： "))<br />          (setq d 0.0)<br />          (setvar "cmdecho" 0)<br />          (command "_.undo" "_g"<br />                   "_.copy" ss "" "_m" bp)<br />          (repeat (1- cnt)<br />            (command<br />                (polar bp ang (setq d (+ d dist)))))<br />                (command "" "_.undo" "_e")<br />         )<br />       )<br />       (princ)<br /> )<br /> <br />

能不能帮我在对象间距和对象个数那里加个记忆功能

xyp1964

2. ;; 角度阵列程序  需要e派工具箱的支持
   
3. (defun C:tt (/ ss bp d)
   
4.   (setq        ang  (Uangle 1 "" "阵列方向<输入或鼠标直接量取>" ang nil)
   
5.         dist (Udist 1 "" "间距<输入或鼠标直接量取>" dist nil)
   
6.         cnt  (Uint 7 "" "次数" cnt)
   
7.   )
   
8.   (PRINC "\n选择实体: ")
   
9.   (if (setq ss (ssget))
   
10.     (progn
    
11.       (setq bp '(0 0)
    
12.             d  0.0
    
13.       )
    
14.       (command "_.copy" ss "" "_m" bp)
    
15.       (repeat (1- cnt)
    
16.         (command
    
17.           (polar bp ang (setq d (+ d dist)))
    
18.         )
    
19.       )
    
20.       (command "")
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )

;; 角度阵列程序  需要e派工具箱的支持<br /> (defun C:tt (/ ss bp d)<br />   (setq        ang  (Uangle 1 "" "阵列方向<输入或鼠标直接量取>" ang nil)<br />         dist (Udist 1 "" "间距<输入或鼠标直接量取>" dist nil)<br />         cnt  (Uint 7 "" "次数" cnt)<br />   )<br />   (PRINC "\n选择实体: ")<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq bp '(0 0)<br />             d  0.0<br />       )<br />       (command "_.copy" ss "" "_m" bp)<br />       (repeat (1- cnt)<br />         (command<br />           (polar bp ang (setq d (+ d dist)))<br />         )<br />       )<br />       (command "")<br />     )<br />   )<br />   (princ)<br /> )

露草

这个应该比较简单啊  不过每次要按次确定 也是麻烦

xyp1964

;; 参数相对多时，还是用对话框方式比较方便

2. 
   
3. ;; 角度阵列  需要e派工具箱的支持
   
4. (defun c:tt (/ ilst)
   
5.   (cmdla0)
   
6.   (defun main-pro (/ ss bp d)
   
7.     (PRINC "\n选择实体: ")
   
8.     (if (setq ss (ssget))
   
9.       (progn
   
10. (setq bp '(0 0)
    
11.        d  0.0
    
12. )
    
13. (command "_.copy" ss "" "_m" bp)
    
14. (repeat (1- cnt)
    
15.    (command
    
16.      (polar bp (xyp-d2r ang) (setq d (+ d dist)))
    
17.    )
    
18. )
    
19. (command "")
    
20.       )
    
21.     )
    
22.   )
    
23.   (xyp-initSet '(ang dist cnt) '(30. 1000. 6))
    
24.   (setq ilst '(("" "参数" ":boxed_column{")
    
25.         ("ang" "阵列方向" "real" "12")
    
26.         ("dist" "间距" "real" "12")
    
27.         ("cnt" "次数" "int" "12")
    
28.         "spacer;"
    
29.         "}"
    
30.        )
    
31.   )
    
32.   (if (= (xyp-Dcl-Init Ilst "【角度阵列】" t) 1)
    
33.     (main-pro)
    
34.   )
    
35.   (cmdla1)
    
36. )

<br /> ;; 角度阵列  需要e派工具箱的支持<br /> (defun c:tt (/ ilst)<br />   (cmdla0)<br />   (defun main-pro (/ ss bp d)<br />     (PRINC "\n选择实体: ")<br />     (if (setq ss (ssget))<br />       (progn<br /> (setq bp '(0 0)<br />        d  0.0<br /> )<br /> (command "_.copy" ss "" "_m" bp)<br /> (repeat (1- cnt)<br />    (command<br />      (polar bp (xyp-d2r ang) (setq d (+ d dist)))<br />    )<br /> )<br /> (command "")<br />       )<br />     )<br />   )<br />   (xyp-initSet '(ang dist cnt) '(30. 1000. 6))<br />   (setq ilst '(("" "参数" ":boxed_column{")<br />         ("ang" "阵列方向" "real" "12")<br />         ("dist" "间距" "real" "12")<br />         ("cnt" "次数" "int" "12")<br />         "spacer;"<br />         "}"<br />        )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【角度阵列】" t) 1)<br />     (main-pro)<br />   )<br />   (cmdla1)<br /> )

langjs

我一般带记忆功能这样实现的,代码比较容易懂,其中 scalebak 为全局变量
(if (null scalebak)  (setq scalebak 100.0))
(if (setq s (getreal (strcat "\n比例值<" (rtos scalebak 2 2) ">:")))
  (setq scalebak s)
)