anchor.diff:    ; 3D Modelling setup
     (defun c:1()  (princ "\n3D POLYLINE\n") (command "_.3dpoly" pause) (princ))
     (defun c:11() (princ "\nJOIN\n") (command "_.join" pause) (princ))
  +  (defun c:111 ( / x )
  +    (princ "\n3D POLYLINE CLICKING LEVELS\n")
  +    (command "_.3dpoly")
  +    (while T (command (list (nth 0 (setq x (getpoint "\nSelect XY position: "))) (nth 1 x) (DT:clic_or_type_level)) ))
  +    (princ)
  +  )
     (defun c:2()
       (princ "\nADD VERTICES\n")
       (if c:ktf_3dpladvx
  
positive.code:   (defun c:cheatsheet() (alert
      "3D MODELLING CHEATSHEET\n
      Draw:
          1\t3dpoly\n
      Modify:
          11\tjoin
          2\tadd vertices
  
negative.code:   "))
    (princ "\n3D MODELLING SETUP COMPLETED")(princ)
  
    ; v0.2 - 2017.03.21 - 111 added
    ; v0.1 - 2017.03.20 - c:3dpt added
    ;                   - Load KTF functions if needed
    ; v0.0 - 2017.02.24 - First issue
    ; Author: David Torralba
    ; Last revision: 2017.03.21
  )
  (defun c:TitSet ()
    ; Title Block setup
  