fathihvac Posted October 22, 2014 Share Posted October 22, 2014 When deleting the inserted block is it possible to join both end of lines autopmatically Quote Link to comment Share on other sites More sharing options...
hanhphuc Posted October 24, 2014 Share Posted October 24, 2014 Insert a WIPEOUT polygon block it does not break the line,but visually "broken" when you remove the block the line automatic "joined" my 0.02 Quote Link to comment Share on other sites More sharing options...
fathihvac Posted October 28, 2014 Author Share Posted October 28, 2014 Thanks I mean after using AutoBlockBreakV1-6.lsp of Mr.Lee Mac sometimes we need to delete the inserted block (for example pipe fitting) and the both ends of broken line should be joined automatically. Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted October 28, 2014 Share Posted October 28, 2014 ThanksI mean after using AutoBlockBreakV1-6.lsp of Mr.Lee Mac sometimes we need to delete the inserted block (for example pipe fitting) and the both ends of broken line should be joined automatically. A combination of reactors & xdata would be needed in order to link the block reference with the broken object on which it resides and trigger the object to be reconstructed following deletion of the block. Although potentially feasible to achieve, this would be significantly difficult to implement and certainly not something that I could undertake on voluntary time. I would suggest using a hatch or wipeout. Quote Link to comment Share on other sites More sharing options...
troggarf Posted October 29, 2014 Share Posted October 29, 2014 These used to work - but the comand-s thing has messed them up with 2015 and I have been too busy to tinker around with them. (defun c:heal (/ block ll ur p1 p2) (vl-load-com) (setq block (car (entsel "\nSelect Block:"))) (vla-getboundingbox (vlax-ename->vla-object block) 'll 'ur) (command "_.erase" block "") (command "_.pedit" "_m" (ssget "C" (setq p1 (vlax-safearray->list ll)) (setq p2 (vlax-safearray->list ur))) "" "_join" "_Joint" "_Both" (distance p1 p2) "") (princ) ) (defun c:HEAL2 (/ block ll ur objecttojoin) (vl-load-com) (setq block (car (entsel "\nSelect Block:"))) (vla-getboundingbox (vlax-ename->vla-object block) 'll 'ur) (command "_.erase" block "") (setq objecttojoin (ssget "C" (vlax-safearray->list ll) (vlax-safearray->list ur))) (command "_.join" (ssname objecttojoin 0) (ssname objecttojoin 1) "") ) http://autocadtips.wordpress.com/?s=heal http://autocadtips.wordpress.com/2012/06/29/autolisp-heal-erase-block-heal-line/ ~Greg Quote Link to comment Share on other sites More sharing options...
fathihvac Posted October 29, 2014 Author Share Posted October 29, 2014 Thank you very much troggarf It works with line not with polylines.I hope also with arcs splines . Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.