AutoCAD中样条曲线转多段线程序(可调节精度)---Nulls-blog

12-10-20AutoCAD-Null'sblog1/2中样条曲线转多段线程序（可调节精度）作者：Null发布于：2012-1-818:38Sunday分类：分享将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。(princ+++曲线或圆弧到多线段[e-mail]2012-1-3+++\n)(princ+++++输入命令\ee\进行操作+++++\n)(defunc:ee();任意曲线变多段线一般只用于椭圆、圆弧和样条曲线(VL-LOAD-COM)(setvarcmdecho0)(setqss(ssget'((0.ARC,*LINE,ELLIPSE))))(princ\n)(setqjj(getint设置间距(1):))(if(=jjnil)(setqjj1))(setqlenss(sslengthss)i0eelist'())(repeatlenss;外循环开始(setqen(ssnamessi);取得图元名obj(vlax-ename-vla-objecten);转换为vla对象)(setq;zc(vlax-curve-getendparamobj)j1);求得图元周长(setqzc(vlax-curve-getDistAtPointobj(vlax-curve-getEndPointobj)));(setqj(-zc(*(fix(/zcjj))jj)));取第一段长度(setqlst1(vlax-curve-getPointAtDistobj0));取开始点(repeat(fix(/zcjj));循环周长取整次刚好到端点;(setqePt(vlax-safearray-list(vlax-variant-value(vla-get-coordinateobjj))))(setqlst(vlax-curve-getPointAtDistobjj);取距开始点为j的点;lstlen(vlax-curve-getDistAtPointobjlst);测量开始点到j点的距离)(setqeelist(appendeelist(listlst)));加入到点集(setqj(+jjj));递增jj);内循环结束;(setqeelist(reverseeelist))(setqeelist(appendeelist(list(vlax-curve-getEndPointobj))))(command.plinenonlst1);开始描点(foreachneelist(commandnonn)(grdrawlst1n1)(setqlst1n));模拟描红(COMMAND);描点结束(setqeelist'());清空点集(setqi(1+i));下一个图元);外循环结束(princ\n转换结束.))或者直接下载已编译好的文件，用CAD加载即可。地址=172&fromuid=1标签:分享«电脑通过蓝牙连接手机拨号上网|不锈钢螺丝锁死问题解析»引用地址:=b05f18&id=174评论：BloggerNull说走就走，是人生最华美的奢侈，也是最灿烂的自由!日历«2012»«10»一二三四五六日12345678910111213141516171819202122232425262728293031最新碎语满是垃圾广告评论，真恶心，删到手酸。2012-10-1822:20做了个坑爹的发型，坑爹啊2012-10-1122:13又骚了2012-10-1100:14回归了，上班了。2012-10-0812:43升级到5.0.0，还不错的说。;)2012-10-0702:36更多»最新日志2012年10月7日于上海浦东新的开始ABS液压门关于位置及防护等级要求拿下公司服务器电脑通过蓝牙连接手机拨号上网最新评论南宁舞狮看看虽说看不懂别客气点醒你@嘿嘿：一味的爱国等于无知，你眼里爱国等于爱党吗？这个国家不是共产党一家的，我爱pARTyWiGS这样也行啊真是人才啊BABYdollliNGErie真的不太懂代码哈哈看来我的好Null'sblog:)如果你拥有爱，请在失去之前好好珍惜.首页碎语关于&留言登录12-10-20AutoCAD-Null'sblog2/2回复BABYdollliNGErie2012-05-1616:09真的不太懂代码哈哈看来我的好好学习了回复淘宝如何推广2012-02-0214:49很给力的分析！只是看的很模糊！！回复安徽私家侦探2012-01-0819:01我也想学CAD了。发表评论：昵称邮件地址(选填)个人主页(选填)发表评论好学习了nipplEcOvEr其实我不太懂这些，不过还是支持一下搜索站内搜索（全文）搜索链接notepad++卡饭论坛龙的船人热门日志youtube为什么被封?AutoCAD某些小技巧AutoCAD中样条曲线转多段线程序（可调节精度）SOLAS客船水密舱壁上的开口（含动力滑动水密门要求）利用eWebSoft在线编辑器漏洞进行入侵随机日志小站重开，注册了新顶级域名又一场梦，记下来写的第一个用递归实现的函数AutoCAD中样条曲线转多段线程序（可调节精度）给自己博客加上“搜索引擎爬行记录”程序分类编程(10)分享(28)日志(74)船舶(13)标签日志分享船舶Poweredbyemlogsitemap网站已安全运行73天12小时48分4秒