Author Topic: Is there a way to convery hatch into lines without using explode command？ (Read 2920 times)

kozmos · « **on:** November 04, 2023, 08:06:28 AM »

I'd like to know if there is a way to get the lines of a hatch without calling explode command to explode it.

It's Alive! · « **Reply #1 on:** November 04, 2023, 08:54:18 AM »

I didn’t see anything in lisp, ARX has AcDbHatch::getHatchLinesData

Code - Python: [Select]

def PyRxCmd_doit():
    try:
        picktype = Db.Hatch.desc()
        es = Ed.Editor.entSel("\nPick it",picktype)
        if es[0] != Ed.PromptStatus.eNormal:
            return 
        
        hatch = Db.Hatch(es[1])
        data = hatch.getHatchLinesData()
        for s, e in zip(data[0],data[1]):
            Ed.Core.grDraw(
                Ge.Point3d(s[0],s[1],0),
                Ge.Point3d(e[0],e[1],0),1,0)
            
    except Exception as err:
        traceback.print_exception(err)
 

BIGAL · « **Reply #2 on:** November 04, 2023, 07:29:15 PM »

Another is copy hatch a set distance say to right, get bounding box of hatch, explode hatch, can use ssget CP using bounding box to get lines, can apply an offset X to the ends of lines to be true values compared to original hatch.

You did not say what your doing with the lines.

kozmos · « **Reply #3 on:** November 04, 2023, 10:09:22 PM »

Quote from: BIGAL on November 04, 2023, 07:29:15 PM

Another is copy hatch a set distance say to right, get bounding box of hatch, explode hatch, can use ssget CP using bounding box to get lines, can apply an offset X to the ends of lines to be true values compared to original hatch.

You did not say what your doing with the lines.

I attempt to display the hatchlines in DCL for preview the hatch object, that is why I am trying to avoid using explode command.

domenicomaria · « **Reply #4 on:** November 05, 2023, 12:48:54 PM »

OpenDCL has the "HATCH" control ...

BIGAL · « **Reply #5 on:** November 05, 2023, 05:34:27 PM »

You can have predefined images in a dcl. I have like 2x2 3x3 4x4 etc. The images are slides. Yes you can do vectors in a dcl image but slides are so much easier to use.

domenicomaria · « **Reply #6 on:** November 17, 2023, 11:39:57 AM »

maybe XDRX-HATCH->LINES ?

https://github.com/xdcad/XDrx-API

xdcad · « **Reply #7 on:** November 17, 2023, 11:43:04 AM »

Quote from: domenicomaria on November 17, 2023, 11:39:57 AM

maybe XDRX-HATCH->LINES ?

https://github.com/xdcad/XDrx-API

yes!!!

xdcad · « **Reply #8 on:** November 17, 2023, 11:45:54 AM »

Quote from: domenicomaria on November 17, 2023, 11:39:57 AM

maybe XDRX-HATCH->LINES ?

https://github.com/xdcad/XDrx-API

Command: (setq a (xdrx-hatch->lines (car (xdrx-entsel "\nPick a Hatch:" '((0 . "hatch"))))))
Pick a Hatch:((((11327.1 -1683.7 0.0) (11345.2 -1665.52 0.0)) ((11327.1 -1966.54 0.0) (11628.1 -1665.52 0.0)) ((11327.1 -2249.39 0.0) (11910.9 -1665.52 0.0)) ((11562.7 -2296.55 0.0) (12193.8 -1665.52 0.0)) ((11845.6 -2296.55 0.0) (12476.6 -1665.52 0.0)) ((12128.4 -2296.55 0.0) (12614.5 -1810.51 0.0)) ((12411.3 -2296.55 0.0) (12614.5 -2093.36 0.0)) ((11327.1 -1693.7 0.0) (11355.2 -1665.52 0.0)) ((11327.1 -1976.54 0.0) (11638.1 -1665.52 0.0)) ((11327.1 -2259.39 0.0) (11920.9 -1665.52 0.0)) ((11572.7 -2296.55 0.0) (12203.8 -1665.52 0.0)) ((11855.6 -2296.55 0.0) (12486.6 -1665.52 0.0)) ((12138.4 -2296.55 0.0) (12614.5 -1820.51 0.0)) ((12421.3 -2296.55 0.0) (12614.5 -2103.36 0.0))))

xdcad · « **Reply #9 on:** November 17, 2023, 11:50:38 AM »

Quote from: domenicomaria on November 17, 2023, 11:39:57 AM

maybe XDRX-HATCH->LINES ?

https://github.com/xdcad/XDrx-API

Another universal function:

Command: (xdrx-getpropertyvalue (car (entsel)) "hatchlines")
Select objects: (((11327.1 -1683.7 0.0) (11345.2 -1665.52 0.0)) ((11327.1 -1966.54 0.0) (11628.1 -1665.52 0.0)) ((11327.1 -2249.39 0.0) (11910.9 -1665.52 0.0)) ((11562.7 - 2296.55 0.0) (12193.8 -1665.52 0.0)) ((11845.6 -2296.55 0.0) (12476.6 -1665.52 0.0)) ((12128.4 -2296.55 0.0) (12614.5 -1810.51 0.0) ) ((12411.3 -2296.55 0.0) (12614.5 -2093.36 0.0 )) ((11327.1 -1693.7 0.0) (11355.2 -1665.52 0.0)) ((11327.1 -1976.54 0.0) (11638.1 -1665.52 0.0)) ((11327.1 -2259.39 0.0) (11920.9 -16 65.52 0.0)) ((11572.7 -2296.55 0.0 ) (12203.8 -1665.52 0.0)) ((11855.6 -2296.55 0.0) (12486.6 -1665.52 0.0)) ((12138.4 -2296.55 0.0) (12614.5 -1820.51 0.0)) ((12421.3 -2 296.55 0.0) (12614.5 -2103.36 0.0)) )

domenicomaria · « **Reply #10 on:** November 17, 2023, 12:19:08 PM »

Code - Auto/Visual Lisp: [Select]

(defun :ENTLAST ( / ent-last ent-next )
   (if(setq ent-last (entlast) )
      (while (setq ent-next (entnext ent-last) )   (setq ent-last ent-next) )
     )
     ent-last
)
 
(defun :SS-CATCH (x-en / tmp ss)
   (setq ss (ssadd))
   (while (setq x-en (if x-en (entnext x-en)   (entnext) ) ) (ssadd x-en ss) )
   (if (> (sslength ss) 0) ss nil)
)
 
(defun :LINE (p1 p2)
   (entmakex
      (list   '(0 . "LINE") '(100 . "AcDbEntity") '(410 . "Model") '(100 . "AcDbLine") (cons 10 p1) (cons 11 p2) )
   )
)
 
(defun C:HATCH2LINES ( / el es line-group-lst ssa )
   (setq el (:ENTLAST) )
   (setvar "cecolor" "222")
   (setq es (car (entsel "\nselect hatch : ")))
   (setq line-group-lst (XDRX-HATCH->LINES es))
   (foreach line-group line-group-lst
      (foreach line line-group (:LINE (car line) (cadr line) ) )
   )
   (setq ssa (:SS-CATCH el) )
   (command "move" ssa "")
)
      
 
(defun C:H2L () (C:HATCH2LINES) )

Yes ... it works ...

xdcad · « **Reply #11 on:** November 17, 2023, 02:27:59 PM »

Quote from: domenicomaria on November 17, 2023, 12:19:08 PM

Code - Auto/Visual Lisp: [Select]
(defun :ENTLAST ( / ent-last ent-next )
(if(setq ent-last (entlast) )
(while (setq ent-next (entnext ent-last) ) (setq ent-last ent-next) )
)
ent-last
)

(defun :SS-CATCH (x-en / tmp ss)
(setq ss (ssadd))
(while (setq x-en (if x-en (entnext x-en) (entnext) ) ) (ssadd x-en ss) )
(if (> (sslength ss) 0) ss nil)
)

(defun :LINE (p1 p2)
(entmakex
(list '(0 . "LINE") '(100 . "AcDbEntity") '(410 . "Model") '(100 . "AcDbLine") (cons 10 p1) (cons 11 p2) )
)
)

(defun C:HATCH2LINES ( / el es line-group-lst ssa )
(setq el (:ENTLAST) )
(setvar "cecolor" "222")
(setq es (car (entsel "\nselect hatch : ")))
(setq line-group-lst (XDRX-HATCH->LINES es))
(foreach line-group line-group-lst
(foreach line line-group (:LINE (car line) (cadr line) ) )
)
(setq ssa (:SS-CATCH el) )
(command "move" ssa "")
)

(defun C:H2L () (C:HATCH2LINES) )

Yes ... it works ...

The following is support for selection sets：

Code - Auto/Visual Lisp: [Select]

(defun c:h2l ()
  (if (setq ss (xdrx-ssget
                 "\nSelect Hatch Entities<Quit>:"
                 '((0 . "hatch"))
               )
      )
    (progn
      (xdrx-begin)
      (setq ss (mapcar '(lambda(x)(xdrx-hatch->lines x))(xdrx-pickset->ents ss)))
      (xdrx-setmark)
      (mapcar '(lambda (x)
                 (mapcar '(lambda(y)
                            (foreach n y (xdrx-line-make n))) x)
               )
              ss
      )
      (setq ss (xdrx-getss))
      (xdrx-setproperty ss "color" 222)
      (xd::drag:simplemove ss "\nInsert Point:" 5 t);1. Parameter 5, select the center point of the set bounding box to move the insertion point, 2. Parameter T move, NIL copy
      (xdrx-end)
    )
  )
  (princ)
)

The above LISP code uses the XDRX-API, which can be downloaded from https://github.com/xdcad/XDrx-API

The XDRX API encapsulates AcDb, AcEd, AcGe, AcBr... C++ library, using C++ methods to develop LISP programs.Thousands of Lisp functions are available.

domenicomaria · « **Reply #12 on:** November 17, 2023, 03:01:10 PM »

@xdcad
... every thing ... very interesting !

however you need to write an help file !

xdcad · « **Reply #13 on:** November 17, 2023, 03:43:23 PM »

Quote from: domenicomaria on November 17, 2023, 03:01:10 PM

@xdcad
... every thing ... very interesting !

however you need to write an help file !

What is the best software for making beautiful CHM files nowadays?

domenicomaria · « **Reply #14 on:** November 18, 2023, 11:48:54 AM »

_$ (type xdrx-setproperty)
EXRXSUBR

_$ (type xd::drag:simplemove)
nil

? ? ?

News: