วันอาทิตย์ที่ 28 พฤษภาคม พ.ศ. 2566

Run Number

วันเสาร์ที่ 20 พฤษภาคม พ.ศ. 2566

Area of Cross Section

add Leader Elevation and Distance.

 


วันพฤหัสบดีที่ 4 พฤษภาคม พ.ศ. 2566

วันอังคารที่ 25 เมษายน พ.ศ. 2566

Manual Geographic to UTM Coordinate Converter

 

Geographic to UTM Coordinate Converter


การแปลงค่าไปมาระหว่าง "พิกัดภูมิศาสตร์" และ "พิกัดกริด" หรือที่นิยมเรียกกันว่า  Latitude และLongitude และ UTM Datum WGS84 East(X) North(Y)

ในโปรแกรมเรามีทั้งหมด 5 ส่วนด้วยกันดังนี้

1.  File Lat Long

2.  File UTM

3.  Save to .CSV File

4.  Zone Hemisphere N or S

5.  Drawing XY or NE


1. File Lat Long

เมื่อเรากดปุ่ม File Lat Long จะมีไดอะรอค ให้เราทำการเลือกไฟล์ Lat Long Excel .CSV


ส่วนไฟล์ Excel .CSV ก็จะมีค่าจำนวน 2 เซล คือเซล

A = Latitude Decimal Degrees. เส้นรุ้งซึ่งมีหน่วยเป็นองศา

B = Longitude Decimal Degrees. เส้นแวงซึ่งมีหน่วยเป็นองศา

เมื่อเรานำเข้าไฟล์ Lat Long Excel .CSV แล้วในโปรแกรมของเราทางด้านซ้ายมือ คือค่า Latitude และ Longitude ที่มีหน่วยเป็นองศา ที่เราต้องการจะแปลงให้เป็น UTM Datum WGS84 ซึ่งค่าที่ได้ออกมาจะอยู่ทางด้านขวามือคือ UTM WGS84 East(X) North(Y)

 ถ้าเราต้องการบันทึกเป็นไฟล์ Excel .CSV ก็ทำการบันทึกด้วยปุ่ม 3. Save to .CSV File ใส่ชื่อไฟล์ที่ต้องการแล้วทำการ Save


ในส่วนนี้เราสามารถ วาดภาพจากค่า Coordinate UTM WGS84 ที่เราได้แปลงมาแล้วได้ด้วยข้อ

5.Draw. XY or NE โดยทำการติ้ก / ในช่อง Draw แล้วเลือก Coordinate เป็น XY หรือ NE แล้วกด OK ดำเนินการ ส่วนช่อง FLOC คือการหาตำแหน่งที่ Drawing ในแผนที่ Google Map.

2. File UTM ในการแปลง UTM WGS84 เป็น Latitude และ Longitude ให้เรากำหนดค่าในส่วนที่ 4. Zone Hemisphere N or S ที่ต้องการและเลือกค่า ซีกโลก hemisphere เป็น N (North) หรือ S (South)

เมื่อเรากดปุ่ม File UTM จะมีไดอะรอค ให้เราทำการเลือกไฟล์ UTM WGS84 Excel .CSV

ส่วนไฟล์ Excel .CSV ก็จะมีค่าจำนวน 2 เซล คือเซล

A = Easting (X)

B = Northing (Y)

 เมื่อเรานำเข้าไฟล์ UTM WGS84 Excel .CSV แล้วในโปรแกรมของเราทางด้านซ้ายมือ คือค่า UTM Datum WGS84 East(X) North(Y) ที่เราต้องการจะแปลงให้เป็น Latitude และ Longitude ที่มีหน่วยเป็นองศา ซึ่งค่าที่ได้ออกมาจะอยู่ทางด้านขวามือ

 ถ้าเราต้องการบันทึกเป็นไฟล์ Excel .CSV ก็ทำการบันทึกด้วยปุ่ม 3. Save to .CSV File ใส่ชื่อไฟล์ที่ต้องการแล้วทำการ Save

วันศุกร์ที่ 25 พฤศจิกายน พ.ศ. 2565

Manual PTC_fb.VLX



1. Select B.S. name : เลือกชื่อตำแหน่ง B.S.

1.1 Pick Point B.S. หลัง เลือกตำแหน่ง B.S.

2.  Select I.S. name : เลือกชื่อตำแหน่ง B.S.

2.1 Pick Point I.S. ตั้งกล้อง เลือกตำแหน่ง I.S.



*** หัวข้อที่ 3 จะทำวนไปจนครบจำนวนหมุดที่ต้องการ

3.  Select point name (ชื่อหมุด) : เลือกชื่อหมุด

3.1 Pick Next Point : เลือกหมุด

3.2 Pick Text Point : วางข้อความ ค่ามุมและระยะห่าง

เมื่อทำการวนจนครบตามจำนวนหมุดที่ต้องการแล้ว กด Enter เพื่อจบการทำงาน โปรแกรมก็จะส่งข้อมูลไปยังโปรแกรม EXCEL จะเด้งขึ้นมา เมื่อเราต้องการเริ่มบันทึกรอบวงใหม่ให้เลื่อนเซลเริ่มต้นลงมายังเซลที่ว่างเช่นจาก A1 ไปยัง A6



 

การเรียกใช้งาน

เมื่อเราทำการโหลดโปรแกรม PTC_fb.VLX แล้วให้เรียกใช้คำสั่ง PTC เพื่อเริ่มต้นโปรแกรม 

 

 

วันพฤหัสบดีที่ 20 ตุลาคม พ.ศ. 2565

Dimensions Sum

;|

      Dimensions Sum #AutoCAD #CADTHAI

      - Selected Dimensions

      - Enter and pick to text sum.

|;

(defun c:sumdim (/ sum ss n dim mea ddata prec)

      (setq old_cmdecho (getvar "cmdecho"))

      (setvar "CMDECHO" 0)

      (setq sum 0.0)

      (prompt "\nAdd values of Dimensions")

      (if (setq ss (ssget '((0 . "DIMENSION"))))

            (progn

                  (repeat (setq n (sslength ss))

                        (setq dim (ssname ss (setq n (1- n))))

                        (setq mea (cdr (assoc 42 (setq ddata (entget dim)))))

                        (setq prec (getvar "DIMDEC")

                                sum (+ sum mea)

                        )

                  )

                  (setq p1 (getpoint "\nPick point to Text Sum. :"))

                  (command "text" "j" "mc" p1 (getvar "textsize") "0" (rtos sum (getvar 'lunits) prec))

                  (prompt(strcat "\nSum of distances = " (rtos sum (getvar 'lunits) prec)))

            )

            (prompt "\nNo Dimensions selected.")

      )

(setvar "CMDECHO" old_cmdecho)

(princ)

)