I am still trying to become proficient in Visual Lisp, but the following is a string search and repalce I have been using for years which includes, TEXT, MTEXT, ATTRIBUTES and DIMENSIONS. (setq file_obj (vla-open (vla-get-documents acapp) dwgnmame)) DWG FILE* in a desired folder : "įull_name_list (vl-directory-files fold "*.dwg" 1)įull_name_list (mapcar (function (lambda (x) (defun C:REPS (/ acapp adoc file_obj fn fold full-names-list full_name_list ) (setq assoc_lst (mapcar 'cons old_list new_list)) (progn (alert "Number of items in both lists not equal. This post has many Notepad++ find & replace examples and other useful Notepad++ tips for different scenarios. You can also find and replace text using regex. (if (/= (length old_list)(length new_list)) With Notepad++, you can find and replace text in the current file or in multiple files in a folder recursively. New_list (mapcar 'vl-princ-to-string '(336 337 338)) <-change new number to suit (setq old_list (mapcar 'vl-princ-to-string '(330 331 332)) <-change old numbers to suit (defun supfinder (adoc / new_list old_list assoc_lst) (foreach att (vlax-invoke obj 'Getattributes) (eq :vlax-true (vla-get-hasattributes obj)))
((and (eq (strcase (vla-get-objectname obj))"ACDBBLOCKREFERENCE") (setq old_text (newstring (car pair)(cdr pair)old_text))))
(if (vl-string-search (car pair) old_text) (eq (strcase (vla-get-objectname obj)) "ACDBMTEXT")) (cond ((or (eq (strcase (vla-get-objectname obj)) "ACDBTEXT") Tool Bar Lisp Routine Adjustment Help 1.MTEXT command and justification options 1.measure distance on polyline by inserting block 1.
LISP - Lee Mac's List Box DCL Routine 3.Automatically populate attribute across multiple files 1.
0 kommentar(er)
