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