设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1402|回复: 14

[曲线] 曲线反向

[复制链接]

已领礼包: 1266个

财富等级: 财源广进

发表于 2014-4-21 21:09:00 | 显示全部楼层 |阅读模式
  • 插件名称 : 曲线反向
  • 作  者 : st788796
  • 运行环境 :XDRX API 
  • 发布时间 :2014-04-21
  • 命令名称 :xdtb_curvereverse
  • 插件介绍 :按选择曲线反向
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
隐藏的目的是看看有多少需要的,老大没有给权限也用不了
  1. (defun c:XDTB_CurveReverse (/ ss myerr olderr ss1 pts)
  2.   (defun myerr ()
  3.     (setq *error* olderr
  4.           myerr          nil
  5.     )
  6.     (xdrx_pickset_highlight ss t)
  7.     (xdrx_sysvar_pop)
  8.     (princ)
  9.   )
  10.   (if (setq ss (ssget '((0 . "*line"))))
  11.     (progn
  12.       (setq olderr  *error*
  13.             *error* myerr
  14.       )
  15.       (xdrx_layer_make "$xdtempmark" 1)
  16.       (xdrx_sysvar_push '("pdmode" 35))
  17.       (xdrx_setmark)
  18.       (mapcar '(lambda (x)
  19.                  (xdrx_point_make (xdrx_curve_getstartpoint x))
  20.                )
  21.               (xdrx_pickset->ents ss)
  22.       )
  23.       (xdrx_entity_setlayer (xdrx_getss) "$xdtempmark")
  24.       (xdrx_pickset_highlight ss)
  25.       (princ "\n选择反向曲线....")
  26.       (if (setq ss1 (ssget '((0 . "*line"))))
  27.         (progn
  28.           (mapcar
  29.             '(lambda (x / pt)
  30.                (if (ssmemb x ss)
  31.                  (progn
  32.                    (setq pts (cons (xdrx_curve_getstartpoint x) pts))
  33.                    (setq pt (xdrx_point_make (xdrx_curve_getendpoint x)))
  34.                    (xdrx_entity_setlayer pt "$xdtempmark")
  35.                    (xdrx_curve_reverse x)          
  36.                  )
  37.                )
  38.              )
  39.             (xdrx_pickset->ents ss1)
  40.           )
  41.           (mapcar
  42.             '(lambda (x)
  43.                (if (vl-position (car x) pts)
  44.                  (xdrx_entity_delete (cadr x))
  45.                )
  46.              )
  47.             (mapcar '(lambda (a)
  48.                        (list (xdrx_getpropertyvalue a "Position")
  49.                              a
  50.                        )
  51.                      )
  52.                     (xdrx_pickset->ents
  53.                       (ssget "X" '((0 . "point") (8 . "$xdtempmark")))
  54.                     )
  55.             )
  56.           )
  57.         )
  58.       )
  59.       (xdrx_pickset_highlight ss t)
  60.       (xdrx_sysvar_pop)
  61.       (setq *error* olderr)
  62.     )
  63.   )
  64.   (princ)
  65. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 282个

财富等级: 日进斗金

发表于 2014-4-21 22:16:16 | 显示全部楼层
沙发~
我现在接触的工作,几乎用不到曲线功能。不过楼主辛苦了,赞一个!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-4-22 07:49:36 | 显示全部楼层
谢谢楼主的分享!收藏备用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 844个

财富等级: 财运亨通

发表于 2014-4-22 11:37:22 | 显示全部楼层
今天晚来了下论坛,一上来就看见元老的好东西了,让我所求的两个功能合并成一个了,太给力了谢谢元老的不断改进这程序就象是为我量身定做的,你太让我喜欢了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-4-22 18:17:10 | 显示全部楼层
感觉有用  先收下了  谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 844个

财富等级: 财运亨通

发表于 2014-4-23 11:05:08 | 显示全部楼层
请教下元老出现这种情况是那里不对啊,单独加载调用这个命令时不会出现这情况,和一些LISP源码一起加载使用时,就出现这种情况了,请元老指点解决下
88.jpg
77.jpg
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1266个

财富等级: 财源广进

 楼主| 发表于 2014-4-23 11:27:15 来自手机 | 显示全部楼层
看样子是操作了已删除实体
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 844个

财富等级: 财运亨通

发表于 2014-4-23 14:45:04 | 显示全部楼层
有什么办法能解决这现象吗?实体并没删除啊,还在的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-6-29 23:45:35 | 显示全部楼层
谢谢楼主的分享!收藏备用!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 5个

财富等级: 恭喜发财

发表于 2018-1-17 11:42:05 | 显示全部楼层
谢谢楼主的分享!收藏备用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 459个

财富等级: 日进斗金

发表于 2018-1-29 21:11:07 | 显示全部楼层
谢谢分享~~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 470个

财富等级: 日进斗金

发表于 2018-1-30 08:47:01 来自手机 | 显示全部楼层
不错,不错,谢谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

发表于 2020-4-5 21:18:05 | 显示全部楼层
谢谢楼主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 129个

财富等级: 日进斗金

发表于 2020-4-6 14:19:07 | 显示全部楼层
谢谢楼主的分享!收藏备用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 136个

财富等级: 日进斗金

发表于 2020-4-18 07:07:17 | 显示全部楼层
老师 您好 论坛中有多段线反向的帖子。好像是手工判断调整,我希望能自动判断调整。      在图纸中已经画好线,A1到B1,B2到A2,A3到B3,总点到C1,总点到C2,总点到C3,线条的起点预先设置在图层列A,终点的图层设置在图层列B,线条是多义线。能不能根据多义线的起点和终点自动判断多义线的方向,并进行多义线的反向。 http://bbs.xdcad.net/thread-725628-1-1.html  谢谢老师!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2021-9-19 02:56 , Processed in 0.859883 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表