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

【KAIXIN】

fater1986 发表于 2012-12-23 11:15
楼主，什么是伪源码哟

就是需要通用函数支持的源码！

tth02

能贴出vlx给大家一些启发也是很好的

328302216

怎么会有隐藏内容？

237742545

没钱下不了

ljsest

学习 谢谢奉献！！！！！！！！！！

龙城飞将36

看看学习~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~···

timmy521

好东西啊，看看能用上不

【KAIXIN】

现在，通用函数的全部源码，低价抛售中！

【KAIXIN】

2. ;直接框选成块
   
3. (defun c:xx (/ entgrp bname pt)
   
4. (kx-coma)
   
5. (kx-princa "直接框选成块")
   
6.    (princ "\n-->请框选对象：")
   
7.      (command "_ucs" "w")
   
8.   (setq entgrp (ssget))                       
   
9.   (setq bname (getvar "tdindwg"))       
   
10.   (setq bname (* bname 100000000))       
    
11.   (setq bname (fix bname))               
    
12.   (setq bname (itoa bname))
    
13.   (setq pt (list 0 0))
    
14.   (kx-mk-block-insert entgrp pt bname)       
    
15.   (command "_ucs" "p")
    
16. (kx-comb)
    
17. )
    

;直接框选成块<br /> (defun c:xx (/ entgrp bname pt)<br /> (kx-coma)<br /> (kx-princa "直接框选成块")<br />    (princ "\n-->请框选对象：")<br />      (command "_ucs" "w")<br />   (setq entgrp (ssget))                        <br />   (setq bname (getvar "tdindwg"))        <br />   (setq bname (* bname 100000000))        <br />   (setq bname (fix bname))                <br />   (setq bname (itoa bname))<br />   (setq pt (list 0 0))<br />   (kx-mk-block-insert entgrp pt bname)        <br />   (command "_ucs" "p")<br /> (kx-comb)<br /> )<br />

【KAIXIN】

2. ;指定插入点和块名制块
   
3. (DEFUN C:XX (/ BLK SS PT)
   
4. (KX-COMA)
   
5. (KX-princA "指定插入点和块名制块")
   
6.     (while (/= (setq blk (kx-str 0 "块名" "" nil nil)) "")
   
7.          (setq ss(ssget)      
   
8.                pt(getpoint "\n-->请指定插入点："))
   
9.       (KX-MK-BLOCK-INSERT ss pt blk)
   
10.    (princ (strcat "\n成功制作新块< " blk" >完成！")))
    
11. (KX-COMB)
    
12. )
    

;指定插入点和块名制块 <br /> (DEFUN C:XX (/ BLK SS PT)<br /> (KX-COMA)<br /> (KX-princA "指定插入点和块名制块")<br />     (while (/= (setq blk (kx-str 0 "块名" "" nil nil)) "")<br />          (setq ss(ssget)      <br />                pt(getpoint "\n-->请指定插入点："))<br />       (KX-MK-BLOCK-INSERT ss pt blk)<br />    (princ (strcat "\n成功制作新块< " blk" >完成！")))<br /> (KX-COMB)<br /> )<br />