DDMDOOR - Door insertion routine

#1
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

Image

#2
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
Image
DMDOOR)


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

Regards

#3
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..

#4
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