Topic: which code can change Tolerance Display to Basic

[ribarm]

Here, I've finished this LISP... I think you are searching something like this :

Code - Auto/Visual Lisp: [Select]

1. (defun c:dimtolerances ( / *error* e ch chh )
2.  
3.   (or (not (vl-catch-all-error-p (vl-catch-all-apply (function vlax-get-acad-object) nil))) (vl-load-com))
4.  
5.   (defun *error* ( m )
6.     (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
7.     (if m (prompt m))
8.     (princ)
9.   )
10.  
11.   (while (setq e (car (entsel "\nPick DIMENSION... - ENTER for FINISH...")))
12.     (initget "Yes No")
13.     (setq ch (cond ( (getkword "\nDo you want to keep symetrical deviation or not [Yes/No] <Yes> : ") ) ("Yes")))
14.     (if (= ch "Yes")
15.       (progn
16.         (setvar (quote dimtol) 1)
17.         (setvar (quote dimtm) 0)
18.         (setvar (quote dimtp) 0)
19.         (setvar (quote dimtdec) 2)
20.         (setvar (quote dimtzin) 0)
21.         (initget "Yes No")
22.         (setq chh (cond ( (getkword "nDo you want text frame or not [Yes/No] <Yes> : ") ) ("Yes")))
23.         (if (= chh "Yes")
24.           (setvar (quote dimgap) (cond ( (> (getvar (quote dimgap)) 0) (- 0 (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
25.           (setvar (quote dimgap) (cond ( (< (getvar (quote dimgap)) 0) (abs (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
26.         )
27.         (vl-cmdf "_.-dimstyle" "_a" e "")
28.       )
29.       (progn
30.         (setvar (quote dimtol) 0)
31.         (initget "Yes No")
32.         (setq chh (cond ( (getkword "nDo you want text frame or not [Yes/No] <Yes> : ") ) ("Yes")))
33.         (if (= chh "Yes")
34.           (setvar (quote dimgap) (cond ( (> (getvar (quote dimgap)) 0) (- 0 (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
35.           (setvar (quote dimgap) (cond ( (< (getvar (quote dimgap)) 0) (abs (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
36.         )
37.         (vl-cmdf "_.-dimstyle" "_a" e "")
38.       )
39.     )
40.     (entupd e)
41.   )
42.   (*error* nil)
43. )
44.  

HTH.
M.R.

[ribarm]

Better yet - selecting multiple dimensions...

Code - Auto/Visual Lisp: [Select]

1. (defun c:dimtolerances-ss ( / *error* ch chh s i e )
2.  
3.   (or (not (vl-catch-all-error-p (vl-catch-all-apply (function vlax-get-acad-object) nil))) (vl-load-com))
4.  
5.   (defun *error* ( m )
6.     (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
7.     (if m (prompt m))
8.     (princ)
9.   )
10.  
11.   (initget "Yes No")
12.   (setq ch (cond ( (getkword "\nDo you want to keep symetrical deviation or not [Yes/No] <Yes> : ") ) ("Yes")))
13.   (if (= ch "Yes")
14.     (progn
15.       (setvar (quote dimtol) 1)
16.       (setvar (quote dimtm) 0)
17.       (setvar (quote dimtp) 0)
18.       (setvar (quote dimtdec) 2)
19.       (setvar (quote dimtzin) 0)
20.       (initget "Yes No")
21.       (setq chh (cond ( (getkword "nDo you want text frame or not [Yes/No] <Yes> : ") ) ("Yes")))
22.       (if (= chh "Yes")
23.         (setvar (quote dimgap) (cond ( (> (getvar (quote dimgap)) 0) (- 0 (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
24.         (setvar (quote dimgap) (cond ( (< (getvar (quote dimgap)) 0) (abs (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
25.       )
26.     )
27.     (progn
28.       (setvar (quote dimtol) 0)
29.       (initget "Yes No")
30.       (setq chh (cond ( (getkword "nDo you want text frame or not [Yes/No] <Yes> : ") ) ("Yes")))
31.       (if (= chh "Yes")
32.         (setvar (quote dimgap) (cond ( (> (getvar (quote dimgap)) 0) (- 0 (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
33.         (setvar (quote dimgap) (cond ( (< (getvar (quote dimgap)) 0) (abs (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
34.       )
35.     )
36.   )
37.   (prompt "\nSelect DIMENSION entities...")
38.   (setq s (ssget "_:L" (list (cons 0 "DIMENSION"))))
39.   (repeat (setq i (sslength s))
40.     (setq e (ssname s (setq i (1- i))))
41.     (vl-cmdf "_.-dimstyle" "_a" e "")
42.     (entupd e)
43.   )
44.   (*error* nil)
45. )
46.  

HTH.
M.R.

[ribarm]

I've added lower and upper deviations choices...

Code - Auto/Visual Lisp: [Select]

1. (defun c:dimtolerances-ss ( / *error* ch chh tm tp s i e )
2.  
3.   (or (not (vl-catch-all-error-p (vl-catch-all-apply (function vlax-get-acad-object) nil))) (vl-load-com))
4.  
5.   (defun *error* ( m )
6.     (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
7.     (if m (prompt m))
8.     (princ)
9.   )
10.  
11.   (initget "Yes No")
12.   (setq ch (cond ( (getkword "\nDo you want to add or keep deviation or not [Yes/No] <Yes> : ") ) ("Yes")))
13.   (if (= ch "Yes")
14.     (progn
15.       (setvar (quote dimtol) 1)
16.       (setq tm (getreal "\nSpecify lower deviation - for symetrical it must be negative number <0.0> : "))
17.       (if (not tm)
18.         (setq tm 0.0)
19.       )
20.       (setvar (quote dimtm) (- tm))
21.       (setq tp (getreal (strcat "\nSpecify upper deviation - it must be higher number than : " (rtos tm 2) " - and for symetrical must be the same but positive value (" (rtos (- tm) 2) ") <0.0> : ")))
22.       (if (not tp)
23.         (setq tp 0.0)
24.       )
25.       (setvar (quote dimtp) tp)
26.       (setvar (quote dimtdec) 2)
27.       (setvar (quote dimtzin) 0)
28.       (initget "Yes No")
29.       (setq chh (cond ( (getkword "nDo you want text frame or not [Yes/No] <Yes> : ") ) ("Yes")))
30.       (if (= chh "Yes")
31.         (setvar (quote dimgap) (cond ( (> (getvar (quote dimgap)) 0) (- 0 (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
32.         (setvar (quote dimgap) (cond ( (< (getvar (quote dimgap)) 0) (abs (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
33.       )
34.     )
35.     (progn
36.       (setvar (quote dimtol) 0)
37.       (initget "Yes No")
38.       (setq chh (cond ( (getkword "nDo you want text frame or not [Yes/No] <Yes> : ") ) ("Yes")))
39.       (if (= chh "Yes")
40.         (setvar (quote dimgap) (cond ( (> (getvar (quote dimgap)) 0) (- 0 (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
41.         (setvar (quote dimgap) (cond ( (< (getvar (quote dimgap)) 0) (abs (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
42.       )
43.     )
44.   )
45.   (prompt "\nSelect DIMENSION entities...")
46.   (setq s (ssget "_:L" (list (cons 0 "DIMENSION"))))
47.   (repeat (setq i (sslength s))
48.     (setq e (ssname s (setq i (1- i))))
49.     (vl-cmdf "_.-dimstyle" "_a" e "")
50.     (entupd e)
51.   )
52.   (*error* nil)
53. )
54.  

M.R.

[masao]

I've added lower and upper deviations choices...

Code - Auto/Visual Lisp: [Select]

1. (defun c:dimtolerances-ss ( / *error* ch chh tm tp s i e )
2.  
3.   (or (not (vl-catch-all-error-p (vl-catch-all-apply (function vlax-get-acad-object) nil))) (vl-load-com))
4.  
5.   (defun *error* ( m )
6.     (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
7.     (if m (prompt m))
8.     (princ)
9.   )
10.  
11.   (initget "Yes No")
12.   (setq ch (cond ( (getkword "\nDo you want to keep deviation or not [Yes/No] <Yes> : ") ) ("Yes")))
13.   (if (= ch "Yes")
14.     (progn
15.       (setvar (quote dimtol) 1)
16.       (initget 1)
17.       (setq tm (getreal "\nSpecify lower deviation : "))
18.       (setvar (quote dimtm) (- tm))
19.       (initget 1)
20.       (setq tp (getreal (strcat "\nSpecify upper deviation - for symertical, type : " (rtos (- tm) 2) " : ")))
21.       (setvar (quote dimtp) tp)
22.       (setvar (quote dimtdec) 2)
23.       (setvar (quote dimtzin) 0)
24.       (initget "Yes No")
25.       (setq chh (cond ( (getkword "nDo you want text frame or not [Yes/No] <Yes> : ") ) ("Yes")))
26.       (if (= chh "Yes")
27.         (setvar (quote dimgap) (cond ( (> (getvar (quote dimgap)) 0) (- 0 (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
28.         (setvar (quote dimgap) (cond ( (< (getvar (quote dimgap)) 0) (abs (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
29.       )
30.     )
31.     (progn
32.       (setvar (quote dimtol) 0)
33.       (initget "Yes No")
34.       (setq chh (cond ( (getkword "nDo you want text frame or not [Yes/No] <Yes> : ") ) ("Yes")))
35.       (if (= chh "Yes")
36.         (setvar (quote dimgap) (cond ( (> (getvar (quote dimgap)) 0) (- 0 (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
37.         (setvar (quote dimgap) (cond ( (< (getvar (quote dimgap)) 0) (abs (getvar (quote dimgap))) ) ( t (getvar (quote dimgap)))))
38.       )
39.     )
40.   )
41.   (prompt "\nSelect DIMENSION entities...")
42.   (setq s (ssget "_:L" (list (cons 0 "DIMENSION"))))
43.   (repeat (setq i (sslength s))
44.     (setq e (ssname s (setq i (1- i))))
45.     (vl-cmdf "_.-dimstyle" "_a" e "")
46.     (entupd e)
47.   )
48.   (*error* nil)
49. )
50.  

M.R.

thanks ,if add textbox to (vla-put-tolerancedisplay obj 4) ,i must get which metadata? (get size and dimtp and dimtm)

dimgp can add textbox?

[ribarm]

You quoted my code that is not last one... Copy with ctrl+c and ctrl+v the code into notepad and save it as *.lsp - be sure that all file types are selected from notepad before you save it as *.lsp... I am tired now and don't understand what else do you want... It works for me perfectly...

Bye and best wishes...

[masao]

You quoted my code that is not last one... Copy with ctrl+c and ctrl+v the code into notepad and save it as *.lsp - be sure that all file types are selected from notepad before you save it as *.lsp... I am tired now and don't understand what else do you want... It works for me perfectly...

Bye and best wishes...

thanks so much,i fix ok.

i just add textbox. so just fix dimgap <0 can get box. i didn't know at first. thank you so much.

Code: [Select]

(defun c:tolerance_Display (/ DT ENT ID SDT)

(setq acdoc (vla-get-activedocument (vlax-get-acad-object)))

(while


  (setq dt  (ssget ":S" '((0 . "DIMENSION")))
        sdt (sslength dt)
        id  0

  ) ;_ end of setq

(vl-cmdf "_.undo" "_begin")

  (repeat sdt

    (progn
      (setq
        ent (ssname dt id)
        tol    (vla-get-tolerancedisplay (vlax-ename->vla-object ent))
        id  (1+ id)

      ) ;_ end of setq

(if (or (= tol 1) (= tol 2) (= tol 3))

(vla-put-textgap (vlax-ename->vla-object ent) -0.625)

      (vlax-put-property
        (vlax-ename->vla-object ent)
        'toleranceDisplay
        4
      ) ;_ end of vlax-put-property



)

    ) ;_ end of progn
  ) ;_ end of repeat

(vl-cmdf "_.undo" "_end")

)
 
  (princ)
) ;_ end of defun
(princ)
;;;;;;;;;;;;;;;;;;;;;;;;;;

[ribarm]

I've just looked at your code, you missed (= tol 0) in the line (if (or (= tol 1) (= tol 2) (= tol 3)) ...