A U T O L I S P

Visual Lisp / Autolisp Free Programs

No posts with label Less Text Digits. Show all posts

Subscribe to: Posts (Atom)

Search

Change Text Style

( defun c:CTS ( / *error* adoc sset userkey ApplyStyle CreateTextStyles ) ( vl-load-com ) ;Load activex Support ( defun *erro...
Write Polyline Vertex Points to CSV File

( defun c:Pl_export ( / *error* file sset ename lst ) ( vl-load-com ) ( defun *error* ( s ) ( if file ( close ...
Insert Block

;;;-------======={ Insert Blocks Program }======------------ ;;; Description : Insert Block for Selected ...
Create New Layer

Autolisp Codes : (defun c:Newlayer (/ Layername Color) ;;Author:Ganesh Shetty, Copyright © 2013 -http://autolispgs.blogspot.in (...
Set Current Layer

Autolisp Codes: (defun c:Sl(/ old_cmh sel ent laynme ) ;;Author:Ganesh Shetty, Copyright © 2013 -http://autolispgs.blogspot.in (setq...
Change Polyline Width

( defun c:lw ( / *error* acdoc width ss ) ( vl-load-com ) ( defun *error* ( s ) ( if acdoc ( vla-endundomark acdoc )) ...
Retrieve Max and Min Value from Text Objects

( defun c:mmv ( / *error* sset i en textvalue maxval minval valuelist ) ( vl-load-com ) ( defun *error* ( msg ) ( if ( not...
Write LWpolyline Vertex Points to CSV File

( defun c:Lw_export ( / *error* file sset ename lst i ) ( vl-load-com ) ( defun *error* ( s ) ( if file ( close file...
Delete layer Entity

( defun c:Dle ( / ext lst s sset lay ) ( while ( null ext ) ( setvar ' errno 0 ) ( if sset ( initget "Undo&q...
Export Text Co-Ordinates to CSV File

( defun c:T_export ( / *error* file sset ename lst i p string ) ( vl-load-com ) ( defun *error* ( s ) ( if f...