This is a routine I wrote a while back, which I have now updated. In addition to the obvious (inserting doors and trimming the wall opening), it has the following features:

- Four different door types.
- several modes of door creation and optional detail.
- automated layer handling.
- create door entity as polyline/block.
- units in/mm/cm/m.
- editable preset door widths
- door center/offset positioning

New features are support for imperial units and the center/offset option.

DDMDOOR v2.1

My friend:

I'm getting this message:
Loading SmartPixel ImageEnabler...done.

: ddmdoor

1 UCS deleted.error: bad argument type
(OPEN FNAME "r")
(SETQ #LST_IMPERIAL_OFFSETS (LIST nil) #LST_METRIC_OFFSETS (LIST nil) #LST_IMPERIAL_OFFDESC (LIST nil) #LST_METRIC_OFFDESC (LIST nil) FNAME (FINDFILE FIL_DOOR) FILE (OPEN FNAME "r") LST_METRIC (READ (READ-LINE FILE)) LST_IMPERIAL (READ (READ-LINE FILE)))
(DDM_READ_OFFSET "ddmdoor.off")
(DDM_PRERUN)
(C DMDOOR)


And the routine doesn't work, am I missing something?

Regards

It looks like the routine can't locate one of the config files ("ddmdoor.off"). All the files in the .zip must be in the Intellicad search path. Try creating a directory (e.g. "lisp"), extract files to this directory, then put this directory in the "Drawings" search path (Options>Paths/Files).

Hope this helps..

Thanks for the routine. I did not have any problems getting it to work when I made the directory called Lisp and also added it to my path.

Lynn

This is excellent!!! It has worked fine and is a great routine, thank you very much!!!

Avaernes,

This in brill' will save me lots of time THANK YOU.

Do you have a program like this for windows also??

SteveN