Topic: ( Challenge ) Change Z value

[Mark]

Level: Beginner

Write a program that will change the Z value of selected (D)TEXT.

Example:
Select (D)TEXT to elevate:
Select point with desired elevation:

[nivuahc]

nice  :kewl:

should be a good'n

[T.Willey]

Do you want to add to the value of the dtext? or just change it to that value?  Below will put the value of Z to what you enter.  If you want to add it, it won't be that hard either, change a couple of lines.

Code: [Select]

(defun c:ChangeTextZ (/ ss ValZ cnt Ent EntData Num InsPt)

(if
 (and
  (setq ValZ (getdist "\n Enter new Z value: "))
  (setq ss (ssget '((0 . "TEXT"))))
  (setq cnt -1)
 )
 (while (setq Ent (ssname ss (setq cnt (1+ cnt))))
  (setq EntData (entget Ent))
  (setq Num
   (if
    (and
     (equal (cdr (assoc 72 EntData)) 0)
     (equal (cdr (assoc 73 EntData)) 0)
    )
    10
    11
   )
  )
  (setq InsPt (cdr (assoc Num EntData)))
  (entmod
   (subst
    (cons Num (list (car InsPt) (cadr InsPt) ValZ))
    (assoc Num EntData)
    EntData
   )
  )
  (if (equal Num 11)
   (entmod
    (subst
     (cons
      10
      (list
       (car (cdr (assoc 10 EntData)))
       (cadr (cdr (assoc 10 EntData)))
       ValZ
      )
     )
     (assoc 10 EntData)
     EntData
    )
   )
  )
 )
)
(princ)
)

[LE]

Do you want to add to the value of the dtext? or just change it to that value?  Below will put the value of Z to what you enter.  If you want to add it, it won't be that hard either, change a couple of lines.

Level: Beginner

 

 

[T.Willey]

Do you want to add to the value of the dtext? or just change it to that value?  Below will put the value of Z to what you enter.  If you want to add it, it won't be that hard either, change a couple of lines.

Level: Beginner

 

 

I like giving options.  What can I say.

[Mark]

Do you want to add to the value of the dtext? or just change it to that value?

Either will work and be just as fun.

[LE]

Beginner's solution:

Code: [Select]

(defun C:CHDTEXTE  (/ ss elev)
  (if (setq ss (ssget '((0 . "TEXT"))))
    (progn
      (if (not def)
(setq def 0.0))
      (setq elev (getdist (strcat "\nSpecify new elevation <" (rtos def) ">: ")))
      (if (not elev)
(setq elev def)
(setq def elev))
      (setvar "cmdecho" 0)
      (command "_.CHANGE" ss "" "_P" "_ELEV" elev "")
      (setvar "cmdecho" 1)))
  (princ))
(princ)


[LE]

Or...

Code: [Select]

(defun C:CHTXTE (/ ss)
  (if (setq ss (ssget '((0 . "TEXT"))))
    (command "_.CHANGE" ss "" "_P" "_ELEV" pause ""))
  (princ))
(princ)


[T.Willey]

Good point Luis, but I like to teach beginners the code way.

[LE]

Good point Luis, but I like to teach beginners the code way.

I know... and it is good... I am just having fun going back some moons back.... 

Code: [Select]

(defun C:CHTXTE ()
  (vl-cmdf "_.CHANGE" (ssget '((0 . "TEXT"))) "" "_P" "_ELEV" pause "")
  (princ))


[LE]

And by the way I still and always will, to consider my self a beginner...  :kewl:

[T.Willey]

And by the way I still and always wil,l to consider my self a beginner...  :kewl:

Me too.

[MP]

Methane alert.

[Bob Wahr]

Because I reject lisp(and all other things in parenthesis(except for those things that need them))

Code: [Select]

Option Explicit
Public Sub PointZ()
  Dim varPoint As Variant
  Dim varPick As Variant
  Dim strKeyword As String
  Dim strHow As String
  Dim objDtext As AcadText
 
  On Error GoTo BrokeDown
 
  varPoint = ThisDrawing.Utility.GetPoint(, "Pick a point: ")
  ThisDrawing.Utility.GetEntity objDtext, varPick, "Pick some text: "
  strKeyword = "Append Overwrite"
  ThisDrawing.Utility.InitializeUserInput 0, strKeyword
  strHow = ThisDrawing.Utility.GetKeyword("Append or [Overwrite]: ")
  If strHow = "Append" Then
    objDtext.TextString = objDtext.TextString & " " & varPoint(2)
  Else
    objDtext.TextString = "El. = " & varPoint(2)
  End If
 
Bounce:
 Exit Sub
 
BrokeDown:
  Select Case Err.Number
    Case 13
      ThisDrawing.Utility.Prompt "That's not a piece of text" & vbCrLf
      Err.Clear
      Resume
    Case Else
      Debug.Print Err.Number
      Debug.Print Err.Description
      Error.clr
      MsgBox "Program fall down go boom!", vbCritical, "Ka-POW"
      GoTo Bounce
  End Select
End Sub


[Bob Wahr]

Actually, by way of clarification, when you said "point" did you mean mouse click somewhere in space or did you want it done by selecting a point object?