Search the Community

Dear All, Im Trying Create Layer with Dimension Style and selected dimension change layer name but not working properly. plase help me completed code . (defun c:Test-11 () (setvar "cmdecho" 0) (setvar "CELTSCALE" 3) ;;------------------------------------ Create Layer ----------------------------------- ; (if (not (tblsearch "LAYER" "TEST DIM-50")) (command "_.layer" "n" "TEST DIM-50" "_color" "1" "CENTER" "_ltype" "CENTER" "CENTER" "") ) ;------------------------------------ (if (not (tblsearch "layer" "TEST DIM-100")) (command "layer" "n" "TEST DIM-100" "") ) ;;------------------------------------ Create Text Style ----------------------------------- ; (if (not (tblsearch "STYLE" "")) (progn (command "STYLE" "TEST TXT-100" "ARIAL" "0" "0.7" "0" "n" "n" "n") (setvar "TEXTSTYLE" "TEST TXT-100") (command "STYLE" "TEST TXT-50" "ARIAL" "0" "0.7" "0" "n" "n" "n") (setvar "TEXTSTYLE" "TEST TXT-50") ) ) ;;------------------------------------ Create Dim Style (TEST DIM-100) ------------------------------------ ;; (if (not (tblsearch "DIMSTYLE" "TEST DIM-100")) (progn (setvar "DIMDLI" 2) ; Baseline spacing (setvar "DIMexe" 2) ; Beyond dimension line (setvar "DIMexo" 2) ; Start offset (setvar "DIMASZ" 2) ; Arrow Size (setvar "DIMTXT" 3) ; Text Height (setvar "DIMTAD" 1) ; Text position vertical (setvar "DIMJUST" 0) ; Text Position Horizontal (setvar "DIMTOH" 1) ; Text Height (setvar "DIMGAP" 0.3) ; Text Offset (setvar "DIMATFIT" 3) ; Text arrow adjustment options (setvar "DIMDEC" 1) ; Decimal places for annotation (setvar "DIMLFAC" 10) ; Scale Factor (setvar "DIMZIN" 8) ; Subsequent zero elimination (setvar "DIMAUNIT" 1) ; Unit format (setvar "DIMAZIN" 2) ; Angle subsequent zeroing (setvar "DIMADEC" 5) ; Decimal places for angle dimensioning (SETVAR "DIMZIN" 8) ; Control zero elimination (command "DIMTXSTY" "TEST TXT-100") ;Specifies the text style of the dimension. (command "DIMSTYLE" "S" "TEST DIM-100") ;Creates and modifies dimension styles. ) ) ;;------------------------------------ Create Dim Style (TEST DIM-50) ------------------------------------ ;; (if (not (tblsearch "DIMSTYLE" "TEST DIM-50")) (progn (setvar "DIMDLI" 2) ; Baseline spacing (setvar "DIMexe" 2) ; Beyond dimension line (setvar "DIMexo" 2) ; Start offset (setvar "DIMASZ" 2) ; Arrow Size (setvar "DIMTXT" 3) ; Text Height (setvar "DIMTAD" 1) ; Text position vertical (setvar "DIMJUST" 0) ; Text Position Horizontal (setvar "DIMTOH" 1) ; Text Height (setvar "DIMGAP" 0.3) ; Text Offset (setvar "DIMATFIT" 3) ; Text arrow adjustment options (setvar "DIMDEC" 1) ; Decimal places for annotation (setvar "DIMLFAC" 5) ; Scale Factor (setvar "DIMZIN" 8) ; Subsequent zero elimination (setvar "DIMAUNIT" 1) ; Unit format (setvar "DIMAZIN" 2) ; Angle subsequent zeroing (setvar "DIMADEC" 5) ; Decimal places for angle dimensioning (SETVAR "DIMZIN" 8) ; Control zero elimination (command "DIMTXSTY" "TEST TXT-50") ;Specifies the text style of the dimension. (command "DIMSTYLE" "S" "TEST DIM-50") ;Creates and modifies dimension styles. ) ) ;;------------------------------------ Dim Style (TEST DIM-100) ------------------------------------ ;; (defun C:testdim100 (/ ss n ddata) (if (setq ss (ssget "_:L" '((0 . "DIMENSION")))) (progn ; then (command "_.chprop" ss "" "_layer" "TEST DIM-100" "") (repeat (setq n (sslength ss)) (setq ddata (entget (ssname ss (setq n (1- n))))) (entmod (subst '(3 . "Annotative") (assoc 3 ddata) ddata)) ) ; repeat ) ; progn ) ; if ) ; defun ;;------------------------------------ Dim Style (TEST DIM-50) ------------------------------------ ;; ; not wotking :| (defun C:testdim50 (/ ss n ddata) (if (setq ss (ssget "_:L" '((0 . "DIMENSION")))) (progn ; then (command "_.chprop" ss "" "_layer" "TEST DIM-50" "") (repeat (setq n (sslength ss)) (setq ddata (entget (ssname ss (setq n (1- n))))) (entmod (subst '(3 . "Annotative") (assoc 3 ddata) ddata)) ) ; repeat ) ; progn ) ; if ) ; defun |; ;;---------------------------------------------------------------------------------------------- (command "DIMSTYLE" "r" "TEST DIM-100") (command "DIMSTYLE" "r" "TEST DIM-50") (setvar "cmdecho" 1) (princ) )

Hello everybody, I've created a macro for creating different dimension styles for different scales. We are using these dimension styles in our company. It works well if I use it in a new, empty drawing. But if I use it in an excisting drawing with a dimension style with the same name, I have got a problem..... I'll see this in the command line; "Enter name for new dimension style or [?]: "scale 20" That name is already in use, redefine it? :_dimclrd Invalid option keyword. That name is already in use, redefine it? :" "_dimclrd" should be the next command in the macro, but because "scale 20" is already in use, I need to do some other commands first. AutoCad stops with this macro at this point. If the first dimension style, which the macro should be create, already in use, the other dimension styles shall not be create. Is there a possibility/ sollution to change my macro so he creates every dimension style what he supposed to do? Also if one or more dimension styles already excist? The reason why; if you delete a dimension style because you think; "I don't need him any more." But you're wrong. Or somebody else goes further with the drawing and needs to draw something with another scale. You need to copy the 'wanted' dimension style from another (new/ excisting) drawing. Could somebody help me? This is the whole macro; ^C^C_dimclrd;1;dimltype;continuous;_dimlwd;-1;_dimdle;1.25;_dimdli;1.25;_dimclre;1;_dimltex1;continuous;_dimltex2;continuous;_dimlwe;-1;_dimexe;1.25;_dimexo;1.25;_dimblk;"";_dimldrblk;"";_dimasz;2;_dimcen;0;-style;;iso.shx;a;;;0;;;;;no;_dimtxsty;standard;_Dimclrt;2;_dimtfill;1;_dimtxt;1.8;_dimtad;1;_dimgap;1;_dimtoh;off;_dimtih;off;_dimtmove;0;_dimscale;1;_dimdec;0;_dimzin;0;_dimtolj;0;_dimse1;off;_dimse2;off;_dimrnd;5;_dimtofl;on;-dimstyle;s;"scale 1";_dimclrd;1;dimltype;continuous;_dimlwd;-1;_dimdle;1.25;_dimdli;1.25;_dimclre;1;_dimltex1;continuous;_dimltex2;continuous;_dimlwe;-1;_dimexe;1.25;_dimexo;1.25;_dimblk;"";_dimldrblk;"";_dimasz;2;_dimcen;0;-style;;iso.shx;a;;;0;;;;;no;_dimtxsty;standard;_Dimclrt;2;_dimtfill;1;_dimtxt;1.8;_dimtad;1;_dimgap;1;_dimtoh;off;_dimtih;off;_dimtmove;0;_dimscale;2;_dimdec;0;_dimzin;0;_dimtolj;0;_dimse1;off;_dimse2;off;_dimrnd;5;_dimtofl;on;-dimstyle;s;"scale 2";_dimclrd;1;dimltype;continuous;_dimlwd;-1;_dimdle;1.25;_dimdli;1.25;_dimclre;1;_dimltex1;continuous;_dimltex2;continuous;_dimlwe;-1;_dimexe;1.25;_dimexo;1.25;_dimblk;"";_dimldrblk;"";_dimasz;2;_dimcen;0;-style;;iso.shx;a;;;0;;;;;no;_dimtxsty;standard;_Dimclrt;2;_dimtfill;1;_dimtxt;1.8;_dimtad;1;_dimgap;1;_dimtoh;off;_dimtih;off;_dimtmove;0;_dimscale;10;_dimdec;0;_dimzin;0;_dimtolj;0;_dimse1;off;_dimse2;off;_dimrnd;5;_dimtofl;on;-dimstyle;s;"scale 10";_dimclrd;1;dimltype;continuous;_dimlwd;-1;_dimdle;1.25;_dimdli;1.25;_dimclre;1;_dimltex1;continuous;_dimltex2;continuous;_dimlwe;-1;_dimexe;1.25;_dimexo;1.25;_dimblk;"";_dimldrblk;"";_dimasz;2;_dimcen;0;-style;;iso.shx;a;;;0;;;;;no;_dimtxsty;standard;_Dimclrt;2;_dimtfill;1;_dimtxt;1.8;_dimtad;1;_dimgap;1;_dimtoh;off;_dimtih;off;_dimtmove;0;_dimscale;20;_dimdec;0;_dimzin;0;_dimtolj;0;_dimse1;off;_dimse2;off;_dimrnd;5;_dimtofl;on;-dimstyle;s;"scale 20";_dimclrd;1;dimltype;continuous;_dimlwd;-1;_dimdle;1.25;_dimdli;1.25;_dimclre;1;_dimltex1;continuous;_dimltex2;continuous;_dimlwe;-1;_dimexe;1.25;_dimexo;1.25;_dimblk;"";_dimldrblk;"";_dimasz;2;_dimcen;0;-style;;iso.shx;a;;;0;;;;;no;_dimtxsty;standard;_Dimclrt;2;_dimtfill;1;_dimtxt;1.8;_dimtad;1;_dimgap;1;_dimtoh;off;_dimtih;off;_dimtmove;0;_dimscale;50;_dimdec;0;_dimzin;0;_dimtolj;0;_dimse1;off;_dimse2;off;_dimrnd;5;_dimtofl;on;-dimstyle;s;"scale 50";_dimclrd;1;dimltype;continuous;_dimlwd;-1;_dimdle;1.25;_dimdli;1.25;_dimclre;1;_dimltex1;continuous;_dimltex2;continuous;_dimlwe;-1;_dimexe;1.25;_dimexo;1.25;_dimblk;"";_dimldrblk;"";_dimasz;2;_dimcen;0;-style;;iso.shx;a;;;0;;;;;no;_dimtxsty;standard;_Dimclrt;2;_dimtfill;1;_dimtxt;1.8;_dimtad;1;_dimgap;1;_dimtoh;off;_dimtih;off;_dimtmove;0;_dimscale;100;_dimdec;0;_dimzin;0;_dimtolj;0;_dimse1;off;_dimse2;off;_dimrnd;5;_dimtofl;on;-dimstyle;s;"scale 100"; Thanks

Is there a way to create a continuous dimension line that uses running dimensions instead individual segments? I know that you can do baseline measurement but I received a request to have the dimensions look like a continuous dimension line, but be running dimensions. I'm aware of UCS -> cordinate -> baseline (dimension) That's pretty much what I want but I want it to be a line with arrows and what not. I'm not even sure if it's possible. I've attached an image of what I'm looking for if it helps. Thanks!

I work for a firm that has horrible drafting conventions - i.e. exploded dimensions, etc. So, I am *trying* to match their crappy hand-drawn dimension style with a standard style. My question is how to remove the lines perpendicular to the extension lines that extend outside of the arrows when the dimension is very tight. See the attached sketch. I DO NOT want to have to explode the dimensions to make this stupid change I am being asked to do. Also, is there any way to add a leader arrow on the dimension text leader? Thanks!

Having drawn this spacer for the tutorial I am following, I decided to add the dimensions. The dimension shown here is 200mm but you wouldn't know that. How do I set the dimensions so I can see the arrowheads and read the text?

When drawing in .stb-file (with layer dependent plot style, plotting in monochrome) and when Dimension Text Style is set to Romans (must not be changed), then how to change line weight of Lines and Text separately? Please help. Thanks.

This used to work, then my computer dies and AutoCad was reinstalled. I am trying to dimension some cut-outs in a 19" rack panel. I can dimension them, it shows the correct dimensions but then when I hit enter it wont save the dimensions. I've gone into DIMSTYLE and everything looks fine but I cant get this simple task to work. Any help would be much appreciated.

I'm working on a drawing that was converted into cad and it seems like every dimension has its own style. When I copy use the move comand or try to change the dimension the text changes from being above the dimension line to centered and the text gets closer together horizontally. When I compare a copied dimension to the original it has all the same properties including the text pos vert still being above text. The actual dimension style hasn't changed at all but what is showing up on screen is different. Anyone have this problem before? Here a image showing three dimensions with the same properties, the top 2'-10" is what it should look like, the bottom is what it looks like when I copied it and the 1'-2" is when I make a new dimension.