Switch letters inside the attributes text with autocad lisp

[Liviu Petreus]

Hi,

 

Can someone help me with a lisp to change the position of letters in the text of attributes such as XX/YY to YY/XX?

 

Thx

[ronjonp]

@Liviu Petreus Give this a try:

 

(defun c:foo (/ i s str)
  (if (setq s (ssget ":L" '((0 . "INSERT") (66 . 1))))
    (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
      (foreach att (vlax-invoke (vlax-ename->vla-object e) 'getattributes)
	(if (setq i (vl-string-search "/" (setq str (vla-get-textstring att))))
	  (vla-put-textstring att (strcat (substr str (+ 2 i)) "/" (substr str 1 i)))
	)
      )
    )
  )
  (princ)
)

 

[Liviu Petreus]

8 hours ago, ronjonp said:

@Liviu Petreus Give this a try:

 

(defun c:foo (/ i s str)
  (if (setq s (ssget ":L" '((0 . "INSERT") (66 . 1))))
    (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
      (foreach att (vlax-invoke (vlax-ename->vla-object e) 'getattributes)
	(if (setq i (vl-string-search "/" (setq str (vla-get-textstring att))))
	  (vla-put-textstring att (strcat (substr str (+ 2 i)) "/" (substr str 1 i)))
	)
      )
    )
  )
  (princ)
)

 

Many thanks

[ronjonp]

8 hours ago, Liviu Petreus said:

Many thanks