Topic: which code can change Tolerance Display to Basic

[masao]

which code can change Tolerance Display to Basic,how to change to picture showing by lisp?

[HOSNEYALAA]

try

Code: [Select]

c#

(defun c:ccdtoleranceDisplay (/ DT ENT ID SDT)
  (setq dt  (ssget '((0 . "DIMENSION")))
        sdt (sslength dt)
        id  0

  ) ;_ end of setq
  (repeat sdt

    (progn
      (setq
        ent (ssname dt id)
        id  (1+ id)

      ) ;_ end of setq

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


[masao]

thank you very much.

i know how to change in cad,but i don't know how to change by lisp.

i can not find which code can change it.

thanks your teach,thank you very much.

[BIGAL]

You can add the rest of code required.

Code: [Select]

(setq obj (vlax-ename->vla-object (car  (entsel "Pick dim to remove tolerance "))))
(vla-put-tolerancedisplay obj 0)

[masao]

How to get Basic+Deviation?

[masao]

if dimension Deviation how to get basic and keep Deviation?

[Lee Mac]

Unless I've misunderstood, something like this?

Code - Auto/Visual Lisp: [Select]

1. (defun getdimtext ( ent / blk btr enx rtn )
2.     (if (and (setq enx (entget ent))
3.              (setq blk (cdr (assoc 2 enx)))
4.              (setq btr (tblobjname "block" blk))
5.         )
6.         (while (and (setq btr (entnext btr)) (not rtn))
7.             (if (= "MTEXT" (cdr (assoc 0 (setq enx (entget btr)))))
8.                 (setq rtn (cdr (assoc 1 enx)))
9.             )
10.         )
11.     )
12.     rtn
13. )

[masao]

Unless I've misunderstood, something like this?

Code - Auto/Visual Lisp: [Select]

1. (defun getdimtext ( ent / blk btr enx rtn )
2.     (if (and (setq enx (entget ent))
3.              (setq blk (cdr (assoc 2 enx)))
4.              (setq btr (tblobjname "block" blk))
5.         )
6.         (while (and (setq btr (entnext btr)) (not rtn))
7.             (if (= "MTEXT" (cdr (assoc 0 (setq enx (entget btr)))))
8.                 (setq rtn (cdr (assoc 1 enx)))
9.             )
10.         )
11.     )
12.     rtn
13. )

i use code but not change just get princ "305,71±0,08"

i want to add dimension text box,dimension or text replacement dimension use HOSNEYALAA's code is ok.

but Deviation dimension can not keep Symmetrical tolerance.

i post picture is else lisp make it,but i don't know how to get it,or lisp can not do it?

[ribarm]

You mean something like this - look at picture and DWG... I just changed height of tolerances from 1.0 to 0.5...

[masao]

You mean something like this - look at picture and DWG... I just changed height of tolerances from 1.0 to 0.5...

sorry,i use picture to express whit i mean.

thanks for your reply.

[ribarm]

You can add the rest of code required.

Code: [Select]

(setq obj (vlax-ename->vla-object (car  (entsel "Pick dim to remove tolerance "))))
(vla-put-tolerancedisplay obj 0)

Isn't this what you want... BIGAL already answered...

[masao]

You can add the rest of code required.

Code: [Select]

(setq obj (vlax-ename->vla-object (car  (entsel "Pick dim to remove tolerance "))))
(vla-put-tolerancedisplay obj 0)

Isn't this what you want... BIGAL already answered...

i want chang to (vla-put-tolerancedisplay obj 4) and keep text box. like this picture.it is use autolist to make?or use VBA?

this picture is else lisp make it but i want to know how to make text box like basic(vla-put-tolerancedisplay obj 0).

i want to get add text box result.

[ribarm]

To change dimstyle to one with text frame you have to change DXF 147 code from this example to negative value and to remove deviations you'll have to remove rest of MTEXT in DXF 1 code... Something like this example, but if you want to do this fast I don't see why not just using (MA) - matchprop like you described... Anyway, there is no system variable for frame like DIM* only DIMGAP - also negative for text frame...

Code - Auto/Visual Lisp: [Select]

1. (defun c:dimtolerances ( / *error* s i e o ox )
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.   (prompt "\nSelect DIMENSION entities...")
12.   (setq s (ssget "_:L" (list (cons 0 "DIMENSION"))))
13.   (repeat (setq i (sslength s))
14.     (setq e (ssname s (setq i (1- i))))
15.     (cond
16.       ( (= (vla-get-tolerancedisplay (setq o (vlax-ename->vla-object e))) 0)
17.         (vla-put-tolerancedisplay o 4)
18.         (setq ox (entget (tblobjname "dimstyle" (cdr (assoc 3 (entget e)))) (list "*")))
19.         (if (> (cdr (assoc 147 ox)) 0)
20.           (entupd (cdr (assoc -1 (entmod (subst (cons 147 (- 0 (cdr (assoc 147 ox)))) (assoc 147 ox) ox)))))
21.         )
22.         (setvar (quote dimgap) (if (> (getvar (quote dimgap)) 0) (- 0 (getvar (quote dimgap))) (getvar (quote dimgap))))
23.       )
24.       ( (> (vla-get-tolerancedisplay o) 0)
25.         (vla-put-tolerancedisplay o 0)
26.         (setq ox (entget (tblobjname "dimstyle" (cdr (assoc 3 (entget e)))) (list "*")))
27.         (if (< (cdr (assoc 147 ox)) 0)
28.           (entupd (cdr (assoc -1 (entmod (subst (cons 147 (abs (cdr (assoc 147 ox)))) (assoc 147 ox) ox)))))
29.         )
30.         (setvar (quote dimgap) (if (< (getvar (quote dimgap)) 0) (abs (getvar (quote dimgap))) (getvar (quote dimgap))))
31.       )
32.     )
33.     (entupd e)
34.   )
35.   (*error* nil)
36. )
37.  

[masao]

To change dimstyle to one with text frame you have to change DXF 147 code from this example to negative value and to remove deviations you'll have to remove rest of MTEXT in DXF 1 code... Something like this example, but if you want to do this fast I don't see why not just using (MA) - matchprop like you described... Anyway, there is no system variable for frame like DIM*...

Code - Auto/Visual Lisp: [Select]

1. (defun c:tt ( / *error* s i e o ox )
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.   (prompt "\nSelect DIMENSION entities...")
12.   (setq s (ssget "_:L" (list (cons 0 "DIMENSION"))))
13.   (repeat (setq i (sslength s))
14.     (setq e (ssname s (setq i (1- i))))
15.     (cond
16.       ( (= (vla-get-tolerancedisplay (setq o (vlax-ename->vla-object e))) 0)
17.         (vla-put-tolerancedisplay o 4)
18.         (setq ox (entget (tblobjname "dimstyle" (cdr (assoc 3 (entget e)))) (list "*")))
19.         (if (> (cdr (assoc 147 ox)) 0)
20.           (entupd (cdr (assoc -1 (entmod (subst (cons 147 (- 0 (cdr (assoc 147 ox)))) (assoc 147 ox) ox)))))
21.         )
22.       )
23.       ( (= (vla-get-tolerancedisplay o) 4)
24.         (vla-put-tolerancedisplay o 0)
25.         (setq ox (entget (tblobjname "dimstyle" (cdr (assoc 3 (entget e)))) (list "*")))
26.         (if (< (cdr (assoc 147 ox)) 0)
27.           (entupd (cdr (assoc -1 (entmod (subst (cons 147 (abs (cdr (assoc 147 ox)))) (assoc 147 ox) ox)))))
28.         )
29.       )
30.     )
31.     (entupd e)
32.   )
33.   (*error* nil)
34. )
35.  

thanks so much. i just want to know from (vla-put-tolerancedisplay obj 4) change to (vla-put-tolerancedisplay obj 4)+text box like (vla-put-tolerancedisplay obj 0) by autolisp ←it is possible?

other lisp can do if but can not see code ,so i don't know other lisp how to do it. or it is use other programming language.

[ribarm]

I've changed the code - see my latest revision in post above... ^^^^ It removes tolerances and toggles text frames... That's what you described in your firstly posted pictures... I hope that's what you initialy searched for...

[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)) ...