anchor.diff:    ; Author: David Torralba
     ; Last revision: 2017.04.10
   )
  +(defun c:xx ( / ent_name )
  +  ; Add "VC" to selected sewer label and relocate it
  +  (if (DT:ReplaceText
  +        (setq ent_name (car (entsel "\nSelect sewer label to add \"VC\": ")))
  +        "@ 1"
  +        "VC @ 1"
  +      );END DT:ReplaceText
  +    (DT:FastMove ent_name)
  +  );END if
  +
  +  ; v0.0 - 2017.04.20 - First issue
  +  ; Author: David Torralba
  +  ; Last revision: 2017.04.20
  +)
  +(defun c:xx ( / ent_name )
  +  ; Replace "VC" for "CO" at selected sewer label and relocate it
  +  (if (DT:ReplaceText
  +        (setq ent_name (car (entsel "\nSelect sewer label to add \"VC\": ")))
  +        "VC @ 1"
  +        "CO @ 1"
  +      );END DT:ReplaceText
  +    (DT:FastMove ent_name)
  +  );END if
  +
  +  ; v0.0 - 2017.04.21 - First issue
  +  ; Author: David Torralba
  +  ; Last revision: 2017.04.21
  +)
  +(defun c:xx ( / ss size )
  +  ; Find to every sewer label and mark them if they are DN300 or bigger and they have "VC"
  +  (if (setq ss (ssget "x" '( ( 0 . "TEXT") )))
  +    (foreach a (ssnamex ss)
  +      (if (= 'ename (type (cadr a)))
  +        (if (>= (DT:GetSewerSize (cadr a)) 300)
  +          (if (= "VC" (substr (DT:GetText (cadr a)) 13 2))
  +            (vlax-put-property (vlax-ename->vla-object (cadr a)) 'Color 2)
  +          );END if
  +        );END if
  +      );END if
  +    );END foreach
  +  );END if
  +
  +  ; v0.0 - 2017.04.21 - First issue
  +  ; Author: David Torralba
  +  ; Last revision: 2017.04.21
  +)
  
positive.code: ; Set blue color to selected object
  (vlax-put-property (vlax-ename->vla-object (car (entsel "\nSelect object to be blue: "))) 'Color 5))
  (defun c:00(/ ss ) (setq ss (ssget "p")) (command "._SetByLayer" ss "" "y" "y"))
  
  (defun c:kk ()
    (vlax-map-collection
      (vla-get-blocks
        (vla-get-activedocument
          (vlax-get-acad-object)
        ); END vla-get-activedocument
      ); END vla-get-blocks
      '(lambda (x)
        (and
        (vlax-property-available-p x 'explodable)
        (eq (vlax-get-property x 'explodable) :vlax-true)
        (not (vlax-put-property x 'explodable :vlax-false)))
      )
    ); END vlax-map-collection
  )
  (defun c:9( / VL_ent_name )
    (setq VL_ent_name (vlax-ename->vla-object (car (entsel "\nSelect centerline: "))))
      ;(vlax-property-available-p VL_ent_name 'explode)
  
negative.code: (defun c:1() (princ "\nRoad")     (command "-hatch" "LA" "e-sec38-road"     "CO" "." "." "P" "SOLID" "1" "" (getpoint) "")(princ))
  (defun c:2() (princ "\nFootpath") (command "-hatch" "LA" "e-sec38-footpath" "CO" "." "." "P" "SOLID" "1" "" (getpoint) "")(princ))
  (defun c:3() (princ "\nVerge")    (command "-hatch" "LA" "e-sec38-verge"    "CO" "." "." "P" "SOLID" "1" "" (getpoint) "")(princ))
  (defun c:1()
  ; Draw kerbing polyline with 0.2 width and 150 color
    (princ "\nPOLYLINE. Width 0.2 and color 150")
  