Pile Caps

Pile Caps.

 

Quick_Profile_III

 Quick_Profile_III.VLX

ตัวโปรแกรม Longitudinal Profile. จะประกอบด้วย 2 ส่วนด้วยกัน ดังรูปตัวอย่าง

   1. รายละเอียดเกี่ยวกับ การเลือกเส้นที่มีอยู่แล้วในแบบ Select Polyline จะต้องเป็นเส้นต่อเนื่อง Polyline เท่านั้น โปรแกรมจะทำการย้ายค่าความสูง Elevation ของเส้นให้อยู่ในระนาบ 0.0 แล้วสร้างเส้น 3Dpolyline ขึ้นมาใหม่ ณ. จุดตัดที่ลากเส้นผ่าน หรือลากเส้นตัดใหม่  Draw Ployline ให้ทำการลากเส้นต่อเนื่อง Polyline ตามที่ต้องการจนจบแล้ว Enter หรือ Esc เพื่อจบการลากเส้น

     2. รายละเอียดเกี่ยวกับการแสดงขนาดในแนวแกน X และ Y (Scale X,Y) ความสูงตัวอักษรจะสัมพันธ์กับค่า Y เช่นค่ามาตราส่วน Y = 5 ความสูงตัวอักษรจะเป็น 5 x 0.2 = 1.0

ส่วนที่ 1.1 Select Polyline คือการเลือกเส้นแนวตัด Profile ที่กำหนดในแบบ Contour ไว้แล้วต้องเป็นเส้น Polyline

 

ส่วนที่ 1.2 Draw Polyline คือการลากเส้นแนวตัดขึ้นมาใหม่ในแบบ Contour โดยกำหนดจุด P1 เป็นจุดเริ่มต้น และ P2 P3 P4 P5 …. จนจุดสุดท้าย Enter หรือ Esc เพื่อจบการลากเส้น 

Quick Profile III

LONGITUDINAL PROFILE

 

Canal Curve Auto Generate revision a

 Canal Curve Auto Generate revision a

 Canal Curve Auto Generate

 Calendar

Canal Curve

Canal Curve by Tangent Distance.

Auto Count blocks and Summary Line

 Auto Count blocks and Summary Line

Storm Water Profile Data from Excel.

Storm Water Profile Data from Excel.

Merge Land and Claculate Area

 Merge Land and Claculate Area

SPECIAL CONE PATTERN 

update from NEW CONE.

 

 AREA TOOLS BAR.

Calculate Skin Friction data from Excel.

Insert Block Calculate Skin Friction data from Excel.

Split 2 blocks

 

split 2 blocks a

- Select block Fix Rectangle bolck.
- Select polyline split.
- Pick side to extrim.
- Erase the remaining lines.(window select only)

  How to develop branched cone

How to setting Quick layout Multi size

ตามตัวอย่างจะมี Blocks A3 Landscape,A4 Landscape,A4 Portrail, scale 1:1 

1.เราจะทำการ Setting Page Setup Manager หน้า Layout1 โดยเลือกขนาดกระดาษ A3 Landscape Plot area เลือก Window window โดยเลือกตำแหน่ง Low Left ล่างซ้าย และ Top Right บนขวา และ Plot offset เลือก Center the plot และ Plot scale and Drawing Orentation กำหนดตามขนาดที่ต้องการ(ที่หน้า Layout ลบออกให้เหลือแค่ Layout1 เท่านั้น)

2.ใช้คำสั่ง Quick Layout เลือกขนาดกระดาษ A3 Landscape ที่ต้องการแล้ว Enter หน้า Viewport จะแสดงขึ้นมาเป็น 01 02 03 ตามลำดับ

3.ต่อไปก็เป็นกระดาษขนาด A4 Landscape ให้เราไปตั้งค่า Page Setup Manager ที่หน้า Layout1 ใหม่โดยเลือกขนาดกระดาษ A4 Landscape ตามข้อที่ 1 แล้วใช้คำสั่ง Quick Layout เลือกขนาดกระดาษ ตามข้อที่ 2 วนไปจนครบขนาดกระดาษที่เรามี

 

Section Profile data form Excel.

 

CHange Text ATTributes 

 ;|

Edit width factor text height 

and rotation of attributes text

Create and Design by AutolispTH March 2024

|;

;;-----radial to dreegee

(defun rtod (x)

       (/ (* x 180) pi)

)

(defun dtor (x)

       (* x (/ pi 180))

)

(defun C:CHTAtt ( / e ent)

(vl-load-com)

(setq old_cmdecho  (getvar "cmdecho"))

(setvar "cmdecho" 0)

;-------------------width factor-----------------------------+

(or wd (setq wd 1.0))

 (setq wdtemp

        (getDist (strcat "\nEnter width factor of text: <"

                           (rtos wd 2 2)

                             ">: "

                ) 

        ) 

)

(and wdtemp (setq wd wdtemp))

;-------------------text height------------------------------+

(or th (setq th 1.0))

 (setq thtemp

        (getDist (strcat "\nEnter text height: <"

                           (rtos th 2 2)

                             ">: "

                ) 

        ) 

)

(and thtemp (setq th thtemp))

;--------------------text rotation---------------------------+

(or ro (setq ro 0.0))

 (setq rotemp

        (getDist (strcat "\nEnter text rotation: <"

                           (rtos ro 2 2)

                             ">: "

                ) 

        ) 

)

(and rotemp (setq ro rotemp))

;--------------------------------------------------------------+

(while (setq e (car (nentsel "\n Select an attribute to change:")))

(setq ent (vlax-ename->vla-object e))

(vla-put-scalefactor ent wd)

(vla-put-height ent th)

(vla-put-Rotation ent (dtor ro))

(princ)

)

(setvar "cmdecho" old_cmdecho)

(princ)

)

(prompt "\n\t\t\t  +------------------------------------------+\n")

(prompt "\n\t\t\t  |      Start with CHTATT to execute        |\n")

(prompt "\n\t\t\t  +------------------------------------------+\n")

Change Elv by attribute

 

;|

changes a blocks z coordinate to 

the elevation listed in attribute 

|;

(defun c:chbel()

(setq old_cmdecho  (getvar "cmdecho"))

(setvar "cmdecho" 0)

(setq SS (ssget '((0 . "INSERT")(66 . 1)))

  ucsf (getvar "ucsfollow")

)

(if (/= ss nil)

(progn

(setq ssl (sslength ss))

(setvar "ucsfollow" 0)

(if (/= 1 (getvar "worlducs"))(setq wucs 0)(setq wucs 1))

(command "ucs" "")

(setq numchg ssl

  n ssl

  newss (ssadd)

)

(while (> n 0)

(setq n (1- n)

  blk (ssname ss n)

)

(setq ent (vlax-ename->vla-object blk))

(setq atts (vla-getattributes ent))

(setq temp (vlax-variant-value atts))

(setq elem1 (vlax-safearray-get-element temp 0))

(setq el (atof (vla-get-textstring elem1)))

(command "CHANGE" blk "" "P" "E" el "")

);end while

(setq ssl (sslength newss)

  n ssl

)

(setq txt "blocks raised to elevation.")

(if (/= numchg 0)

(progn

(print numchg)

(princ txt)

)

(prompt "No blocks selected.")

)

)

(prompt "Empty selection set.")

)

(if (= 0 wucs)(command "ucs" "p"))

(setvar "ucsfollow" ucsf)

(setvar "cmdecho" old_cmdecho)

(princ)

);end defun

Quick Layout 2 By Blocks

- ที่หน้า Layout1 สามารถตั้งค่า pagesetup ได้ตามต้องการเช่น Plotter Paper Size Plot Style Plot Area Plot Scale ต่างๆ ได้ตามต้องการโดยให้เป็นหน้ากระดาษเปล่าหรือใส่ Blocks หน้ากระดาษที่ต้องการก็ได้

- ส่วน Blocks ก็สร้างขนาดตาม Paper Size ที่กำหนดตามหน้า Layout1 โปรแรมจะทำการ copy หน้า Layout1 ไปเป็น 01 02 03 ...ไปเรื่อยๆจนครบหน้าที่ต้องการ

 

Stair Design 3D

Calculation Details with Excel Sheet

Staircase Design 

Calculation Details with Excel Sheet

Quick Layout2

 

Quick Layout by Path

 

 Quick Layout 

Auto Dimension2

    Add Area sqm/wah 

    Add dimstyle

    Fix Space line to Text ro Dim.

 

 Member Lisp Reguest