Topic: ENTMAKE function

[MP]

I changed the ToString def'n Alan, but I left your reference of it alone.

[CAB]

The Hatch is not a complex object as i stated but if it is associative it will not entmake.
So I removed the associative dxf flags & it will entmake a non-associate hatch.
I updated the code above.

[CAB]

I changed the ToString def'n Alan, but I left your reference of it alone.

Yea, I think we are in sync with the exception of my added zero remover.

[MP]

Better look again.

[CAB]

I did some research on entmake & Mline.
Conclusion, don't waste your time. It aint gonna happen.

[CAB]

Better look again.

Oh, you love an Easter egg hunt don't you.

I think this is the only difference
(rtos x 2 (if (zerop (- x (fix x))) 1 15))

[MP]

Ta da!

[CAB]

Here is a rewrite of the routine.
It will handle all the objects previously tested except mLines.
Additionally excluded are nested blocks, xrefs, Raster, Tolerance, XRecord
Other objects may also excluded if they are new in ACAD 2002+
Ron, if you are up for it please retest the objects you tested before to
confirm it is working. Thanks.

Note that Inserts will result in a block being created which does not create
the actual Insert. The actual Insert must be created by the end user.

MakeEntmake.lsp

[ronjonp]

CAB,

Here is the results for the latest test: (blank did not create)



HTH

Ron

[CAB]

OK Ron, lets try again,
Fixed Hatch, Dim & Attdef

I think Block works, NOTE, the eMake will create a BLOCK definition which does not create
a visible object in the drawing. You must INSERT the new block.
I guess I could take it a step further & create the INSERT code as well.
Not sure anyone will need that code, do you?

[ronjonp]

CAB,
Looks like you got it nailed down .



It might be handy for the block entmake to insert the block for you.

Thanks,

Ron

[ronjonp]

CAB (or anyone else),

Is there a reason your routine won't make a block with attributes?

This is what is spits out:

Code: [Select]

(defun c:eMake ()
  (entmake '((0 . "BLOCK")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "0")
     (100 . "AcDbBlockReference")
     (66 . 1)
     (2 . "dtitle")
     (10 0.0 0.0 0.0)
     (70 . 0)
    )
  )
  (entmake '((0 . "ATTDEF")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "0")
     (100 . "AcDbText")
     (10 6.309332955476622 0.395557539427431 0.0)
     (40 . 0.100000000000000)
     (1 . "N.T.S.")
     (50 . 0.0)
     (41 . 1.0)
     (51 . 0.0)
     (7 . "standard")
     (71 . 0)
     (72 . 2)
     (11 6.752190098333765 0.395557539427431 0.0)
     (100 . "AcDbAttributeDefinition")
     (3 . "Scale:")
     (2 . "SCALE")
     (70 . 0)
     (73 . 0)
     (74 . 0)
    )
  )
  (entmake '((0 . "ATTDEF")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "0")
     (100 . "AcDbText")
     (10 1.377632293917034 0.395557539427431 0.0)
     (40 . 0.250000000000000)
     (1 . "")
     (50 . 0.0)
     (41 . 1.0)
     (51 . 0.0)
     (7 . "standard")
     (71 . 0)
     (72 . 0)
     (11 0.0 0.0 0.0)
     (100 . "AcDbAttributeDefinition")
     (3 . "Second line:")
     (2 . "NAME2")
     (70 . 0)
     (73 . 0)
     (74 . 0)
    )
  )
  (entmake '((0 . "ATTDEF")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "0")
     (100 . "AcDbText")
     (10 1.377632293917034 0.770557539427431 0.0)
     (40 . 0.250000000000000)
     (1 . "")
     (50 . 0.0)
     (41 . 1.0)
     (51 . 0.0)
     (7 . "standard")
     (71 . 0)
     (72 . 0)
     (11 0.0 0.0 0.0)
     (100 . "AcDbAttributeDefinition")
     (3 . "First line:")
     (2 . "NAME1")
     (70 . 0)
     (73 . 0)
     (74 . 0)
    )
  )
  (entmake '((0 . "ATTDEF")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "0")
     (100 . "AcDbText")
     (10 0.652977042930451 0.639190527874698 0.0)
     (40 . 0.250000000000000)
     (1 . "")
     (50 . 0.0)
     (41 . 1.0)
     (51 . 0.0)
     (7 . "standard")
     (71 . 0)
     (72 . 4)
     (11 0.750095051115990 0.764190527874698 0.0)
     (100 . "AcDbAttributeDefinition")
     (3 . "Number:")
     (2 . "#")
     (70 . 0)
     (73 . 0)
     (74 . 0)
    )
  )
  (entmake '((0 . "LWPOLYLINE")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "0")
     (100 . "AcDbPolyline")
     (90 . 3)
     (70 . 0)
     (43 . 0.020000000000000)
     (38 . 0.0)
     (39 . 0.0)
     (10 1.245930039763611 0.721912612736174)
     (40 . 0.020000000000000)
     (41 . 0.020000000000000)
     (42 . 1.064411829348489)
     (10 0.252853063807763 0.744437955044491)
     (40 . 0.020000000000000)
     (41 . 0.020000000000000)
     (42 . 0.947434764959047)
     (10 1.245930039763611 0.721912612736174)
     (40 . 0.020000000000000)
     (41 . 0.020000000000000)
     (42 . -0.926144858212555)
    )
  )
  (entmake '((0 . "LWPOLYLINE")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "0")
     (100 . "AcDbPolyline")
     (90 . 2)
     (70 . 0)
     (43 . 0.020000000000000)
     (38 . 0.0)
     (39 . 0.0)
     (10 1.245930039763611 0.721912612736174)
     (40 . 0.020000000000000)
     (41 . 0.020000000000000)
     (42 . 0.0)
     (10 6.750564105741474 0.721912612736174)
     (40 . 0.020000000000000)
     (41 . 0.020000000000000)
     (42 . 0.0)
    )
  )
  (entmake '((0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0")))
  (princ)
) ; end eMaker
Thanks,

Ron

[CAB]

Here is an update.
Fixed bug  

<code removed: see link for latest version>
http://www.theswamp.org/index.php?topic=31145.0

[ronjonp]

CAB,

You are amazing! Thanks.

Ron

[CAB]

No problem & thanks.

The bug was that I used the (70 . 0) by default and the fix was to get the actual dxf 70 code
from the block data which in this case was (70 . 2)