Que tal incluir um texto no carmbo da prancha, que contenha o nome do layout em que ele está? Legal né? Com Fields é fácil, veja: (defun C:nlayout (/ thisdrawing paper pt alt utility);carrega as VLs (vl-load-com) (setq;pega o documento atual: thisdrawing (vla-get-activedocument (vlax-get-acad-object));pega o layout: paper (vla-get-paperspace thisdrawing);funções do tipo “get alguma” coisa: utility […]
Esses tempos atráz, me pediram um programa que criasse uma tabela com as coordenadas dos pontos de um desenho… Bem aí está: ver isso!!! (vl-load-com)(defun c:tabelar (/ ss NumRows InsertionPoint NumColumns RowHeight ColWidth model table nRow id ent vla) (setq ss (ssget “:S” ‘((0 . “POINT”))) NumRows (sslength ss) InsertionPoint (vlax-3d-point (getpoint “\nEntre com um
Que tal desenhar retângulos com VB.NET em qualquer ângulo?Veja o programa abaixo: mais… ‘importa as dependencias Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.EditorInput Public Class TestEntityJig ‘classe que faz o prompt do terceiro ponto, strechando o retângulo: Private Class GetPoint2Jig ‘herda estas caracteristicas: Inherits
