批量删除板筋两端弯勾－掐头去尾

carrot1983 · 发表于 2009-4-2 13:38:35

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

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

×

本帖最后由 yularna 于 2015-1-16 13:08 编辑

[pcode=lisp,true]
(defun C:TT5 (/ ELIST PAR1 PAR_END SS CJW-SS-VALUE_LIST)
  ;;(CJW-SS-VALUE_LIST SS -1) By carrot1983
  (defun CJW-SS-VALUE_LIST (SS ITEM / I VALUE_LIST)
(repeat (setq I (sslength SS))
   (setq
      VALUE_LIST
      (cons
         (cdr       (assoc ITEM (entget (ssname SS (setq I (1- I)))))
         )
         VALUE_LIST
      )
   )
)
VALUE_LIST
  )
  (command "._UNDO" "_BEGIN")
  (princ "\n批量删除板筋两端弯勾 By carrot1983 2009-04-02")
  (if (setq SS (ssget '((0 . "LWPOLYLINE")
                     (8 . "REIN,*板*筋*")
                     (-4 . "<OR")
                     (90 . 4)
                     (90 . 6)
                     (-4 . "OR>")
                     )
            )
   )
(foreach E (CJW-SS-VALUE_LIST SS -1)
   (setq ELIST (entget E))
   (setq PAR_END (vlax-curve-getendparam E))
   (setq PAR1 (fix (* 0.5 PAR_END)))
   (repeat PAR1
      (setq ELIST (vl-remove (assoc 10 ELIST) ELIST))
      (setq ELIST (vl-remove (assoc 10 (reverse ELIST)) ELIST))
   )
   (entmod ELIST)
)
  )
  (command "._UNDO" "_END")
  (princ)
)

[/pcode]

dhs313 · 发表于 2009-4-3 17:25:38

不错哦

heifeng · 发表于 2009-4-10 12:44:53

好像以前谁发过这样的程序

lj524917100 · 发表于 2015-1-15 23:03:50

好东西，收藏

lj524917100 · 发表于 2015-1-15 23:11:49

这个功能不是很完善，能不能删除大样中的钢筋变勾

xvjiex · 发表于 2021-8-8 00:04:26

感谢楼主分享批量删除板筋两端弯勾－掐头去尾

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

[每日一码] 批量删除板筋两端弯勾－掐头去尾

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

相关帖子