曲线反向

st788796 · 发表于 2014-4-21 21:09:00

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

您需要登录才可以下载或查看，没有账号？立即注册

×

隐藏的目的是看看有多少需要的，老大没有给权限也用不了

(defun c:XDTB_CurveReverse (/ ss myerr olderr ss1 pts)
(defun myerr ()
(setq *error* olderr
myerr nil
)
(xdrx_pickset_highlight ss t)
(xdrx_sysvar_pop)
(princ)
)
(if (setq ss (ssget '((0 . "*line"))))
(progn
(setq olderr *error*
*error* myerr
)
(xdrx_layer_make "$xdtempmark" 1)
(xdrx_sysvar_push '("pdmode" 35))
(xdrx_setmark)
(mapcar '(lambda (x)
(xdrx_point_make (xdrx_curve_getstartpoint x))
)
(xdrx_pickset->ents ss)
)
(xdrx_entity_setlayer (xdrx_getss) "$xdtempmark")
(xdrx_pickset_highlight ss)
(princ "\n选择反向曲线....")
(if (setq ss1 (ssget '((0 . "*line"))))
(progn
(mapcar
'(lambda (x / pt)
(if (ssmemb x ss)
(progn
(setq pts (cons (xdrx_curve_getstartpoint x) pts))
(setq pt (xdrx_point_make (xdrx_curve_getendpoint x)))
(xdrx_entity_setlayer pt "$xdtempmark")
(xdrx_curve_reverse x)
)
)
)
(xdrx_pickset->ents ss1)
)
(mapcar
'(lambda (x)
(if (vl-position (car x) pts)
(xdrx_entity_delete (cadr x))
)
)
(mapcar '(lambda (a)
(list (xdrx_getpropertyvalue a "Position")
a
)
)
(xdrx_pickset->ents
(ssget "X" '((0 . "point") (8 . "$xdtempmark")))
)
)
)
)
)
(xdrx_pickset_highlight ss t)
(xdrx_sysvar_pop)
(setq *error* olderr)
)
)
(princ)
)

(defun c:XDTB_CurveReverse (/ ss myerr olderr ss1 pts) 
  (defun myerr () 
    (setq *error* olderr 
          myerr          nil 
    ) 
    (xdrx_pickset_highlight ss t) 
    (xdrx_sysvar_pop) 
    (princ) 
  ) 
  (if (setq ss (ssget '((0 . "*line")))) 
    (progn 
      (setq olderr  *error* 
            *error* myerr 
      ) 
      (xdrx_layer_make "$xdtempmark" 1) 
      (xdrx_sysvar_push '("pdmode" 35)) 
      (xdrx_setmark) 
      (mapcar '(lambda (x) 
                 (xdrx_point_make (xdrx_curve_getstartpoint x)) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
      (xdrx_entity_setlayer (xdrx_getss) "$xdtempmark") 
      (xdrx_pickset_highlight ss) 
      (princ "\n选择反向曲线....") 
      (if (setq ss1 (ssget '((0 . "*line")))) 
        (progn 
          (mapcar 
            '(lambda (x / pt) 
               (if (ssmemb x ss) 
                 (progn 
                   (setq pts (cons (xdrx_curve_getstartpoint x) pts)) 
                   (setq pt (xdrx_point_make (xdrx_curve_getendpoint x))) 
                   (xdrx_entity_setlayer pt "$xdtempmark") 
                   (xdrx_curve_reverse x)           
                 ) 
               ) 
             ) 
            (xdrx_pickset->ents ss1) 
          ) 
          (mapcar 
            '(lambda (x) 
               (if (vl-position (car x) pts) 
                 (xdrx_entity_delete (cadr x)) 
               ) 
             ) 
            (mapcar '(lambda (a) 
                       (list (xdrx_getpropertyvalue a "Position") 
                             a 
                       ) 
                     ) 
                    (xdrx_pickset->ents 
                      (ssget "X" '((0 . "point") (8 . "$xdtempmark"))) 
                    ) 
            ) 
          ) 
        ) 
      ) 
      (xdrx_pickset_highlight ss t) 
      (xdrx_sysvar_pop) 
      (setq *error* olderr) 
    ) 
  ) 
  (princ) 
)

bzhjl · 发表于 2014-4-21 22:16:16

沙发~
我现在接触的工作，几乎用不到曲线功能。不过楼主辛苦了，赞一个！！

清风明月10 · 发表于 2014-4-22 07:49:36

谢谢楼主的分享！收藏备用。

龙吟舞 · 发表于 2014-4-22 11:37:22

{:soso_e120:}{:soso_e120:}{:soso_e120:}今天晚来了下论坛，一上来就看见元老的好东西了，让我所求的两个功能合并成一个了，太给力了谢谢元老的不断改进这程序就象是为我量身定做的，你太让我喜欢了。

拉契 · 发表于 2014-4-22 18:17:10

感觉有用先收下了谢谢！

龙吟舞 · 发表于 2014-4-23 11:05:08

请教下元老出现这种情况是那里不对啊，单独加载调用这个命令时不会出现这情况，和一些LISP源码一起加载使用时，就出现这种情况了，请元老指点解决下

st788796 · 发表于 2014-4-23 11:27:15

看样子是操作了已删除实体

龙吟舞 · 发表于 2014-4-23 14:45:04

有什么办法能解决这现象吗？实体并没删除啊，还在的

muyu301 · 发表于 2014-6-29 23:45:35

谢谢楼主的分享！收藏备用！

weiyao586 · 发表于 2018-1-17 11:42:05

谢谢楼主的分享！收藏备用。

amw333 · 发表于 2018-1-29 21:11:07

谢谢分享~~

liutong1997 · 发表于 2018-1-30 08:47:01

不错，不错，谢谢分享

JHX948954875 · 发表于 2020-4-5 21:18:05

谢谢楼主分享

qqp741005 · 发表于 2020-4-6 14:19:07

谢谢楼主的分享！收藏备用

xdcad9819 · 发表于 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 谢谢老师！

账号		自动登录	找回密码
密码			立即注册

[曲线] 曲线反向

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