anchor.diff:      "3D MODELLING CHEATSHEET\n
       Draw:
           1\t3dpoly
  -        111\t3dpoly click\n
  +        111\t3dpoly click
  +        4\tspot levels\n
       Modify:
           11\tjoin
           2\tadd vertices
  
positive.code:         3\t3D offset
          33\tup/down\n
      Strings:
          4\t3d junction
          44\tmasterstring\n
    "))
    (princ "\n3D MODELLING SETUP COMPLETED")(princ)
  
    ; v0.3 - 2017.06.22 - 4 added
    ;                   - 44 added
    ; v0.2 - 2017.03.21 - 111 added
  
negative.code:   ; v0.0 - 2017.07.28 - First issue
    ; Author: David Torralba
    ; Last revision: 2017.07.28
  )
  (defun c:3DSpotLevel ( / escapeVariable xy z )
    ; Draw spot level in 3D
    (while (not escapeVariable)
      (if (setq xy (getpoint "\nSelect XY position: "))
        (if (setq z (DT:clic_or_type_level))
          (entmakex
            (list
              (cons 0 "POINT")
              (cons 10 (list (nth 0 xy) (nth 1 xy) z))
            );END list
          );END entmakex
          (setq escapeVariable T)
        );END if
        (setq escapeVariable T)
      );END if
    );END while
  
    ; v0.0 - 2017.08.14 - First issue
    ; Author: David Torralba
    ; Last revision: 2017.08.14
  )
  (defun DT:OffsetPartM ( ent_name / VL_ent_name p p0 p1 ang )
    ; Move Part M blocks 0.302 toward the inner part of the building (= BlockRotation - 90º)
  