topic Re: Correction elevation (Z) of polyline. in Visual LISP, AutoLISP and General Customization Forum

Correction elevation (Z) of polyline.

neam — Sun, 02 Jun 2024 03:38:41 GMT

Hi everyone
How to correction elevation (Z) of polyline:

Z=980.00112108 ==> 980.00

Z=939.99999986 ==> 940.00

Re: Correction elevation (Z) of polyline.

rolisonfelipe — Sun, 02 Jun 2024 04:08:48 GMT

edit elevation

rolisonfelipe_0-1717301314838.png

Re: Correction elevation (Z) of polyline.

neam — Sun, 02 Jun 2024 04:20:41 GMT

thanx for reply dear rolisonfelipe

I have a lot of polylines with different elevation that I wanted to do with Lisp.

Re: Correction elevation (Z) of polyline.

rolisonfelipe — Sun, 02 Jun 2024 04:29:39 GMT

The process will be the same, but you will have to enter the elevation for each line

(defun c:ChangeElevation (/ ss elevation i ent dataEnt)
(setq elevation (getreal "\nDigite a nova elevação: ")) ; Solicita ao usuário a nova elevação
(setq ss (ssget)) ; Solicita ao usuário que selecione os objetos
(if ss
(progn
(setq i 0)
(while (< i (sslength ss))
(setq ent (ssname ss i))
(setq dataEnt (entget ent))
(if (assoc 38 dataEnt)
(progn
(setq dataEnt (subst (cons 38 elevation) (assoc 38 dataEnt) dataEnt)) ; Altera a elevação
(entmod dataEnt) ; Aplica a alteração
)
(progn
(setq dataEnt (append dataEnt (list (cons 38 elevation)))) ; Adiciona elevação se não existir
(entmod dataEnt) ; Aplica a alteração
)
)
(setq i (1+ i))
)
)
)
(princ)
)

good job for you

Re: Correction elevation (Z) of polyline.

neam — Sun, 02 Jun 2024 05:03:49 GMT

may be this:

(defun c:Test ( / int sel ent)
(setq int 0)
(setq sel (ssget "_:L" '((0 . "LWPOLYLINE"))))
(setq m (sslength sel))
(repeat m
(setq ent (ssname sel int))
(setq obj (vlax-ename->vla-object (ssname sel int)))
(setq el (vla-get-elevation obj))
(setq ele (atoi (rtos el 2 2)))
(vlax-put obj 'Elevation ele)
(setq int (1+ int))
)
(princ)
)