วันพฤหัสบดีที่ 28 ธันวาคม พ.ศ. 2566

Footpath#3

 Footpath#3



วันพฤหัสบดีที่ 21 ธันวาคม พ.ศ. 2566

Import Coordinate and Generate Contour Last.

 

Import Coordinate and Generate Contour.

ตัวโปรแกรม CONTR จะประกอบด้วย 3 ส่วนด้วยกัน ดังรูปตัวอย่าง

      1. ตัวนำเข้า Import Coordinate จากไฟล์ Excel .CSV

      2. ตัวสร้างเส้น Generate Contour line

      3. ตัวบอกระดับความสูงของเส้น Generate Contour lables

1. ตัวนำเข้า Import Coordinate จากไฟล์ Excel .CSV เมื่อเราเลือกให้นำเข้าข้อมูลจากไฟล์ Excel .CSV แล้วเลือกที่ File…

                1.1 ทำการเลือกไฟล์ Select Excel .CSV File

รูปแบบข้อมูลของไฟล์ Excel .CSV มีดังนี้

เซล A เป็นหมายเลขลำดับ No.

เซล B เป็น Coordinate N (y)

เซล C เป็น Coordinate E (x)

เซล D เป็น Descriptions รายละเอียดกำกับ *** จำเป็นต้องมีอย่างน้อย 1 เซล

  1.2 ช่องแสดงตำแหน่งที่อยู่ของไฟล์ที่เราทำการเลือกเอาไว้

2. Generate Contour line เป็นการสร้างเส้น Contour จากการ Import Coordinate หรือจาก Coordinate Points ที่สร้างไว้แล้วโดยการครอบ Points ทั้งหมด

      2.1 Minor Contour Interval ระยะของเส้นรอง โดยเลือกจาก list ที่กำหนดให้ 

      2.2 Major Contour Every ระยะของเส้นหลัก โดยเลือกจาก list ที่กำหนดให้ 

2.3 Contour Smoothing Factor ปรับความละเอียดของเส้นตาม list ที่กำหนดให้

2.4 และ 2.5 Major and Minor Contour Color ปรับเปลี่ยนสีของเส้น Major และเส้น Minor ตาม Index Color

3. ตัวบอกระดับความสูงของเส้น Generate Contour lables

3.1 Text Height : ปรับขนาดตัวอักษรของ Import Coordinate และ Contour Labels

3.2 Decimal major : จำนวนเลขทศนิยมของค่าระดับของเส้น Major line

3.3 Distance major : ค่าระยะห่างของ Label ค่าระดับของเส้น Major line

3.4 Color Label Major Text : ส่วนสีของตัวอักษรสามารถปรับได้ใน Index Color

3.5 Decimal minor : จำนวนเลขทศนิยมของค่าระดับของเส้น Minor line

3.6 Distance minor : ค่าระยะห่างของ Label ค่าระดับของเส้น Minor line

3.7 Color Label Minor Text : ส่วนสีของตัวอักษรสามารถปรับได้ใน Index Color

Contour lables แยกออกเป็น Labels Major และ Minor Labels เป็นการบอกระดับความสูงของเส้น Major and Minor Contour line ทั้งสองเส้น

The End.

วันพฤหัสบดีที่ 7 ธันวาคม พ.ศ. 2566

Points to Polyline.

 Points to Polyline.


;|

Select object (point only) and draw polyline

|;

(defun c:p2pl (/ sset p1 n p2 ss1 ss2)

(setq old_cmdecho  (getvar "cmdecho"))

(setq old_osnap (getvar "osmode"))

(setq old_pedit (getvar 'peditaccept))

(setvar 'peditaccept 1)

(setvar "cmdecho" 0)    

(prompt "\nDraw Polyine From Points")

(Setq sset (ssget '((0 . "POINT"))))

(Setq p1 nil

  ss1 nil

)

(setvar "osmode" 0) 

(repeat (setq n (sslength sset))

(setq p2 (cdr (assoc 10 (entget (ssname sset (setq N (- N 1)))))))

(if (/= p1 nil)

(progn

(command "_.pline" "_none" p1 "_none" p2 "")

    (setq ss2 (entlast))

)

)

(if (/= ss1 nil)

(progn

(command "_.pedit" "_multiple" ss1 ss2 "" "_join" "0.0" "")

(setq ss1 (entlast))

)

(setq ss1 ss2)

)

(setq p1 p2) 

)

(setvar 'PEDITACCEPT old_pedit)

(setvar "cmdecho" old_cmdecho)

(setvar "osmode" old_osnap)

(princ)

)