Leaderboard

FWIW, the code can be condensed to: (defun c:checkhpf ( / def fnd ) (while (and (not fnd) (setq def (tblnext "layer" (not def)))) (setq fnd (wcmatch (strcase (cdr (assoc 2 def))) "HPF*")) ) (if fnd (princ "\nLayer found.") (princ "\nLayer not found.") ) (princ) )

There are a few threads around here on this topic. Basically, you can't 100%, as it can still be traced and or duplicated from the dimensions if there are any, etc., best way is to make it as hard as possible. A well worded contract on not reusing your information will go along way to prevent conversion/reuse, just get legal services on specifics. Preventing our PDFs From Being Imported into Acad as Autocad Entities? - AutoCAD Drawing Management & Output - AutoCAD Forums PDF/ JPG file conversion threat. - AutoCAD 2D Drafting, Object Properties & Interface - AutoCAD Forums

This is a program made by ASMI and modified by Ronso in This Thread. This is a genius free LISP Program can be used in many trades, but has most usefulness in the HVAC, Mechanical, and Piping industry of 2D CAD Designs. It allows you to create Duct, Pipe, and Segmented Duct or Piping with automatic elbow or fittings to accurate dimensions via some initial input at the Command Prompt. Attached is a screenshot of the program in action: DUCT.LSP