¿Cómo modificar el estilo de los comentarios en LISP?
(defun ddstyle ( / sc)
(setq sc 1)
;;(setq sc (cdr (assoc 18 Data))) ;Escala de dibujo
(setvar "cmdecho" 0)
(setvar "dimclrd" 0) ;Especifica el color de las líneas de dimensión, flechas y marcas. líderes
(setvar "dimclre" 0) ;Especifique el color del límite de la dimensión
(setvar "dimclrt" acwhite) ;Especifique el color del texto de la marca
( setvar "dimdle" (* sc 100)) ;Establece la distancia más allá de la línea de dimensión (más allá de la marca)
(setvar "dimexe" (* sc 100)) ;Especifica la distancia más allá de la línea de dimensión
(setvar "dimexo" (* sc 250)) ;Desplazamiento inicial
(setvar "dimblk" "_ARCHTICK") ;Flecha (marca de construcción)
(setvar "dimasz" (* sc 100)) ;Controla el tamaño de las líneas de dimensión y flechas guía y controla el tamaño de la línea base
;;(setvar "dimcen" 0) ;Marca central del círculo - Ninguno
;;(setvar "dimarcsym" 0) ;Símbolo de longitud de arco - punto de aterrizaje frontal
;;(setvar "dimjogang" ( * sc 45)) ;Ángulo de flexión
(setvar "dimtxsty" "TSSD_Dimension") ;Especifica el estilo del texto de la marca
(setvar "dimtxt" (* sc 300)) ;Especifica la altura del texto de la marca
(setvar "dimtad" 1);Especifica que el texto se colocará verticalmente (arriba) La posición vertical del texto (arriba)
;(setvar "dimjust" 0) ;La posición horizontal del texto (centrado)
;;(setvar "dimtih" "off") ;Alineación del texto en línea (alineada con las líneas de dimensión)
;;(setvar " dimtoh" "off") ;Alineación del texto del esquema (alineado con líneas de dimensión) Alineación)
;(setvar "dimgap" (* sc 100)) ;El texto está desplazado de la línea de dimensión
;;(setvar "dimtix" "on") ;El texto siempre permanece entre líneas de dimensión
(setvar "dimtmove" 2); línea principal, el texto se coloca en la posición predeterminada
(setvar "dimtmove" 2); cuando el texto no está por encima de la línea de dimensión y no hay una línea principal, el texto se coloca en la posición predeterminada
(setvar "dimscale" 1) ;Escalado global
;;(setvar "dimtofl" "on") ;Dibujar límites de dimensión entre líneas de dimensión
( setvar "dimdec" 0) ;Precisión
(setvar "dimlfac" 1) ;Factor de escala de medición
(Comando "-dimstyle" "S" "TSSD_100_100" "" "") ; Crear estilo de acotación
)