查看: 840|回复: 40
悬赏5个明经币，自己写的烂尾程序求优化！！！（ljb制作）
在线时间 小时
本帖最后由 水吉空 于
13:35 编辑
忍无可忍，无须再忍！此人小人一个，2017年10月份要我帮忙给他一个批量插图插件，该插件是我自己独立完成的。当时我拒绝了他，然后他立马翻脸。事情本来过去2个月了，我以为我们个过个的生活，没想到此人如此记仇，睚眦必报，从2017年10月份至今，一直在论坛拿私人恩怨搞事，现在在明经论坛，只要是我的帖子，就有他的恶意评论！到处造谣生事，请求版主、明总执法，那怕把我也封号了我也认了。我在群里已经说得很明白了，视频我分享给我的朋友，或者说是我学生。说假话不得好死。至于你，呵呵，不给帮忙就翻脸，过去2个月了，小人一个。
悬赏5个明经币，自己写的烂尾程序求优化！！！
主要是实现多段线拐点的自动连接。（ljb制作）
目的：探讨学习，优化以及实现多段线拐点的自动连接的通用性。
主要是算法，点集的算法优化！！！谢谢大神了！！！
(defun ljb-jc-plinexy (e / a q m p)&&(setq a(vlax-ename-&vla-object e)& & q(vlax-safearray-&list(vlax-variant-value(vla-get-Coordinates a)))& & m(vla-get-objectname a)& & a 0& & m(if (= m &AcDb3dPolyline&)3 2))&&(repeat(/ (length q) m)& & (cond((= m 2)(setq p1 (list(nth a q) (nth(+ a 1)q))))& && &((= m 3)(setq p1(list(nth a q)(nth(+ a 1)q)(nth(+ a 2)q)))))& & (setq p(if(member p1 p)p(append p(list p1)))& && &a(+ a m)))&&p)(defun fsort (e1 e2)&&(if (= (car e1) (car e2))& & (& (cadr e1) (cadr e2))& & (& (car e1) (car e2))&&))(defun BF-list-same (lst)&&(if lst& & (if (member (car lst) (cdr lst))& && &(cons (car lst) (BF-list-same (vl-remove (car lst) (cdr lst))))& && &(BF-list-same (vl-remove (car lst) (cdr lst)))& & )&&))(defun ljb-list-same (lst)&&(if lst& & (if (member (car lst) (cdr lst))& && &(cons (car lst) (BF-list-same (vl-remove (car lst) (cdr lst))))& && &(BF-list-same (vl-remove (car lst) (cdr lst)))& & )&&))(defun ljb-List-ReplaceIndex (oldlst index item)&&(if (zerop index)& & (append (list item) (cdr oldlst))& & (cons (car oldlst)& && &(BF-list-replaceindex (cdr oldlst) (1- index) item)& & )&&))(defun BF-List-ReplaceIndex (oldlst index item)&&(if (zerop index)& & (append (list item) (cdr oldlst))& & (cons (car oldlst)& && &(BF-list-replaceindex (cdr oldlst) (1- index) item)& & )&&))(defun ljb-tf (lst / po_last_lst po_last_lst_1 qc_lst temp_lst temp_lst4 temp_lst5 y)&&(setq po_last_lst (vl-sort lst 'fsort))&&(setq qc_lst (ljb-list-same po_last_lst))&&(setq y 0)&&(repeat (length qc_lst)& & (setq temp_lst (nth y qc_lst))& & (setq po_last_lst (vl-remove temp_lst po_last_lst))& & (setq y (1+ y))&&)&&(setq po_last_lst_1 (append qc_lst po_last_lst))&&(setq po_last_lst_1 (vl-sort po_last_lst_1 'fsort))&&(setq temp_lst4 (nth 4 po_last_lst_1))&&(setq temp_lst5 (nth 5 po_last_lst_1))&&(setq po_last_lst_1 (ljb-List-ReplaceIndex po_last_lst_1 5 temp_lst4))&&(setq po_last_lst_1 (ljb-List-ReplaceIndex po_last_lst_1 4 temp_lst5))&&(progn (command &_.PLINE&)& & (foreach n po_last_lst_1 (command n))& & (command &&)))(defun c:tf (/ *acad* *doc* *error* cecolor_bak celtype_bak clayer_bak ename ename1 entmakelst first i i1 osmode_bak po_lst po_lst_lst s ss ss1 textstyle_bak)&&(vl-load-com)&&(setq *ACAD*&&(vlax-get-acad-object)& & *DOC*& &(vla-get-ActiveDocument *ACAD*)&&)&&(defun *error* (msg)& & (vlax-invoke-method *DOC* 'EndUndoMark)& & (princ msg)& & (princ)&&)&&(vlax-invoke-method *DOC* 'StartUndoMark)&&(setvar &cmdecho& 0)&&(setq osmode_bak (getvar &osmode&))&&(setvar &osmode& 0)&&(setq clayer_bak (getvar &clayer&))&&(setq cecolor_bak (getvar &cecolor&))&&(setq celtype_bak (getvar &celtype&))&&(setq textstyle_bak (getvar &textstyle&))&&(setq ss (ssget))&&(setq po_lst_lst nil)&&(repeat (setq i (sslength ss))& & (setq ename (ssname ss (setq i (1- i))))& & (cond ((and (= (Vlax-Get (Vlax-Ename-&Vla-Object ename) 'ObjectName ) &AcDbPolyline&)& && && && & (or (= (length (Vlax-Get (Vlax-Ename-&Vla-Object ename) 'Coordinates )) 4) (= (length (Vlax-Get (Vlax-Ename-&Vla-Object ename) 'Coordinates )) 6)))& && && && &(progn (setq po_lst (ljb-jc-plinexy ename))& && && && &&&(setq po_lst_lst (append po_lst po_lst_lst))& && && && &))& && &((= (Vlax-Get (Vlax-Ename-&Vla-Object ename) 'ObjectName ) &AcDbBlockReference&)& && &&&(progn& && && & (setq entmakelst (entget ename))& && && & (setq ss1 (ssadd))& && && & (setq first (entlast))& && && & (command &_.EXPLODE& ename &&)& && && & (while& && && && &(setq s (entnext first))& && && && &(setq ss1 (ssadd s ss1) first (entnext first))& && && & )& && && & (repeat (setq i1 (sslength ss1))& && && && &(setq ename1 (ssname ss1 (setq i1 (1- i1))))& && && && &(if (and (= (Vlax-Get (Vlax-Ename-&Vla-Object ename1) 'ObjectName ) &AcDbPolyline&)& && && && && && &(or (= (length (Vlax-Get (Vlax-Ename-&Vla-Object ename1) 'Coordinates )) 4) (= (length (Vlax-Get (Vlax-Ename-&Vla-Object ename1) 'Coordinates )) 6)))& && && && &&&(progn (setq po_lst (ljb-jc-plinexy ename1))& && && && && & (setq po_lst_lst (append po_lst po_lst_lst))& && && && &&&)& && && && &)& && && && &(entdel ename1)& && && & )& && &&&)& && &))&&)&&(if entmakelst& & (progn& && &(entmake entmakelst))&&)&&(ljb-tf po_lst_lst)&&(setvar &osmode& osmode_bak)&&(setvar &clayer& clayer_bak)&&(setvar &cecolor& cecolor_bak)&&(setvar &celtype& celtype_bak)&&(setvar &textstyle& textstyle_bak)&&(setvar &cmdecho& 1)&&(vlax-invoke-method *DOC* 'EndUndoMark)&&(princ))
附件: 您需要
才可以下载或查看，没有帐号？
在线时间 小时
此帖仅作者可见
在线时间 小时
此帖仅作者可见
在线时间 小时
此帖仅作者可见
在线时间 小时
此帖仅作者可见
在线时间 小时
此帖仅作者可见
在线时间 小时
此帖仅作者可见
在线时间 小时
此帖仅作者可见
在线时间 小时
此帖仅作者可见
在线时间 小时
此帖仅作者可见
& 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途
Powered by名称/货币流动性程度
解释/货币流动性程度
是指货币变为的，也就是变为流通和手段的能力．
&|&相关影像
互动百科的词条（含所附图片）系由网友上传，如果涉嫌侵权，请与客服联系，我们将按照法律之相关规定及时进行处理。未经许可，禁止商业网站等复制、抓取本站内容；合理使用者，请注明来源于www.baike.com。
登录后使用互动百科的服务，将会得到个性化的提示和帮助，还有机会和专业认证智愿者沟通。
此词条还可添加&
编辑次数：3次
参与编辑人数：3位
最近更新时间： 12:10:00
贡献光荣榜
扫码下载APP【图文】金融衍生工具(lst)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
金融衍生工具(lst)
&&学习材料
大小：474.00KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢拒绝访问 | www.ggdoc.com | 百度云加速
请打开cookies.
此网站 (www.ggdoc.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(3debe-ua98).
重新安装浏览器，或使用别的浏览器虚拟货币 真实骗局：一年骗40亿 4.7万人血本无归|虚拟货币|骗局_新浪视频
虚拟货币 真实骗局：一年骗40亿 4.7万人血本无归
按住此条可拖动
新闻 - 热门视频
正在加载...请稍等~
分享视频地址：
本页面地址：
播放器swf地址：
html地址：
年时间就能涨到五倍多，也就是说，投入100万，就可以涨到500多万。同时吹嘘说这种“亚欧币”能在很多地方流通，而且介绍其他人一起来投，还能获得返利。说法挺诱人，但背后的真相是什么呢？事实上，到目前为止，我国并没有批准过所谓的虚拟数字货币，所谓“亚欧币”完全是造谣、诈骗。 就是在这些包装之下，短短一年的时间，“亚欧币”吸引了4万多名参与者，吸收资金达到40多亿元。
扫描二维码下载新浪视频App