求批量建块插件

Terence688

求批量建块插件

kucha007

kucha007 发表于 2022-11-13 18:44
试试这个，循环建匿名块

或者试试这个

2. (defun c:TT (/ Old_Cmd ss i Pre Bnam) ;根据前缀和时间快速创建块
   
3.   (setq Old_Cmd (getvar "cmdecho"))
   
4.   (setvar "cmdecho" 0)
   
5.   (while ;循环选择对象
   
6.       (setq ss (ssget ":L"))
   
7.       (if ss
   
8.         (progn
   
9.             (setq i 1)
   
10.             (setq Pre "K");块前缀
    
11.             (setq time (strcat
    
12.                           (substr (rtos (getvar "CDATE") 2 4) 5 2) ;月
    
13.                           (substr (rtos (getvar "CDATE") 2 4) 7 2) ;日
    
14.                        )
    
15.             );获取当前日期
    
16.             (setq Bnam (strcat Pre time "-" (itoa i)))
    
17.             (while (tblsearch "BLOCK" Bnam)
    
18.               (setq Bnam (strcat Pre time "-" (itoa (setq i (1+ i)))))
    
19.             )
    
20.             (setq pt (getpoint "\n选择块基点:"))
    
21.             (command "_.block" Bnam pt ss "")
    
22.             (command "_.Insert" Bnam pt "" "" "")
    
23.         )
    
24.       )
    
25.   )
    
26.   (setvar "cmdecho" Old_Cmd)
    
27.   (princ)
    
28. )
    

(defun c:TT (/ Old_Cmd ss i Pre Bnam) ;根据前缀和时间快速创建块<br />   (setq Old_Cmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (while ;循环选择对象<br />       (setq ss (ssget ":L"))<br />       (if ss <br />         (progn <br />             (setq i 1)<br />             (setq Pre "K");块前缀<br />             (setq time (strcat <br />                           (substr (rtos (getvar "CDATE") 2 4) 5 2) ;月<br />                           (substr (rtos (getvar "CDATE") 2 4) 7 2) ;日<br />                        )<br />             );获取当前日期<br />             (setq Bnam (strcat Pre time "-" (itoa i)))<br />             (while (tblsearch "BLOCK" Bnam) <br />               (setq Bnam (strcat Pre time "-" (itoa (setq i (1+ i)))))<br />             )<br />             (setq pt (getpoint "\n选择块基点:"))<br />             (command "_.block" Bnam pt ss "")<br />             (command "_.Insert" Bnam pt "" "" "")<br />         )<br />       )<br />   )<br />   (setvar "cmdecho" Old_Cmd)<br />   (princ)<br /> )<br />

kucha007

试试这个，循环建匿名块

2. (defun c:TT (/ss pt);创建匿名块
   
3.   (while ;循环选择对象
   
4.       (setq ss (ssget ":L"))
   
5.       (if ss
   
6.         (progn
   
7.           (setq pt (getpoint "\n请选择块基点:"))
   
8.           (command "_.COPYBASE" "_non" pt ss "")
   
9.           (command "_.PASTEBLOCK" "_non" pt )
   
10.           (command "_.ERASE" ss "")
    
11.         )
    
12.       )
    
13.   )
    
14.   (princ)
    
15. )

(defun c:TT (/ss pt);创建匿名块<br />   (while ;循环选择对象<br />       (setq ss (ssget ":L"))<br />       (if ss <br />         (progn <br />           (setq pt (getpoint "\n请选择块基点:"))<br />           (command "_.COPYBASE" "_non" pt ss "")<br />           (command "_.PASTEBLOCK" "_non" pt )<br />           (command "_.ERASE" ss "")<br />         )<br />       )<br />   )<br />   (princ)<br /> )

kucha007

如果你想更快的话，可以把选择集改为单一选择集，只选一次，自动回车选基点就行了。

2. (setq ss (ssget ":L"));选择未锁定的对象，可连续多选，回车确认
   
3. (setq ss (ssget ":S"));单一选择集，只能选一次
   

(setq ss (ssget ":L"));选择未锁定的对象，可连续多选，回车确认<br /> (setq ss (ssget ":S"));单一选择集，只能选一次<br />

然后搜了一下发现这个：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=178210&highlight=%BF%EC%CB%D9%2B%BF%E9

myhomer

kucha007 发表于 2022-11-13 19:23
如果你想更快的话，可以把选择集改为单一选择集，只选一次，自动回车选基点就行了。
然后搜了一下发现这个 ...

这个根据时间建的块有个小缺陷，不能一分钟内连续建立

kucha007

myhomer 发表于 2022-11-13 22:47
这个根据时间建的块有个小缺陷，不能一分钟内连续建立

没听懂？我没有用分钟作为块名啊？

日期加序号（有重名序号就顺延）

Terence688

尝试中，谢谢！

行天下

谢谢分享，学习了

w379106181

谢谢分享，学习了

kucha007

myhomer 发表于 2022-11-13 22:47
这个根据时间建的块有个小缺陷，不能一分钟内连续建立

明白了，欢迎试试我改编的～
http://bbs.mjtd.com/thread-186619-1-1.html