explique
बनाया गया: 18 सितंबर 2025
का उपयोग करके उत्तर दिया गया GPT-5 Thinking द्वारा Chat01
बनाया गया: 18 सितंबर 2025
का उपयोग करके उत्तर दिया गया GPT-5 Thinking द्वारा Chat01
Parece um recorte de uma planta de iluminação pública/redes em CAD. O que aparece aí:
Resumindo: o detalhe mostra um poste com caixa de passagem, onde o projeto remove uma VSO 70 W e instala uma LED 60 W no circuito C, com os cabos subterrâneos especificados (3#2 CA, 3#4 CA etc.).
Se quiser, posso marcar esses itens diretamente na imagem e gerar uma legenda visual.
Uma subestação de 15 kV no lado de alta possui um transformador de 360 x √3 kVA. O TC escolhido para medir a corrente no lado de alta é de 30 A no primário com uma relação de transformação de 6:1. A corrente máxima no secundário do TC para a corrente nominal no lado de alta é:
4 A
Passos rápidos:
Corrente nominal no lado de 15 kV:
e ⇒
.
TC com relação (30 A : 5 A) ⇒ .
bora! fiz um comando personalizado para o AutoCAD que desenha, de uma vez, um detalhe como o do seu print (poste 11-300, caixa de passagem, ponto de luz, VSO riscada, LED 1×60, linhas/condutos com textos, etc.).
Você só escolhe um ponto base, um ponto de direção (para a inclinação da via) e uma escala.
DETLED.lsp
.DETLED.lsp
.lisp;; DETLED.LSP — desenha o detalhe poste/caixa/luminária (como no print) ;; Comando: DETLED (defun mkly (n c / ) (if (not (tblsearch "LAYER" n)) (command "_.-LAYER" "_M" n "_C" c "" "") ) ) (defun v (d a) (list (* d (cos a)) (* d (sin a)) 0.0)) (defun add (p q) (mapcar '+ p q)) (defun sub (p q) (mapcar '- p q)) (defun rect-rot (pc w h ang lay / pi ux uy p1 p2 p3 p4) (setq pi (* 2 (acos 0.0))) (setq ux (v (/ w 2.0) ang)) (setq uy (v (/ h 2.0) (+ ang (/ pi 2.0)))) (setq p1 (add pc (add ux uy)) p2 (add pc (sub ux uy)) p3 (sub pc (add ux uy)) p4 (add pc (sub (list 0 0 0) (sub ux uy)))) (setvar "CLAYER" lay) (command "_.PLINE" p1 p2 p3 p4 "_C") ) (defun xmark (pc tam ang lay / pi a1 a2 p1 p2 p3 p4) (setq pi (* 2 (acos 0.0))) (setq a1 (+ ang (/ pi 4.0))) (setq a2 (+ ang (/ (* 3 pi) 4.0))) (setvar "CLAYER" lay) (command "_.LINE" (add pc (v (- tam) a1)) (add pc (v tam a1)) "") (command "_.LINE" (add pc (v (- tam) a2)) (add pc (v tam a2)) "") ) (defun mtext-at (pt h rot str lay) (setvar "CLAYER" lay) (command "_.-MTEXT" "_J" "_ML" pt "W" (* h 30) str "") (command "_.ROTATE" (entlast) "" pt (* rot 57.2957795)) ; rad->graus ) (defun c:DETLED (/ p0 pdir ang esc pi tPoste tVSO tLED tCabA tCabB L sep h h2 p1 p2 perp ) (setq tPoste (getstring T "\nTexto do poste [11-300]<Enter p/ padrão>: ")) (if (= tPoste "") (setq tPoste "11-300")) (setq tVSO (getstring T "\nTexto da luminária existente [VSO 1x70 - C]: ")) (if (= tVSO "") (setq tVSO "VSO 1x70 - C")) (setq tLED (getstring T "\nTexto da luminária nova [LED 1x60 - C]: ")) (if (= tLED "") (setq tLED "LED 1x60 - C")) (setq tCabA (getstring T "\nTexto do cabo superior [3#2 CA (2 CA)]: ")) (if (= tCabA "") (setq tCabA "3#2 CA (2 CA)")) (setq tCabB (getstring T "\nTexto do cabo inferior [3#4 CA (4 CA)]: ")) (if (= tCabB "") (setq tCabB "3#4 CA (4 CA)")) (setq p0 (getpoint "\nPonto base: ")) (setq pdir (getpoint p0 "\nClique um ponto na direção da via: ")) (setq esc (getreal "\nEscala [1]: ")) (if (not esc) (setq esc 1.0)) (setq pi (* 2 (acos 0.0))) (setq ang (angle p0 pdir)) (setq perp (+ ang (/ pi 2.0))) ;; cria camadas (cores: 7 branco, 5 azul, 22 marrom, 6 magenta, 1 vermelho) (mkly "A-COND-BRANCO" 7) (mkly "A-COND-AZUL" 5) (mkly "A-COND-MARROM" 22) (mkly "A-ANOT-MAGENTA" 6) (mkly "A-EXIST-VERM" 1) (mkly "A-SIMBOLOS" 7) (setq L (* 35 esc) ; comprimento das linhas do traçado sep (* 3.0 esc) ; espaçamento entre condutos h (* 1.6 esc) ; altura de texto padrão h2 (* 1.2 esc)) ; altura de texto menor ;; linhas da via/condutos (setvar "CLAYER" "A-COND-AZUL") (command "_.PLINE" (add p0 (v (- L/2.0) ang)) (add p0 (v (L/2.0) ang)) "") (mtext-at (add p0 (add (v 0 ang) (v (+ sep 0.8) perp))) h2 ang tCabA "A-COND-AZUL") (setvar "CLAYER" "A-COND-BRANCO") (command "_.PLINE" (add p0 (add (v (- L/2.0) ang) (v sep perp))) (add p0 (add (v (L/2.0) ang) (v sep perp))) "") (command "_.PLINE" (add p0 (add (v (- L/2.0) ang) (v (- sep) perp))) (add p0 (add (v (L/2.0) ang) (v (- sep) perp))) "") (setvar "CLAYER" "A-COND-MARROM") (command "_.PLINE" (add p0 (add (v (- L/2.0) ang) (v (* -3 sep/3.0) perp))) (add p0 (add (v (L/2.0) ang) (v (* -3 sep/3.0) perp))) "") (mtext-at (add p0 (add (v 6 perp) (v (* -3 sep/3.0) perp))) h2 ang tCabB "A-COND-MARROM") ;; caixa de passagem (quadrado com X) (rect-rot (add p0 (v (* 1.0 esc) ang)) (* 2.0 esc) (* 2.0 esc) ang "A-SIMBOLOS") (xmark (add p0 (v (* 1.0 esc) ang)) (* 1.2 esc) ang "A-SIMBOLOS") ;; ponto de luz (círculo) (setvar "CLAYER" "A-SIMBOLOS") (command "_.CIRCLE" (add p0 (add (v (* 3.0 esc) ang) (v (- sep) perp))) (* 0.6 esc)) ;; "bandeirinha" em vermelho (existente) e aterramento estilizado (setvar "CLAYER" "A-EXIST-VERM") (command "_.PLINE" (add p0 (add (v (* -2.0 esc) ang) (v sep perp))) (add p0 (add (v (* -3.5 esc) ang) (v (+ sep 1.2) perp))) (add p0 (add (v (* -2.0 esc) ang) (v (+ sep 2.4) perp))) "_C") ;; texto do poste (mtext-at (add p0 (add (v (* 1.7 esc) ang) (v (+ sep 1.0) perp))) h2 ang tPoste "A-SIMBOLOS") ;; textos de luminária (magenta) (mtext-at (add p0 (add (v (* 4.5 esc) ang) (v (- sep 0.5) perp))) h 0.0 tLED "A-ANOT-MAGENTA") (mtext-at (add p0 (add (v (* 3.0 esc) ang) (v 0 perp))) h 0.0 tVSO "A-ANOT-MAGENTA") ;; X sobre a VSO (remoção) (xmark (add p0 (add (v (* 3.6 esc) ang) (v 0 perp))) (* 2.0 esc) 0.0 "A-ANOT-MAGENTA") (princ "\nDetalhe criado. Edite os textos se quiser ajustar o posicionamento.") (princ) )
Tá na aba Manage (Gerenciar) do ribbon.
Passo a passo rapidinho:
Manage → Applications → Load Application
(no seu AutoCAD 2022 fica nessa aba “Manage”, grupo “Applications”).
— Atalho pela linha de comando: digite APPLOAD e Enter.
Na janela que abrir, escolha o arquivo DETLED.lsp e clique Load.
(Opcional) Para carregar sempre que abrir o AutoCAD: na mesma janela do APPLOAD, clique em Contents… (Startup Suite) → Add… → selecione o DETLED.lsp
→ Close.
Volte ao desenho e, na linha de comando, digite DETLED e dê Enter.
Siga as perguntas: ponto base → direção → escala → textos.
Observações: