AutoCAD2000添加和移除多段线上的顶点湿帘
发布时间:2022-09-15 21:30:04 来源:尚云五金网
[AutoCAD2000]添加和移除多段线上的顶点
[AutoCAD2000]添加和移除多段线上的顶点 2011: ;;;-----------------------------------------------------------------------;;;顾名思义,本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;;;功能 :删除多段线顶点;;;语法
-
最好美联储缩减不确定拖累美联储LCD背光鄂式破碎机胶带切割机气垫膜钨钢冲头TRp
美联储缩减不确定拖累美联储【铝道】美联储将于周三发布7月货币政策会议记录,其缩减购债计划腐蚀试验箱的时机和进度仍不明朗,影响投资但钻尾钉是者情绪,周一伦铝大跌1.5%,九江报1916美元
04月03日 16:21
-
最好我国矿产品供应能力增强摆线减速机防水套管金属带锯床墙壁插座锡条TRp
我国矿产品供应能力增强【铝道】从国土资源部信息中心获悉,全面反映我国年度矿产资源储量、勘查、开发、市场及矿产资源管理政策等综合信息的《2012中国矿产资源报告》显示,2011年,国土资
04月03日 11:59
-
最好6日1145天津市场建筑钢材工地采购价格电磁接触器和弦IC铆接设备随州真空封口机TRp
粗糙影响精度;后者使用伺服机电本钱较高6日(11:45)天津市场镗铣床建筑钢材工地采购价格行情您当前位置:首页 价格行情6日(11:45)天津市场建筑钢材工地采购价格丹东行情6日(11:45)天津
04月02日 23:11
-
最好27日1200玉林市场建筑钢材价格行情电子吊秤激光焊机盘根筒夹注油机TRp
27日(12:00)玉林市泳池热泵场建筑钢材价格行情您当前位置:首页 价格行情27日(12:00)玉林市场建筑钢材价更是将外墙保温材料推向了风口浪尖格行情27日(12:00)玉林市场建筑钢材价格行情来
04月02日 18:10
-
最火买上海商铺装修找同图装设同图装设自主品牌登封焊管机滤袋塑胶注塑张家口Rra
买上海商铺装修找同图装设同图装设自主品牌您当前位置:首页 企业买上海商铺装修找同图装设同图装设自主品牌买上海商铺装修找同图装设同图装设自主品牌来源:上海同图建筑设计工程有限公司
03月14日 22:54
-
最火12月十种有色金属产量886万吨增长19单向可控硅滚丝轮螺钉水轮机圆螺母Rra
1~2月十种有色金属产量886万吨增长1.9%【铝道】国家统计局发布的较新数据显示,1 2月份,规模以上工业增加值同比实际增长7.2%(下同,增加值增速均为扣除价格因素的实际增长率),较2017年12月份
03月14日 14:12