Comments on: Free AutoLisp Routine (Text Transfer)

By: Orzabal

Orzabal — Thu, 26 Nov 2009 02:52:02 +0000

clix is good in lisp! i know this guy

By: Ronald Maneja

Ronald Maneja — Fri, 11 Sep 2009 09:51:53 +0000

You’re welcome sir,

By: Admin

Admin — Thu, 10 Sep 2009 13:05:29 +0000

@Ronald

Thank you for that ronald.

By: Ronald Maneja

Ronald Maneja — Sun, 06 Sep 2009 01:47:35 +0000

hi, i just read this one today, I made a few adjustments because there is no need for polyline and insert checking. This works also for texts nested in blocks, just do a regen to update the block.

(defun c:tt (/ A B)
(if (setq A (nentsel “\nSelect TEXT to TRANSFER: “))
(progn
(setq A (cdr (assoc 1 (entget (car A)))))
(while (setq B (car (nentsel “\nSelect TEXT item to be REPLACED: “)))
(entmod
(subst
(cons 1 A)
(assoc 1 (entget B))
(entget B)
) ;_ end of subst
) ;_ end of entmod
) ;_ end of while
) ;_ end of progn
) ;_ end of if
(princ)
) ;_ end of defun

By: CADcaster » How to Load an AutoLISP File

CADcaster » How to Load an AutoLISP File — Fri, 04 Sep 2009 15:37:13 +0000

[...] More of this method here in this post Free AutoLISP Routine. [...]

By: How to Load an AutoLISP File | All About CAD

How to Load an AutoLISP File | All About CAD — Tue, 01 Sep 2009 16:00:33 +0000

[...] More of this method here in this post Free AutoLISP Routine. [...]

By: How to Load an AutoLISP File | PinoyCAD[dot]net | Your Daily dose of AutoCAD Tutorials

Tue, 01 Sep 2009 08:02:23 +0000

[...] of this method here in this post Free AutoLISP Routine. Share and [...]

By: clixs

clixs — Thu, 04 Jun 2009 00:06:15 +0000

Oh sorry for the last post, please remove it coz when i try to copy & paste the code it says too many arguments. Your forum automatically converts the open and close apostrophe (”") to a web characters.

For the people who wants to try this out please replace the Open & Close apostrophe in notepad then try to save it, it will work fine. I also tried it to 2007 and it works perfect too.

clixs (email: clirrie@yahoo.com)
Autolisp Programmer

By: clixs

clixs — Thu, 04 Jun 2009 00:01:24 +0000

DEBUG IT:

Program Structures are fine only that you have a special characters on the quote signs (”"). Here it is;

(defun c:tt ( / A B)
(setq A (cdr (assoc 1 (entget (car (entsel “Select TEXT to be TRANSFER: “))))))
(while (setq B (car (entsel “Select TEXT item to be REPLACE: “)))
(setq C (entget B))
(entmod (subst (cons 1 A)(assoc 1 C)C))
(if (or (= (cdr (assoc 0 C)) “POLYLINE”)(= (cdr (assoc 0 C)) “INSERT”))
(entupd B)))
(princ))

Hope you like it.
clixs
clirrie@yahoo.com

By: clixs

clixs — Wed, 03 Jun 2009 23:58:59 +0000

I got better routines in copying text from one to another. I can share it here with you. I can do a lot of Autolisp programming too, but it will cost you some bucks.

To the Author:
Keep up the good work for contributing your experience to the Filipino Community. I’ve been mastering Autocadd too for 13 years and counting.