Help - Trim roof lines

[topomav]

Hi, I use this code to draw 2D and 3d roof . After last update add a Double Offset ROOF-AXIS 0.08 to LAYER ROOF. The problem is that after double offset the lines didnt trim. Can any one help?

[Tom Beauford]

Extrim took care of the outside corners and used fillet while holding shift down to toggle radius to 0 to get the inside ones pretty quick.

[topomav]

Hi, Tom Beauford. I did that ,but is any way to trim trim lines automatic. By the way extrim didn't trim the lines and I don't know why !!!

Thanks

[topomav]

Here is more complicated example. Need a lot of filet0 , extrend and extrim. Is any way to fix this code?

Thanks

[topomav]

I find a way to do this but i need some help.

This code create boundaries and delete the old ROOF lines. Now I am trying to explode the boundaries , and overkill them. Can any one help me to fix the code.

(defun c:CleanRoof (/ ss1 ss2)
  (command "layer" "off" "ROOF-AXIS" "")
  (princ "\nObjects to be removed, ")
  (if (setq ss1 (ssget '((0 . "LINE") (8 . "ROOF"))))
    (progn
      (sssetfirst nil nil)
     (command "_layer" "_m" "ROOF" "_c" "90" "" "")
      (command-s "_.-BOUNDARY")
      (command "_.erase" ss1 "")
    ) ; end progn
   ) ; end if
  (if (setq ss2 (ssget "X" '((8 . "ROOF"))))
    (progn
      (sssetfirst nil nil)
      (command "_.explode" ss2 "") ;explode ROOF boundaries
      (command "_.overkill" "l" "" "") ; overkill layer
    ) ; end progn
   ) ; end if
  (command "layer" "on" "ROOF-AXIS" "")
  (princ)
  ) ; end defun

Thansk

[topomav]

Any ideas?

Thanks

[Bruno.Valsecchi]

For "explode" make loop for explode entities one by one.

(defun c:CleanRoof (/ ss1 ss2 n ent)
  (command "_.-layer" "_off" "ROOF-AXIS" "")
  (princ "\nObjects to be removed, ")
  (if (setq ss1 (ssget '((0 . "LINE") (8 . "ROOF"))))
    (progn
      (sssetfirst nil nil)
     (command "_layer" "_m" "ROOF" "_c" "90" "" "")
      (command-s "_.-BOUNDARY")
      (command "_.erase" ss1 "")
    ) ; end progn
   ) ; end if
  (if (setq ss2 (ssget "_X" '((8 . "ROOF"))))
    (progn
      (sssetfirst nil nil)
      (repeat (setq n (sslength ss2))
        (setq ent (ssname ss2 (setq n (1- n))))
        (command "_.explode" ent) ;explode ROOF boundaries
      )
      (command "_.overkill" "_l" "" "") ; overkill layer
    ) ; end progn
   ) ; end if
  (command "_.-layer" "_on" "ROOF-AXIS" "")
  (princ)
)

[BIG-AL]

The external trim should work whether using Extrim or a custom trim that uses a offset pline a very small offset, then get the vertices and use a fence option, the internal and the "Y" intersects should be able to be worked out by using again Fence option with ssget, you can then work out the matching pairs of line work. need some time to think about it.

[topomav]

Hi BIG-AL. This is the lisp I use for roof and Clean roof with hatch for cleaning and add hatch.

I don't know any faster way to do it. Some things in lisp is complicated for me, every day learn learn new things from the experience of you in this forum.

I don't know if you can check the two codes and fix roof lisp to trim and hatch.

Roof lisp create 2d and 3d roofs. This extra lines is only in 2d roof. (I don't need hatch or extra line in 3d roof)

Thanks