Como prometido, uma rotina que usa a collection POINTS do civil 3d, esta rotina converte os pontos de levantamento topográfico inseridos pelo software Posicao, da Manfra para pontos do Civil 3D
ver rotina
(defun c:ptpos2civil (/ ss ent cod pt elev num apt flag xd fun:ents)
(tbn:error-init ‘((“cmdecho” 0) t))
(if aec-pts
(progn
(setq fun:ents (lambda (x / p)
(setq x (cdr x)
p (vl-string-search “H=” x))
(handent (vl-string-trim ” “
(substr x (+ p 3) (– (vl-string-search “DE=” x p) p 2)))))
ss (ssget ‘((0 . “POINT”) (-3 (“*”))))
flag (initget “S N” 0)
flag (getkword “nApagar os pontos do posição? [Sim, Não]“ )
flag (= “S” (if flag flag “S”)))
(repeat (if ss (sslength ss) 0)
(setq ent (ssname ss 0)
xd (cadr (assoc -3 (entget ent ‘(“*”))))
cod (cdaddr xd)
elev (atof (cdadr xd))
num (car xd)
pt (cdr (assoc 10 (entget ent)))
pt (list (car pt) (cadr pt)))
(progn
(setq apt (vla-add aec-pts (vlax-3d-point pt)))
(vlax-put-property apt ‘Name num)
(vlax-put-property apt ‘RawDescription cod)
(vlax-put-property apt ‘Elevation elev)
(if flag
(foreach x (list ent
(fun:ents (nth 4 xd))
(fun:ents (nth 5 xd))
(fun:ents (nth 6 xd)))
(if x (entdel x))))
(vlax-release-object apt)))
(grtext -2 (itoa (sslength ss)))
(ssdel ent ss)))
(prompt “nNo Donuts for You!!!!”))
(tbn:error-restore t))
(tbn:error-init ‘((“cmdecho” 0) t))
(if aec-pts
(progn
(setq fun:ents (lambda (x / p)
(setq x (cdr x)
p (vl-string-search “H=” x))
(handent (vl-string-trim ” “
(substr x (+ p 3) (– (vl-string-search “DE=” x p) p 2)))))
ss (ssget ‘((0 . “POINT”) (-3 (“*”))))
flag (initget “S N” 0)
flag (getkword “nApagar os pontos do posição? [Sim, Não]
flag (= “S” (if flag flag “S”)))
(repeat (if ss (sslength ss) 0)
(setq ent (ssname ss 0)
xd (cadr (assoc -3 (entget ent ‘(“*”))))
cod (cdaddr xd)
elev (atof (cdadr xd))
num (car xd)
pt (cdr (assoc 10 (entget ent)))
pt (list (car pt) (cadr pt)))
(
if (and num elev cod pt)(progn
(setq apt (vla-add aec-pts (vlax-3d-point pt)))
(vlax-put-property apt ‘Name num)
(vlax-put-property apt ‘RawDescription cod)
(vlax-put-property apt ‘Elevation elev)
(if flag
(foreach x (list ent
(fun:ents (nth 4 xd))
(fun:ents (nth 5 xd))
(fun:ents (nth 6 xd)))
(if x (entdel x))))
(vlax-release-object apt)))
(grtext -2 (itoa (sslength ss)))
(ssdel ent ss)))
(prompt “nNo Donuts for You!!!!”))
(tbn:error-restore t))
Link(s) da(s) subrotina(s) usada(s):
tbn:error-init, aec-pts, tbn:error-restore
Para usar, basta digitar PTPOS2CIVIL na linha de comando (após carregar a rotina, obviamente)