Anonymous
623 Vistas, 6 Respuestas
01-20-2016
04:04 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
01-20-2016
04:04 PM
Editing a number
I have about 500 spot elevations on a drainage plan and need to subtract 1.55 from each elevation. Can this be done globally or I am stuck editing each one by hand? HELP
01-20-2016
05:17 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
01-20-2016
05:17 PM
What are these 'elevations'? Attributes? Text? Mtext?
01-20-2016
06:00 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
01-20-2016
06:00 PM
If they have a Z value & all points need to move by -1.55, then the MOVE command will work.
Command: MOVE > Select Objects > specify base point > 0,0,0 > Enter > specify second point > 0,0,-1.55 > Enter.
C3D 2018.1
C3D 2016 SP4
Win 7 Professional 64 Bit
C3D 2016 SP4
Win 7 Professional 64 Bit
Anonymous
en respuesta a:
Anonymous
01-20-2016
07:33 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
01-20-2016
07:33 PM
The elevations are text. I do not need to move them i need to minus out 1.55 from each. For example if the elevation is 10.6 it will change to 9.05
01-21-2016
04:29 AM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
01-21-2016
04:29 AM
communitysciences wrote:
The elevations are text. I do not need to move them i need to minus out 1.55 from each. For example if the elevation is 10.6 it will change to 9.05
The elevations are text. I do not need to move them i need to minus out 1.55 from each. For example if the elevation is 10.6 it will change to 9.05
Give this a shot.
;;;
(defun c:addval ( / inc ss ent obj str num i)
(setq inc (getreal "\n Enter increment: "))
(setq ss (ssget '((0 . "MTEXT,TEXT"))) i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq obj (vlax-ename->vla-object ent))
(setq str (vla-get-TextString obj))
(setq num (distof str))
(vla-put-TextString obj (rtos (+ num inc) 2 2))
(setq i (1+ i))
)
(princ)
)
;;;
It will accept a negative value for the increment.
If you are not sure what to do with lisp code, see this.