AutoCAD中样条曲线转多段线程序(可调节精度) - Null's blog
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1/2
12-10-20
AutoCAD
BABYdoll liNGErie 2012-05-16 16:09
真的不太懂代码 哈哈 看来我的好好学习了
淘宝如何推广 2012-02-02 14:49
很给力的分析！只是看的很模糊！！
安徽私家侦探 2012-01-08 19:01 我也想学CAD了。
发表评论：
12-10-20
AutoCAD
Null's blog
:) 如果你拥有爱，请在失去之前好好珍惜.
-Null'sblog
首页 碎语 关于&留言 登录
AutoCAD中样条曲线转多段线程序（可调节精度）
作者：Null 发布于：2012-1-8 18:38 Sunda命令ee即可转换。
评论：
/blog/post-174.html
Blogger
Null 说走就走，是人生最华美的奢 侈，也是最灿烂的自由!
日历
« 2012 » « 10 » 一二三四五六日 1234567 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
随机日志
小站重开，注册了新顶级域名 又一场梦，记下来 写的第一个用递归实现的函数 AutoCAD中样条曲线转多段线程 序（可调节精度） 给自己博客加上“搜索引擎爬行记 录”程序
分类
编程(10) 分享(28) 日志(74) 船舶(13)
标签
日志 分享 船舶
Powered by emlog
sitemap 网站已安全运行73天12小时48分4秒
(setq en (ssname ss i);取得图元名 obj (vlax-ename->vla-object en);转换为vla对象 ) (setq ;zc (vlax-curve-getendparam obj) j 1 );求得图元周长 (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
(princ "+++ 曲线或圆弧到多线段 - Chris. test@ 2012-1-3 +++\n") (princ "+++++ 输入命令\"ee\"进行操作 +++++\n") (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
(VL-LOAD-COM)(setvar "cmdecho" 0) (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE")))) (princ "\n") (setq jj (getint "设置间距(1):")) (if (= jj nil) (setq jj 1)) (setq lenss (sslength ss) i 0 eelist '() ) (repeat lenss;外循环开始
/blog/post-174.html
2/2
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度 (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点 (repeat (fix (/ zc jj));循环周长取整次刚好到端点
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j)))) (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点 ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离 ) (setq eelist (append eelist (list lst)));加入到点集 (setq j (+ jj j));递增jj );内循环结束 ;(setq eelist(reverse eelist)) (setq eelist (append eelist (list (vlax-curve-getEndPoint obj)))) (command ".pline" "non" lst1);开始描点 (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红 (COMMAND "");描点结束 (setq eelist '());清空点集 (setq i (1+ i));下一个图元 );外循环结束 (princ "\n转换结束.") )
最新日志
2012年10月7日于上海浦东 新的开始 <ABS>液压门关于位置及防护等 级要求 拿下公司服务器 电脑通过蓝牙连接手机拨号上网
最新评论
南宁舞狮 看看虽说看不懂 别客气点醒你 @嘿嘿：一味的爱国等于无知，你 眼里爱国等于爱党吗？这个国家不 是共产党一家的，我爱 pARTy WiGS 这样也行啊 真是人才啊 BABYdoll liNGErie 真的不太懂代码 哈哈 看来我的好
昵称 邮件地址 (选填) 个人主页 (选填)
发表评论
-Null'sblog
回复
好学习了 nipplE cOvEr 其实我不太懂这些，不过还是支持 一下
搜索
回复 回复
站内搜索（全文）
搜索
链接
no te p a d ++ 卡饭论坛 龙的船人
热门日志
yo utub e 为什么被封? AutoCAD 某些小技巧 AutoCAD中样条曲线转多段线程 序（可调节精度） <SOLAS>客船水密舱壁上的开口 （含动力滑动水密门要求） 利用e W e bSo ft在线编辑器漏洞进 行入侵
或者直接下载已编译好的文件，用CAD加载即可。地址 /viewthread.php?tid=172&fromuid=1
标签: 分享
« 电脑通过蓝牙连接手机拨号上网 | 不锈钢螺丝锁死问题解析» 引用地址: /blog/tb.php?sc=b05f18&id=174
最新碎语
满是垃圾广告评论，真恶心，删到 手酸。
2012-10-18 22:20 做了个坑爹的发型，坑爹啊
又骚了
2012-10-11 22:13
2012-10-11 00:14 回归了，上班了。
2012-10-08 12:43 升级到5.0.0，还不错的说。;)
2012-10-07 02:36 更多»
12-10-20
AutoCAD
BABYdoll liNGErie 2012-05-16 16:09
真的不太懂代码 哈哈 看来我的好好学习了
淘宝如何推广 2012-02-02 14:49
很给力的分析！只是看的很模糊！！
安徽私家侦探 2012-01-08 19:01 我也想学CAD了。
发表评论：
12-10-20
AutoCAD
Null's blog
:) 如果你拥有爱，请在失去之前好好珍惜.
-Null'sblog
首页 碎语 关于&留言 登录
AutoCAD中样条曲线转多段线程序（可调节精度）
作者：Null 发布于：2012-1-8 18:38 Sunda命令ee即可转换。
评论：
/blog/post-174.html
Blogger
Null 说走就走，是人生最华美的奢 侈，也是最灿烂的自由!
日历
« 2012 » « 10 » 一二三四五六日 1234567 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
随机日志
小站重开，注册了新顶级域名 又一场梦，记下来 写的第一个用递归实现的函数 AutoCAD中样条曲线转多段线程 序（可调节精度） 给自己博客加上“搜索引擎爬行记 录”程序
分类
编程(10) 分享(28) 日志(74) 船舶(13)
标签
日志 分享 船舶
Powered by emlog
sitemap 网站已安全运行73天12小时48分4秒
(setq en (ssname ss i);取得图元名 obj (vlax-ename->vla-object en);转换为vla对象 ) (setq ;zc (vlax-curve-getendparam obj) j 1 );求得图元周长 (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
(princ "+++ 曲线或圆弧到多线段 - Chris. test@ 2012-1-3 +++\n") (princ "+++++ 输入命令\"ee\"进行操作 +++++\n") (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
(VL-LOAD-COM)(setvar "cmdecho" 0) (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE")))) (princ "\n") (setq jj (getint "设置间距(1):")) (if (= jj nil) (setq jj 1)) (setq lenss (sslength ss) i 0 eelist '() ) (repeat lenss;外循环开始
/blog/post-174.html
2/2
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度 (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点 (repeat (fix (/ zc jj));循环周长取整次刚好到端点
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j)))) (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点 ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离 ) (setq eelist (append eelist (list lst)));加入到点集 (setq j (+ jj j));递增jj );内循环结束 ;(setq eelist(reverse eelist)) (setq eelist (append eelist (list (vlax-curve-getEndPoint obj)))) (command ".pline" "non" lst1);开始描点 (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红 (COMMAND "");描点结束 (setq eelist '());清空点集 (setq i (1+ i));下一个图元 );外循环结束 (princ "\n转换结束.") )
最新日志
2012年10月7日于上海浦东 新的开始 <ABS>液压门关于位置及防护等 级要求 拿下公司服务器 电脑通过蓝牙连接手机拨号上网
最新评论
南宁舞狮 看看虽说看不懂 别客气点醒你 @嘿嘿：一味的爱国等于无知，你 眼里爱国等于爱党吗？这个国家不 是共产党一家的，我爱 pARTy WiGS 这样也行啊 真是人才啊 BABYdoll liNGErie 真的不太懂代码 哈哈 看来我的好
昵称 邮件地址 (选填) 个人主页 (选填)
发表评论
-Null'sblog
回复
好学习了 nipplE cOvEr 其实我不太懂这些，不过还是支持 一下
搜索
回复 回复
站内搜索（全文）
搜索
链接
no te p a d ++ 卡饭论坛 龙的船人
热门日志
yo utub e 为什么被封? AutoCAD 某些小技巧 AutoCAD中样条曲线转多段线程 序（可调节精度） <SOLAS>客船水密舱壁上的开口 （含动力滑动水密门要求） 利用e W e bSo ft在线编辑器漏洞进 行入侵
或者直接下载已编译好的文件，用CAD加载即可。地址 /viewthread.php?tid=172&fromuid=1
标签: 分享
« 电脑通过蓝牙连接手机拨号上网 | 不锈钢螺丝锁死问题解析» 引用地址: /blog/tb.php?sc=b05f18&id=174
最新碎语
满是垃圾广告评论，真恶心，删到 手酸。
2012-10-18 22:20 做了个坑爹的发型，坑爹啊
又骚了
2012-10-11 22:13
2012-10-11 00:14 回归了，上班了。
2012-10-08 12:43 升级到5.0.0，还不错的说。;)
2012-10-07 02:36 更多»