Blog ng Ambisyosong Manunulat...

Total Pageviews

Thursday, September 28, 2017

Registry Of Deeds Offices (R4, R5 and R6)

To all Geodetic Engineers and ordinary Filipinos requesting  Certified True Copy of Land Titles, 
Here are the List of office addresses and Mobile Numbers. enjoy.
Link: http://www.lra.gov.ph/index.php?page=directory


OFFICE OF THE REGISTER OF DEEDS

> There shall be at least one Register of Deeds for each province and one for each city
> Secretary of Justice: defines the official station and territorial jurisdiction of each Registry upon the recommendation of the LRA administrator, with the end in view of making every Registry easily accessible to the people of the neighboring municipalities
> Register of Deeds: appointed by the President upon recommendation of Secretary of Justice
> Deputy Registers and all subordinate personel of Register of Deeds shall be appointed by the Secretary of Justice upon the recommendation of the LRA Administrator
> Both the Register and his deputies must be members of the Bar
“Deputy Registers may already new or change. “


REGION 4

BATANGAS, BATANGAS
Registrar of Deeds: Atty. Eva G. Valenton
Address: Old SWA Building, Doña Aurella Avenue, Kumintang Ibaba, Batangas City
Telephone: (043) 723-2259

BATANGAS CITY
Registrar of Deeds: Atty. Neil Adrian B. Pargas
Address: Quinio Street, Sitio Santolan, Pallocan West, Batangas City 4200
Telephone: (043) 723-7697 / 0919-4580612

BOAC, MARINDUQUE
Registrar of Deeds: Mr. Leonardo D. Mendoza (OIC)
Address: Provincial Capitol Cmpd., Boac, Marinduque 4900

CALAMBA, LAGUNA
Registrar of Deeds: Atty. Casiano C. Arcillas
Address: JP Rizal Street, Calamba Laguna 4027

CALAPAN, MINDORO ORIENTAL
Registrar of Deeds: Atty. Edmund Dante E. Janda
Address: Quadro Aguas Sta. Isabel, Calapan City
Telephone: (043) 286-7036

CAVITE CITY
Registrar of Deeds: Atty. Rowaisa M. Pandapatan
Address: J. Ibanes Street, Canacao Bay, Brgy. 62-A, Samonte Park, Cavite City

CAVITE PROVINCE
Registrar of Deeds: Atty. Edgar D. Santos
Address: Ground Floor, Capitol Building, Barangay Luciano, Trece Martirez

INFANTA, QUEZON
Registrar of Deeds: Atty. Randy A. Rutaquio
Address: Brgy. Common, Infanta, Quezon 4336

LEMERY, BATANGAS
Registrar of Deeds: Atty. Gil R. Marasigan (Acting RD)
Address: Municipal Hall Building, Ilustre Avenue, Lemery, Batangas 4209

LIPA CITY
Registrar of Deeds: Atty. Mimi L. Aquino-Santos
Address: Rm. 7 Ground flr. New City Hall, Marauoy, Lipa City 4217

LUCENA CITY
Registrar of Deeds: Atty. Patrick Heinrich Wendell R. Ilagan
Address: Ground Floor City Hall Annex Bldg., Isabang, Lucena City
Telephone: (042) 710-2072

LUCENA, QUEZON PROVINCE
Registrar of Deeds: Atty. Sherwin M. Fernandez
Address: 2F Lucena Grand Central Terminal beside DILG Office, Brgy. Ilayang Dupay, Lucena City

MAMBURAO, MINDORO OCCIDENTAL
Registrar of Deeds: Mr. Mariel A. Ponce (OIC)
Address: Capitol Compound, Mamburao, Mindoro Occidental 5106
Telephone: (043) 711-5006

NASUGBU, BATANGAS
Registrar of Deeds: Atty. Abraham N. Vermudez
Address: RD Building, JP Rizal Street, Nasugbu, Batangas

PUERTO PRINCESA CITY
Registrar of Deeds: Atty. Ma. Rachel Fe F. Dilig
Address: Room 115, City Hall Building, Sta. Monica, Puerto Princesa City 5300
Telephone: (048) 433-2528

PUERTO PRINCESA, PALAWAN
Registrar of Deeds: Atty. Maricar O. Misa-Tan
Address: Ground Floor, Capitol Bldg., Rizal Street, Puerto Princesa City 5300

ROMBLON, ROMBLON
Registrar of Deeds: Ms. Myrna R. Rosales (OIC)
Address: Barangay Capalan, Romblon 5500

SAN JOSE, MINDORO OCCIDENTAL
Registrar of Deeds: Ms. Mariel A. Ponce
Address: Municipal Compound, Rizal Street, San Jose, Mindoro Occidental 5100

SAN PABLO CITY
Registrar of Deeds: Atty. Antonieta C. Lamar
Address: Doña Leonila Park, Capitol Compound, San Pablo City 4000
Telephone: (049) 562-3342

SINILOAN, LAGUNA
Registrar of Deeds: Atty. Roy J. Arriola
Address: Siniloan Municipal Hall, Siniloan, Laguna 4019

STA. CRUZ, LAGUNA
Registrar of Deeds: Atty. Edwin S. Lagac
Address: R.D. Old Capitol Bldg. Sta Cruz, Laguna

TANAUAN CITY, BATANGAS
Registrar of Deeds: Atty. Gil R. Marasigan
Address: Mayapis St., Mt. View Subd., Brgy. Poblacion 3, Tanauan City

TRECE MARTIREZ, CAVITE
Registrar of Deeds: Atty. Rowaisa M. Pandapatan (Concurrent Acting RD)
Address: Ground Floor, City Hall, Barangay San Agustin, Trece Martirez City 4109

TAGAYTAY CITY
Registrar of Deeds: Atty. Robert B. Salcedo
Address: Akle Street, Barangay Kaybagal South, Tagaytay City 4120



REGION 5

LEGASPI, ALBAY PROVINCE
Registrar of Deeds: Atty. Hector R. Cledera
Address: Terminal Road 3, Brgy. Bitano, Legaspi City

DAET, CAMARINES NORTE
Registrar of Deeds: Atty. Emmanuel R. Tuy
Address: Magang Beige Street, Daet, Camarines Norte 4600

IRIGA CITY
Registrar of Deeds: Ms. Winefreda L. Villareal
Address: 2/F, Peñafrancia Savings & Loan Asso. Inc. (PSLAI) Bldg., San Roque, Iriga City 4431
Telephone: (054) 299-2410

LEGASPI CITY
Registrar of Deeds: Atty. Ruperto C. Gadia
Address: Terminal Road 3, Brgy. Bitano, Legaspi City
Telephone: (052) 820-1896

MASBATE, MASBATE
Registrar of Deeds: Mr. Placido A. Lozano Jr. (OIC)
Address: Provincial Capitol Bldg., Masbate City 5400

NAGA CITY, CAMARINES SUR
Registrar of Deeds: Atty. Glenn R. Perillo
Address: City Hall Compound, J. Miranda Avenue, Naga City 4400
Telephone: (054) 473-2046

NAGA, CAMARINES SUR PROVINCE
Registrar of Deeds: Mr. Victoriano D. Caubang II
Address: Hospital Rd., Panganiban Drive, Naga City 4400

SORSOGON, SORSOGON
Registrar of Deeds: Mr. Elmer C. Jimena
Address: Capitol Compound, Sorsogon City, 4700

VIRAC, CATANDUANES
Registrar of Deeds: Mr. Emmanuel T. Sosito
Address: Ist Floor, Provincial Capitol Building, Virac, Catanduanes 4900



REGION 6

BACOLOD CITY, NEGROS OCCIDENTAL
Registrar of Deeds: Atty. Bonifacio L. Kho
Address: Justice Hall, Bacolod City 6100
Telephone: (034) 434-0453

BAGO CITY
Registrar of Deeds: Ms. Carolyn C. Chavez (OIC)
Address: Hall of Justice Building, Bago City, Negros Occidental 6101

CADIZ CITY
Registrar of Deeds: Atty. Romulo E. Gonzaga
Address: Cadiz City Hall, Cabahug Street, Cadiz City, Negros Occidental 6121

ILOILO CITY / GUIMARAS
Registrar of Deeds: Atty. Giovanni Alfonso F. Miraflores/Ms. Mara M. Ausan (OIC of RD-Guimaras)
Address: LRA Building, Muelle Loney Street, Iloilo City 5000
Telephone: (033) 899-8605 / 896-1663

ILOILO PROVINCE
Registrar of Deeds: Atty. Marjorie Ann S. Tiu-Manikan
Address: LRA Building, Muelle Loney Street, Iloilo City 5000
Telephone: (033) 337-9582

KABANKALAN CITY, NEGROS OCCIDENTAL
Registrar of Deeds: Ms. Carolyn C. Chavez (OIC)
Address: Old City Hall Building, Kabankalan City
Telephone: (033) 337-9582

KALIBO, AKLAN
Registrar of Deeds: Atty. Victor E. Tesorero
Address: Capitol Site, Kalibo, Aklan 5600
Telephone: (036) 268-2096

LA CARLOTA CITY, NEGROS OCCIDENTAL
Registrar of Deeds: Atty. Romulo E. Gonzaga

Address: 2nd Floor, New Annex Building, Agora Complex, La Carlota City, Negros Occidental 6130
Telephone: (034) 460-3284

NEGROS OCCIDENTAL PROVINCE
Registrar of Deeds: Atty. Romulo E. Gonzaga
Address: HOJ Building, Gatuslao Street, Bacolod City, Negros Occidental 6100

ROXAS, CAPIZ PROVINCE
Registrar of Deeds: Atty. Rochelle R. Gregorio-Dadivas
Address: 3rd Floor, Room 6, Capiz Government and Business Center Bldg., Fuentez Drive, Roxas City, Capiz
Telephone: (033) 321-0678

ROXAS CITY
Registrar of Deeds: Atty. Julie Mae Monique M. Abela
Address: Bangbang Street, Roxas City 5800
Telephone: (036) 621-1430

SAN CARLOS CITY, NEGROS OCCIDENTAL
Registrar of Deeds: Atty. Bonifacio L. Kho
Address: Ground Floor, City Hall Building, F.C. Ledesma Avenue, Barangay Palampas, San Carlos City, Negros Occidental 6127
Telephone: (034) 312-6546

SAN JOSE, ANTIQUE
Registrar of Deeds: Mr. Jose Leo A. Casibual (OIC)
Address: Old Capitol Bldg., San Jose, Antique 5700

SILAY CITY
Registrar of Deeds: Atty. Jalore Bolivar
Address: City Hall, Silay City
Telephone: (034) 495-0061-70 loc. 38



Wednesday, September 27, 2017

Trivia 101: 02.Twelve Apostles

(Since Childhood, I enjoyed more about reading and writing general information. In my school days, I even go to Library to learn more and patiently searching. Now as an adult, not only searching and reading but also sharing. Enjoy)

 “Day unto day uttereth speech, and night unto night sheweth knowledge.”
Psalm 19:2 King James Version (KJV)


Twelve Apostles
According to the list occurring in each of the Synoptic Gospels (Mark 3:13-19, Matthew 10:1-4, Luke 6:12-16), the Twelve chosen by Jesus near the beginning of his ministry, those whom also He named Apostles.

  1.       . Peter
  2.          James
  3.         John
  4.         Andrew
  5.          Bartholomew or Nathanael
  6.          James, the Lesser or Younger
  7.          Judas
  8.          Jude or Thaddeus
  9.          Matthew or Levi
  10.          Philip
  11.          Simon the Zealot
  12.          Thomas

Who replaced Judas Iscariot?
Matthias was selected to replace Judas as recorded in Acts 1:15-26. The other man who was also in consideration was named Joseph or Barsabas, and surnamed Justus. Lots were cast and eventually Matthias was chosen. Acts 1:24-26 records the following, "And they prayed and said, “You, O Lord, who know the hearts of all, show which of these two You have chosen to take part in this ministry and apostleship from which Judas by transgression fell, that he might go to his own place.” And he was numbered with the eleven apostles.” The Bible is sparse on additional details relating to Matthias, but it does say that Matthias was with Jesus since His baptism until his resurrection. Besides the book of Acts, Matthias isn’t mentioned anywhere else in the Bible. According to historical sources Matthias lived til 80 A.D. and spread the gospel on the shores of the Caspian and Cappadocia.

                       How did the 12 disciples die?
1.       Andrew = Crucified on an X-shaped cross
2.       Bartholomew or Nathanael = Flayed alive with knives
3.       James the elder = First apostle martyred
4.       James the lesser = Sawn in pieces
5.       John = Died of natural causes on the isle of Patmos
6.       Judas Iscariot = Hung himself
7.       Jude or Thaddeus = Killed with arrows
8.       Matthew or Levi = Martyred in Ethiopia
9.       Peter = Crucified upside-down on a cross
10.   Philip = Died by hanging
11.   Simon the Zealot = Died a martyrs death
12.   Thomas = Killed with a spear





Trivia 101: 01. United States of America

(Since Childhood, I enjoyed more about reading and writing general information. In my school days, I even go to Library to learn more and patiently searching. Now as an adult, not only searching and reading but also sharing. Enjoy)

 “Day unto day uttereth speech, and night unto night sheweth knowledge.”
Psalm 19:2 King James Version (KJV)









United States of America (USA)

Capital: Washington DC













The 50 U.S. states, in alphabetical order,

  1.  Alabama
  2.  Alaska
  3.  Arizona
  4.  Arkansas
  5.  California
  6.  Colorado
  7.  Connecticut
  8.  Delaware
  9.  Florida
  10.  Georgia
  11.  Hawaii
  12.  Idaho
  13.  Illinois
  14.  Indiana
  15.  Iowa
  16.  Kansas
  17.  Kentucky
  18.  Louisiana
  19.  Maine
  20.  Maryland
  21.  Massachusetts
  22.  Michigan
  23.  Minnesota
  24.  Mississippi
  25.  Missouri
  26.  Montana
  27.  Nebraska
  28.  Nevada
  29.  New Hampshire
  30.  New Jersey
  31.  New Mexico
  32.  New York
  33.  North Carolina
  34.   North Dakota
  35.  Ohio
  36.  Oklahoma
  37.  Oregon
  38.  Pennsylvania
  39.  Rhode Island
  40.  South Carolina
  41.  South Dakota
  42.  Tennessee
  43.  Texas
  44.  Utah
  45.  Vermont
  46.  Virginia
  47.  Washington
  48.  West Virginia
  49.  Wisconsin
  50.  Wyoming

 =https://en.wikipedia.org/wiki/U.S._state

Tuesday, September 26, 2017

1 Million Pesos


























What will you do if you won a million pesos?
One million pesos is worth such as follows for simple understanding.

House?



Business?
Winning one million pesos is a huge opportunity to open my own bistro, coffee shop or desert house. It’s my long-time dream to open such business and it could be possible with one million pesos. And, I will gladly and immediately invest the money on a business.

Business Franchise.



Car?

MAZDA 2 SKYACTIV R
"For those who are looking for family transport, we would point them to the larger 3. If it’s just you plus one significant other, the 2 will have you grinning each time you look at it, and more so when you start to drive."

SUZUKI CELERIO 1.0 CVT
"If it isn't apparent to you yet at this point, the Celerio is a winner. The old car was a good one, but it was rather toy-like compared to its competitors. This new one easily matches the big boys in terms of utility, while exceeding them in terms of quality and economy. It takes Suzuki from the sidelines of the maxi-mini fight and straight into the thick of the action."


Im always thinking having a million pesos, wow and still not decided what and where I gonna put it.
But from reading and surfing the net, many suggesting putting in mutual funds. Some saying Investing or use in business. And yes they are right this is the best thing to do.
“1 million pesos now is not a big deal. Going travel with matching party celebration, buying personal and house things/accessories that amount will easily vanished if not use it properly and responsibly.”



Ive been amaze on suggestion of this link. Nice work how he explain he gonna do to one million.

With his final word, its gonna be encouraging to use and manage it in a good way.
“One million pesos seems to be a big amount of money to other people but for some people it may be just a small amount. Anyhow, it is still a sufficient amount of money that you must use and invest properly.”


Here are the Ways to make a million pesos, from experts.

-Change your mindset.
-Set up your timeline.
-Protect yourself financially.
-Invest!.



 Note:


Lost Iqama/Resident ID




I’ve been  here in the Kingdom (Saudi Arabia) for almost five years already and this is my first time to lost anything. Its been so much hurt because I lost the important documents you must have in this foreign country, the resident ID. Without this ID you cannot transact anything in government or private agency. It’s a very important thing you must have and gonna carry it always anywhere you go.

First we must know what is and iqama/resident ID.
An iqama is a residence permit issued to those expatriates who arrive in Saudi Arabia on an employment visa. The Iqama is valid for a period of 1-2 years. This is an essential document and may be requested at banks, hospitals, and several other places. It provides an expatriate with legal residence permit for Saudi Arabia, for the period of its validity.
It must be noted that Saudi Embassies across the world deal only with registered visa agents and not directly with individuals. The authorized visa agency can submit the visa application on behalf of individuals. Therefore, it is imperative to go through a registered agent at the time of processing your visa. Further, it is also important to be aware that the visa process may be both time consuming and tedious. Therefore, prospective employees must be patient and thorough with their paperwork.
Based on our experience with various registered visa agencies, we have identified few agencies which have better turnaround time than others.   ICEAT would recommend one such agency to you. You will need to contact the agency as early as possible in order to process your visa.
A checklist provided in the following pages will provide you with a list of required documents that will help you in procuring the relevant documents for the visa application.
After I lost my iqama ive been restless everytime. Ive walking anywhere I go on the previous day and hoping everytime that gonna found it or someone gonna call to return it. By the way I lost my wallet and iqama is inside of it.
After one to two days searching I declared I cannot found it anymore that’s why I inform already the manager then the company GRO regarding this.

1. The GRO go to Passport Office to take some documentforms to be filled up. Filled up all the details of Iqama and the Passport including the reason of losing the ID and where it lost.
Paste a ID picture to it with the thumbmarks. Then go back to passport office. A police officers check it then do some encoding in their database then infoem us to pay at the atm bank.
2. After paying, goback again to passport office to take the newly printed ID.

That’s the time I got peace of mind after having already iqama. I even cannot go outside because of this lost.

Its been a lesson for me and being thankful. Always stay calm and inform your company if this happen.

For more detailed Procedure visit this link.




=ID Sample
https://www.google.com.sa/search?safe=strict&biw=1366&bih=648&tbm=isch&sa=1&q=saudi+arabia+iqama+sample&oq=saudi+arabia+iqama+sample&gs_l=psy-ab.3...13622.15353.0.15681.7.7.0.0.0.0.281.763.2-3.3.0....0...1.1.64.psy-ab..4.1.262...0.0.13WSSfwypjA#imgrc=GVGsfVYoCozoiM:



Tuesday, June 14, 2016

Election 2016

Natapos na naman ang election, masaya ka ba? Panalo o natalo ang kandidato mo, magbabago ba buhay mo? Ano sa tingin nyo?
Anyway...
Eto nga pala mga nanalong Pangulo, Bise at mga senador.

"Wag mong iasa ang inaasahan mong pagbabago sa mga pulitiko, yan ay nag uumpisa sa sarili mo mismo"

Pangulo: Rodrigo Duterte
Pangalawang Pangulo: Leni Robredo

Mga Senador
1.Franklin Drilon
2.Joel Villanueva
3.Tito Sotto
4.Ping Lacson
5.Dick Gordon
6.Migz Zubiri
7.Manny Pacquiao
8.Kiko Pangilinan
9.Risa Hontiveros
10.Win Gatchalian
11.Ralph Recto
12.Leila de Lima

Oh Dating apelyedo, dating mga pangalan. Mga datihan na ano nga ba ang nagawa?

Tuesday, April 1, 2014

Computing Area of a Polygon with Text Label

(defun c:car ( / o1 ipt opp parea)
(setq clyer(getvar"clayer"))
(command "layer" "m" "polyline boundary" "")
(command "layer" "c" "2" "polyline boundary" "")
(command "color" "bylayer")
(setq ipt (getpoint "\n Select Internal Point: "))
(command "-Boundary" ipt"" "")
(setq o1 (entlast))
(redraw o1 3)
(command "area" "O" "L")
(setq opp (getvar "area"))
(initget 1)
(setq parea(getpoint"\n where to put area text"))
(command "layer" "m" "area text" "")
(command "layer" "c" "81" "area text" "")
(command "color" "bylayer")
(initget 1)
(command "text" parea "1"0 (rtos opp 2 2))
(setq elast(entlast))
(command "scale" elast"" parea)
(setvar"clayer"clyer)

)

Subdividing a Polygon Parallel to a Line

(defun ang_between (p10 p11 p20 p21 / px p1 p2 l_pt l_d p ang)
(setq px (inters p10 p11 p20 p21 nil))
(cond
(px
(if (> (distance px p10) (distance px p11)) (setq p1 p10) (setq p1 p11))
(if (> (distance px p20) (distance px p21)) (setq p2 p20) (setq p2 p21))
(setq
l_pt (list px p1 p2)
l_d (mapcar 'distance l_pt (append (cdr l_pt) (list (car l_pt))))
p (/ (apply '+ l_d) 2.0)
ang (* (atan (sqrt (/ (* (- p (car l_d)) (- p (caddr l_d))) (* p (- p (cadr l_d)))))) 2.0)
)
)
(T
nil
)
)
)
(defun c:divpar ( / pt1 pt2 pt3 pt4 S1 ang1 ang2 x1 x2 ptx1 ptx2)
  (setq pt1 (getpoint "\nFirst point of baseline: "))
  (setq pt2 (getpoint pt1 "\nSecond point of baseline: "))
  (setq pt3 (getpoint pt1 "\nPoint of first adjacent side: "))
  (setq pt4 (getpoint pt2 "\nPoint of second adjacent side: "))
  (setq S1 (getreal "\nWanted area: "))
  (setq ang1 (ang_between pt1 pt2 pt1 pt3))
  (setq ang2 (ang_between pt2 pt1 pt2 pt4))
  (setq ang1 (- pi ang1) ang2 (- pi ang2))
  (setq x1
    (*
      (/
        (* (distance pt1 pt2) (sin ang1))
        (sin (+ ang1 ang2))
      )
      (1-
        (+ ;or can be "-"
          (sqrt
            (1+
              (/
                (* 2.0 S1 (sin (+ ang1 ang2)))
                (* (distance pt1 pt2) (distance pt1 pt2) (sin ang1) (sin ang2))
              )
            )
          )
        )
      )
    )
  )
  (setq x2 (/ (* x1 (sin ang2)) (sin ang1)))
  (setq ptx1 (polar pt1 (angle pt1 pt3) x2))
  (setq ptx2 (polar pt2 (angle pt2 pt4) x1))
  (command "_.line" "_none" ptx1 "_none" ptx2 "")
)

Creating Polyline from Points

(vl-load-com)
 ;;; to make a 3d polyline*******************************************
 (defun c:pol (/ adoc spc ss cnt plst 3dline)
 (setq adoc(vla-get-activedocument(vlax-get-acad-object)))
 (setq spc(vlax-get adoc
 (if (equal (getvar "cvport") 1)
 'PaperSpace
 'ModelSpace
 );_if
 )
 );_setq
 (setq ss (ssget '((0 . "POINT"))));_select only point objects
 (if ss
 (progn
 (setq cnt 0);_loop counter
 (setq plst '());_empty list
   (while (< cnt (sslength ss))
 (setq plst (cons(cdr(assoc 10(entget (ssname ss cnt))))plst));_make point list
 (setq cnt (1+ cnt));_incerase counter
     );_while
 (setq 3dline (vla-add3dpoly ;_make 3d polyline
       spc
       (vlax-safearray-fill
  (vlax-make-safearray vlax-vbDouble
  (cons 0 (1- (length (apply 'append plst)))))
  (apply 'append plst)))
       );_setq add 3dpoly
 );_progn
 );_if
 (princ)
   );_defun
 ;;; to make a 3d  spline******************************************
 (defun c:spl (/ adoc spc ss cnt plst 3dline stpt ept)
 (setq adoc(vla-get-activedocument(vlax-get-acad-object)))
 (setq spc(vlax-get adoc
 (if (equal (getvar "cvport") 1)
 'PaperSpace
 'ModelSpace
 );_if
 )
 );_setq
 (setq ss (ssget '((0 . "POINT"))))
 (if ss
 (progn
 (setq cnt 0);_loop counter
 (setq plst '());_empty list
   (while (< cnt (sslength ss))
 (setq plst (cons(cdr(assoc 10(entget (ssname ss cnt))))plst))
 (setq cnt (1+ cnt));_incerase counter
     );_while
 (setq stpt (vlax-3d-point '(0.0 0.0 0.0)));_start pt for spline
 (setq ept (vlax-3d-point '(0.0 0.0 0.0)));_end pt for spline
 (setq cline (vla-addspline
       spc
       (vlax-safearray-fill
  (vlax-make-safearray vlax-vbDouble
  (cons 0 (1- (length (apply 'append plst)))))
  (apply 'append plst))
       stpt
       ept
       )
       );_setq add 3d spline
 );_progn
 );_if
 (princ)
   );_defun

Summation of All Polylines

(defun c:PolySum ( / SelSet Item SumLength EntName )
  (if (setq SelSet (ssget '((0 . "*POLYLINE" ))))
    (progn
      (vl-load-com)
      (setq Item 0 SumLength 0 )
      (repeat (sslength SelSet )
        (setq EntName (ssname SelSet Item ) )
        (setq SumLength (+ SumLength (vlax-curve-getDistAtParam EntName (vlax-curve-getEndParam EntName ))) )
        (setq Item (1+ Item ) )
      )
      (princ (strcat "\n" (itoa Item ) " polylines, total length = " (rtos SumLength )) )
    )
    (princ "..no POLYLINE selected " )
  )
  (princ)
)

Creating Traverse Line Using Bearing,Distance

; func dms final out put variable is strdeg
; convert angles in degs to rads
(defun dtr (a)
(* pi (/ a 180.00))
)

(defun rtd (a)
(/ (* a 180.00) pi)
)
(defun arl (/ ang ctrpt dist doc endpt ent half obj pick space ss1 ss2 stpt delta endang startang)
(vl-load-com)
(setq doc (vla-get-activedocument (vlax-get-acad-object))
space (if (= (getvar "cvport") 1)
(vla-get-paperspace doc)
(vla-get-modelspace doc)
)
)

(setq ss2 (ssget "L" '((0 . "LINE"))))


(setq obj (vlax-ename->vla-object (ssname ss2 0))
pick (vlax-get obj 'endpoint)
)

(setq half (/ (vla-get-length obj) 2.0)
dist (vlax-curve-getdistatpoint obj
(vlax-curve-getclosestpointto obj pick)))
(if (< half dist)
(setq stPt (vlax-get obj 'startpoint)
endPt (vlax-get obj 'endpoint)
)
(setq stPt (vlax-get obj 'endpoint)
endPt (vlax-get obj 'startpoint)
)
)
(setq rad (getdist endPt "\nRadius of arc: ")
ang (angle stPt endPt)
ctrPt (polar endPt (- ang (/ pi 2)) rad)
startang (+ pi (- ang (/ pi 2)))
delta (getangle "\nDelta or Enter to input arc length: ")
)
(if (= delta nil)
(progn
(setq arc (getreal "\nEnter Arc Length: ")
delta (* (/ arc rad) (/ 180 pi))
delta(abs (* pi (/ delta 180.0))))))


(if (minusp rad)
(setq startang (angle ctrPt endPt)
endang (+ startang delta))
(setq endang (angle ctrPt endPt)
startang (- startang delta))
)
(vlax-invoke space 'addarc ctrPt (abs rad) startang endang)
(setq curveobj (vlax-ename->vla-object (entlast))
endpoint (vlax-curve-getStartPoint curveobj)
startpoint (vlax-curve-getendPoint curveobj))
)

(princ)






(defun dms ()
(setq deg (getreal "\nEnter degs: "))
(if (= deg nil)
(setq deg 0))
(setq mins (getreal "\nEnter mins: "))
(if (= mins nil)
(setq mins 0))
(setq sec (getreal "\nEnter secs: "))
(if (= sec nil)
(setq sec 0))
(setq ang_degs (+ deg (/ mins 60.0) (/ sec 3600.0))))

;error trapper
(defun c:trav (/ *error*)
(setq b (getvar "osmode"))

(defun *Error* (Err)
(cond
(or
(not Err)
(member Err (quote ("console break" "Function cancelled" "quit
/ exit abort")))
)
)
(princ (strcat "\nError: " Err))

(if b
(setvar "osmode" b)
)

(princ)
)



(setq b (getvar "osmode"))
(setvar "osmode" 0)
(graphscr)
(setq Stpt (Getpoint "\nPick starting point or Enter for Lastpoint: "))
(if (null stpt)(setq stpt (getvar "LASTPOINT")))

(while (setq d (getstring "\nEnter Distance or [Arc]: "))
(if (= (strcase d) "A")
(progn
(arl)
(if (minusp rad)
(setvar "lastpoint" startpoint)
(setvar "lastpoint" endpoint))
(c:trav))
(progn
(setq d (atof d))
(print "4=NW | 1=NE")
(print "-----+----- 5=Last bearing")
(print "3=SW | 2=SE Enter quadrant: ")
(initget "1 2 3 4 5")
(setq quad (atof (getKword)))
(if (= quad 5)(setq bear bear)
(progn
(dms)
(cond ((= quad 1)(setq bear (- 90.0 ang_degs)))
((= quad 2)(setq bear (+ 270.0 ang_degs)))
((= quad 3)(setq bear (- 270.0 ang_degs)))
((= quad 4)(setq bear (+ 90.0 ang_degs)))
); end cond
); end progn
); end if
))




(setq newpt (polar stpt (dtr bear) d))
(command "LINE" stpt newpt "")
(setq stpt newpt)
(setvar "LASTPOINT" newpt)

(cond
((= quad 1) (princ (strcat "N" (rtos deg 2 0) "-" (rtos mins 2 0) "-" (rtos sec 2 0) "E" " " "Dist=" (rtos d 2 2))))
((= quad 2) (princ (strcat "S" (rtos deg 2 0) "-" (rtos mins 2 0) "-" (rtos sec 2 0) "E" " " "Dist=" (rtos d 2 2))))
((= quad 3) (princ (strcat "S" (rtos deg 2 0) "-" (rtos mins 2 0) "-" (rtos sec 2 0) "W" " " "Dist=" (rtos d 2 2))))
((= quad 4) (princ (strcat "N" (rtos deg 2 0) "-" (rtos mins 2 0) "-" (rtos sec 2 0) "W" " " "Dist=" (rtos d 2 2))))
((= quad 5) (princ "\nUsed Last Bearing" ))
(t nil)

)

) ; end while
(*error* nil)
)

Labeling Elevation of a Point

(defun c:Pointlabel (/ #SS #Ent)
(and (setq #SS (ssget '((0 . "POINT"))))
(foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex #SS)))
(setq #Ent (entget x))
(entmakex (list
'(0 . "MTEXT")
'(100 . "AcDbEntity")
'(100 . "AcDbMText")
'(71 . 4)
;;(cons 50 (/ pi 4.))
(assoc 10 #Ent)
(cons 1 (rtos (caddr (cdr (assoc 10 #Ent))) (getvar "lunits") 2))
) ;_ list
) ;_ entmakex
) ;_ foreach
) ;_ and
(princ)
) ;_ defun

Friday, March 14, 2014

Registry of Deeds Offices (NCR, R1, R2, R3)


To all Geodetic Engineers and ordinary Filipinos requesting  Certified True Copy of Land Titles, 
Here are the List of office addresses and Mobile Numbers. enjoy.
Link: http://www.lra.gov.ph/index.php?page=directory


OFFICE OF THE REGISTER OF DEEDS

> There shall be at least one Register of Deeds for each province and one for each city
> Secretary of Justice: defines the official station and territorial jurisdiction of each Registry upon the recommendation of the LRA administrator, with the end in view of making every Registry easily accessible to the people of the neighboring municipalities
> Register of Deeds: appointed by the President upon recommendation of Secretary of Justice
> Deputy Registers and all subordinate personel of Register of Deeds shall be appointed by the Secretary of Justice upon the recommendation of the LRA Administrator
> Both the Register and his deputies must be members of the Bar

“Deputy Registers may already new or change. “


NATIONAL CAPITAL REGION (NCR)


Station: Manila

Registrar of Deeds: Atty. Carolina Ramos-Consunji
Deputy Registrar of Deeds: Atty. Gil Marasigan
Address: 2nd floor, Manila City Hall
Telephone #: 527-08-78/567-48-71/932-5348

Station: Quezon City

Registrar of Deeds: Atty. Carlo V. Alcantara
Deputy Registrar of Deeds: Atty. Myra Roby S. Puruganan
Address: LRA Compound, East Ave., Q.C. 1100
Telephone #: 441-11-67/920-14-86/426-24-86

Station: Makati City

Registrar of Deeds: Atty. Constante P. Caluya, Jr.
Deputy Registrar of Deeds: Atty. Teresita Montemayor, Atty. Dorylene S.B. Yara
Address: 5th floor, Makati City Hall, 1200
Telephone #: 896-16-63/896-56-35/899-86-05

Station: Pasay City

Registrar of Deeds: Atty. Robert M. Guillermo
Deputy Registrar of Deeds: 
Address: Ground floor, Pasay City Hall, 1300
Telephone #: 831-85-32

Station: Malabon/Navotas

Registrar of Deeds: Atty. Ricardo Vitug
Deputy Registrar of Deeds: 
Address: Casimiro St., Cor. MH Del Pilar, Tugatog, Malabon, 1404
Telephone #: 

Station: Valenzuela

Registrar of Deeds: Atty. Dalisay V. Sacdalan.
Deputy Registrar of Deeds: 
Address: 2nd floor, JEM Building, Maysan Rd., Valenzuela City, 1405
Telephone #: 293-33-87/293-33-67

Station: San Juan

Registrar of Deeds: Atty. Marisa E. Timones
Deputy Registrar of Deeds: 
Address: No. 5F Blumenrit St., Brgy. Batis, San Juan City, 1500
Telephone #: 726-63-57/725-47-68

Station: Mandaluyong

Registrar of Deeds: Atty. Dinna M. Lao
Deputy Registrar of Deeds: 
Address: Manaloto Bldg., Boni Ave., Mandaluyong City, 1501
Telephone #: 532-56-36

Station: Pasig City

Registrar of Deeds: Atty. Rex Vincent C. Riveral (Actg)
Deputy Registrar of Deeds: Atty. Rogelio Juan A. Celera
Address: 3rd floor, City Hall, Market Ave., Pasig City, 1600
Telephone #: 460-76-39/747-37-94

Station: Para?aque

Registrar of Deeds: Atty. Arnold Bautista
Deputy Registrar of Deeds: 
Address: Municipal Hall Complex, Dr. Santos Ave., Para?aque City, 1700
Telephone #: 825-79-86/820-25-87

Station: Las Pi?as

Registrar of Deeds: Atty. Joel E. Paner
Deputy Registrar of Deeds: Atty. Sofia H. Barcena
Address: City Hall Compound, Las Pi?as City, 1701
Telephone #: 874-31-00

Station: Marikina

Registrar of Deeds: Atty. Sedfrey H. Garcia
Deputy Registrar of Deeds: Atty. Hilarion C. Mogello
Address: 103 J.P. Rizal, Nangka, Marikina City
Telephone #: 948-57-38

Station: Muntinlupa

Registrar of Deeds: Atty. Silverio Garing
Deputy Registrar of Deeds: 
Address: Muntinlupa City Hall Compound, Putatan St., Muntinlupa City, 1702
Telephone #: 861-11-25/861-11-31

Station: Antipolo City

Registrar of Deeds: Atty. Jose S. Loriega, Jr.
Deputy Registrar of Deeds: 
Address: 3rd flr. REMAR Bldg., Quezon St., Antipolo City, 1906
Telephone #: 697-62-69/697-67-69

Station: Kalookan City

Registrar of Deeds: Atty. Ricardo Vitug
Deputy Registrar of Deeds: 
Address: 2nd flr., TPI Bldg., 9th Ave., Grace Park, Kalookan City
Telephone #: 365-76-90

Station: Taguig Pateros

Registrar of Deeds: Atty. Randy A. Rutaquio
Deputy Registrar of Deeds: Mr. Richard C. Mogello
Address: Unit A, G/F, Ana 8 Bldg., Lot 21, Blk 86, Marichu R. Tinga Avenue, Taguig, Metro Manila (formerly Bayani Road AFPOVAI, Fort Bonifacio)
Telephone #: data not available

REGION 1


Station: Laoag, Ilocos Norte

Registrar of Deeds: Mr. Edisto Marlon P. Valdez
Deputy Registrar of Deeds: 
Address: Brgy. 7 B Giron St. Laoag City
Telephone #: (077) 771-5019

Station: Laoag City

Registrar of Deeds: Atty. Augustus A. Lucas
Deputy Registrar of Deeds: 
Address: Marcos Hall bldg., Margal St., Laoag City
Telephone #: (077) 771-5080

Station: Batac, Ilocos Norte

Registrar of Deeds: Atty. Wellah R. Singson
Deputy Registrar of Deeds: 
Address: National Road, Brgy. Quiling Sur, Batac City, Ilocos Norte
Telephone #: (077) 792-3684

Station: Vigan, Ilocos Sur

Registrar of Deeds: Atty. Jesse I. Tagatac
Deputy Registrar of Deeds: 
Address: Zone V, Quirino Blvd., Bantay, Ilocos Sur
Telephone #: (077) 722-2778

Station: San Fernando, La Union

Registrar of Deeds: Atty. Pablito M. Valdez
Deputy Registrar of Deeds: Atty. Laura Irynn May I. Padua
Address: Sevilla Government Center, San Fernando, La Union
Telephone #: (072) 888-2840

Station: Lingayen, Pangasinan

Registrar of Deeds: Atty. Rufino Moreno, Jr.
Deputy Registrar of Deeds: Atty. Melvin C. Castro DRD
Address: Capitol Cpd., (near Girl Scout Bldg.) Lingayen, Pangasinan
Telephone #: (075) 524-6081

Station: Tayug, Pangasinan

Registrar of Deeds: Atty. Amante R. Capuchino
Deputy Registrar of Deeds: 
Address: Justice Hall Bldg., Suyat, Pangasinan, 2445
Telephone #: (075) 572-4101

Station: Dagupan City

Registrar of Deeds: Atty. William Simon F. Peralta Jr.
Deputy Registrar of Deeds: 
Address: A.B. Fernandez St., City Hall Bldg., Left Wing, Dagupan City, 2400
Telephone #: (075) 522-03-13 / (075) 522-67-21

Station: San Carlos City, Pangasinan

Registrar of Deeds: Atty. Amante R. Capuchino
Deputy Registrar of Deeds: 
Address: City Hall Bldg., San Carlos City, Pangasinan, 2420
Telephone #: (075) 955-52-33


REGION 2


Station: Batanes

Registrar of Deeds: Ms. Jocelyn B. Puriran
Deputy Registrar of Deeds: 
Address: Provincial Capitol Bldg., Basco, Batanes
Telephone #: data not available

Station: Tuguegarao, Cagayan(RRD)

Registrar of Deeds: Atty. Alexander Simeon, Jr.
Deputy Registrar of Deeds: Atty. Benifroi P. Pascual (DRD IV), Atty. Herminio Sychangco
Address: Brgy. Carig, Tuguegarao City, Cagayan
Telephone #: (078)846-82-61

Station: Sanchez Mira,Cagayan

Registrar of Deeds: Atty. Benifroi P. Pascual
Deputy Registrar of Deeds: 
Address: City Hall Compound, Gomez St., (Centro) Sanchez Mira, Cagayan
Telephone #: data not available

Station: Tuao, Cagayan

Registrar of Deeds: Atty. Alexander Simeon, Jr.
Deputy Registrar of Deeds: 
Address: Centro, Tuao, Cagayan (wing gymnasium) in front of Municipal Hall
Telephone #: data not available

Station: Ilagan, Isabela

Registrar of Deeds: Atty. Egdona M. Mananquil
Deputy Registrar of Deeds: Atty. Elyjane Lourdes M. Sumineg
Address: Ground flr., Capitol Bldg., Brgy. Alibago, Ilagan, Isabela
Telephone #: 

Station: Bayombong, N. Vizcaya

Registrar of Deeds: Atty. Alexander Calulot
Deputy Registrar of Deeds: Atty. Melba Nina R. Quinto
Address: Capitol Compound, Bayombong, Nueva Vizcaya
Telephone #: (078)321-23-91

Station: Cabarroguis, Quirino

Registrar of Deeds: Atty. Ariel C. Vallejo
Deputy Registrar of Deeds: Mr. Benjie P. Bautista, Atty. Carlos Serrano
Address: Provincial Capitol Bldg., Cabarroguis, Quirino
Telephone #: data not available

Station: Santiago City

Registrar of Deeds: Atty. Ariel C. Vallejo 
Deputy Registrar of Deeds: 
Address: 2nd flr. Multi-purpose Bldg., City Hall Compound, San Andres, Santiago City 3311
Telephone #: (078) 682-4177

REGION 3


Station: San Fernando, Pampanga(RRD)

Registrar of Deeds: Atty. Lorna S. Dee
Deputy Registrar of Deeds: Atty. Enrique Basa
Address: LRA Bldg., Provincial Capitol Compound, San Fernando, Pampanga
Telephone #: (045)961-71-64/961-71-65/961-20-75

Station: Angeles City

Registrar of Deeds: Atty. Bayani A. Maniquis
Deputy Registrar of Deeds: Mr. Lorenz Bautista
Address: City Hall Bldg., Pulung Maragul, Angeles City
Telephone #: (045)322-35-58

Station: Balanga, Bataan

Registrar of Deeds: Atty. Emmanuel M. Aquino
Deputy Registrar of Deeds: 
Address: LRA Bldg., Provincial Capitol Cmpd., Balanga City
Telephone #: (047)2373978

Station: Iba, Zambales

Registrar of Deeds: Atty. Athena Tarongoy
Deputy Registrar of Deeds: 
Address: Palanginan, Iba, Zambales
Telephone #: (044) 811-1292

Station: Tarlac, Tarlac

Registrar of Deeds: Atty. Ronnie T. Tababa
Deputy Registrar of Deeds: Atty. Enrico P. Quiambao
Address: Romulo Blvd., San Vicente, Tarlac, Tarlac
Telephone #: (045)982-2353

Station: Guiguinto, Bulacan

Registrar of Deeds: Atty. Ramon C. Sampana
Deputy Registrar of Deeds: 
Address: Sta. Rita Market, El Kanto St., Sta. Rita, Guiguinto, Bulacan
Telephone #: (044)794-1480

Station: Meycauayan, Bulacan

Registrar of Deeds: Atty. Domingo Paguia
Deputy Registrar of Deeds: 
Address: Brgy. Iba, Moralla St. Meycauayan, Bulacan
Telephone #: (044)228-3764 / (044)228-3768

Station: Cabanatuan, Nueva Ecija

Registrar of Deeds: Atty. Teodoro C. Linsangan
Deputy Registrar of Deeds: 
Address: Ground flr. Justice Hall Bldg., ACFA District, Maharlika Hi-way, Cabanatuan City
Telephone #: (044) 600-3361/600-2072

Station: Talavera, Nueva Ecija

Registrar of Deeds: Atty. Napoleon M. Reyes
Deputy Registrar of Deeds: 
Address: Municipal Hall Compound, Talavera, Nueva Ecija 3114
Telephone #: (044)411-3354

Station: Cabanatuan City

Registrar of Deeds: Atty. Fidel G. Ortaleza
Deputy Registrar of Deeds: 
Address: Cabanatuan City Hall Compound, Kapitan Pepe Subd., Phase II, Cabanatuan City
Telephone #: (044) 600-3661

Station: Palayan City

Registrar of Deeds: Ex-officio RD Carmelito T. Mangulaban
Deputy Registrar of Deeds: 
Address: Brgy. Singalat, Palayan City 3132
Telephone #: 

Station: San Jose City, Nueva Ecija

Registrar of Deeds: Atty. Napoleon M. Reyes
Deputy Registrar of Deeds: 
Address: 2nd flr., Villa Gracia Bldg., 20th St., cor. Rizal Ave., Olongapo City
Telephone #: (047) 611-0519/(044) 947-1972