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
Bom, postei essa lisp aí no site do autolisp e vou colocar ela aqui também: (DEFUN C:AREA2 (/ ent pt polig model application thisdrawing Height) (vl-load-com) (setq ent (car (Entsel “\nSelecione pline”)) pt (getpoint “\nInforme o ponto de inserção”) Height (getdist “\nQual a altura do texto”) polig (vlax-ename->vla-object ent) application (vlax-get-acad-object) thisdrawing (vla-get-activedocument application) model
