Criar estilos de linha de maneira rápida.

Será que existe uma maneira de criar estilos de linha mais rápida?

Autocad - Variável Galleryview

Como preferes ver quando trabalhas?

Se preferes o clássico, colocas 0 "zero". Se preferes o "novo" colocas 1 "um" na variável GALLERVIEW.

Link autodesk

Bom trabalho.

Autocad MAXACTVP (Variável)

A variável MAXACTVP, serve para activar o número de viewports, elas poderão estar inactivas mas serão impressas na mesma.

Com esta variável, podemos assim limitar as viewports.
Podemos activar até 63 viewports.

MAXACTVP = 2, apenas uma janela activa

MAXACTVP = 3, duas janelas activas

MAXACTVP = 4, três janelas activas

MAXACTVP = 5, quatro janelas activas

MAXACTVP = 6, cinco janelas activas

MAXACTVP = 7, seis janelas activas

(...)

Bom trabalho

AutoCAD 2017 Lynn Allen’s booklet

Já está disponivel o Lynn Allen’s Tips and Tricks para o Autocad 2017.

Para o ter basta ir ao site: bookjet - autocad2017 tips and tricks e fazer o download.

Bom autocad

Plex.Earth 3.3 – New Version Available

É com satisfação que anuncio que no início do mês passado foi lançada uma nova versão do Plex.Earth, com novas funcionalidades e novos idiomas disponíveis.

It is with pleasure that I announce that on the beginning of the last month it was launched a new version of Plex.Earth, with new features and new languages.

Nesta nova versão o Plex.Earth estará disponível também em Português, Espanhol e Checo. O idioma será escolhido automaticamente durante a instalação, em função do idioma do Autocad instalado.

In this new version, the Plex.Earth will also be available in Portuguese, Spanish and Czech. During the installation, the language is automatically selected, depending on the language of the Autocad installed.

As novas funcionalidades desta versão são:

• Compatibilidade com o Google Earth 7 (automaticamente a partir do Google Maps para a importação de imagens)
• Suporte para o Google Maps (Satélite, híbrido etc.)
• Novos comandos para o corte dos limites de múltiplas imagens
• A captura de imagens do Google Earth agora só se liga ao monitor no qual este está aberto, por isso, se um usuário tiver vários monitores, o mesmo poderá continuar a trabalhar nos outros enquanto um grande mosaico é criado
• Captura de imagens em segundo plano a partir do Google Maps
• Suporte para o AutoCAD 2015

The new features of this version are:

• Compatibility with Google Earth 7 (automatically via Google Maps for image import)
• Support for Google Maps (Satellite, Hybrid etc)
• New commands for multiple image clipping
• Capturing images from Google Earth now only binds the specific monitor in which it is open, so if a user has multiple monitors he can continue working on the others while creating a large mosaic
• Background image capturing from Google Maps
• Support for AutoCAD 2015

Para quem prefere utilizar a linha de comandos em vez da barra de menus, ficam aqui os principais comandos da versão 3.3:

Comando	Descrição do Comando
PLEXCUI	Carrega o arquivo de personalização do Plex.Earth (CUI).
PXACCOUNT	Exibe o estado atual da sua conta.
PLEXCS	Define o sistema de coordenadas a usar no seu projeto.
PXMAP	Abre a janela do Explorador de Mapas.
PXMAPZOOMWIN	Faz zoom do Explorador de Mapas para uma área especificada no seu desenho.
PXMAPIMG	Importa a imagem exibida atualmente no Explorador de Mapas.
PXMAPMOSAIC	Cria um mosaico retangular com imagens provenientes do Explorador de Mapas.
PXMAPPOLYMOSAIC	Cria um mosaico poligonal com imagens provenientes do Explorador de Mapas.
PXMAPPATHMOSAIC	Cria um mosaico, ao longo de um caminho, com imagens provenientes do Explorador de Mapas.
PXZOOMWIN	Faz zoom do Google Earth para uma área especificada no seu projeto de AutoCAD.
PXZOOMPOS	Faz zoom do Google Earth em torno de um ponto específico do seu projeto.
PXSYNCACAD	Sincroniza a janela do AutoCAD com os conteúdos do Google Earth.
PXSYNCGE	Sincroniza o Google Earth com os conteúdos da sua janela do AutoCAD.
PXAREAIMG	Importa uma única imagem do Google Earth para preencher a área especificada.
PXCURRIMG	Importa a imagem exibida atualmente no Google Earth.
PXMOSAIC	Cria um Mosaico retangular com imagens aéreas do Google Earth.
PXPOLYMOSAIC	Cria um Mosaico poligonal com imagens aéreas do Google Earth.
PXPATHMOSAIC	Cria um Mosaico, ao longo de um caminho, com imagens aéreas do Google Earth.
PXIMGBORDERCLIP	Corta as imagens selecionadas segundo novos limites.
PXIMGMERGE	Combina as imagens selecionadas numa só.
PXIMGWORLDIMPORT	Importa uma imagem para AutoCAD baseada no seu World File.
PXIMGWORLDEXPORT	Salva o respetivo World File para qualquer imagem selecionada no AutoCAD.
PXKMLEXPORT	Exporta objetos do seu desenho de AutoCAD para o Google Earth e salva-os num ficheiro KML ou KMZ.
PXIMPORTKML	Importa o conteúdo de um ficheiro KML para o seu desenho de AutoCAD.
PXTERRAINGRID	Importa o terreno do Google Earth para uma grelha especificada no AutoCAD.
PXTERRAINAREA	Importa o terreno do Google Earth para uma determinada área especificada no AutoCAD.
PXTERRAINVIEW	Importa o terreno dos conteúdos atuais na sua janela do Google Earth.
PXSRFCREATE	Cria uma superfície tridimensional a partir de um conjunto de pontos especificados.
PXSRFCONTOURS	Cria elevações de contorno para determinada superfície.
PXSRFGRIDVOLUME	Calcula o volume entre duas superfícies especificadas.
PXSRFPLANEVOLUME	Calcula o volume entre uma superfície especificada e um nível de terreno.
PXSRFLABELS	Aplica etiquetas que mostram a elevação dos pontos especificados numa superfície.
PXVOLUMELABELS	Aplica etiquetas que mostram a elevação relativa dos pontos especificados numa superfície.
PXSRFLABELSSTYLE	Define o estilo das etiquetas de superfície e de volume.
PXSRFINQUIRY	Permite ler os atributos geométricos de superfície (elevação, inclinação, direção) em cada ponto.
PXSRFOBJECTSELEV	Cria uma projeção 3D de um caminho numa determinada superfície.
PXSRFPOINTSELEV	Cria uma projeção 3D de pontos numa determinada superfície.
PXOPTIONS	Abre a janela de opções do Plex.Earth.
PXHELP	Abre a ajuda online no navegador de internet.
PXWSCOORDS	Abre a aplicação online de conversão de coordenadas no seu navegador de internet.
PXIMGCLIPCREATE	Especifica um novo limite de corte para uma seleção múltipla de imagens.
PXIMGCLIPREMOVE	Apaga os limites de corte das imagens selecionadas.
PXIMGCLIPON	Ativa os limites de corte das imagens selecionadas.
PXIMGCLIPOFF	Desativa os limites de corte das imagens selecionadas.

For those who prefer to use the command line instead of the Ribbon Tab, here are the main commands for version 3.3:

Command	Command Description
PLEXCUI	Loads the Plex.Earth customization (CUI) file.
PXACCOUNT	View the current status of your account.
PLEXCS	Define the coordinate system used in your project.
PXMAP	Opens the Map Explorer window.
PXMAPZOOMWIN	Zooms the Map Explorer to a specified area in your drawing.
PXMAPIMG	Imports the image currently displayed in the Map Explorer.
PXMAPMOSAIC	Creates a rectangular mosaic with imagery from the Map Explorer.
PXMAPPOLYMOSAIC	Creates a polygonal mosaic with imagery from the Map Explorer.
PXMAPPATHMOSAIC	Creates a path mosaic with imagery from the Map Explorer.
PXZOOMWIN	Zooms Google Earth into a specified area of your AutoCAD project.
PXZOOMPOS	Zooms Google Earth around a specific point in your project.
PXSYNCACAD	Synchronizes your AutoCAD window with the contents of Google Earth.
PXSYNCGE	Synchronizes Google Earth with the contents of your AutoCAD window.
PXAREAIMG	Ιmports a single image from Google Earth to fill a specified area.
PXCURRIMG	Ιmports the image currently displayed in Google Earth.
PXMOSAIC	Creates a rectangular Mosaic of aerial imagery from Google Earth.
PXPOLYMOSAIC	Creates a polygonal Mosaic of aerial imagery from Google Earth.
PXPATHMOSAIC	Creates a path Mosaic of aerial imagery from Google Earth.
PXIMGBORDERCLIP	Crops the borders of selected images.
PXIMGMERGE	Merges selected images into one.
PXIMGWORLDIMPORT	Imports an image into AutoCAD based on its World File
PXIMGWORLDEXPORT	Saves an accompanying World File for any image selected in AutoCAD.
PXKMLEXPORT	Exports objects from your AutoCAD drawing into Google Earth and saves them as a KML or a KMZ file.
PXIMPORTKML	Imports contents from a KML file into your AutoCAD drawing.
PXTERRAINGRID	Imports terrain from Google Earth on a specified grid in AutoCAD.
PXTERRAINAREA	Imports terrain from Google Earth in a specified area in AutoCAD.
PXTERRAINVIEW	Imports terrain from the current contents of your Google Earth window.
PXSRFCREATE	Creates a 3-dimensional surface out of a specified set of points.
PXSRFCONTOURS	Creates elevations contours for a specified surface.
PXSRFGRIDVOLUME	Calculates the volume between 2 specified surfaces.
PXSRFPLANEVOLUME	Calculates the volume between a specified surface and ground level.
PXSRFLABELS	Applies labels that show the elevation of specified points on a surface.
PXVOLUMELABELS	Applies labels that show relative elevation of specified points on a surface.
PXSRFLABELSSTYLE	Defines the style for surface and volume labels.
PXSRFINQUIRY	Allows to read surface geometric attributes (elevation, slope, direction) at every point.
PXSRFOBJECTSELEV	Creates the 3D projection of a path on a given surface.
PXSRFPOINTSELEV	Creates the 3D projection of points on a given surface.
PXOPTIONS	Opens the Plex.Earth options dialog.
PXHELP	Opens the online help in the browser.
PXWSCOORDS	Opens the online coordinate transformations application in the internet browser.
PXIMGCLIPCREATE	Specifies a new clipping boundary to multiple selected images.
PXIMGCLIPREMOVE	Deletes the clipping boundary from the selected images.
PXIMGCLIPON	Activates the clipping boundary of the selected images.
PXIMGCLIPOFF	Deactivates the clipping boundary of the selected images.

O Plex.Earth tem estado em constante evolução e a opinião / sugestões de quem o utiliza são muito importantes para que este possa responder o melhor possível às necessidades de cada um.

The Plex.Earth has been in constant development and the opinions / suggestions from those who use it are very important to target the software to the needs of each one.

A loja dos desenhadores trabalha diariamente para vos fornecer dicas úteis que facilitem o vosso trabalho e a integração das vossas ideias no software que utilizam é a melhor forma de o fazer.

The “Loja dos Desenhadores” works daily to provide you helpful tips to simplify your work and the integration of your ideas in a software that you use is the best way to do it.

Realço que poderão deixar as vossas sugestões ou dúvidas aqui no blog e que serão analisadas pela loja dos desenhadores conjuntamente com a Plexscape.

I stress that you can leave your suggestions or questions here on the blog, to be analysed by the “Loja dos Desenhadores” together with the Plexscape.

Link: www.plexearth.com

Remove cui file - Autocad, Zwcad

Para remover um ficheiro cui do Autocad ou do ZWcad, precisamos de usar o comando Menuload.

Bastando para isso corrermos o comando: MENUNLOAD.
Aparece-nos o seguinte menu.

Autocad

ZWcad

Bastando escolher o ficheiro Cui e fazer Unload.

Bom trabalho.

Convert stb to ctb or ctb to stb Autocad and Zwcad

Quantas vezes precisamos de um ctb que temos em stb ou vice-versa?
Poucas. E como se fazemos?

É com o comando CONVERTPSTYLES, e temos mesmo de escrever na linha de comando, pois não estáa no mennu nem na Ribbon. Depois ao recebermos uma mensagem e confirmamos, voilá temos então o CTB ou o STB.

Experimentem.

Bom trabalho

Noções básicas de Migração Autocad VBA para VB.net

Boas para quem quiser fica aqui o link da apresentação do Augusto Gonçalves em Português sobre Migração Autocad VBA para VB.net.

######## Apresentação ########

Ficheiros da apresentação: Download

São 48 minutos, aproveitem.

Bom trabalho

VB.net Circle (Zwcad and Autocad)

Como fazer um circulo (5,5,0).

ZWCad+

1:  Imports ZwSoft.ZwCAD.ApplicationServices  
2:  Imports ZwSoft.ZwCAD.Runtime  
3:  Imports ZwSoft.ZwCAD.DatabaseServices  
4:  Imports ZwSoft.ZwCAD.Geometry  
5:    
6:  Public Class Class1  
7:    <CommandMethod("Circulo")> _  
8:    Public Sub circulo()  
9:      Dim Doc As Document = Application.DocumentManager.MdiActiveDocument  
10:      Dim CurDb As Database = Doc.Database  
11:    
12:      Using Trans As Transaction = CurDb.TransactionManager.StartTransaction()  
13:    
14:        Dim BlkTbl As BlockTable = Trans.GetObject(CurDb.BlockTableId, OpenMode.ForRead)  
15:        Dim BlkTblRec As BlockTableRecord = Trans.GetObject(BlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)  
16:    
17:        Dim Circ As Circle = New Circle()  
18:        Circ.SetDatabaseDefaults()  
19:        Circ.Center = New Point3d(5, 5, 0)  
20:        Circ.Radius = 4.25  
21:        BlkTblRec.AppendEntity(Circ)  
22:        Trans.AddNewlyCreatedDBObject(Circ, True)  
23:    
24:        Trans.Commit()  
25:      End Using  
26:    End Sub  
27:  End Class  

Autocad

1:  Imports Autodesk.AutoCAD.Runtime  
2:  Imports Autodesk.AutoCAD.ApplicationServices  
3:  Imports Autodesk.AutoCAD.DatabaseServices  
4:  Imports Autodesk.AutoCAD.Geometry  
5:    
6:  Public Class Class1  
7:    <CommandMethod("Circulo")> _  
8:    Public Sub circulo()  
9:      Dim Doc As Document = Application.DocumentManager.MdiActiveDocument  
10:      Dim CurDb As Database = Doc.Database  
11:    
12:      Using Trans As Transaction = CurDb.TransactionManager.StartTransaction()  
13:    
14:        Dim BlkTbl As BlockTable = Trans.GetObject(CurDb.BlockTableId, OpenMode.ForRead)  
15:        Dim BlkTblRec As BlockTableRecord = Trans.GetObject(BlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)  
16:    
17:        Dim Circ As Circle = New Circle()  
18:        Circ.SetDatabaseDefaults()  
19:        Circ.Center = New Point3d(5, 5, 0)  
20:        Circ.Radius = 4.25  
21:        BlkTblRec.AppendEntity(Circ)  
22:        Trans.AddNewlyCreatedDBObject(Circ, True)  
23:    
24:        Trans.Commit()  
25:      End Using  
26:    End Sub  
27:  End Class  

Boa Programação.

VB.net Polyline (Zwcad and Autocad)

Agora uma polilinha com 3 pontos (0,0); (5,5); (10,0).

ZWCad+

 Imports ZwSoft.ZwCAD.ApplicationServices  
 Imports ZwSoft.ZwCAD.Runtime  
 Imports ZwSoft.ZwCAD.DatabaseServices  
 Imports ZwSoft.ZwCAD.Geometry  
   
 Public Class Class1  
   <CommandMethod("Poly")> _  
   Public Sub proj1()  
   
     Dim Doc As Document = Application.DocumentManager.MdiActiveDocument  
     Dim Db As Database = Doc.Database  
   
     Using Trans As Transaction = Db.TransactionManager.StartTransaction()  
   
       Dim BlkTbl As BlockTable = Trans.GetObject(Db.BlockTableId, OpenMode.ForRead)  
       Dim BlkTblRec As BlockTableRecord = Trans.GetObject(BlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)  
   
       Dim Poly As Polyline = New Polyline()  
       Poly.SetDatabaseDefaults()  
       Poly.AddVertexAt(0, New Point2d(0, 0), 0, 0, 0)  
       Poly.AddVertexAt(1, New Point2d(5, 5), 0, 0, 0)  
       Poly.AddVertexAt(2, New Point2d(10, 0), 0, 0, 0)  
   
       BlkTblRec.AppendEntity(Poly)  
       Trans.AddNewlyCreatedDBObject(Poly, True)  
   
       Trans.Commit()  
     End Using  
   End Sub  
 End Class  

Autocad

 Imports Autodesk.AutoCAD.Runtime  
 Imports Autodesk.AutoCAD.ApplicationServices  
 Imports Autodesk.AutoCAD.DatabaseServices  
 Imports Autodesk.AutoCAD.Geometry  
   
 Public Class Class1  
   <CommandMethod("Poly")> _  
   Public Sub proj1()  
   
     Dim Doc As Document = Application.DocumentManager.MdiActiveDocument  
     Dim Db As Database = Doc.Database  
   
     Using Trans As Transaction = Db.TransactionManager.StartTransaction()  
   
       Dim BlkTbl As BlockTable = Trans.GetObject(Db.BlockTableId, OpenMode.ForRead)  
       Dim BlkTblRec As BlockTableRecord = Trans.GetObject(BlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)  
   
       Dim Poly As Polyline = New Polyline()  
       Poly.SetDatabaseDefaults()  
       Poly.AddVertexAt(0, New Point2d(0, 0), 0, 0, 0)  
       Poly.AddVertexAt(1, New Point2d(5, 5), 0, 0, 0)  
       Poly.AddVertexAt(2, New Point2d(10, 0), 0, 0, 0)  
   
       BlkTblRec.AppendEntity(Poly)  
       Trans.AddNewlyCreatedDBObject(Poly, True)  
   
       Trans.Commit()  
     End Using  
   End Sub  
 End Class  

VB.net Line (Zwcad and Autocad)

E que tal fazer uma linha com coordenadas: (0, 0, 0); (20, 15, 0).

Zwcad+

 Imports ZwSoft.ZwCAD.ApplicationServices  
 Imports ZwSoft.ZwCAD.Runtime  
 Imports ZwSoft.ZwCAD.DatabaseServices  
 Imports ZwSoft.ZwCAD.Geometry  
   
 Public Class Class1  
   <CommandMethod("linha")> _  
   Public Sub linha()  
     Dim Doc As Document = Application.DocumentManager.MdiActiveDocument  
     Dim Db As Database = Doc.Database  
   
     Using Trans As Transaction = Db.TransactionManager.StartTransaction()  
   
       Dim BlkTbl As BlockTable = Trans.GetObject(Db.BlockTableId, OpenMode.ForRead)  
       Dim BlkTblRec As BlockTableRecord = Trans.GetObject(BlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)  
   
       Dim Linha As Line = New Line(New Point3d(0, 0, 0), New Point3d(20, 15, 0))  
       Linha.SetDatabaseDefaults()  
       BlkTblRec.AppendEntity(Linha)  
       Trans.AddNewlyCreatedDBObject(Linha, True)  
   
       Trans.Commit()  
     End Using  
   End Sub  
 End Class  

Autocad+

 Imports Autodesk.AutoCAD.ApplicationServices  
 Imports Autodesk.AutoCAD.Runtime  
 Imports Autodesk.AutoCAD.DatabaseServices  
 Imports Autodesk.AutoCAD.Geometry  
   
 Public Class Class1  
   <CommandMethod("linha")> _  
   Public Sub linha()  
     Dim Doc As Document = Application.DocumentManager.MdiActiveDocument  
     Dim Db As Database = Doc.Database  
   
     Using Trans As Transaction = Db.TransactionManager.StartTransaction()  
   
       Dim BlkTbl As BlockTable = Trans.GetObject(Db.BlockTableId, OpenMode.ForRead)  
       Dim BlkTblRec As BlockTableRecord = Trans.GetObject(BlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)  
   
       Dim linha As Line = New Line(New Point3d(0, 0, 0), New Point3d(20, 15, 0))  
       linha.SetDatabaseDefaults()  
       BlkTblRec.AppendEntity(linha)  
       Trans.AddNewlyCreatedDBObject(linha, True)  
   
       Trans.Commit()  
     End Using  
   End Sub  
 End Class  

Criado o código teremos de salvar ir ao menu bar Build->Build linha e então temos o dll criado.

Vamos à linha de comando ao Zwcad ou Autocad e fazemos
Command: Netload

Temos uma caixa de dialogo e vamos caregar o nosso dll criado.

Por fim basta escrever na linha de comando a nossa nova rotina.

Command:linha