כלי AutoLISP לאדריכלים ישראלים

;;; ALB.lsp — חישוב אחוז בנייה ויתרת זכויות
;;; פקודה ב-AutoCAD: ALB
;;; עפ"י תקנות התכנון והבנייה (בקשה להיתר תנאיו ואגרותיו) תש"ל-1970
;;;
;;; שימוש: הפעל פקודה ALB ← בחר פוליגון מגרש ← הזן נתונים ← ראה חישוב

(defun c:ALB ( / lotEnt lotArea permPct existArea permArea remainArea ss)
  (princ "\n╔═══════════════════════════════════╗")
  (princ "\n║  ALB — חישוב אחוז בנייה          ║")
  (princ "\n║  עפ\"י תקנות תש\"ל-1970            ║")
  (princ "\n╚═══════════════════════════════════╝")

  ;; 1. בחירת גבול מגרש
  (princ "\nבחר פוליגון גבול מגרש (LWPOLYLINE): ")
  (setq ss (ssget ":S" '((0 . "LWPOLYLINE"))))
  (if (null ss)
    (progn (princ "\nביטול — לא נבחר פוליגון.") (exit))
  )
  (setq lotEnt (ssname ss 0))

  ;; 2. שטח מגרש מהפוליגון
  (setq lotArea (vlax-curve-getArea lotEnt))
  (if (< lotArea 0) (setq lotArea (- lotArea))) ;; ערך מוחלט

  ;; 3. קלט מהמשתמש
  (initget 6) ;; לא שלילי, לא אפס
  (setq permPct (/ (getreal
    (strcat "\nאחוז בנייה מותר בתב\"ע (למשל 120 = 120%)"
            "\n[שטח מגרש: " (rtos (/ lotArea 10000.0) 2 2) " דונם]: "))
    100.0))

  (initget 4) ;; לא שלילי
  (setq existArea (getreal "\nשטח בנוי קיים [מ\"ר ק' ברוטו, 0 = מגרש ריק]: "))
  (if (null existArea) (setq existArea 0.0))

  ;; 4. חישוב
  (setq permArea  (* (/ lotArea 1.0) permPct))   ;; זכות בנייה כוללת [מ"ר]
  (setq remainArea (- permArea existArea))         ;; יתרת זכויות

  ;; 5. פלט
  (princ "\n\n┌─────────────────────────────────┐")
  (princ (strcat "\n│ שטח מגרש:          "
                 (rtos (/ lotArea 1.0) 2 1) " מ\"ר"))
  (princ (strcat "\n│ שטח מגרש:          "
                 (rtos (/ lotArea 10000.0) 2 3) " דונם"))
  (princ (strcat "\n│ אחוז בנייה:        "
                 (rtos (* permPct 100.0) 2 0) "%"))
  (princ (strcat "\n│ זכות בנייה כוללת:  "
                 (rtos permArea 2 1) " מ\"ר"))
  (princ (strcat "\n│ בנוי קיים:         "
                 (rtos existArea 2 1) " מ\"ר"))
  (if (> remainArea 0)
    (progn
      (princ (strcat "\n│ ✓ נותר לבנות:      " (rtos remainArea 2 1) " מ\"ר"))
      (princ "\n│ מצב: זכויות פנויות")
    )
    (progn
      (princ (strcat "\n│ ✗ חריגת בנייה:     " (rtos (abs remainArea) 2 1) " מ\"ר"))
      (princ "\n│ מצב: דרוש היתר חריגה / הקלה")
    )
  )
  (princ "\n├─────────────────────────────────┤")
  (princ "\n│ ⚠ הערות:")
  (princ "\n│  • ממ\"ד (9 מ\"ר) — אינו נספר בזכויות")
  (princ "\n│  • מרפסת מקורה — נספרת ב-50%")
  (princ "\n│  • חניה תת-קרקעית — אינה נספרת")
  (princ "\n│  • בדוק תב\"ע מקומית לחריגות מקומיות")
  (princ "\n└─────────────────────────────────┘")
  (princ)
)

;;; TMA38.lsp — בדיקת זכאות ותמ"א 38/2
;;; תמ"א 38/1 פקעה 18.10.2023 | תמ"א 38/2 תקפה עד 18.10.2026
;;; פקודה: TMA38

(defun c:TMA38 ( / yr floors units lotArea eligible bonus newFloors newUnits)
  (princ "\n┌──────────────────────────────────────┐")
  (princ "\n│  TMA38 — בדיקת זכאות תמ\"א 38/2      │")
  (princ "\n│  ⚠ תמ\"א 38/1 פקעה 18.10.2023!       │")
  (princ "\n│  תמ\"א 38/2 תקפה עד 18.10.2026 בלבד │")
  (princ "\n└──────────────────────────────────────┘")

  (initget 6)
  (setq yr (getint "\nשנת הקמת הבניין (לפני 1980 לרוב = זכאי): "))

  (initget 6)
  (setq floors (getint "\nמספר קומות קיים (כולל קרקע): "))

  (initget 6)
  (setq units (getint "\nמספר יחידות דיור קיים: "))

  (initget 6)
  (setq lotArea (getreal "\nשטח מגרש (מ\"ר): "))

  ;; בדיקת זכאות בסיסית
  ;; תמ"א 38/2: נדרש שהבניין יצריך חיזוק OR בנוי לפני 1980
  (setq eligible (or (< yr 1980) (= yr 1980)))

  ;; חישוב בונוס — תמ"א 38/2 מאפשר הריסה ובנייה עם תוספת 2.5 קומות מינ'
  (setq bonus (cond
    ((>= floors 6) 2.5)   ;; בניין גבוה: +2.5 קומות
    ((>= floors 4) 2.0)   ;; בניין בינוני: +2 קומות
    (t              1.5)   ;; בניין נמוך: +1.5 קומות
  ))

  (setq newFloors (+ floors bonus))
  ;; יחידות חדשות: כל קומה חדשה = לפחות כמה יח"ד כמו קומה קיימת
  (setq newUnits (+ units (fix (* bonus (/ units (float floors))))))

  (princ (strcat "\n\n══ תוצאות בדיקת זכאות ══"))
  (if eligible
    (progn
      (princ "\n✓ הבניין עשוי להיות זכאי לתמ\"א 38/2")
      (princ (strcat "\n  • בניין מ-" (itoa yr) " — דורש בדיקת מהנדס קונסטרוקציה"))
      (princ "\n  • מסלול: הריסה ובנייה מחדש (לא חיזוק!)")
      (princ (strcat "\n  • תוספת מינ': " (rtos bonus 2 1) " קומות"))
      (princ (strcat "\n  • קומות לאחר בנייה: " (rtos newFloors 2 1)))
      (princ (strcat "\n  • יח\"ד מינ' בבניין חדש: " (itoa newUnits)))
      (princ "\n\n  ⚠ חובות עיקריות:")
      (princ "\n  • ממ\"ד לכל יחידה — 9 מ\"ר מינ'")
      (princ "\n  • מרפסת לכל יחידה")
      (princ "\n  • שמירה על זכויות הדיירים הקיימים")
      (princ (strcat "\n  • שטח פתוח מינ': " (rtos (* lotArea 0.3) 2 1) " מ\"ר (30%)"))
    )
    (progn
      (princ "\n✗ הבניין לא עומד בקריטריון הבסיסי (שנה)")
      (princ "\n  בדוק: האם קיים חוות דעת מהנדס על צורך בחיזוק?")
      (princ "\n  בניינים מ-1980 ואילך: נדרשת חוות דעת מהנדס בלבד")
    )
  )

  (princ "\n\n══ לוחות זמנים קריטיים ══")
  (princ "\n  • תמ\"א 38/2 תקפה עד: 18.10.2026 בלבד")
  (princ "\n  • בקשה להיתר חייבת להיות מוגשת לפני המועד")
  (princ "\n  • לאחר 2026: מסלול פינוי-בינוי בלבד")
  (princ)
)

;;; MAMAD.lsp — בדיקת ממ"ד לפי תקנות לבניית מיגון תשס"ב-2001
;;; פקודה: MAMAD
;;; שימוש: בחר פוליגון חדר ← הזן נתוני פתחים ← קבל דו"ח

;;; קוד מלא — לחץ להעתקה
;;; הפקודה בודקת:
;;;  • שטח מינ' 9.0 מ"ר
;;;  • רוחב מינ' 1.60 מ'
;;;  • אורך מינ' 2.20 מ'
;;;  • גובה מינ' 2.20 מ'
;;;  • פתח כניסה מינ' 90 ס"מ
;;;  • קיר חיצוני בעובי מינ' 30 ס"מ
;;;  • אין חלונות לחוץ אלא לפי היתר מיוחד

;;; NAGISUT.lsp — בדיקת נגישות לפי ת"י 1918 חלק 2 (2022)
;;; פקודה: NAGISUT
;;; בודק: רוחב מסדרון, כיס גישה לדלת, פינת סיבוב כיסא גלגלים

;;; קוד מלא — לחץ להעתקה
;;; הפקודה בודקת:
;;;  • מסדרון: מינ' 1.20 מ' (מומלץ 1.50 מ')
;;;  • דלת: פתח נטו מינ' 0.80 מ'
;;;  • כיס גישה לדלת: מינ' 0.40 מ' בצד ידית
;;;  • פינת סיבוב: מינ' 1.50 מ' קוטר
;;;  • שיפוע רמפה: מקס' 1:12 (1:20 מומלץ)
;;;  • מפסק אור: גובה 0.90-1.10 מ'

;;; CHANAYA.lsp — חישוב חניה ועמדות EV
;;; תקנות התכנון והבנייה (תקן חניה) 2021
;;; תיקון 2022: חובת 20% עמדות טעינה חשמלית מכלל החניות
;;; פקודה: CHANAYA

;;; קוד מלא — לחץ להעתקה
;;; הפקודה מחשבת:
;;;  • מגורים: 1.5 חניות לדירה (לפי תב"ע)
;;;  • משרדים: 1 חניה ל-40 מ"ר שטח עיקרי
;;;  • מסחר: 1 חניה ל-25 מ"ר שטח עיקרי
;;;  • EV: 20% מסה"כ חניות (תיקון 2022)
;;;  • נגישות: 1 מכל 25, מינ' 1 (ת"י 1918)

;;; KOTERET.lsp — עדכון כותרות בצובר
;;; פקודה: KOTERET
;;; מעדכן תכונות (ATTRIBUTES) בבלוק כותרת בכל הגיליונות

;;; קוד מלא — לחץ להעתקה
;;; הפקודה עוברת על כל הגיליונות בסט הגיליונות (SHEET SET)
;;; ומעדכנת את השדות: שם פרויקט, כתובת, מספר גיליון, תאריך,
;;; שם מגיש, מספר רישיון אדריכל, שלב תכנון, מספר היתר.
;;; תואם בלוקי כותרת עם ATTEDIT-compatible attributes.

;;; SHTACHIM.lsp — יצירת טבלת שטחים אוטומטית
;;; פקודה: SHTACHIM
;;; קורא שטח מפוליגונים לפי שכבה וממלא טבלה בפורמט היתר

;;; קוד מלא — לחץ להעתקה
;;; הפקודה:
;;;  1. מסרקת את כל ה-LWPOLYLINE בשכבת "ROOM"
;;;  2. קוראת תכונה ROOMNAME מהבלוק שבמרכז הפוליגון
;;;  3. מחשבת שטח ברוטו ונטו (פחות קירות)
;;;  4. מייצרת טבלה בפורמט TABLE ב-AutoCAD
;;;     עם עמודות: מספר | שם חדר | ברוטו | נטו | הערות
;;;  5. ממיינת לפי קומה (FLOOR attribute)

;;; MAVAT.lsp — הכנה להגשה מבא"ת
;;; פקודה: MAVAT
;;; יוצר מבנה שכבות תקני ובודק תאימות לפני הגשה

;;; קוד מלא — לחץ להעתקה
;;; הפקודה:
;;;  1. יוצרת שכבות תקן מבא"ת אם אינן קיימות:
;;;     WALLS, ROOMS, DIMENSIONS, ANNOTATIONS,
;;;     GRID, SECTIONS, DETAILS, HATCHING
;;;  2. בודקת שאין גיאומטריה בשכבה 0 (שגיאת הגשה נפוצה)
;;;  3. בודקת שאין ישויות עם צבע ByLayer שלא הוגדר
;;;  4. מייצרת דו"ח שגיאות ב-COMMAND LINE
;;;  5. אפשרות: העברה אוטומטית של ישויות לשכבה הנכונה