anchor.diff:    ); END while
     (princ)
   )
  -(defun c:s ()
  -(command "-text" (cadr (grread 't)) "0.3" "" (strcat "S" (rtos (getreal"\nPica el nivel: ") 2 3)))
  -(princ)
  -)
  -(defun c:ct()
  -  ; Copy any nested string into the clipboard
  -  (CopyToClipboard (DT:destripar_txt))
  -)
  -
  -(defun c:k1()
  -	(command "ncopy" pause "" "" "")
  -	(command "MATCHPROP" objeto_base "L" "")
  -	(exit)
  -)
  -(defun c:HAS()
  -	(command "-hatch" "S" (ssget) "" "")
  -	(princ)
  -)
  -
  -(defun c:k2 ( / pt)
  -	(command "-text" "S" "ROMANS" "J" "M" (setq pt (cadr (grread 't))) "1.5" "90" (getstring 't "\nMete texto: "))
  -  (princ "\nPunto = ")(princ pt)
  -;	(c:rt)
  -)
  -
  -(defun c:2() (command ".-insert" "Twin Garage 22 35-42 48-55 58-63 82-87 93 29.03.16" pause 1000 1000 pause))
  -(defun c:1() (command ".-insert" "Single Garage 29.03.16" pause 1000 1000 pause))
  -
  -
  -(defun c:1()
  -  (command "-text" "S" "ROMANS" (getpoint "\nElige punto: ") "0.3" "90" (strcat "F" (LM:rtos (- (DT:level_detection) 0.75) 2 2) ))
  -  (princ)
  -)
  -
  -(defun c:1(/ p1)
  -	(command ".-insert" "Private-Square300-Foul-Manhole" (setq p1 (getpoint)) 1 1 0)
  -	(while (not kkkkk)
  -		(command ".pline" p1 pause "")
  -	)
  -)
  -(defun c:2(/ p1)
  -  (princ "\nSelect point to insert RWP: ")
  -	(command ".-insert" "e-psd-rwp" (setq p1 (getpoint)) 1 1 0)
  -	(command ".line" p1 pause "")
  -)
  -(defun c:3(/ p1)
  -	(setvar "OSMODE" 4)
  -	(setq p1 (getpoint))
  -	(command ".line" p1 pause "")
  -)
  -(defun c:2 ( / pt)
  -	(command "-text" "S" "ARIAL" "J" "BC" (getpoint "\nSelect insertion point") "0.5" "90" (getstring "\nIntroduce text: "))
  -)
   (defun c:1 ( /
   									ent p0 p1 pm12 d level
   								)
  
positive.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))
  
  ;EngArch Surfacing
  (defun c:1()
    (while (not kkk)
      (princ "\nRoad")
      (command "-hatch" "CO" "." "." "P" "AR-HBONE" "7" "" "A" "A" "N" "" (getpoint) "")
    )
    (princ)
  )
  (defun c:2()
    (while (not kkk)
      (princ "\nFootpath")
      (command "-hatch" "CO" "." "." "P" "DOTS" "350" "" "A" "A" "N" "" (getpoint) "")
    )
    (princ)
  )
  (defun c:3()
    (while (not kkk)
      (princ "\nVerge")
      (command "-hatch" "CO" "." "." "P" "SQUARE" "200" "" "A" "A" "N" "" (getpoint) "")
    )
    (princ)
  )
  (defun c:1()
  ; Draw kerbing polyline with 0.2 width and 150 color
    (princ "\nPOLYLINE. Width 0.2 and color 150")
  
negative.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:9( / VL_ent_name )
    (setq VL_ent_name (vlax-ename->vla-object (car (entsel "\nSelect centerline: "))))
      ;(vlax-property-available-p VL_ent_name 'explode)
  