VBA: Create a Mtext (Autocad, ZWCad e Gstarcad)

Depois de alguma ausêsncia, volto a mostrar uma rotina em VBA.

Assim, a seguinte rotina em VBA serve para criarmos um texto pelo comando Mtext, espero que apreciem.

Para Autocad :

Public Sub NewMTEXT()

    Dim MTextObj As AcadMText
    Dim pontoinsercao(0 To 2) As Double
    Dim texto As String
    Dim alturatexto As Double
 
    pontoinsercao(0) = 0: pontoinsercao(1) = 0: pontoinsercao(2) = 0 'ponto de inserção
    alturatexto = 6 'altura do texto
    texto = "Loja dos Desenhadores" 'texto a escrever

    ' Criação do Mtext
     Set MTextObj = ThisDrawing.ModelSpace.AddMText(pontoinsercao, alturatexto, texto)

    'zoom Extents
     ZoomExtents

End Sub

Para GstarCad :

Public Sub NewMTEXT()

    Dim MTextObj As GcadMText
    Dim pontoinsercao(0 To 2) As Double
    Dim texto As String
    Dim alturatexto As Double

    pontoinsercao(0) = 0: pontoinsercao(1) = 0: pontoinsercao(2) = 0 'ponto de inserção
    alturatexto = 6 'altura do texto
    texto = "Loja dos Desenhadores" 'texto a escrever

    ' Criação do Mtext
     Set MTextObj = thisDrawing.ModelSpace.AddMText(pontoinsercao, alturatexto, texto)
   
     'zoom Extents
     ZoomExtents
   
End Sub

Para ZwCad : 

Public Sub NewMTEXT()

    Dim MTextObj As ZcadMText
    Dim pontoinsercao(0 To 2) As Double
    Dim texto As String
    Dim alturatexto As Double

    pontoinsercao(0) = 0: pontoinsercao(1) = 0: pontoinsercao(2) = 0 'ponto de inserção
    alturatexto = 6 'altura do texto
    texto = "Loja dos Desenhadores" 'texto a escrever

    ' Criação do Mtext
     Set MTextObj = ThisDrawing.ModelSpace.AddMText(pontoinsercao, alturatexto, texto)
   
     'zoom Extents
     ZoomExtents
   
End Sub

Obrigado

Boa programação

GSTARCAD videos

Coloco aqui os filmes que criei quando dei apoio técnico na GSTARCAD PORTUGAL.

Espero que vos ajude.

Updatefield

Insert- Field

Solview e Soldraw

Solprof

Rotina para uma linha

Auto XLS Table

GstarCad ligação ao Excel

Drawing Lock

Insertion Scale

UCS-Fade / Surface

Layer Status Manager

Layer Properties Manager

Layer Translator

VBA

Aerial View

GstarCad 2011 - Ambiente de trabalho

Bom trabalho

File Tabs, novidade Autocad 2014????? hummmm

Faz já dia 5 um ano que escrevi um artigo sobre os FILE TABS no autocad na altura já existia um plug in na Autodesk Exchange.

Não tenho nada contra, mas este Autocad começa a pecar por tão pouca novidade.

Para quem quiser aqui fica o link para se relembrarem o artigo.

E se o autocad copiasse o Gstarcad e o Zwcad?

Bom trabalho.

CAD Portugal para todos

Caros amigos, criei no Google + e no Facebbok uma comunidade, gostaria que todos participassem.

A ideia é para trocarmos ideias, sites e blogs,  truques e dicas, novidades, noticias, programações (lisp, VBA ou VB.net), etc., etc., etc. de qualquer tipo de CAD (Autocad, GstarCAD, ZWCad, etc etc.).
Podem também escrever sobre Civil3D, PowerCivil, Revit, Tekla, etc etc etc), e aproveitar este espaçõ para trocas de informação sobre estas novas ferramentas.
A ideia passa mesmo que seja uma comunidade de todos para todos, a única coisa que peço é inovação e respeito.

Fica também apresentado o logo escolhido criado pelo Filipe Francisco num concurso realizado pela comunidade.

Google + : CAD Portugal
Facebook : CAD Portugal

Obrigado.

Zwcad Open Xref (Xopen)

O Zwcad não trás o comando Xopen, o comando Xopen permite abrir um desenho que esteja por referência em outro desenho.

Fica aqui o código.

Sub XOPEN()
'abre referencia em outro desenho

Dim Documento As ZcadDocument
Dim PONTOBASE1 As ZcadPoint
Dim Xreferencia As ZcadEntity
Dim auxiliar As Integer
Dim Ficheiro As String
Dim FicheiroNome As String

On Error Resume Next

ThisDrawing.Utility.GetEntity Xreferencia, PONTOBASE1, "Escolha o Xref a abrir."

 If Xreferencia.IsLayout = False Then
    If Xreferencia.IsXRef = True Then
        Ficheiro = Xreferencia.Path
        FicheiroNome = ThisDrawing.Application.ActiveDocument.FullName
            If Left(Ficheiro, 1) = "." Then
            auxiliar = 0
            Do While Mid(FicheiroNome, Len(FicheiroNome) - auxiliar, 1) <> "\" And Mid(FicheiroNome, Len(FicheiroNome) - auxiliar, 1) <> "/"
            auxiliar = auxiliar + 1
                If Len(FicheiroNome) - auxiliar = 0 Then Exit Sub
            Loop
            Ficheiro = Mid(FicheiroNome, 1, Len(FicheiroNome) - auxiliar) + Right(Ficheiro, Len(Ficheiro) - 2)
            End If
            For Each Documento In Documents
                If Documento.FullName = Ficheiro Then
                    MsgBox ("O xref já se encontra aberto.")
                Exit Sub
            End If
            Next Documento
            ThisDrawing.Application.Documents.Open (Ficheiro)
    End If
  End If
End Sub


Obrigado

VBA: Rotina para apagar polilinhas de layer específica

A rotina que se segue em VBA, serve para apagar polilinhas existentes no desenho pertencente a uma layer específica.

Sub erasepolylayer()

' variaveis

 Dim ent As AcadEntity ' variavel entidade

 Dim lay As AcadLayer  'variavel layer

 Dim sset As AcadSelectionSet ' variavel selecção

 Set sset = ThisDrawing.SelectionSets.Add("GetLines")

 sset.Select acSelectionSetAll

 For Each ent In sset

  If TypeOf ent Is AcadLWPolyline Then

   If ent.Layer = "nome_da_layer" Then 'filtrar por nome de layer

    ent.Erase 'erase

   End If

  End If

 Next ent

End Sub

Obrigado

Obrigado

VBA: Rotina para desenhar Circunferência e Hatch (Routine to draw a circle and batch)

A rotina que se segue mostra como podemos desenhar uma circunferência e colocar um hatch no seu interior, mas dizendo que a boundarie é a própria circunferência.

Para Autocad :

Sub circhatch()

'variáveis
Dim centro As Variant
Dim raio As Double
Dim trama As AcadHatch
Dim limite As AcadCircle
Dim OuterLoop(0) As AcadEntity

'input para desenhar a circunferência
centro = ThisDrawing.Utility.GetPoint(, "Centro da primeira circunferência?")
raio = ThisDrawing.Utility.GetReal("Qual o raio?")

'desenha a circuferência atribuindo logo a fronteira do hatch
Set limite = ThisDrawing.ModelSpace.AddCircle(centro, raio)

'define e desenha o hatch
Set OuterLoop(0) = limite
Set trama = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "SOLID", True)
trama.AppendOuterLoop (OuterLoop)
trama.Evaluate
trama.Update

ZoomExtents

End Sub

Para GstarCad :


Sub circhatch()

'variáveis
Dim centro As Variant
Dim raio As Double
Dim trama As GcadHatch
Dim limite As GcadCircle
Dim OuterLoop(0) As GcadEntidy

'input para desenhar a circunferência
centro = ThisDrawing.Utility.GetPoint(, "Centro da primeira circunferência?")
raio = ThisDrawing.Utility.GetReal("Qual o raio?")

'desenha a circuferência atribuindo logo a fronteira do hatch
Set limite = ThisDrawing.ModelSpace.AddCircle(centro, raio)

'define e desenha o hatch
Set OuterLoop(0) = limite
Set trama = ThisDrawing.ModelSpace.AddHatch(HatchPatternTypePreDefined, "SOLID", True)
trama.AppendOuterLoop (OuterLoop)
trama.Evaluate
trama.Update

ZoomExtents

End Sub

Para ZwCad : 

O Zwcad + alterou algumas coisas do seu código. A que mais se destaca é que deixou de ser ThisDocument e passou a ser ThisDrawing, uma grande ajuda para quem programa para vários Cad's. Outra das alterações é que deixámos de ter o ZWcad...... e passou a ser Zcad......
Fazendo estas chamadas de atenção fica aqui a primeira rotina feita para o ZWcad+ que se tornou muito melhor

Sub circhatch()

'variáveis
Dim centro As Variant
Dim raio As Double
Dim trama As ZcadHatch
Dim limite As ZcadCircle
Dim OuterLoop(0) As ZcadEntity

'input para desenhar a circunferência
centro = ThisDrawing.Utility.GetPoint(, "Centro da primeira circunferência?")
raio = ThisDrawing.Utility.GetReal("Qual o raio?")

'desenha a circuferência atribuindo logo a fronteira do hatcf
Set limite = ThisDrawing.ModelSpace.AddCircle(centro, raio)

'define e desenha o hatch
Set OuterLoop(0) = limite
Set trama = ThisDrawing.ModelSpace.AddHatch(zcHatchPatternTypePreDefined, "SOLID", True)
trama.AppendOuterLoop (OuterLoop)
trama.Evaluate
trama.Update

ZoomExtents

End Sub

Obrigado


Boa programação

Requisitos Autocad2013 vs Gstarcad2012 vs ZWCAD+

Muitas vezes a qualidade e o preço do software é muito importante, mas em momentos de crise também é importante ver se as nossas máquinas não necessitam de um upgrade.

Podem aqui ver os requisitos para cada software.

Autocad

System Requirements 32-bit Systems

Operating System

 Service Pack 3 (SP3) or later of the following:
o Microsoft® Windows® XP Professional
o Microsoft Windows XP Home

 The following operating systems:
o Microsoft Windows 7 Enterprise
o Microsoft Windows 7 Ultimate
o Microsoft Windows 7 Professional
o Microsoft Windows 7 Home Premium

Browser
 Internet Explorer 7.0 or later web browser

CPU Type
 Windows XP
o Pentium® 4 or AMD Athlon™ Dual Core, 1.6 GHz or Higher with SSE2 technology

 Windows 7
o Intel Pentium 4 or AMD Athlon™® Dual Core, 3.0 GHz or Higher with SSE2 technology

Memory
 2 GB (4 GB recommended)

Display Resolution
 1,024 x 768 with true color (1,600 x 1,050 with true color recommended)

Hard Disk
 Installation 6 GB

Pointing Device
 MS-Mouse compliant

Media
 Download and Installation from DVD


Multiple Processors
 Should be supported by the application

Languages
 English, FIGS, PTB, JA, KO, TC, SC, Czech, Polish, Hungarian, Russian 

Network
 Deployment via Deployment Wizard
 The license server and all workstations that will run applications dependent on network licensing must run TCP/IP protocol.
 Either Microsoft or Novell TCP/IP protocol stacks are acceptable. Primary login on workstations may be Netware or Windows.
 In addition to operating systems supported for the application, the license server will run on the Windows Server 2008, Windows Server 2008 R2, Windows Server 2003 and Windows 2003 R2 Server Editions.
 Citrix® XenApp™ 5.0 or 6.0 (optional)

Display Card
 Supports Windows display adapter capable of 1024x768 with True Color capabilities

Digitizer
 Continue WINTAB support

Plotter/Printer
 Same as AutoCAD 2011 & AutoCAD 2012 – continue system printer and HDI support

Compiler
 VC++2010 SP1

Installer
 MSI 4.5

Builds
 Locked – FLEXnet

Locking/License Management
 FLEXnet will be used for both the stand-alone and networked versions

Side-by Side Install
 Supported

File Format Changes (yes or no)
 Yes

Save-as Support
 AutoCAD R14, AutoCAD 2000, AutoCAD 2004, AutoCAD 2007, AutoCAD 2010, AutoCAD 2013.
 EMR has the same formats as Commercial AutoCAD, with the exception of AutoCAD 2000/LT2000 Drawing

DXF Support
 AutoCAD R12, AutoCAD 2000, AutoCAD 2004, AutoCAD 2007, AutoCAD 2010, AutoCAD 2013

Binary vs. Source Compatibility (ARX, VBA, VLISP)
 ARX: No
 LISP: Yes

Script Compatibility
 Yes

Global Product
 Yes

Security (DWG)
 Supports digital signatures
 DWG/DWF password protection

Drawing Size Support
 Full DWG compression

Object Interoperability (Non-AutoCAD Object Model)
 New objects may require new enablers. Refer to the main Product Plan.

Media Browser
 Adobe Flash Player v10 or up

Logo Certification
 Windows 7 logo certification should be targeted

.NET Framework
 .NET Framework Version 4.0 Update 1

System Requirements Autocad 2013
Autocad

Gstarcad


Requisitos do Sistema para GstarCAD 2012 Standard e Profissional


Sistemas operativos Win 32-bit ou Win 64-bit suportados
• Windows® 7, incluindo Enterprise, Ultimate, Professional ou Home Premium Edition 
• Windows Vista (SP2 ou posterior), incluindo Enterprise, Business,Ultimate ou Home Premium Edition, 
• Microsoft® Windows® XP Professional ou Home Edition (SP3 ou posterior)

Requisitos Mínimos
CPU  Pentium 566 
Memória RAM 512Mb 
Espaço livre no disco 300Mb 
Graphics Card  SVGA 
Memória de Vídeo  2Mb 
Monitor  14″

System Requirements Gstarcad 2012
Gstarcad-portugal 2012


ZWcad+

Requisitos mínimos do Sistema para ZWcad+

Microsoft Windows 2003 / XP / VISTA / Windows 7 (32 e 64 bits)

Processador: Pentium III 800Mhz ou superior

RAM: 512MB memória (mínimo)/1GB memória (recomendada)

Disco Rígico: 350MB de espaço ou suprior

System Requirements ZWcad +
Ibercad


Bom trabalho

Obrigado

Cadhelp: Pedit -> Reverse

O comando REVERSE inverte o sentido da ordem dos vértices das seguintes entidades: pililinhas,splines, linhas e espirais.

Este comando existe no Autocad em Home->Modify

Este comando ajuda-nos  particularmente na situação de colocarmos blocos com o comando measure como podemos obsevar nas seguintes figuras.

O comando pode também ser usado no comando PEDIT->REVERSE

Este comando pode ser utilizado no Pedit no Autocad, GstarCad e ZWcad e assim nestes dois ultimos podemos contornar a falta do comando único REVERSE.

Bom trabalho.

Cadhelp: Layer Translator or Laytrans

O layer translator é uma ferramenta bastante útil para quando necessitamos alterar uma ou mais layers para uma nova layer ou mesmo para uma existente.

É útil porque podemos configurar uma layer que temos no desenho com as definições de uma layer que temos no template ou em outro desenho.

O Funcionamento é muito simples e está explicado num filme que fiz em tempos.

Autocad

No autocad podemos encontrar o comando.

Na Ribbon: Tools tab -> Standards panel -> Layer Translator

No Menu: Tools -> Cad Standards -> Layer Translator

Commandline: laytrans

Gstarcad

No Menu Clássico: Format -> Layer Tools -> Layer Translator

Commandline: laytrans

ZWCAD

Commandline: laytrans

Para perceberem, fica um filme que fiz em tempos para a Gstarcad Portugal a explicar o funcionamento do comando.

Qualquer dúvida disponham.

Bom trabalho.

Cad help: Draw Order (hatchtoback)

Muitas vezes, depois de "pintarmos" um desenho observamos que temos hatch por cima de entidades sejam elas textos, cotas, linhas ou outras.

Podemos resolver esse problema usando o Draw Order, mas se pudermos dar a ordem aos textos e cotas para cima ou baixo, ou mesmo todos os hatchs para baixo.

É isso que vos vou mostrar nos três software.

Autocad

No Autocad podemos encontrar esta ferramenta em Tools-> Draw Order

Dentro do menu podemos dar as seguintes ordens:

Se na linha de comando escrevermos HATCHTOBACK, o autocad envia todos os hatchs para trás.

Gstarcad

No Gstarcad podemos encontrar o Draw Order em Tools->Draw Order

Dentro do menu as diferenças para o autocad são poucas não tem o hatchtoback, mas ordens para textos e cotas tem, o que já nos dá uma grande ajuda.

ZWCAD

No Gstarcad podemos encontrar o Draw Order em Tools->Draw Order

Infelizmente o ZWCAD 2011, não tem mais que os comandos básicos o que o torna muito limitado neste comando.

Qualquer dúvida disponham.

Bom trabalho

VBA: Rotina Purgeall, Audit, Save e Quit no mesmo desenho em Autocad, GstarCad e ZwCad

A seguinte rotina em VBA serve para numa vez só realizarmos o PurgeAll, o audit e por fim gravarmos o desenho e fechar o Autocad.

Para Autocad :

Option Explicit

Sub audit()

ThisDrawing.PurgeAll

ThisDrawing.AuditInfo True

ThisDrawing.Save

ThisDrawing.Application.Quit

End Sub


Para GstarCad :


Option Explicit

Sub audit()

ThisDrawing.PurgeAll

ThisDrawing.AuditInfo True

ThisDrawing.Save

ThisDrawing.Application.Quit

End Sub


Para ZwCad : 

Option Explicit

Sub audit()

ThisDocument.SendCommand "-purge" & vbCr & "all" & vbCr & vbCr & "no" & vbCr

ThisDocument.SendCommand "-audit" & vbCr & "y" & vbCr

ThisDocument.Save

ThisDocument.Application.Quit

End Sub

Obrigado

Boa programação

Cad help: Background text dimension

No desenho muitas vezes temos situações em que queremos ter uma dimensão sobre um hatch ou mesmo sobre outra qualquer entidade. Como fazer se quisermos ter uma leitura do valor da dimensão sem qualquer interferência:

Basta irmos ao modify e no separador Text seleccionarmos o fill color com background.

A variável que controla esta função é o DIMTFILL.
O DIMTFILL pede-nos três valores:
0-Não coloca background
1-Usa como background o desenho
2-Usa como background a cor que especificamos na variável DIMTFILLCLR.

A variável DIMTFILLCLR define então a cor do background. Aceita os valores como na tabela de cores do autocad, sendo 0 (zero) a cor Byblock e o 256 a cor Bylayer.

Esta função existe no Autocad, no GstarCAD existem as variáveis mas não consegui realizar a tarefa e no ZWCAD não existem as variáveis.

Bom trabalho

Cad help: Comando Rename

Muitas vezes quando estou a desenvolver um desenho, para criar um bloco rápido faço o simples Copy/Paste as block, e ao fazer isto fico com aquele nome esquisito...

Muitos vezes pode ser importante mudar o nome ao bloco, ou  a alguma outra entidade como em layers, dimension style, ucs, text style, etc etc.

Para tal existe o comando Rename e em qualquer um dos cads ele encontra-se em Format -> Rename ou escrevendo Rename na linha de comando. No caso do Gstarcad e Autocad podemos apenas teclar REN.

Fica a aparência do menu em cada um deles.

Para Autocad :

Para Gstarcad :

Para Zwcad :

Diferente, certo?

Bom Trabalho 

VBA: Rotina com ciclo no Autocad, GstarCad e ZwCad

Na programação é muitas vezes necessário criar uma rotina com repetição que torna muito mais rápido uma ordem.

O ciclo é o For ... Next, espero que tirem o máximo proveito.

Para Autocad :

Sub ciclo()

Dim center(2) As Double
Dim x As Integer

center(0) = 0: center(1) = 0: center(2) = 0

For x = 1 To 26 Step 3
thisDrawing.ModelSpace.AddCircle center, x
Next

End Sub




Para GstarCad :

Sub ciclo()

Dim center(2) As Double
Dim x As Integer

center(0) = 0: center(1) = 0: center(2) = 0

For x = 1 To 26 Step 3
thisDrawing.ModelSpace.AddCircle center, x
Next

End Sub




Para ZwCad : 

Sub ciclo()

Dim center(2) As Double
Dim x As Integer

center(0) = 0: center(1) = 0: center(2) = 0

For x = 1 To 26 Step 3
ThisDocument.ModelSpace.AddCircle center, x
Next

End Sub

Obrigado

Boa programação

Curso de Gstarcad 2012

GstarCAD | SOLIDCALC apresenta cursos para utilizadores de GstarCAD e outras ferramentas de CAD que se querem tornar mais produtivos e eficientes.

Vai ser um curso de GstarCAD 2012 - Blocos Dinâmicos + Truques e Dicas com uma duração de 4 horas já para o próximo dia 26 de Maio. O curso vai realizar entre as 9 e as 13 horas com um preço de 35€ + IVA.


Informações e inscrição para formação

VBA: Save em Autocad, GstarCad e ZwCad

Esta rotina em VBA serve para fazer um save ao desenho. É de extrema importância se queremos salvar o desenho quando finalizarmos a rotina.



Para Autocad :


Option Explicit

Sub GravarDesenho()

ThisDrawing.Save

End Sub


Para GstarCad :


Option Explicit

Sub GravarDWG()

thisDrawing.Save

End Sub


Para ZwCad : 

Option Explicit

Sub GravarDWG()

ThisDocument.Save

End Sub


Obrigado

Boa programação

Cad help: SCALELISTEDIT

Quantas vezes precisámos de ter uma escala nas nossas listagens para colocar em algumas viewports?
Como poderemos resolver isso, é o que aqui vou explicar.

Podemos definir previamente no nosso profile no Options>User Preferences>Default Scale List

Podemos então executar no quadro seguinte, Add (adicionar novas escalas), Edit (editar escalas existentes), Move Up e Move Down (mover para cima e para baixo as escalas e com isso colocarmos pela ordem que queremos), Delete (apagar as que não nos interessam) e Reset (coloca todas as escalas que estão pré-definidas no options).

E se necessitarmos destas escalas num desenho em que estamos a trabalhar?

Então aí sim usamos o comando Format->Scale List ou escrevemos SCALELISTEDIT na linha de comando e aparece-nos um quadro semelhante ao anterior.

Trás todas as funções como no quadro do Options, mas se tivermos no Options todas as escalas já organizadas basta-nos carregar o Reset e depois limparmos com o comando Delete e deixamos apenas as escalas que necessitamos.

Infelizmente este comando não existe nem no GSTARCAD nem no ZWCAD.

Bom trabalho.

VBA: Somar textos em Autocad, GstarCad e ZwCad

Esta rotina em VBA mostra como juntar várias parcelas de texto num único apenas.

Para Autocad :

Option Explicit

Public Sub Somar_textos()

Dim PontoInicial(0 To 2) As Double
Dim Textos As String
Dim NovoTexto As AcadText

PontoInicial(0) = 0
PontoInicial(1) = 0
PontoInicial(2) = 0
Textos = "Loja" & " dos " & "Desenhadores"

Set NovoTexto = ThisDrawing.ModelSpace.AddText(Textos, PontoInicial, 1)

ZoomExtents

End Sub

Para GstarCad :

Option Explicit

Public Sub Somar_textos()

Dim PontoInicial(0 To 2) As Double
Dim Textos As String
Dim NovoTexto As GcadText

PontoInicial(0) = 0
PontoInicial(1) = 0
PontoInicial(2) = 0
Textos = "Loja" & " dos " & "Desenhadores"

Set NovoTexto = thisDrawing.ModelSpace.AddText(Textos, PontoInicial, 1)

ZoomExtents

End Sub

Para ZwCad : 

Option Explicit
Public Sub Somar_textos()

Dim PontoInicial(0 To 2) As Double
Dim Textos As String
Dim NovoTexto As ZwcadText

PontoInicial(0) = 0
PontoInicial(1) = 0
PontoInicial(2) = 0
Textos = "Loja" & " dos " & "Desenhadores"

Set NovoTexto = ThisDocument.ModelSpace.AddText(Textos, PontoInicial, 1)

End Sub

Obrigado

Boa programação

Cad help: Variável PSLTSCALE

A  variável PSLTSCALE, controla as escalas do tipo de linhas exibidos na viewport.

Para Autocad :

Command: PSLTSCALE

Enter new value for PSLTSCALE <1>:

O valor que vem de instalação é o um (1), que mantém a escala não se regenerando com o zoom escolhido, sendo necessário o uso do comando REGEN ou REGENALL para actualizar a visualização em todos os viemports., o valor zero (0) a escala depende do zoom escolhido.

Para GstarCad :

Command: psltscale

New current value for PSLTSCALE [OFF/ON]<ON>:

O valor que vem de instalação é o ON, que mantém a escala não se regenerando com o zoom escolhido, sendo necessário o uso do comando REGEN ou REGENALL para actualizar a visualização em todos os viemports., o valor OFF a escala depende do zoom escolhido.

Para ZwCad : 

Command: psltscale

New current value for PSLTSCALE (Off or On) <Off>: 

O valor que vem de instalação é o ON, que mantém a escala não se regenerando com o zoom escolhido, sendo necessário o uso do comando REGEN ou REGENALL para actualizar a visualização em todos os viemports., o valor OFF a escala depende do zoom escolhido.

Bom trabalho.