Começando Visual LISP - Parte 1 por Kenny Ramage
Então, você quer começar a programar usando o Visual Lisp? Duas coisas. Primeiro, você realmente precisa ter um bom entendimento do AutoLisp antes de continuar com este tutorial.VLISP não é um substituto para AutoLisp, é uma extensão para isso. Padrão AutoLisp é amplamente utilizado em todo Visual Lisp, portanto, um bom conhecimento é uma necessidade.Em segundo lugar, neste tutorial eu não vou mergulhar o porquê e onde está de VLISP. A intenção é dar-lhe uma formação básica em VLISP o que pode fazer e como proceder para fazê-lo. Por exemplo, alguns dos meus terminologia pode não ser tecnicamente correto, como eu tendia a converter algumas coisas para termos leigos para maior clareza e facilidade de compreensão. Não se preocupe, nós vamos corrigir tudo isso em tutoriais futuros. OK, você está pronto para começar? Direito, o fogo até o AutoCAD com um desenho em branco e abrir o Editor do Visual Lisp. Você pode escrever Lisp Visual usando o Bloco de Notas como AutoLisp se quiser, mas eu prefiro usar o Editor do Visual Lisp que pudermos, e, use o "Watch" e "Inspecionar" janelas. Feche a janela do Editor, deixando a janela "Console" aberta, e, em seguida, abrir a janela "Watch".Certo, estamos prontos para começar. Digite isso no prompt do Console e, em seguida, pressione Enter: _ $ (Vl-load-com)
Você notou que nada aconteceu? Antes que você possa usar as funções VLISP com AutoLisp, você precisa carregar o código de suporte que permite que essas funções. Os (vl-load-com) função primeiro verifica se o apoio VLISP já está carregado e, nesse caso, a função não faz nada. Se as funções não são carregados, (vl-load-com) carrega-los. Muito importante, eu diria! "Todos os aplicativos que usam Visual Lisp deve começar pelo telefone (vl-load-com). If (vlload-com) não está carregado, o aplicativo falhará."
Depois de carregar as funções do Visual Lisp, o próximo passo é estabelecer a comunicação com o objeto de aplicativo AutoCAD. Pense em um armário. O gabinete em si é o seu computador e uma das gavetas do armário de arquivamento é o AutoCAD. Vamos abrir a gaveta AutoCAD para ter um olhar para o que está dentro. Para estabelecer esta conexão, usamos a função (vlax-get-acad-objeto). Digite isso no prompt do Console e, em seguida, pressione Enter: _ $ (Setq acadObject (vlax-get-acad-object))
Agora, dê um clique duplo na variável "acadObject" na janela do console para selecioná-lo e, em seguida, adicioná-lo à janela "Watch". Deve ser algo parecido com isto:
Estamos agora a olhar para o objeto Application Acad. Dê um duplo clique em "ACODBJECT" no "janela de inspeção para abrir a" janela "Inspecione:
Esta é uma lista de todos os objetos dentro do objeto Aplicativo do AutoCAD. Agora clique duas vezes sobre
:
Este é todos os objetos dentro do AutoCAD - Aplicação - objeto Preferences. Agora clique duas vezes sobre :
Compare essa lista com o que você vê quando abre a caixa de diálogo Opções-Files:
Antes de começar esta seção, eu acho que pode ser uma boa idéia se você aparecer bem e ter um olhar para o modelo de objeto de AutoCAD:
Na verdade, imprimi-lo e tê-lo ao seu lado enquanto você trabalha através desses tutoriais. É como ter um mapa rodoviário.
De qualquer forma, onde estávamos? Oh, sim. Estamos indo agora para tentar extrair o Path Apoio AutoCAD a partir do Modelo de Objeto usando VLISP. Vamos levá-lo para a direita a partir do topo para o caso de você ficou um pouco perdido. Aqui vamos nós. Digite todas as seguintes declarações para a janela do Console, pressionando "Enter" após cada um: As linhas em vermelho são o que retorna VLISP, não digitá-los! Carregue o apoio VLISP. _ $ (Vl-load-com)
Armazenar uma referência para o objeto Aplicativo _ $ (Setq acadObject (vlax-get-acad-object)) # IAcadApplication
Armazenar uma referência para o objeto Preferences _$ (setq prefsObject (vlax-get-property acadObject 'Preferences)) #
Armazenar uma referência para os arquivos objeto _$ (setq tabnameObject (vlax-get-property prefsObject 'Files)) #
Obter o caminho de suporte _$ (setq thePath (vlax-get-property tabnameObject 'SupportPath)) "D:\\ACAD2000\\SUPPORT;D:\\ACAD2000\\FONTS; D:\\ACAD2000\\HELP;D:\\ACAD2000\\EXPRESS"
"Jings, isso é ótimo, mas podemos adicionar um novo diretório para o nosso caminho de suporte?" Claro que pode, mas primeiro precisamos adicionar o nosso novo caminho para a variável de caminho existente. O que devemos usar? Fácil, vamos usar a função (strcat): _$ (setq thePath (strcat thePath ";" "C:\\TEMP")) "D:\\ACAD2000\\SUPPORT;D:\\ACAD2000\\FONTS; D:\\ACAD2000\\HELP;D:\\ACAD2000\\EXPRESS;C:\\TEMP"
Nós adicionamos o novo diretório na variável de caminho de suporte, então agora vamos atualizá-lo. Digite esta linha: _$ (vlax-put-property tabnameObject 'SupportPath thePath) nil
Agora, volte para AutoCAD e vá em "Ferramentas" - "Opções" - "Arquivos" - "Suporte Caminho de pesquisa." O seu novo diretório, C :/ TEMP, deve ter sido adicionado ao seu caminho de
Apoio. Hey fácil morto? Este material VLISP é fácil! Certo, nós abrimos o armário gaveta AutoCAD arquivamento (o objeto Aplicativo) e tinha um olhar para as características de gaveta. Agora precisamos aprofundar a gaveta e dar uma olhada em uma das pastas de documentos armazenados no interior. _ $ (Vl-load-com)
_$ (setq acadObject (vlax-get-acad-object)) #
Armazenar uma referência para o documento ativo. (O desenho que enganar! ) _$ (setq acadDocument (vla-get-ActiveDocument acadObject)) #
Clique duas vezes para selecionar a variável "acadDocument" e adicioná-lo à janela "Watch":
Agora dê um duplo clique em "ACADDOCUMENT" Objeto.
Uau, olha para tudo isso! Agora clique duas vezes sobre :
Ha, temos agora perfurado para baixo para todas as camadas incluídas no desenho. Em outras palavras, a "Colecção Layers". "Tudo bem, isso é ótimo", eu posso ouvir você dizer: "Eu posso ver que há 13 camadas neste desenho, mas onde estão as camadas Direito entrar nessa?: _$ (vl-load-com)
_$ (setq acadDocument (vla-get-activedocument (vlax-get-acad-object))) #
_$ (setq theLayers (vla-get-layers acadDocument)) #
Agora estamos orgulhosos proprietários de todas as camadas neste desenho particular. Você gostaria de ter um olhar pequenino para eles? Basta ter muito cuidado e não deixá-los! Digite o seguinte no prompt do Console, pressionando "Ctrl" e depois "Enter" depois de cada linha.Após a linha final, o parêntese de fechamento, pressione "Enter": _$ (setq i 0) (repeat (vla-get-count theLayers) (setq aLayer (vla-item theLayers i)) (princ (vla-get-name aLayer)) (terpri) (setq i (1+ i)) )
Todos os nomes de camadas no desenho deve ser listado. Mina se parece com isso: 1 2 3 4 5 6 7 8 9 10 12 DEFPOINTS
Gostaria de dar uma olhada em uma das camadas em seu desenho? Em seguida, digite o seguinte: (setq aLayer (vla-item theLayers "2")) #
Temos agora acessados Layer "2" da coleção Layers. Vamos listar todas as propriedades e métodos desta camada: _$ (vlax-dump-object aLayer T)
; IAcadLayer: A logical grouping of data, similar to transparent acetate overlays on a drawing ; Property values: ; Application (RO) = # ; Color = 2 ; Document (RO) = # ; Freeze = 0 ; Handle (RO) = "40" ; HasExtensionDictionary (RO) = 0 ; LayerOn = -1 ; Linetype = "DASHED2" ; Lineweight = -3 ; Lock = 0 ; Name = "2" ; ObjectID (RO) = 21872128 ; ObjectName (RO) = "AcDbLayerTableRecord" ; OwnerID (RO) = 21871632 ; PlotStyleName = "Color_511" ; Plottable = -1 ; ViewportDefault = 0 ; Methods supported: ; Delete () ; GetExtensionDictionary () ; GetXData (3) ; SetXData (2) T
Quer mudar a sua cor Layers? Digite o seguinte: _$ (vla-put-color aLayer 4) nil
Este terá mudado a sua camada de "2" cor de "Ciano" ou cor "4", incluindo a cor de todos os objetos dentro do desenho na camada "2" com a cor "Por camada". Dê uma olhada em volta para o Document Object. Há pilhas de ver e babar. Agora você pode ver o poder e as capacidades do Visual Lisp?
Na próxima página, vamos aprofundar ainda mais e começar a ter um olhar para a criação, a seleção ea mudança entidades de desenho.
Praticamente o mesmo hein? Na Parte 2 , vamos dar uma olhada em como podemos acessar esses objetos programaticamente.
Começando Visual LISP - Parte 3 por Kenny Ramage
Veja também:
Parte 1
Parte 2 Antes de podermos criar entidades, ou objetos, dentro de AutoCAD, é preciso decidir "onde" queremos desenhar, o espaço do modelo ou espaço do papel. E para fazer isso, precisamos criar uma referência para a área em que gostaria de desenhar. Lembre-se de nosso armário? O objeto Application foi nossa gaveta, o Document Object foi nossa pasta, e agora o espaço Object Model será o nosso pedaço de papel. Vamos dar uma olhada no espaço Object Model: _$ (setq modelSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-Acad-Object)))) #
Agora execute um dump no objeto modelspace: _$ (vlax-dump-object modelSpace T) ; IAcadModelSpace: A special Block object containing all model space entities ; Property values: ; Application (RO) = # ; Count (RO) = 0 ; Document (RO) = # ; Handle (RO) = "18" ; HasExtensionDictionary (RO) = 0 ; IsLayout (RO) = -1 ; IsXRef (RO) = 0 ; Layout (RO) = # ; Name = "*MODEL_SPACE" ; ObjectID (RO) = 21871808 ; ObjectName (RO) = "AcDbBlockTableRecord" ; Origin = (0.0 0.0 0.0) ; OwnerID (RO) = 21871624 ; XRefDatabase (RO) = AutoCAD.Application: No database
; Methods supported: ; Add3DFace (4) ; Add3DMesh (3) ; Add3DPoly (1) ; AddArc (4) ; AddAttribute (6) ; AddBox (4) ; AddCircle (2) ; AddCone (3) ; AddCustomObject (1) ; AddCylinder (3) ; AddDim3PointAngular (4) ; AddDimAligned (3) ; AddDimAngular (4) ; AddDimDiametric (3) ; AddDimOrdinate (3) ; AddDimRadial (3) ; AddDimRotated (4) ; AddEllipse (3) ; AddEllipticalCone (4) ; AddEllipticalCylinder (4) ; AddExtrudedSolid (3) ; AddExtrudedSolidAlongPath (2) ; AddHatch (3) ; AddLeader (3) ; AddLightWeightPolyline (1) ; AddLine (2) ; AddMInsertBlock (10) ; AddMLine (1) ; AddMText (3) ; AddPoint (1) ; AddPolyfaceMesh (2) ; AddPolyline (1) ; AddRaster (4)
; AddRay (2) ; AddRegion (1) ; AddRevolvedSolid (4) ; AddShape (4) ; AddSolid (4) ; AddSphere (2) ; AddSpline (3) ; AddText (3) ; AddTolerance (3) ; AddTorus (3) ; AddTrace (1) ; AddWedge (4) ; AddXline (2) ; AttachExternalReference (8) ; Bind (1) ; Delete () ; Detach () ; GetExtensionDictionary () ; GetXData (3) ; InsertBlock (6) ; Item (1) ; Reload () ; SetXData (2) ; Unload () T
Hey interessante? Agora vamos desenhar algo. Digite este código: (setq pt1 (getpoint "\nSpecify First Point : ")) (while (setq pt2 (getpoint "\nSpecify next point : " pt1)) (vla-addline modelSpace (vlax-3d-point pt1) (vlax-3d-point pt2)) (setq pt1 pt2) ) (428.748 578.851 0.0) (524.783 509.712 0.0)
Enfim, nós finalmente tirado alguma coisa. Agora digite o seguinte:
_$ (setq pt1 (getpoint "\nSpecify First Point : ")) (setq pt2 (getpoint "\nSpecify next point : " pt1)) (setq ourLine (vla-addline modelSpace (vlax-3d-point pt1) (vlax-3d-point pt2))) (922.321 585.542 0.0) (1016.12 300.064 0.0) #
Você notou que a (setq declaração ourLine Isso define uma referência para o nosso objeto de linha Vamos executar um despejo sobre isso?.: _$ (vlax-dump-object ourLine T) ; IAcadLine: AutoCAD Line Interface ; Property values: ; Angle (RO) = 5.02985 ; Application (RO) = # ; Color = 256 ; Delta (RO) = (93.8012 -285.479 0.0) ; Document (RO) = # ; EndPoint = (1016.12 300.064 0.0) ; Handle (RO) = "95D" ; HasExtensionDictionary (RO) = 0 ; Hyperlinks (RO) = # ; Layer = "7" ; Length (RO) = 300.494 ; Linetype = "BYLAYER" ; LinetypeScale = 1.0 ; Lineweight = -1 ; Normal = (0.0 0.0 1.0) ; ObjectID (RO) = 21873192 ; ObjectName (RO) = "AcDbLine" ; OwnerID (RO) = 21871808 ; PlotStyleName = "ByLayer" ; StartPoint = (922.321 585.542 0.0) ; Thickness = 0.0 ; Visible = -1
; Methods supported: ; ArrayPolar (3) ; ArrayRectangular (6) ; Copy () ; Delete () ; GetBoundingBox (2) ; GetExtensionDictionary () ; GetXData (3) ; Highlight (1) ; IntersectWith (2) ; Mirror (2) ; Mirror3D (3) ; Move (2) ; Offset (1) ; Rotate (2) ; Rotate3D (3) ; ScaleEntity (2) ; SetXData (2) ; TransformBy (1) ; Update () T
Temos, agora, uma lista de todas as propriedades e métodos do nosso objeto de linha. Vamos mudar algumas das suas propriedades: Vamos mudar de camada: _$ (vla-put-layer ourLine 2) nil
E agora é a cor: _$ (vla-put-color ourLine 6) nil
Vamos apagar a nossa linha: _$ (entdel (vlax-vla-object->ename ourLine))
Você notou como usamos um comando padrão AutoLisp (entdel) para excluir a linha? Mas antes que pudéssemos fazer isso, tivemos que converter o Object Reference VLISP a um AutoLisp Nome da Entidade. Você provavelmente está se perguntando por que nós não apenas usar a função AutoLisp (comando) para desenhar ou alterar entidades. Se você usar o reator funções de call-back, você não tem permissão para utilizar a função (comando). Se termos como objetos, propriedades, métodos e eventos de som double holandês para você, ter uma leitura através de Uma Introdução ao VBA . Isto está escrito em VBA, mas grande parte da mesma terminologia se aplica a Visual Lisp. Bem, espero que este lhe deu uma visão sobre o uso do Visual Lisp? Não se preocupe, nós vamos estar a olhar muito mais atento a todos os aspectos de Visual Lisp em futuros tutoriais. Isto é só para você começar e dar-lhe um gostinho do que está por vir. Fonte: http://www.afralisp.net/visual-lisp/tutorials/beginning-visual-lisp-part-1.php
