TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: PM on March 26, 2022, 05:34:22 AM
-
Hi, I use for dimensions this lisp code. The code draw the dimension by scale,
In the same way, I want to inset a mleder style like the attachment drawing and draw mleader in style TopoCad like the attachment drawing using a lisp code like dimARX.lsp
I dont know how to set DIMTXT and DIMASZ for the mleader
(setvar 'DIMTXT
(* scl
0.00175)) ; Text Height (setvar 'DIMASZ
(* scl
0.001))
) ; end if
(command "_layer" "_m" "DIM" "_c" "7" "" "_lw" "0.30" "" "") ;CREATE NEW LAYER (setq scl
(getint "\n select new scale (50,100,200,250,500,etc) :")) (setvar 'DIMTXT
(* scl
0.00175)) ; Text Height (setvar 'DIMASZ
(* scl
0.001)) ; Arrow Size (setvar 'DIMGAP
(* scl
0.001)) ; Text offset (setvar "celtscale" 1) ; linetype scale )
Thanks
-
for scale 1:200 gives me this error and the code stop
Command: ; error: AutoCAD variable setting rejected: TEXTHEIGHT 0.5
Can any one help me to fix it ?
(command "_layer" "_m" "MLEADER" "_c" "7" "" "") (setvar "cmleaderstyle" "TopoCad") (setq scl
(getint "\n select new scale (50,100,200,250,500,etc) :")) (setvar 'TextHeight
(* scl
0.0025)) ; Text Height (setvar 'ArrowSize
(* scl
0.001)) ; Arrow Size (setvar 'LandingGap
(* scl
0.001)) ; Text gap (setvar "celtscale" 1) ; linetype scale )
Thanks
-
Any ideas? I believe that something is missing in this code but i can not find it