I started but ran out Of time for today.
Start at the top of the extrim.lsp ( acad2000)
lines in file is 616 if we have the same version.
Insert the following comments at the line number.
Start with line 35.
If that is any help I'll get back to it next week.
Code:
;;35-vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
;;36- call error handler to save & set these system variables
;;56-^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;;58-vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
;;59- call Single pick routine & only accept these object types
;;60- returns the entity name
;;90-^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;;90-vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
;;92- call error handler to save & set these system variables
;;105- only if one of the object types above
;;106- draw a pline around object
;;115- closed pline if 1st & last point are equal
;;120- get the name of the pline created
;;125- else no need for a separate trim object
;;134- if p1 go trim the object na
;;136- if separate trim object created
;;139- see if current layer is locked
;;152- restore the vars set at the start of this routine
;;170- if object matches any one of the following
;;171- set flag if pline
;;184- if pline & open clear flag
;;190- set point p1 to current UCS & get VP name
;;196- setup & zoom to object extents
;;219- get a point list from object,
;;220- ??eliminate points close together, within 1/2 of screen pixel distance