Jump to content

Join both ends of line after deleting the inserted autobreak block


fathihvac

Recommended Posts

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

Link to comment
Share on other sites

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.

 

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...