7/25/2023 0 Comments Easy rename layers in civil 3d![]() ![]() where c:/ is the drive where RENLYR.lsp is contained At the command line, type (load "c:/lispdir/RENLYR") edit box, allowing for the revision of the name. ![]() The purpose of this routine is to allow the user to pick an entity Tip1742: RENLYR.LSP Rename layer (c)2001, Jeff Foster I use this to rename a single Layer without opening the Layer Manager Is somebody eager to make simple lisp for renaming layers that will help millions of frustrated cad monkeys? I also was hoping to make the time necessary to add a Civil 3D specific adaptation, that would expand the RENAME Command to support Civil 3D's myriad Styles as well (from the plug-in's Context menu) When done, it was my intention to submit to Autodesk Exchange along with some of my other plug-ins. I also wanted to build in the support for Right Click Renaming of Section Views, etc. It (my plug-in) works well for AutoCAD 2010-2014, but has some issues for Civil 3D, as nearly all AECC* Objects are derived from BlockReference Type, so I need to make some time to revise the source-code to check for ObjectName instead of Type-casting as BlockReference, Entity, Dimension, Multileader, Table, etc. It stemmed from a 'Right Click Rename Layer' plug-in I wrote for a user there.īasically, the former allows for one to select a single entity, and Rename all contextual properties of that Entity Type, disabling those which cannot be Renamed (i.e., "0" Layer, etc.), while automatically feeding the existing Property values into the -RENAME Command for you. NET plug-in, that I started back in the 2014 Betas. ![]() This reminds me that I need to finish my 'Right Click Rename'. (action_tile "accept" "(setq #NewString (get_tile \"Edit\"))(done_dialog)") (setq #FileName (vl-filename-mktemp "" "" ".dcl") #Default - Default string within edit box (defun AT:GetString (#Title #Default / #FileName #FileOpen #DclID #NewString) ((tblsearch "LAYER" name) (alert "Layer already exist!")) (alert "Clone layer cannot have same name as base layer!") ((apply (function eq) (mapcar (function strcase) (list name layer))) ((not (snvalid name)) (alert "Invalid name!")) (setq ent (entsel "\nSelect object on layer to clone : ")) (if (while (and (not ent) (/= 52 (getvar 'ERRNO))) ![]()
0 Comments
Leave a Reply. |