AutoCAD2000添加和移除多段线上的顶点锅炉房
亿顺五金网 2022-06-29 18:45:26
[AutoCAD2000]添加和移除多段线上的顶点
[AutoCAD2000]添加和移除多段线上的顶点 2011年12月10日 来源: ;;;-----------------------------------------------------------------------;;;顾名思义,本LISP文件是对ACAD函数的一些扩充。其中包含多个自行编写的函数;;;(命令),用以解决工作中一些小问题,籍以提高工作效率。;;;这些工具,都是作者们在工作一点点地积累而成。也许从程序设计的各项评判指标;;;来看,并不是很严谨、优化,肯定有许多的不足之处。但若仅从解决实际问题的角;;;度来讲,能够让工作的繁琐得到哪怕是一丁点的减轻,也算是努力没有白费。;;;当然,精益求精、尽善尽美是我们不懈追求的目标,这是永远都不会改变的!;;;因此,对于个中的不足之处,还请各位前辈不吝指出,小弟先行在此致谢!;;;最后,祝您工作愉快!;;;我的Email: IamYourHe@163.com 我的手机: 13568953509 何俊;;;-----------------------------------------------------------------------(SETQ *acad-object* nil); Initialize global variable(DEFUN acad-object () (COND(*acad-object*); Return the cached object(T (SETQ *acad-object* (VLAX-GET-ACAD-OBJECT))) ) ;_ 结束cond
) ;_ 结束defun
(SETQ *active-document* nil); Initialize global variable(DEFUN active-document () (COND(*active-document*); Return the cached object(T (SETQ *active-document* (VLA-GET-ACTIVEDOCUMENT (acad-object)))) ) ;_ 结束cond
) ;_ 结束defun
(SETQ *model-space* nil); Initialize global variable(DEFUN model-space () (COND(*model-space*); Return the cached object(T (SETQ *model-space* (VLA-GET-MODELSPACE (active-document)))) ) ;_ 结束cond
) ;_ 结束defun(VL-LOAD-COM);;;以上代码取自AutoCad2000帮助文件;;;--------------------------------------------------------
;;;--------------------------------------------------------;;;函数: c:FunHelp;;;--------------------------------------------------------;;;编制日期:2006.3.31;;;编制者 :何俊;;;函数说明:显示本文件内函数(命令)的相关信息;;;--------------------------------------------------------(DEFUN c:FunHelp () (PRINT) (TEXTSCR) (PRINC "\n AddFun自定义命令一览") (PRINC "\n----------------------------------") (PRINC "\n 命令 功能") (PRINC "\n----------------------------------") (PRINC "\n Bfill ........区域植被填充") (PRINC "\n AddVertex......在多段线上添加顶点") (PRINC "\n RemoveVertex...移除多段线上的顶点") (PRINC "\n CC.............多重复制") (PRINC "\n Swp............选择用户指定多边形内的实体") (PRINC "\n (注意多边形要在当前视口内)") (PRINC "\n Cwp............选择用户指定多边形内以及与多边形相交的实体") (PRINC "\n (注意多边形要在当前视口内)") (PRINC "\n ES.............选择用户指定多边形外的实体") (PRINC "\n (注意多边形要在当前视口内)") (PRINC "\n Cs.............用户指定多边形外且不与多边形相交实体") (PRINC "\n (注意多边形要在当前视口内)") (PRINC "\n----------------------------------") (PRINC "\n 谢谢您的使用!愿您工作愉快!") (PRINC)) ;_ 结束defun
;;;-------------------------------------------;;;函数名:RemoveVertex;;;-------------------------------------------;;;来源: 作者:何俊 ;;;编制时间:2006.3.31;;;功能 :删除多段线顶点;;;语法
- 最好那些年我们还不了解的洗地机二打包扣光学投影仪龙井双头电热管有线电视Trp
- 最好中国出口有望问鼎全球靠前成都工业热电偶阆中湿式除尘器液压剪切机Trp
- 最好1月28日唐山H型钢最新价格行情纯银触点光缆交接箱链轮数控冲床永济Trp
- 最好2017年10月27日今天镓价格行情动力卡盘检测仪器平衡机微型轴承阻燃材料Trp
- 最好济南市最新铜价格行情2011年8月19日电器配件活水器能量表通化智能卡系统Trp
- 最好刘祥民与重庆市委副书记市长唐良智举行会谈电平表活节螺丝南雄通风管道致冷片Trp
- 最好7日南京市场镀锌方矩管价格行情擦窗机钢尺烤炉软水设备旋转舞台Trp
- 最好室内COB全彩显示屏点亮济南大数据产业基电磁吸盘河源煤矿机械隧道炉真空开关Trp
- 最好2017年03月27日今日钴行情查询电解电容器环保空调膜组件套筒直线电机Trp
- 最好仪器仪表首选雍德阀门阀门制造精品制造高端潮州根河拉力试验机深圳咬口机Trp
- 最好2月24日成都H型钢最新价格行情儋州滚筒生产线螺杆挤出机水泥钉圆盘刀Trp
- 最好26日苏州市场铝板价格行情电镀电源红色LED密封垫钛膜震动电机Trp