[功能] 多段线除重点---实用版

/db_自贡黄明儒_ · 发表于 2015-1-8 12:39:00

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

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

×

本帖最后由 /db_自贡黄明儒_ 于 2015-1-9 11:50 编辑

;;[功能] 多段线除重点---实用版---新鲜出炉

;;(HH:Remove1 (ssname (ssget "_+.:E:S" '((0 . "LWPOLYLINE"))) 0))
(defun HH:Remove1 (e / FLAG LST PTS)
(setq pts (OverPtsPL e))
(foreach x (entget e)
(cond
((= 10 (car x))
(setq Flag (car pts))
(setq pts (cdr pts))
(cond ((not Flag) (setq Lst (cons x Lst))))
)
(T (setq Lst (cons x Lst)))
)
)
(entmod (reverse Lst))
(princ)
)

游客，如果您要查看本帖隐藏内容请回复

819534890 · 发表于 2015-1-8 14:04:25

有什么改进？

newer · 发表于 2015-1-8 14:00:32

和上午那个比，哪个地方更好了？

newer · 发表于 2015-1-8 14:01:29

带弧线的，封闭，不封闭的都测试了吗？

wzg356 · 发表于 2015-1-8 14:26:22

ddddddddddd

/db_自贡黄明儒_ · 发表于 2015-1-8 14:51:25

newer 发表于 2015-1-8 14:01
带弧线的，封闭，不封闭的都测试了吗？

这个主要删除在一条线的点
封闭的也测试了，大部分情况下是正确的{:soso_e113:}

ysq101 · 发表于 2015-1-8 15:59:58

/db_自贡黄明儒_ 发表于 2015-1-8 14:51
这个主要删除在一条线的点
封闭的也测试了，大部分情况下是正确的

黄大师伟大，，，学习了，。。
这个加入《关于多线段》里呀

newer · 发表于 2015-1-8 16:02:54

/db_自贡黄明儒_ 发表于 2015-1-8 14:51
这个主要删除在一条线的点
封闭的也测试了，大部分情况下是正确的

那哪部分不正确？

/db_自贡黄明儒_ · 发表于 2015-1-8 16:05:14

newer 发表于 2015-1-8 16:02
那哪部分不正确？

首尾点在一条线上，且不封闭时，不正确
改个子函数就好了
;;114.3 [功能] 多段线端点与前后点是否在同一直线上
;;(OverPtsPL (car(entsel)))=>(T T nil nil nil T nil T T)
(defun OverPtsPL (e / LST LST0 LST1 LST2 X Y Z)
  (setq lst0 (HH:PtLists e))
  (cond
((HH:isClosed e)
   (setq lst1 (append (cdr lst0) (list (car lst0))))
   (setq lst2 (cons (last lst0) lst0))
   (mapcar '(lambda (x y z) (PtIn2Pts1 x y z 0.001)) lst0 lst2 lst1)
)
(T
   (setq lst1 (cdr lst0))
   (setq lst2 (cdr lst1))
   (setq lst (mapcar '(lambda (x y z) (PtIn2Pts1 x y z 0.001)) lst1 lst0 lst2))
   (setq lst (append (cons nil lst) (list nil)))
)
  )
)

/db_自贡黄明儒_ · 发表于 2015-1-8 16:07:12

ysq101 发表于 2015-1-8 15:59
黄大师伟大，，，学习了，。。
这个加入《关于多线段》里呀

自己加吧，刚好楼上用了(HH:isClosed e)

lucas3 · 发表于 2015-1-8 16:10:19

支持黄大师！！！

lucas3 · 发表于 2015-1-8 16:11:48

黄大师，应该把“禁用表情” 勾上，都显示成表情符号了

明天你好 · 发表于 2015-1-8 16:24:51

本帖最后由明天你好于 2015-1-8 16:34 编辑

看看！谢谢分享

/db_自贡黄明儒_ · 发表于 2015-1-8 16:37:06

lucas3 发表于 2015-1-8 16:11
黄大师，应该把“禁用表情” 勾上，都显示成表情符号了

勾上也有，{:soso_e110:}

tyrasv · 发表于 2015-1-8 17:46:30

一直在找这个程序，

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

[每日一码] [功能] 多段线除重点---实用版

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

评分

点评

点评

点评

点评

点评

点评