Hola, comunidad.
He recibido un levantamiento topográfico del cual tiene una serie de puntos.
Quisiera saber si es posible crear un grupo de puntos y curvas de nivel a partir de esta información.
Anexo una imagen de las propiedades, las cuales, si tienen coordenadas X, Y, Z.
Agradezco su atención y ayuda.
Hola @soloandrade6
Ya hemos respondido esto antes, creo que te serviría estos enlaces:
Solucionado: Re: acad proxy entity - Autodesk Community
Y también:
Solucionado: Re: acad proxy entity - Autodesk Community
Un saludo cordial!!!
______________________________________________________________
VMMV - Ingeniero Civil - Cochabamba, Bolivia | LinkedIn | YouTube | Contributions | Facebook
Saludos @soloandrade6
Aqui te alcanzo una rutina que adapte del foro en Ingles. Para convertir Textos, punto CAD y Bloques con elevacion a Puntos COGO del C3D. Espero que te sea de ayuda. Considero que este procedimiento es algo mas rapido y directo que usar la utilidad del C3D para convertir puntos CAD a puntos COGO.
;_Routine adapted by calderg1000, to provide an answer in the C3D forum in Spanish.
;_Original code By Jeff_M
(defun c:Pcogo_Text-point-block( / 3dapp c3ddoc cogopts spm lsn p lp i pcogo pnum newpt)
(setq c3dapp (getaeccapp "Land")
c3ddoc (vlax-get c3dapp 'activedocument)
cogopts (vlax-get c3ddoc 'points)
spm(vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))
)
(setq lsn(vl-remove-if 'listp (mapcar 'cadr(ssnamex(ssget (list '(0 . "*text,point,insert")))))))
(foreach j lsn
(setq p(cdr(assoc 10 (entget j)))
lp(cons p lp)
)
)
(setq nump 0)
(foreach k lp
(setq nump(1+ nump)
pcogo(vlax-invoke cogopts 'add k)
)
(vlax-put pcogo 'rawdescription "Tn")
(if (not (= (vlax-get pcogo 'number) nump))
(vlax-put pcogo 'number nump)
)
)
(vlax-release-object c3dapp)
(princ)
)
;_
(defun getaeccApp (module / *acad* C3D)
(vl-load-com)
(if (and (setq *acad* (vlax-get-acad-object))
(setq C3D (strcat "HKEY_LOCAL_MACHINE\\"
(if vlax-user-product-key
(vlax-user-product-key)
(vlax-product-key)
)
)
C3D (vl-registry-read C3D "Release")
C3D (substr
C3D
1
(vl-string-search
"."
C3D
(+ (vl-string-search "." C3D) 1)
)
)
C3D (vla-getinterfaceobject
(vlax-get-acad-object)
(strcat "AeccXUi" module ".Aecc" (if (= (strcase module) "LAND") "" module) "Application." C3D)
)
)
)
C3D
)
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
