SheetSet

correção 26/07/2011: links quebrados, obrigado Javahes !!!
Bem bem...
Estou as voltas com os programinhas pra variar e tá saindo um que eu considero bem interessante. A idéia é a seguinte: suponha que voce tem lá seus desenhos... uns 50 digamos, com uns 10 layouts cada um, sendo que cada layout possui uma prancha.

Claro que um volume desses é feito por mais de uma pessoa e com certeza existe a chance de se escrever errado alguma informaçao numa folha qualquer.

Como se certificar de que estao todas certas?

Uma das soluções é usar o SHEETSET do autocad e fazer com que o carimbo contenha textos, ou bloco com atributos que tenham FIELDs.

Assim, ao abrir o sheetset, voce pode editar as propriedades ali e as pranchas, que usam fields, se atualizam sozinhas.

Muito legal, não? mas o que é sheetset? o que é field??? ja fiz alguns posts sobre field, veja aqui

Mas vamos ver ver como aplicariamos isso na ideia acima.

Primeiro, você deve ter alguns desenhos com layouts. Nestes layouts colocamos o formato da folha, que poderia ser um bloco, ou melhor ainda, uma XREF.
Vou supor que seja um bloco e que esse bloco, possua atributos e esses atributos são os que preenchem o carimbo. assim:

Sacou?, baixe uma folha A1 de exemplo

Agora, chame o botão SheesetManager:

Vai abrir esta tela:

Escolha New Sheet Set:

Na tela que abriu, escolha "Existing Drawing"

Dê um nome ao sheetset e escolha onde ele será salvo:

Ainda nesta tela, clique o botão "Sheet Set Poroperties"
Abrirá:

Agora, vamos criar algumas propriedades, clique nesta tela o botão "Edit Custom Properties", vai abrir esta tela:

Agora, note que voce pode escolher se uma propriedade é comum para todas as folhas, ou se é específica para um folha, escolhendo no quadro "Owner" se quer que a propriedade seja para o Sheet (folha) ou Sheet Set (todas as folhas).
Vá editando propriedades, uma para cada atributo daquele arquivo que serve como modelo de folha baixe-o se ainda não o fez

Clique OK quando terminar e retorne a tela abaixo. Note que as propriedades que você criou estão disponíveis já:

Clique OK novamente, vocë voltará a tela:

Clique Avançar. Vai cair na tela de adicionar Layouts. Como ainda nao criamos nenhum desenho, Clique Avançar novamente, depois clique Concluir.

Agora crie um novo dwg e insira o bloco do carimbo no layout. Não preencha o carimbo ainda.

Você vai usar o comando EATTEDIT. No atributo Município, clique com o botão direito do mouse sobre a caixa Value:

Vai abrir a tela do editor de field:

Não Abrirá bem assim, mas se você for clicando os itens da esquerda para a direita:
Field Category: SheetSet
Field Name: SheetSet
SheetSet: exemplo
Sheet navigation tree: exemplo
Property: MUNICIPIO

Agora, clique OK e salve o desenho. Por exemplo: d:/exemplo.dwg

Após salver e SOMENTE APÓS SALVER, clique com o botão direito do mouse sobre o layout e clique "Import Layout as Sheet:

Vai aparecer esta tela:

Note que aparece uma lista com o layout selecionado. clique "Import checked"
Depois clique OK.

Agora abra o sheetset novamente:

Vai abrir a tela abaixo, clique com o botão direito do mouse sobre o nome do sheetset, depois clique "Properties"

Na tela que abre, edite o município:

Depois clique OK. Volte ao desenho e chame o REGEN, veja:

Percebe? Imagine que os 5m desenhos usam o mesmo bloco com atributos...

Abora o "crème de la crème". Aquilo que toda hora alguem m pede, um programiha para plotar vários dwgs de uma vez só!!!!


Ah, não precisa de programinha nenhum, use o sheetset!!!! Lembra da tela em que adicionamos o layout no sheetset? Viu o botão "Browse Drawings"

Se você já criou todos os dwg usando o carimbo correto, vai ficar assim:

Vai ficar assim:

Agora clica:

Agora é só esperar!!!!
Quer fazer PDF? escolha PDF, quer DWF escolha DWF!!!!
Ah, você quer PLT!!!!!
Crie uma plotter que so fá plt e escolhe PLT!!!!

Vai funcionar m-a-r-a-v-i-l-h-o-s-a-m-e-n-t-e ( que gay!!! ) bem!!!
desde que, claro, você tenha configurado a ploter, tamanho do papel, penas, etc em cada um dos desenhos!!!!!


Agora.... voê nao disse no começo do post que estava fazendo um programa???

Pois é, tinha até esquecido....

Bom, o programa servirá para você gerenciar os carimbos, sem precisar do sheetset necessariamente, e por exemplo, configurar o papel dessas folhas. Claro que voce pode fazer isso de outras formas e encorajo a você a fazê-lo, mas, se voc&e precisa representar um projeto grande de uma rodovia, ou loteamento por exemplo, pode deixar alguma viewport errada....

Não é raro você esquecer de mover o zoom de uma viewport após fazer o "copy layout/move to end"....
e só descobre na hora de imprimir!!! e tem dados que fica dificil de controlar no sheetset, como pro exemplo as linhas de "REFERENCIA_1" que está no dwg que passei

O programa é este abaixo:

Nele eu consigo:
Gerenciar o conteudo dos atributos das folhas,
Gerenciar as configurações de impressão das folhas
Quais viewports aparecem num layout
O que aparece no viewport, se é alinhamento, seçãoo ou perfil
se for alinhamento, sei as estacas que aparecem, se for perfil, sei seu intervalo, se for seção, quais são. Claro que tudo no esquemático, só para se certificar que o que está escrito no carimbo é o que deveria estar escrito!!!
Vai que tem uma viewport com o alinhamento A das estacas 0 a 10 e está escrito B no carimbo? é péssimo descobrir isso depois de impresso no dia da entrega!!!!

Sem contar que o sheetset guarda algumas surpresas as vezes... mais vou deixar você gostar dele pra imprimir, hehehehe

depois voce compra o meu programa, hehehehe

Depois eu falo mais sobre ele... e posto o link pra download do demonstrativo

por enquanto, gostaria que vocês avaliassem a idéia e mandassem sugestões

Como tabelar pontos

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 ponto"))
    NumColumns 3   ;nome, x, y -> 3
    RowHeight 2
    ColWidth 10
    model (vla-get-modelspace 
                (vla-get-activedocument (vlax-get-acad-object)))
    table (vla-addtable model InsertionPoint
        (1+ NumRows) ;uma linha pro titulo...
                     ;ou vai depender do estilo da tabela
        NumColumns RowHeight ColWidth)
    nRow 0)
  (repeat NumRows
    (setq ent (ssname ss nRow)
      vla (vlax-ename->vla-object ent)
      id  (vla-get-ObjectID vla)
      nRow (1+ nRow))
    
    ;escreve o nº do ponto na coluna 1
    (vla-Settextstring
      table ;a tabela em si
      nRow  ;linha
      0     ;coluna
      (* nRow 3) ;"id" da celula
      (itoa nRow) ;conteudo da celula
      )
    
    ;escreve o X na coluna 2:
    (vla-Setformula
      table ;a tabela em si
      nRow  ;linha
      1     ;coluna
      (+ 1 (* nRow 3)) ;"id" da celula
      (strcat ;cria uma "field" q mostra o X
    "%<\\AcObjProp Object(%<\\_ObjId "
    (itoa id)
    ">%).Coordinates \\f \"%pt1\">%"))
    
    ;escreve o Y na coluna 3:
    (vla-Setformula table nRow 2 (+ 2 (* nRow 3))
      (strcat ;cria uma "field" q mostra o Y
    "%<\\AcObjProp Object(%<\\_ObjId "
    (itoa id)
    ">%).Coordinates \\f \"%pt2\">%")))
  ;atualiza a tabela:
  (vla-GenerateLayout table))

Para usar é simples, carrega a lisp, desenha alguns pontos ( comando POINT ) e chama a lisp na linha de comando: TABELAR
Será pedido um ponto de inserção e será criada uma TABLE do autocad com as coordenadas X e Y desses pontos.

Bem bobinho este programa, eu sei, mas servirá de exemplo para quem quer saber como usar FIELD e desenhar TABLE com lisp.

Civil 3d - tutoriais - Parte 2 - Survey

Dando continuidade, vamos ver agora como importar pontos para o Civil 3d!! Vou trabalhar com o Survey, para abrir ele, faça o seguinte, no menu survey, clique, open:

o Toolspace, irá abrir, e abaixo das abas do Prospector e do Settings, irá aparecer a aba do Survey, nele clique com o botão direito do mouse sobre o "Survey Databases" e clique "New Local Survey database":

Clique no "+" da database criada e clique com o botão direito sobre "Networks" e escolha "New", informe o nome e a descrição, em seguida, clique sobre ela e escolha "Import Field Book":

Aqui uma pausa: filed book? quê que é isso meu filho???

field book é um arquivo de texto com o seu levantamento, as estações da Leica conseguem "descarregar" já para esta máscara, para isso você deve entrar em contato com seu fornecedor da estação e também dê uma olhada nesta pagina da Leica:

http://www.leica-geosystems.com/corporate/en/support/lgs_page_catalog.htm?cid=4520

Lá você encontra bastante informação sobre.

No geral, o arquivo fbk é mais ou menos assim:



UNITS METER !!unidades de medida

UNITS DMS !!unidades de medida

SCALE FACTOR 1.0000 !!escala
NEZ "1" 0.0000 0.0000 0.0000 "5" !!ao menos 2 pontos
conhecidos

NEZ "RE1" 100.0000 0.0000 0.0000 "5" !!Name North East Elevation Description

!!!comentários

STN "1" 1.5700 !!Estação em "1" altura do aparelho=1.57
BS "RE1" 0.0000 !!Ré em "RE1" com angulo zerado (angulo inicial = 0)
PRISM 1.5000 !!altura do prisma=1.5
F1 VA "68" 194.4206 198.4310 92.1347 "41" !!veja:

!!F1=face 1 angle (angulo iniciando da ré, em sentido
horário)

!!VA=angulo vertical a partir do zênite

!!194.4206=angulo horiz

!!198.4310 =distancia inclinada

!!92.1347=angulo vertical

!!41=descrição ou código

F1 VA "1" 194.3853 196.4710 92.1359 "40"



F1, VA, são opções que você tem na definição de uma observação, os sinais de exclamação são um tipo de delimitador, que diz que o texto após ele é desconsiderado durante a importação. Útil quando se quer colocar alguma observação, ou destacar as STN. Veja esta imagem:

Dá pra ver onde "F1" e "VA" podem ser editados?



Ah, STN é Station, diz em que ponto é instalado o aparelho

BS é a "back station", ou ré

PRISM é altura do prisma



EDITADO EM 03/05/2008:

Com a database aberta, clique com o botão direito do mouse sobre ela e escolha a opção "Edit Survey
Database Settings":

aparecerá esta tela:

Veja que você terá de configurar novamente UNIDADES DE MEDIDA!!!

Não sei porque carga d'água a Autodesk insiste nessa joça unidade de medida em PÉS!!

devia ter uma configuração global no windows mesmo BLOQUEANDO esse tipo de coisa, hehehe



Então fica um alerta: SEMPRE dê uma olhada nas opções do civil 3d, pra achar essas belezuras de unidades, ANTES de qualquer coisa!!

Voltando ao "Import Field Book", após selecionarmos o arquivo, aparece esta tela:

Desmarque a opção "Show Interactive Graphics", torna a importação mais rápida.



Podem ocorrer erros durante a importação, erros do tipo, não foi setada a ré, caso onde
não existe o BS abaixo do STN, ou foram escolhidos pontos que não existe etc... Cabe ao profissional interpretar as mensagens e fazer as edições que forem necessárias no arquivo FBK



Supondo que tenhamos sanado todos os problemas, teremos algo assim:

veja só, no Toolspace temos na nossa "Network" os "Control Points", "=Non-Control Points", "Directions", "Setups" e "Traverses", destes, os mais óbvios são os "Control Points", são os pontos conhecidos, geralmente Marcos implantados com GPS de precisão ou coisa que o valha, e os "Setups" aqui estão as instalações do aparelho e as irradiações. Experimente ver as propriedades dos "control points":

Você poderá editar as coordenadas dele por exemplo, ou incluir um código (descrição)

Já para as setups:

Veja os campos "Station Point", é onde você instalou o aparelho, e "backsight Point", é a ré, os demais são ângulos de referência. Aqui é bom clicar o "Help" desta tela, pois é muita informação para um tutorial só.

Em cada "Setup", temos as "Observations", clique 2 vezes com o botão esquerdo do mouse obre uma setup, você verá o editor de observações. Ali, se pode editá-las.



Sim, claro você tem uma estação diferente, ou teodolito e quer editar um arquivo FBK manualmente, é possível, basta escrever os campos certos, nos lugares certos. ou digitar um a um no Survey, também é possível.



O interessante, é que, tendo o levantamento feito e inserido no C3D, ele pode fazer a análise do mesmo:

Aqui, novamente é melhor você saber o que está fazendo, topografia/cartografia deve ser feita por profissionais habilitados, por isso cabe a você entender o que se passa nesta análise. no mais basta dizer que feita a análise e correção/distribuição do erro, o programa irá atualizar os pontos na tela. Na figura acima, veja que existe uma linha "Points" no menu, ao clicar ele você irá inserir os pontos no seu desenho. Com estes você poderá desenhar as estradas, taludes, áreas verdes, lotes, o que for e continuar no próximo Tutorial: Pontos.



Ah, uma dica: ao conectar os pontos, use LINES em 3D, ou 3DPOLYs, quando você for criar
superfícies (triangulação) elas serão usadas como LINHAS OBRIGATÓRIAS, se você não sabe o que são elas... tenho pena de você, hehehe!!!



Então, até o próximo!!!!



EDITADO EM 27/04/2008:

é possível inserir os pontos calculados no civil 3d, veja:

Mais Fields - Nome do Layout

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 (vla-get-utility thisdrawing)
;pede a seleção de um texto:
    pt      (vla-getpoint
          utility
          nil
          "\nClique um ponto:")
    alt     (vla-getdistance
          utility
          nil
          "\nAltura do texto:"))

;cria um text no paper, com o nome do layout:
  (vla-addtext paper
    (strcat "%<\\AcObjProp Object(%<\\_ObjId "
        (itoa (vla-get-objectid
            (vla-get-layout paper)))
        ">%).Name \\f \"%tc1\">%")
    pt
    alt)
  (princ))

---

Assim, você pode numerar os layouts e ter certeza de que no carimbo estará certo o texto. Detalhe: se você usar depois o "Copy/Move" num layout ara criar a próxima página (se não faz assim, experimente clicar com o botão direito do mouse sobre a aba do layout atual e usar o Copy/Move), esta Field será atualizada para usar o nome da página correta!! E se renomear algum layout, a field se atualiza sozinha, muito legal, hehehe!!!

Para usar é simples, carrega a lisp com APPLOAD e digita NLAYOUT na linha de comando:

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 (vla-get-modelspace thisdrawing) 
       TextString (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId " 
                        (itoa (vla-get-ObjectID polig)) 
                        ">%).Area \\f ""%lu2%pr2%ps[A=,m²]%ds44%th46"">%") 
       InsertionPoint (vlax-3d-point pt) 
        
       ) 
  (vla-addtext model TextString InsertionPoint Height) 
  )

---

Ela faz o seguinte: após selecionar uma polilinha, ela cria um texto contendo a área desta polilinha. Simples né? o interessante fica por conta do FIELD que ela usa para escrever este texto!!! pois ele se atualiza se você modificar esta polilinha!! Este é um recurso que já vem de tempos no autocad, mas que pouca gente usa ou mesmo conhece...

Vai ser bastante útil para quem faz desenho arquitetônico!!!

Com poucas modificações, dá pra fazer escrever esse texto numa tabela por exemplo, já que o mais complexo é criar a string correta para o FIELD... Aconselho a você se informar mais sobre FIELDs no menu "Insert/Filed" e no help do cad... tem coisas bem interessantes que dá pra fazer, hehehehe