Monday, July 27, 2009

Find duplicate text and mtext on a drawing.

;; This AutoLISP routine examines all the user-selected TEXT and MTEXT items,
;; and draws a line on the current layer between any two that have identical
;; string values.
;; Leading and trailing blanks spaces are ignored.
;; %% modifiers, like %%u, are not ignored.
;; Upper- and lower-case differences are not ignored.

(defun c:fdt () ;;Find Duplicate Text

(prompt "Select text items to examine: ")
(setq ss (ssget '((-4 . ""))))

(setq n 0)

(while
(< n (sslength ss))
(setq string1 (cdr (assoc 1 (entget (ssname ss n)))))
(setq string1 (vl-string-right-trim " " (vl-string-left-trim " " string1)))
(setq m (1+ n))

(while
(< m (sslength ss))
(progn
(setq string2 (cdr (assoc 1 (entget (ssname ss m)))))
(setq string2 (vl-string-right-trim " " (vl-string-left-trim " " string2)))
(if (= string1 string2)
(progn
(setq p1 (cdr (assoc 10 (entget (ssname ss n)))))
(setq p2 (cdr (assoc 10 (entget (ssname ss m)))))
(command "line" p1 p2 "")
);progn
);if
);progn
(setq m (1+ m))
);while m

(setq n (1+ n))
);while n

);defun

(princ "Type FDT to run the Find_Dup_Text routine.")
(princ)

Wednesday, July 22, 2009

Create a Standby shortcut on the desktop

You go to your desktop, right click and new shortcut, then for the location type in one of the below commands

(in your case, %windir%\System32\rundll32.exe powrprof.dll,SetSuspendState )

 

Shutdown: %windir%\System32\shutdown.exe -s

Reboot: %windir%\System32\shutdown.exe -r

Logoff: %windir%\System32\shutdown.exe -l

Standby: %windir%\System32\rundll32.exe powrprof.dll,SetSuspendState

Hibernate: %windir%\System32\rundll32.exe powrprof.dll,SetSuspendState Hibernate

How to make a Date File Time Stamp

How to make a Date File Time Stamp - AutoCAD Tip

From elitecadd.net

 

(22 May, 2009)

 

In AutoCAD 2000, you can use the RTEXT command to create a date and time stamp.

 

   1. At the command prompt, enter RTEXT.

   2. Enter D for Diesel.

   3. In the Edit RTEXT dialog box, enter the following lines:

 

$(edtime, 0, MON DD"," YYYY - H:MMam/pm)

$(getvar, "dwgprefix")$(getvar, "dwgname")

Select a point in the drawing to place the stamp

 

 

 

*copy and paste the code below, updated: 07/22/2009

===========================================================================================================================

Jec Luzadas © $(edtime, 0, MON DD"," YYYY - H:MMam/pm)   <$(getvar,loginname)>   $(getvar, "dwgprefix")$(getvar, "dwgname")

===========================================================================================================================

Thursday, March 26, 2009

Do you like to explode the text?

This command is available on the express tools menu Express/Text/Explode Text or just simply type txtexp in the command line.