EXPLODE
/* selecionar ponto do interior do pentagono */

PE /* PEDIT */
/* selecionar linha do pentagono */
JOIN
/* selecionar as outras linhas do pentagono */

LA /* LAYER */ 
/* selecionar pentagono */

PE 
/* repetir os passos do pentagono no triangulo */

ST /* STYLE */
/* new; style name: sistemas; font name: garamond; set current */
DTEXT
/* selecionar ponto abaixo do quadrado */
0.005
/* escrever "Quadrado" */

PROPERTIES
/* text: 0.007 */
M /* MOVE */
/* mexer quadrado para local desejado */
CO /* COPY */
/* selecionar texto "Quadrado", colar nos restantes poligonos e escrever o nome correto */
DIMSTY /* DIMSTYLE */
/* standard; new; new style; name: sistemas; symbols and arrows; arrowheads; first: architectural tick */
/* text; text style: sistemas; text alignment: aligned with dimension line; text placement; vertical: above */
/* fit; scale for dimension features: use overall scale of 0.001 */
/* primary units; precision: 0.000; suffix: m; decimal separator: comma */
DIM 
/* ligar F3 */
/* selecionar cantos superior e esquerdo do quadrado */
/* clicar algures no meio onde queremos que fique a linha de cota */
DIMSTY
/* modify; fit: 0.03 */
E /* ERASE */
/* apagar a cota */
LA
/* new layer "cotas"; cor: 252; tornar ativa */
DIM
/* repetir o passo DIM anterior */
DIMSTYLE 
/* modify; text; text color: 100 */
LA
/* layer do "texto"; cor: 6 */
DIM
/* selecionar cantos inferior esquerdo e direito (fazer a cotagem diagonal) */

DIM
A
LINE
/* selecionar lado inferior esquerdo do triangulo (fazer amplitude do angulo interno) */
DIM
/* selecionar circulo (raio) */
(command "DIM")
HOR
/* selecionar ponto lateral esquerdo do pentagono e ponto superior e escolher posicao da linha de cotas */
CON
/* selecionar terceiro ponto */

DIM
ALI
/* selecionar canto inferior esuerdo pentagono e ponto superior e escolher zona de cotagem */


(command "DIM")
VER
/* selecionar ponto superior pentagono e ponto inferior direito */
PAGESETUP
/* modify; plot style table (pen assignments): acad.ctb; edit; properties; color 1; color: black; lineweight: 21100mm */
/* fazer o mesmo para dores ate 6 e 252 mas com outras espessuras */
/* display plot styles */
PRINT (PLOT)