Commits

Panagiotis Mavrogiorgos committed 262efd6

added some more files.

  • Participants
  • Parent commits 7c024f6

Comments (0)

Files changed (2)

File Lisp/rebars.lsp

+;;;
+;;; Defines some macros for the insertion of RC rebars.
+;;;
+
+;;; The block that is going to represent the rebar.
+(setq __REBAR__ "ravdos50")
+
+;;; Inserts a series of bars at intervals equal to length
+(defun divide_line_and_insert_block (length)
+    (setq pt1 (getpoint "Pick the first point:"))
+    (setq pt2 (getpoint "Pick the second point:"))
+    (setq dist (distance pt1 pt2))
+    (setq div1 (/ dist length))
+    (setq div2 (rtos div1 2 0))
+    (setq div3 (atoi div2))
+    (command "line" pt1 pt2 "")
+    (setq obj1 (ssget "l"))
+    (command "divide" obj1 "b" __REBAR__ "y" div3)
+    (command "erase" obj1 "")
+    (princ)
+)
+
+;;; Inserts a single bar
+(defun C:bar ()
+    (setq pt1 (getpoint "Pick point: "))
+    (command "-insert" __REBAR__ pt1 "" "" "")
+    (princ)
+)
+
+;;; Insert bars with intevals of 0.10m
+(defun C:bar100()
+    (divide_line_and_insert_block  0.10)
+)
+
+;;; Insert bars with intevals of 0.125m
+(defun C:bar125()
+    (divide_line_and_insert_block  0.125)
+)
+
+;;; Insert bars with intevals of 0.15m
+(defun C:bar150()
+    (divide_line_and_insert_block 0.15)
+)
+
+;;; Insert bars with intevals of 0.175m
+(defun C:bar175()
+    (divide_line_and_insert_block  0.175)
+)
+
+;;; Insert bars with intevals of 0.20m
+(defun C:bar200()
+    (divide_line_and_insert_block 0.20)
+)

File Templates/Dratsios/steel_sections.dwg

Binary file added.