help with extracting text from one dimension....

[Steven P]

Yes, welcome to the corporate world.

[XDSoft]

On 4/15/2024 at 9:21 PM, pkenewell said:

I recommend that you also provide instructions on your GITHUB on how to download and install the ObjectARX Library properly. Maybe also start a "releases" section?

 

I have made a compressed package version, no EXE is required, you can try it if you are interested.

 

https://github.com/xdcad/XDrx-API-zip

 

https://github.com/xdcad

[XDSoft]

On 4/17/2024 at 12:10 AM, Steven P said:

Yes, welcome to the corporate world.

 

I have made a compressed package version, no EXE is required, you can try it if you are interested.

 

https://github.com/xdcad/XDrx-API-zip

 

https://github.com/xdcad

[Nikon]

On 7/14/2022 at 1:54 AM, ronjonp said:

And another that allows a pick of any part of the dimension

(defun c:foo (/ e el m p1 p2)
 (if
 (and
 (setq e (car (entsel "\nPick dimension: ")))
 (progn (vlax-for a (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
 (cdr (assoc 2 (entget e)))
 )
 (and (= "AcDbMText" (vla-get-objectname a)) (setq m (vlax-vla-object->ename a)))
 )
 m
 )
 (setq p1 (cdr (assoc 10 (setq el (entget m)))))
 (setq p2 (getpoint p1 "\nSpecify second point: "))
 )
 (entmakex (append (vl-remove-if '(lambda (x) (= 330 (car x))) el) (list (cons 10 p2))))
 )
 (princ)
)

How can I convert the text size for insertion to the number x by 0.001, that is, if the size is 4250, then we get 4.250 when inserting?  Thanks!

[ronjonp]

Something like this?

(defun c:foo (/ e el m p1 p2)
  (cond
    ((and
       (setq e (car (entsel "\nPick dimension: ")))
       (progn (vlax-for	a (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
				    (cdr (assoc 2 (entget e)))
			  )
		(and (= "AcDbMText" (vla-get-objectname a)) (setq m (vlax-vla-object->ename a)))
	      )
	      m
       )
       (setq p1 (cdr (assoc 10 (setq el (entget m)))))
       (setq p2 (getpoint p1 "\nSpecify second point: "))
     )
     (setq
       e (entmakex (append (vl-remove-if '(lambda (x) (= 330 (car x))) el) (list (cons 10 p2))))
     )
     (vla-put-height (setq e (vlax-ename->vla-object e)) (* 0.001 (vla-get-height e)))
    )
  )
  (princ)
)