 |
|
Você está aqui: Visual LISP ::: Dicas & Truques ::: Layer, Layers |
Como criar novas layers no AutoCAD usando Visual LISP e a função vla-AddQuantidade de visualizações: 277 vezes |
|
Em várias situações nós precisamos criar uma nova layer no AutoCAD. Via programação nós podemos fazer isso usando a função vla-Add da linguagem Visual LISP. Para isso usaremos a coleção de layers retornada pela função vla-get-Layers. O primeiro passo é obter o objeto AutoCAD usando a função vlax-get-acad-object. Em seguida, usamos este objeto para chamar a função vla-get-ActiveDocument e retornar o documento ativo. O passo seguinte é acessar a coleção de layers do documento usando vla-get-Layers. Para finalizar, só precisamos chamar a função vla-Add passando como argumentos a coleção de layers e o nome da layer a ser criada. Veja o código Visual LISP completo para o exemplo: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
; Esta função mostra como criar uma nova layer no
; AutoCAD usando a função vla-Add da Visual LISP
(defun c:Criar_Layer()
; o primeiro passo é obter o objeto AutoCAD
(setq obj_autocad (vlax-get-acad-object))
; agora obtemos o documento atual
(setq doc (vla-get-ActiveDocument obj_autocad))
; obtemos a coleção de layers
(setq colecao_layers (vla-get-Layers doc))
; criamos a nova layer com o nome "PORTAS"
(setq nova_layer (vla-Add colecao_layers "PORTAS"))
; e mostramos o resultado
(princ (strcat "A nova layer foi criada com o nome: "
(vla-get-Name nova_layer)))
(princ)
)
Ao executar este código Visual LISP nós teremos o seguinte resultado: Command: CRIAR_LAYER A nova layer foi criada com o nome: PORTAS |
 Link para compartilhar na Internet ou com seus amigos: |
Veja mais Dicas e truques de Visual LISP |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
