怎样控制重复插块次数

zwqgdhl

(defun c:chakuaiming ()
(initget "1 2 3 4")
(setq chakuaiming-n (getkword "\n选择<1.全/2.强/3.弱/4.微>"))
(while chakuaiming-n
     (if (= chakuaiming-n "1")
         (progn
         (command "insert" "全" (getpoint "选择插入点:") 1 1 0)
         (command "insert" "全" (getpoint "选择插入点:") 1 1 0)
         )
     )
     (if (= chakuaiming-n "2")
         (progn
         (command "insert" "强" (getpoint "选择插入点:") 1 1 0)
         (command "insert" "强" (getpoint "选择插入点:") 1 1 0)
         )
     )
     (if (= chakuaiming-n "3")
         (progn
         (command "insert" "弱" (getpoint "选择插入点:") 1 1 0)
         (command "insert" "弱" (getpoint "选择插入点:") 1 1 0)
         )
     )
     (if (= chakuaiming-n "4")
         (progn
         (command "insert" "微" (getpoint "选择插入点:") 1 1 0)
         (command "insert" "微" (getpoint "选择插入点:") 1 1 0)
         )
     )
     (initget "1 2 3 4")
     (setq chakuaiming-n (getkword "\n选择<1.全/2.强/3.弱/4.微>"))
)
)
;;;;===========================
以上程序中，每种插块次数可能为2次或4次，怎样处理才能在不中断程序运行情况下自由选择插块次数（因为要多次选择各种插块）


该贴已经同步到 zwqgdhl的微博

Andyhon

2. 
   
3. 
   
4. (defun InstBlk_move (obj / code5 p3)
   
5.     (grread (grread T))
   
6.     (while (and
   
7.              (setq take (grread 't))
   
8.              (/= 3 (car take))
   
9.              (if (member take '((2 13) (2 32) (6 0) (11 0)))
   
10.                (progn
    
11.                  (vla-delete obj)
    
12.                  (setq go nil)
    
13.                )
    
14.                'T
    
15.            ) )
    
16.       (setq code5 (car take))
    
17.       (setq p3 (cadr take))
    
18.       (if (and p3 (= 5 code5))
    
19.         (vla-put-insertionpoint obj (vlax-3d-point p3))
    
20.     ) )
    
21. )
    
22. 
    
23. (defun chakuaiming_BlkN (kw bit)
    
24.    (cond
    
25.     ((= kw "1") (setq blk "全"))
    
26.     ((= kw "2") (setq blk "強"))
    
27.     ((= kw "3") (setq blk "弱"))
    
28.     ((= kw "4") (setq blk "微"))
    
29.    )
    
30.    (if (zerop bit)
    
31.      blk
    
32.      (and
    
33.        (princ "\nNext Block ==> ") (princ blk)
    
34.        (princ "\n to Go?")
    
35.        (if (= (car (Grread)) 25)
    
36.          (setq blk nil)
    
37.          'T
    
38.    ) ) )  
    
39. )
    
40. 
    
41. (defun c:chakuaiming ()
    
42.     (initget "1 2 3 4")
    
43.     (setq chakuaiming-n (getkword "\n 选择<1.全/2.强/3.弱/4.微> : ")
    
44.                     bit  -1
    
45.     )
    
46.    
    
47.     (while (chakuaiming_BlkN chakuaiming-n bit)
    
48.       (command "Insert" blk pause 1 1 0)
    
49.       (princ "\n More ....")
    
50.       (while (and (setq pt (grread T)) (/= (car pt) 5)))
    
51.       (setq pt (cadr pt))
    
52.       (command "Insert" blk pt "" "" "")
    
53.       (setq ee (entlast)
    
54.            obj (vlax-ename->vla-object ee)
    
55.             Go  T
    
56.       )
    
57.       (InstBlk_move obj)
    
58.       (while (and Go (setq obj (vla-copy obj)))
    
59.         (InstBlk_move obj)
    
60.       )
    
61.       (princ "\n>> Next ....")
    
62.       (setq bit 1)
    
63.       (setq chakuaiming-n (itoa (rem (1+ (atoi chakuaiming-n)))))
    
64.     )
    
65.     (princ)
    
66. )
    

<br /> <br /> (defun InstBlk_move (obj / code5 p3)<br />     (grread (grread T))<br />     (while (and<br />              (setq take (grread 't))<br />              (/= 3 (car take))<br />              (if (member take '((2 13) (2 32) (6 0) (11 0)))<br />                (progn<br />                  (vla-delete obj)<br />                  (setq go nil)<br />                )<br />                'T<br />            ) )<br />       (setq code5 (car take))<br />       (setq p3 (cadr take))<br />       (if (and p3 (= 5 code5))<br />         (vla-put-insertionpoint obj (vlax-3d-point p3))<br />     ) )<br /> )<br /> <br /> (defun chakuaiming_BlkN (kw bit)<br />    (cond<br />     ((= kw "1") (setq blk "全"))<br />     ((= kw "2") (setq blk "強"))<br />     ((= kw "3") (setq blk "弱"))<br />     ((= kw "4") (setq blk "微"))<br />    )<br />    (if (zerop bit)<br />      blk<br />      (and<br />        (princ "\nNext Block ==> ") (princ blk)<br />        (princ "\n to Go?")<br />        (if (= (car (Grread)) 25)<br />          (setq blk nil)<br />          'T<br />    ) ) )  <br /> )<br /> <br /> (defun c:chakuaiming ()<br />     (initget "1 2 3 4")<br />     (setq chakuaiming-n (getkword "\n 选择<1.全/2.强/3.弱/4.微> : ")<br />                     bit  -1<br />     )<br />     <br />     (while (chakuaiming_BlkN chakuaiming-n bit)<br />       (command "Insert" blk pause 1 1 0)<br />       (princ "\n More ....")<br />       (while (and (setq pt (grread T)) (/= (car pt) 5)))<br />       (setq pt (cadr pt))<br />       (command "Insert" blk pt "" "" "")<br />       (setq ee (entlast)<br />            obj (vlax-ename->vla-object ee)<br />             Go  T<br />       )<br />       (InstBlk_move obj)<br />       (while (and Go (setq obj (vla-copy obj)))<br />         (InstBlk_move obj)<br />       )<br />       (princ "\n>> Next ....")<br />       (setq bit 1)<br />       (setq chakuaiming-n (itoa (rem (1+ (atoi chakuaiming-n)))))<br />     )<br />     (princ)<br /> )<br />

P.s. 未測 ...

zwqgdhl

谢谢论坛长老的热心！刚刚试了你的程序，不过，还不是我要的方法。
最好是操作时不用过多的输入或选择，不用时只按鼠标右键即可进入下一种插块

Andyhon

已修订,若不通过时请上传可供调试的文件

zwqgdhl

谢谢论坛长老，我会按你的思路去修改我的程序的

zwqgdhl

昨天晚上修改了很多次，终于现在这个觉得挺好用的，可以连续重复不限插块次数和多次选择各种插块而不会退出程序
(defun c:chakuaiming ()
(initget "1 2 3 4 5 6")
(setq chakuaiming-n (getkword "\n选择<1.全/2.强/3.弱/4.微/5.溶洞/6.耕植土>"))
(while chakuaiming-n
     (if (= chakuaiming-n "1")
         (progn (setq pt (getpoint "\n<插入全风化>"))
                (while pt
                       (command "insert" "全" pt 1 1 0)
                       (setq pt (getpoint "\n<插入全风化>"))
                )
         )
     )
     :
     :
     :
     (initget "1 2 3 4 5 6")
     (setq chakuaiming-n (getkword "\n选择<1.全/2.强/3.弱/4.微/5.溶洞/6.耕植土>"))
)
)