polilinhas, VB

Retangulos e vb.net

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 […]

polilinhas

Polilinhas e suas áreas

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

Rolar para cima