Please wait a few minutes and refresh this page. BASE Command - BEWARE of XREFs & BlocksĮrror: Twitter did not respond.Le.lsp-Lisp routine for drawing a line and then entering text. std.lsp-Standardizes variables and layers.This is a SAMPLE of a standard. Add.lsp-Online Calculator.-Bonus winner in 11/96 Cadalyst-lisp Findtxt.lsp- Search for text in your drawing. AutoLISP: Make and Save Custom Hatch Pattern Fire.zip-Lisp routine-Acad GAME- shoot at entities in your drawings.Tip: When Tracking Doesn't Seem to Work.AutoLISP: Replace Selected Points with Block.Required Express tools OutSide Contour Delete with Extrim Found at ( defun C:OCD ( / en ss lst ssall bbox ) ( vl-load-com ) ( if ( and ( setq en ( car ( entsel ' Select contour (polyline): ' ))) ( wcmatch ( cdr ( assoc 0 ( entget en ))) '*POLYLINE' )) ( progn ( setq bbox ( ACET-ENT-GEOMEXTENTS en )) ( setq bbox ( mapcar ' ( lambda ( x )( trans x 0 1 )) bbox )) ( setq lst ( ACET-GEOM-OBJECT-POINT-LIST en 1e-3 )) ( ACET-SS-ZOOM-EXTENTS ( ACET-LIST-TO-SS ( list en ))) ( command '_.Zoom' '0.95x' ) ( if ( null etrim )( load 'extrim.lsp' )) ( etrim en ( polar ( car bbox ) ( angle ( car bbox )( cadr bbox )) ( * ( distance ( car bbox )( cadr bbox )) 1.1 ))) ( if ( and ( setq ss ( ssget '_CP' lst )) ( setq ssall ( ssget '_X' ( list ( assoc 410 ( entget en ))))) ) ( progn ( setq lst ( vl-remove-if 'listp ( mapcar 'cadr ( ssnamex ss )))) ( foreach e1 lst ( ssdel e1 ssall )) ( ACET-SS-ENTDEL ssall ) ) ) ) ) ) ( princ ' Type OCD to start' ) ( princ ) Known limitation: Closed polyline has to consist of straight segments (no arcs) Anything that crosses its edge will be trimmed on the outside, while everything that is outside of the selected closed Polyline will be erased.

It lets you select a closed polyline and it will trim and delete everything outside of it. Here is a very helpful routine that I seemed to have forgotten about.

Autocad contour lisp free download