anchor.diff:    (defun c:cheatsheet() (alert
       "3D MODELLING CHEATSHEET\n
       Draw:
  -        1\t3dpoly\n
  +        1\t3dpoly
  +        111\t3dpoly click\n
       Modify:
           11\tjoin
           2\tadd vertices
  
positive.code:   ; 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:2()
      (princ "\nADD VERTICES\n")
      (if c:ktf_3dpladvx
  
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
  