Topic: Help with a lisp

[PM]

Hi i am using  ronjonp and CAB code from this post https://www.theswamp.org/index.php?topic=13982.0. This leabel lines and polylines with the layer name. I want to do a changes in the code.

I use annotation text so i create a text style for annotation text .

Code: [Select]

(command "_.-style" "_MY STYLE" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no")I want the text size in model space : for scale 1:200 m  be 0.50 for 1:500m  be 2.5 etc For all scales in layout must be 2.5
But in the code in this line

Code: [Select]

(if (zerop (setq txtht (getvar 'textsize)))
          (setq txtht 5)

set the text size to 5. i don't know how to change it

Code: [Select]

(defun rjp-addtext (ins hgt text ang / doc x)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq txtObj (vla-addtext
                 (if (= (getvar 'cvport) 1)
                   (vla-get-paperspace doc)
                   (vla-get-modelspace doc)
                 )
                 text
                 (vlax-3d-point ins)
                 hgt
               )
  )
  (vla-put-rotation txtObj ang)
  (vla-put-alignment txtObj acalignmentbottomcenter)
  (vla-put-textalignmentpoint txtobj (vlax-3d-point ins))
)


(defun c:x (/ index ss obj lyr ept spt mpt txtht)
(COMMAND "_layer" "_m" "_LAYER TEXT" "_c" "7" "" "")
(command "_.-style" "_MY STYLE" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no")
  (setq index -1)
  ;;(if (setq ss (ssget "x" '((0 . "LINE"))))
  (if (setq ss (ssget '((0 . "LINE"))))
    (progn
      (while (< (setq index (1+ index)) (sslength ss))
        (setq obj (vlax-ename->vla-object (ssname ss index))
              lyr (vla-get-layer obj)
              ept (vlax-get obj 'endpoint)
              spt (vlax-get obj 'startpoint)
              ang (angle spt ept)
              mpt (polar ept (angle ept spt) (/ (distance ept spt) 2.0))
        )
        (if (and (> ang (* 0.5 pi)) (< ang (* 1.5 pi)))
          (setq ang (+ ang pi))
        )
        (setq mpt (polar mpt (+ ang (/ pi 2.0)) (* (getvar 'dimscale) (getvar 'dimgap))))
        (if (zerop (setq txtht (getvar 'textsize)))
          (setq txtht 5) ; this must change in model space : for scale 1:200 m must be 0.50 for 1:500m must be 2.5 etc For all scales in layout must be 2.5
        )
        (rjp-addtext mpt txtht lyr ang)
      )
    )
  )
  (princ)
)

Thanks

[PM]

Any ideas?

[PM]

Ok .I fix it

[PM]

I have the same problem
for scale 1:200 m must be 0.50 for 1:500m must be 1.25 etc For all scales in layout must be 2.5

Is not working correct with the scales

Code - Auto/Visual Lisp: [Select]

1. (defun rjp-addtext (ins hgt text ang / doc x)
2.   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
3.   (setq txtObj (vla-addtext
4.                  (if (= (getvar 'cvport) 1)
5.                    (vla-get-paperspace doc)
6.                    (vla-get-modelspace doc)
7.                  )
8.                  text
9.                  (vlax-3d-point ins)
10.                  hgt
11.                )
12.   )
13.   (vla-put-rotation txtObj ang)
14.   (vla-put-alignment txtObj acalignmentbottomcenter)
15.   (vla-put-textalignmentpoint txtobj (vlax-3d-point ins))
16. )
17.  
18.  
19. (defun c:x (/ index ss obj lyr ept spt mpt txtht)
20. (COMMAND "_layer" "_m" "_LAYER TEXT" "_c" "7" "" "")
21. (command "_.-style" "_MY STYLE" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no")
22.   (setq index -1)
23.   ;;(if (setq ss (ssget "x" '((0 . "LINE"))))
24.   (if (setq ss (ssget '((0 . "LINE"))))
25.     (progn
26.       (while (< (setq index (1+ index)) (sslength ss))
27.         (setq obj (vlax-ename->vla-object (ssname ss index))
28.               lyr (vla-get-layer obj)
29.               ept (vlax-get obj 'endpoint)
30.               spt (vlax-get obj 'startpoint)
31.               ang (angle spt ept)
32.               mpt (polar ept (angle ept spt) (/ (distance ept spt) 2.0))
33.         )
34.         (if (and (> ang (* 0.5 pi)) (< ang (* 1.5 pi)))
35.           (setq ang (+ ang pi))
36.         )
37.         (setq mpt (polar mpt (+ ang (/ pi 2.0)) (* (getvar 'dimscale) (getvar 'dimgap))))
38.         (if (zerop (setq txtht (getvar 'textsize)))
39.           (setq txtht 5) ; this must change in model space : for scale 1:200 m must be 0.50 for 1:500m must be 1.25 etc For all scales in layout must be 2.5
40.         )
41.         (rjp-addtext mpt txtht lyr ang)
42.       )
43.     )
44.   )
45. (mapcar 'setvar '(clayer cecolor celtype celweight) (list "0" "BYLAYER" "BYLAYER" -1))
46.   (princ)
47. )
48.  
49.  

Can anyone Help ?

Thanks

[PM]

Any option?

[JohnK]

If I remember correctly (I haven't used AutoCAD or programmed in AutoLisp in years), you need to get the proper annotative scale factor. CANNOSCALEVALUE should get you started but you will have to adjust my formula because I just made up the 0.05 number.

Code - Auto/Visual Lisp: [Select]

1. (setq curScale (* (/ (getvar 'CANNOSCALEVALUE) 1) 0.05))