Ponto central do conjunto de Objetos (linhas)
Solução aceita
não conheço um comando para isso, se estivessimos falando de um solido... mas existe uma "gambiarra" possivel
você transformar todas estas linhas em um GRUPO, o AutoCAD vai mostrar para você o "centro de gravidade" desse conjunto
para colher as coordenadas deste ponto, você poderia ter uma linha e utilizando o GRIPs mover um de seus vértices para o "centro de gravidade" do seu grupo
Você achou uma postagem útil? Então fique à vontade para curtir essas postagens!
Sua pergunta obteve uma resposta que resolveu a duvida? Então clique no botão Aceitar Solução.
Fábio Santana
Architect | CAD/BIM Manager
Solução aceita
DiegoTeixeira,
em adição á excelente solução apresentada por f_santana, podes recorrer a uma rotina de lisp, que foi postada <<aqui>> por Kent Cooper, que vai criar o mais pequeno rectangulo possivel que englobe todos os objectos selecionados, depois é só desenhares uma linha a unir dois vertices opostos e vêr as coordenadas do ponto do meio...
Espero que ajude
Henrique
DiegoTeixeira, precisão de 100% você só vai ter desenhando os limites da área que contem estes elementos,
levando em conta inclusive o ângulo mais adequado para isso.
E depois encontrando o ponto central deste perímetro (se este perímetro for transformado em um SOLID, você pode achar o ponto com o comando MASSPROP
Você achou uma postagem útil? Então fique à vontade para curtir essas postagens!
Sua pergunta obteve uma resposta que resolveu a duvida? Então clique no botão Aceitar Solução.
Fábio Santana
Architect | CAD/BIM Manager
então, a minha resposta sobre o ponto central (de gravidade) precisaria de perimetros como estes que editei no arquivo do Taciano (salvei em versão 2010)
por isso que falei na ultima resposta em transformar em um solido
Você achou uma postagem útil? Então fique à vontade para curtir essas postagens!
Sua pergunta obteve uma resposta que resolveu a duvida? Então clique no botão Aceitar Solução.
Fábio Santana
Architect | CAD/BIM Manager
Diego,
se a solução que procuras é parecida com as colocadas por Ticiano e Fábio, anexa um dwg com as linhas, que eu tento fazer uma rotina para mecanizar o calculo do ponto central.
Henrique
se a solução que procuras é parecida com as colocadas por Ticiano e Fábio, anexa um dwg com as linhas, que eu tento fazer uma rotina para mecanizar o calculo do ponto central.
Henrique
para voce conseguir carregar um aplicativo em DVB voce precisa baixar e instalar os VBA para AutoCAD
desde a versão 2010 este recurso não vem mais com o AutoCAD na instalação
http://usa.autodesk.com/adsk/servlet/index?siteID=123112&id=15077854&linkID=9240618
pelo que sei o VBA não tem mais suporte. mas ainda é muito util para algumas operações
Você achou uma postagem útil? Então fique à vontade para curtir essas postagens!
Sua pergunta obteve uma resposta que resolveu a duvida? Então clique no botão Aceitar Solução.
Fábio Santana
Architect | CAD/BIM Manager
Diego,
utilizando duas sub-funções, Convex Hull e Clockwise-p, ambas de autoria de Lee Mac, escrevi esta pequena rotina, que cria uma fronteira exterior baseada no "Graham Scan Algorithm" (uma frontrira convexa), transformo essa fronteira em uma "Region" (quando o Fábio falou em sólido, lembrei-me que a Region" têm a mesma prop e é mais fácil de trabalhar), para poder extrair a propriedade "Centroid" e por fim cria um ponto nessas coordenadas e num layer "Centroid", não apago a "Region" com a finalidade de se poder analizar a sua forma.
Este código é apenas uma demo, não pretende ser um código final e serve para demonstrar uma maneira possivel de se conseguir um ponto central de um conjunto de polilinhas, funciona apenas com "LwPolyline" e foi apenas minimamente testado, o nome da função é o mesmo do ficheiro..."
(defun c:test2 (/ CPT E L R S VLR X);; coloca um ponto na Centroid de um conjunto de Lwpolylines
(vl-load-com)
;; Convex Hull - Lee Mac
;; Implements the Graham Scan Algorithm to return the
;; Convex Hull of a list of points.
(defun LM:ConvexHull (lst / hul p0)
(cond
((< (length lst) 4)
lst
)
(t
(setq p0 (car lst))
(foreach p1 (cdr lst)
(if (or (< (cadr p1) (cadr p0))
(and (equal (cadr p1) (cadr p0) 1e-8) (< (car p1) (car p0)))
)
(setq p0 p1)
)
)
(setq lst
(vl-sort
lst
(function
(lambda (a b / c d)
(if (equal (setq c (angle p0 a)) (setq d (angle p0 b)) 1e-8)
(< (distance p0 a) (distance p0 b))
(< c d)
)
)
)
)
)
(setq hul (list (caddr lst) (cadr lst) (car lst)))
(foreach pt (cdddr lst)
(setq hul (cons pt hul))
(while (and (caddr hul) (LM:Clockwise-p (caddr hul) (cadr hul) pt))
(setq hul (cons pt (cddr hul)))
)
)
hul
)
)
)
;; Clockwise-p - Lee Mac
;; Returns T if p1,p2,p3 are clockwise oriented or collinear
(defun LM:Clockwise-p ( p1 p2 p3 )
(< (- (* (- (car p2) (car p1)) (- (cadr p3) (cadr p1)))
(* (- (cadr p2) (cadr p1)) (- (car p3) (car p1)))
)
0.1e-8
)
)
;; test
(if (setq s (ssget ":L" '((0 . "LWPOLYLINE"))))
(progn
(setq i 0
l1 nil)
(repeat (sslength s)
(setq e (entget (ssname s i))
l (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))) e))
l1 (append l1 l)
i (1+ i))
)
(setq l (LM:ConvexHull l1))
(entmake
(append
(list
'(0 . "LWPOLYLINE")
'(8 . "Centroid")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length l))
'(70 . 1)
)
(mapcar '(lambda (x) (cons 10 x)) l)
)
);; entmake
(vl-cmdf "region" "_L" "")
(if (and (setq r (entlast))
(setq vlr (vlax-ename->vla-object r))
(= "AcDbRegion" (vla-get-ObjectName vlr))
)
(progn
(setq cpt (vlax-safearray->list (vlax-variant-value (vlax-get-property vlr 'Centroid))))
(entmake (list '(0 . "POINT") (cons 8 "Centroid") (cons 10 cpt)))
);; progn
);; if
);; progn
);; if
(princ)
);; testEditado:
desculpa ter que colocar o codigo assim, mas não estou a conseguir anexar nada???
Espero que ajude
Henrique