【KAIXIN】----通用函数,跟贴伪源码

ucuc2003

开心老师的大作，支持下！！

成仔

吴琦

多谢KAIXIN，下了

【KAIXIN】

2. ;块替换，作者：【KAIXIN】，QQ：295963716
   
3. ;本程序需要KAIXIN通用函数的支持
   
4. (DEFUN C:XX (/ S1 BLKNAME SS X)
   
5. (KX-COMA)
   
6. (KX-princA "块替换")
   
7.   (setvar "osmode" 0)
   
8.   (SETQ s1 (KX-GET-entsel '((0 . "INSERT")) "源块"))
   
9.   (setq BlkName (KX-get-dxf 2 (CAR s1)))
   
10.   (KX-princ "要替换的图块")
    
11. (while(setq ss (ssget":s" (list (cons 0 "INSERT"))))
    
12.              (setq X -1 )
    
13.     (while (setq s1 (ssname ss (setq X (1+ X))))
    
14.        (KX-PUT-DXF s1 2 BlkName)
    
15.     )
    
16. )
    
17. (KX-COMB)
    
18. )

;块替换，作者：【KAIXIN】，QQ：295963716<br /> ;本程序需要KAIXIN通用函数的支持<br /> (DEFUN C:XX (/ S1 BLKNAME SS X)<br /> (KX-COMA)<br /> (KX-princA "块替换")<br />   (setvar "osmode" 0)<br />   (SETQ s1 (KX-GET-entsel '((0 . "INSERT")) "源块")) <br />   (setq BlkName (KX-get-dxf 2 (CAR s1)))<br />   (KX-princ "要替换的图块")<br /> (while(setq ss (ssget":s" (list (cons 0 "INSERT"))))<br />              (setq X -1 )<br />     (while (setq s1 (ssname ss (setq X (1+ X)))) <br />        (KX-PUT-DXF s1 2 BlkName)<br />     )<br /> )<br /> (KX-COMB)<br /> )

【KAIXIN】

2. ;批量圆替换成块，作者：DaiKaiJin，QQ：295963716
   
3. ;本程序需要KAIXIN通用函数的支持
   
4. (DEFUN C:XX (/ BKNAME SS I S1 PO)
   
5. (KX-COMA)
   
6. (KX-princA "批量圆替换成块")
   
7.       (setq BKname (car (KX-GET-entsel '((0 . "INSERT")) "样板块")))
   
8.      (KX-PRINC "要替换的圆")
   
9. (while (setq        ss (SSGET":s" '((0 . "circle"))))
   
10.         (setq i  -1)
    
11.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.     (setq PO (KX-get-DXF 10 s1))
    
13.     (KX-mk-INSERT (KX-get-DXF 2 BKname) PO 0)
    
14.      (KX-E s1)
    
15.   )
    
16. )
    
17. (KX-COMB)
    
18. )
    
19. 
    
20. 
    

;批量圆替换成块，作者：DaiKaiJin，QQ：295963716<br /> ;本程序需要KAIXIN通用函数的支持 <br /> (DEFUN C:XX (/ BKNAME SS I S1 PO)<br /> (KX-COMA)<br /> (KX-princA "批量圆替换成块")<br />       (setq BKname (car (KX-GET-entsel '((0 . "INSERT")) "样板块")))<br />      (KX-PRINC "要替换的圆")<br /> (while (setq        ss (SSGET":s" '((0 . "circle"))))<br />         (setq i  -1)<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq PO (KX-get-DXF 10 s1))<br />     (KX-mk-INSERT (KX-get-DXF 2 BKname) PO 0)<br />      (KX-E s1)<br />   )<br /> )<br /> (KX-COMB)<br /> ) <br /> <br /> <br />

bai2000

是不是楼下说的那样？

【KAIXIN】

bai2000 发表于 2012-12-17 16:58
是不是楼下说的那样？

大可以试试！

【KAIXIN】

2. ;时间名建块，作者：DaiKaiJin，QQ：295963716
   
3. ;本程序需要KAIXIN通用函数的支持
   
4. (defun c:XX(/ ss pt x2)
   
5. (KX-COMA)
   
6. (KX-princA "时间名建块")
   
7.       (KX-PRINC 加入块的对象")
   
8. (WHILE
   
9.   (setq ss (ssget))
   
10.   (setq        pt  (getpoint"\n-->请指定基点: ")
    
11.         x2 (rtos (* (getvar "cdate") 1000000) 2 0)
    
12.   )
    
13.   (KX-MK-BLOCK-INSERT ss pt x2)
    
14. )
    
15. (KX-COMB)
    
16. )

;时间名建块，作者：DaiKaiJin，QQ：295963716<br /> ;本程序需要KAIXIN通用函数的支持 <br /> (defun c:XX(/ ss pt x2)<br /> (KX-COMA)<br /> (KX-princA "时间名建块")<br />       (KX-PRINC 加入块的对象")<br /> (WHILE<br />   (setq ss (ssget))<br />   (setq        pt  (getpoint"\n-->请指定基点: ")<br />         x2 (rtos (* (getvar "cdate") 1000000) 2 0)<br />   )<br />   (KX-MK-BLOCK-INSERT ss pt x2)<br /> ) <br /> (KX-COMB)<br /> )

ddisddis

谢谢楼主分享