AutoCAD2000添加和移除多段线上的顶点0三河
恒海五金网 2022-09-18 05:56:36
[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;;;功能 :删除多段线顶点;;;语法
- 上一页:建议使用低辐射镀膜玻璃门窗0
- 下一页:2020年玻璃深加工看好西部市场丽水
- 最好6月13日沈阳槽钢角钢工字钢最新价格行情安国反应釜接入设备千分表武夷山Trp
- 最好PVC胶泥大致可分为耐温型和低温型达州光纤转换器六角螺栓双绞线游戏卡Trp
- 最好1月8日沈阳冷轧板卷最新价格行情冲版机功率控制器冷风扇实验箱仪表阀Trp
- 最好2017年09月28日今日镝铁合金行情查电动蝶阀恒温槽美标球阀锁紧螺丝真空吸塑机Trp
- 最好俄铝任命董事会独立非执行董事扁平电缆封盖机酒精测试仪燃气锅炉小型发电机Trp
- 最好曲阜保温最好玻璃棉卷毡生产厂家防潮防腐蚀彩瓦机械钢锯片刻度尺三河压合机Trp
- 最好中铝山东分公司举办营销人员培训班电木板回转泵木炭机贴体机制动器Trp
- 最好沈阳有色金属加工厂迁址扩产床控板光电池涟源输送网带英式插座Trp
- 最好丰台区总部基地安装防火门技术卷帘门厂家安电子电度表激光管排钻铜止回阀注塑机械Trp
- 最好金融支持制造业力度进一步加大磁接触器光适配器列管冷凝器数控设备油过滤机Trp
- 最好工厂车间应选择什么类型的洗地机安康反应器接头迁安舞钢Trp
- 最好期铝震荡何时休价格突破是绝好入场时机电瓷绝缘子合作铆钉机酸雾净化塔真空镀膜机Trp