Topic: Length line with annotation tex.-Help with a lisp

[PM]

Hi i am using this lisp code to dimension lines in my topografic drawings . The problem is that this code don't work as i want with the text sizes. For example i want fo 1:100m  ht = 0.175 ,1:200m ht=0.35 , 1:500 ht =0.875. The problem is in this line

Code - Auto/Visual Lisp: [Select]

1. (setq TxtObj (vla-addText *ModelSpace* (rtos olg 2 2) (vlax-3d-point midpt) (* (getvar"textsize") 0.2))) ;_ end of vla-addText
2.  

the 0.2 say to the code that me default scale is 1:200m and gives me wrong ht. (ht= the text height). I want to understand the scale every time but i don't   know how to change this line.

Code - Auto/Visual Lisp: [Select]

1. ;------------------------------------------------ LenghtOfObject --------------
2. (defun LenghtOfObject (obj / len)
3. (if (vl-catch-all-error-p (setq len (vl-catch-all-apply 'vlax-curve-getDistAtParam
4. (list obj (vl-catch-all-apply 'vlax-curve-getEndParam (list obj)))))) nil len
5. )
6. )
7. ;------------------------------------------------ c:LengthText ----------------
8. (defun c:LineDimAnnot ( / *ModelSpace* sel)
9.   (command "_.-layer" "_make" "lenght" "_color" 93 "" "_lweight" 0.30 "" "")
10.   (command "_.-style" "_diast" "wgsimpl.shx" "_annotative" "_yes" "_no" 1.75 1.0 0.0 "_no" "_no" "_no")
11. (vl-load-com)
12. (setq *ModelSpace* (vla-get-ModelSpace (vla-get-ActiveDocument(vlax-get-acad-object))))
13. (setvar "errno" 0) ; when the user on ssget press Enter the errno is set to 52
14. (while (and (setq sel (ssget))(/= (getvar "errno") 52))
15. (if sel
16. (progn
17. (mapcar (function (lambda (ent / obj olg stpt endpt next_pt midpt TxtObj midpt1)
18. (setq Obj (vlax-ename->vla-object ent))
19. (if (and (setq olg (LenghtOfObject obj))(> olg 0))
20. (progn
21. (setq stpt (vlax-curve-getStartPoint obj))
22. (setq endpt (vlax-curve-getendpoint obj))
23. (setq midPt (vlax-curve-getPointAtDist obj (* olg 0.5)))
24. (setq midPt1 (polar midPt (+ (* 0.5 pi)(angle stpt endpt)) 1e-3))
25. (setq TxtObj (vla-addText *ModelSpace* (rtos olg 2 2) (vlax-3d-point midpt) (* (getvar"textsize") 0.2))) ;_ end of vla-addText
26. (vla-put-Rotation TxtObj (+ (* 1.5 pi)(angle (vlax-curve-getClosestPointTo obj midpt1) midpt1)))
27. (setq midpt (vla-get-InsertionPoint TxtObj))
28. (vla-put-alignment TxtObj acAlignmentBottomCenter)
29. (vla-put-TextAlignmentPoint TxtObj midpt)
30. )
31. (if (ssmemb ent sel)(ssdel ent sel))
32. )
33. ))(vl-remove-if-not '(lambda(x)(= (type x) 'ENAME)) (mapcar 'cadr (ssnamex sel))))
34. )
35. )
36. )
37. ;change layer to 0
38. (mapcar 'setvar '(clayer cecolor celtype celweight) (list "0" "BYLAYER" "BYLAYER" -1))
39. (princ)
40. )
41.  
42.  

I appload a test file dwg to use my annotation scales because i work in meters


Thanks

[PM]

any ideas ?

[roy_043]

Here is a very basic idea: Start by properly indenting your code.
This will not solve your issue but may inspire others to actually read your code.

[tombu]

Replace

Code: [Select]

(* (getvar"textsize") 0.2)with

Code: [Select]

(* (/ 1. (getvar 'cannoscalevalue)) 0.175)

[PM]

Thanks you tombu

I check your code and i find that this work fine

Code - Auto/Visual Lisp: [Select]

1. (* (/ 1. (getvar 'cannoscalevalue)) 1.75)

Thanks