remove formating of dim

[clovis]

Hello,
I'm trying to remove the formating of the dimention in a acad dwg, created from Inventor.

;INVENTOR TEXT -> ACAD TEXT STYLE
(defun c:ita( / adim valeur removeText
				start end
				rtext
			)
	(setq removeText '("\\" "f" "H" "l"))
	(setq adim (ob))
	(setq valeur (vlax-get adim 'TextOverride))
	(if (/= valeur "<>")
		;remove extra info
		;example "\\fArial|b0|i0;\\H50.0000;ø\\fAIGDT|b0|i0;\\H50.0000;\\ln\\fArial|b0|i0;\\H50.0000;<>\\fArial|b0|i0;\\H50.0000;x2"
		;result ø<>x2
		(progn
			
				(while (setq st(car(member (substr valeur 1 1) removeText)))
					(setq start (vl-string-search st valeur))
					(setq end(vl-string-search ";"  valeur))
					(setq rtext (substr valeur (+ start 1) (+ end 1)))
					(setq valeur (vl-string-trim rtext valeur))
				)
			
		)
		
	)
	(princ)
)

Thanks for any help

[pbejse]

Would something like this be enough?

(defun c:test  (/ Selset Ent)
      (cond ((and
                   (Setq Selset (ssget ":L" '((0 . "DIMENSION"))))
                   (while (setq Ent (ssname SelSet 0))
                         (vla-put-TextOverride
                               (vlax-ename->vla-object Ent)
                               "")
                         (setq Selset (ssdel Ent Selset))
                         )
                   )
             )
            )
      (princ)
      )

or are you targeting specific format to remove?

[marko_ribar]

I don't see what should be changed in your code... Can you point out what isn't working well...

This should function, but CAD can't complete operation (it calculates and can't finish - I don't know why - it's simple)

;INVENTOR TEXT -> ACAD TEXT STYLE
(defun c:ita ( / adim valeur start end rtext)
        (vl-load-com)
	(setq adim (vlax-ename->vla-object (car (entsel "\nSelect DIMENSION")) ))
	(setq valeur (vlax-get adim 'TextOverride))
        (setq start "" end "")
	(if (/= valeur "<>")
		;remove extra info
		;example "\\fArial|b0|i0;\\H50.0000;ø\\fAIGDT|b0|i0;\\H50.0000;\\ln\\fArial|b0|i0;\\H50.0000;<>\\fArial|b0|i0;\\H50.0000;x2"
		;result ø<>x2
		(progn
				(while  (and (/= start nil) (/= end nil))
					(setq start (vl-string-search "\\" valeur))
					(setq end (vl-string-search ";" valeur))
					(setq rtext (substr valeur (+ start 1) (+ end 1)))
					(setq valeur (vl-string-trim rtext valeur))
				)
			
		)
	)
        (vla-put-TextOverride adim valeur)
	(princ)
)

M.R.

[marko_ribar]

There was logical error... Try this code:

;INVENTOR TEXT -> ACAD TEXT STYLE
(defun c:ita ( / adim val valn valeur valnew start end rtext)
        (vl-load-com)
	(setq adim (vlax-ename->vla-object (car (entsel "\nSelect DIMENSION")) ))
	(setq valeur (vlax-get adim 'TextOverride))
        (setq start "" end "" valnew "")
	(if (/= valeur "<>")
	;remove extra info
	;example "\\fArial|b0|i0;\\H50.0000;ø\\fAIGDT|b0|i0;\\H50.0000;\\ln\\fArial|b0|i0;\\H50.0000;<>\\fArial|b0|i0;\\H50.0000;x2"
	;result ø<>x2
	(progn
	(while  (or (/= start nil) (/= end nil))
		(setq start (vl-string-search "\\" valeur))
		(setq end (vl-string-search ";" valeur))
                (if (or (< end start) (= start nil)) (setq start 0))
                (if (and (>= start 1) (/= end nil)) (setq val (substr valeur 1 start)) )
                (if (/= end nil) (setq rtext (substr valeur (+ start 1) (+ end 1))) (setq rtext nil))
                (if (/= val nil) (setq valeur (vl-string-left-trim val valeur)) (setq valn valeur) )
		(if (/= rtext nil) (setq valeur (vl-string-left-trim rtext valeur)) )
		(if (and (/= start nil) (= end nil)) (setq val valn) )
		(if (/= val nil) (progn (setq valnew (strcat valnew val)) (setq val nil)) )
		(if (= start 0) (setq start nil))
	)
	)
	)
        (vla-put-TextOverride adim valnew)
	(princ)
)

M.R.
Hope this helps...

[clovis]

Thanks a lot
I was almost finished as I was struggling for the last part of the string
Really good job!

(defun c:ita ( / adim valeur start end rtext)
	(setq adim (ob))
	(setq ntext ""
	      valeur (vlax-get adim 'TextOverride)
	      start 0
	)
	(if (/= valeur "<>")
		(progn
			(while start
				(setq start(vl-string-search "\\" valeur))
				(if (> start 0)
					(setq 	nText (strcat nText(substr valeur 1 start ))
							valeur (substr valeur (+ start 1)(strlen valeur))
							start(vl-string-search "\\" valeur)
					)
				)
				(setq end (vl-string-search ";"  valeur))
				(if (and start end)
					(progn
						(setq rtext (substr valeur (+ start 1) end))
						(setq valeur (vl-string-left-trim rtext valeur))
						(if (= (substr valeur 1 1)";")
							(setq valeur (vl-string-trim ";" valeur))
						)
					)
				)
			)
			(setq nText (strcat ntext valeur))
			(vlax-put adim ' TextOverride nText)
		)
	)
	(princ)
)

Still I suppose there's must be an easier way with wcmatch or lambda and apply...
I'm gonna add a twist to update the dwg in one go
Thanks for your input