מציג 17 תגובות משורשרות
  • מאת
    תגובות
    • #52139
      דבורי
      משתתף
      Offline
      Topics: 4
      Replies: 12
      Been thanked: 0 times

      היי,
      רצתי לדעת אם יש דרך לשרטט משולש בצורה פשוטה וקלה כשיש לי רק נתונים על אורכי הצלעות בלי זוויות…
      יעזור לי מאד!
      תודה מראש

    • #52145
      davidyahalom
      מנחה
      Offline
      Topics: 2
      Replies: 459
      Been thanked: 5 times

      יש את האפשרות ליצור משולש שווה צלעות באמצעות הפקודה polygon
      במידה ואת רוצה משולש שאינו שווה צלעות ואין לך סבלנות ליצור אותו מפוליליין סטנדרטי, יש את הליספ הבא שמצאתי בשבילך.
      את צריכה להעתיק את הטקסט לתוך קובץ טקסט פשוט, ואז לשמור בסיומת LSP, דרך התוכנה לטעון את הקובץ באמצעות AP
      ואז להריץ את הפקודה באמצעות TRI. בהצלחה.

      והנה הקוד של הליספ:

      (defun C:TRI (/ pnt1 pnt2 pnt3 pnt4 d1 d2 d3 d4 dx1 dy1 dx2 dy2 dx3 dy3 dx4 dy4 xm ym midp)
      (graphscr)
      (setq pnt1 (getpoint "First Corner:")) (terpri)
      (setq pnt3 (getcorner pnt1 "Second Corner:")) (terpri)
      (setq pnt2 (list (car pnt1) (cadr pnt3)))
      (setq pnt4 (list (car pnt3) (cadr pnt1)))
      (setq x1 (car pnt1))
      (setq y1 (cadr pnt1))
      (setq x2 (car pnt2))
      (setq y2 (cadr pnt2))
      (setq x3 (car pnt3))
      (setq y3 (cadr pnt3))
      (setq x4 (car pnt4))
      (setq y4 (cadr pnt4))
      ;direction 1
      (if (> x3 x1) (setq dx1 1) (setq dx1 0))
      (if (> y3 y1) (setq dy1 1) (setq dy1 0))
      (setq d1 (* dx1 dy1))
      (if (= 1 d1)
      (progn
      (setq xm (+ x1 (/ (- x3 x1) 2)))
      (setq ym y3)
      (setq midp (list xm ym))
      (command "line" pnt1 pnt4 midp "c")
      )
      (setq d1 0)
      )
      ;direction 2
      (if (> x1 x3) (setq dx2 1) (setq dx2 0))
      (if (> y1 y3) (setq dy2 1) (setq dy2 0))
      (setq d2 (* dx2 dy2))
      (if (= 1 d2)
      (progn
      (setq xm (+ x3 (/ (- x1 x3) 2)))
      (setq ym y1)
      (setq midp (list xm ym))
      (command "line" pnt3 pnt2 midp "c")
      )
      (setq d2 0)
      )
      ;direction 3
      (if (> x3 x1) (setq dx3 1) (setq dx3 0))
      (if (> y1 y3) (setq dy3 1) (setq dy3 0))
      (setq d3 (* dx3 dy3))
      (if (= 1 d3)
      (progn
      (setq xm (+ x1 (/ (- x3 x1) 2)))
      (setq ym y1)
      (setq midp (list xm ym))
      (command "line" pnt2 pnt3 midp "c")
      )
      (setq d3 0)
      )
      ;direction 4
      (if (> x1 x3) (setq dx4 1) (setq dx4 0))
      (if (> y3 y1) (setq dy4 1) (setq dy4 0))
      (setq d4 (* dx4 dy4))
      (if (= 1 d4)
      (progn
      (setq xm (+ x3 (/ (- x1 x3) 2)))
      (setq ym y3)
      (setq midp (list xm ym))
      (command "line" pnt4 pnt1 midp "c")
      )
      (setq d4 0)
      )
      )

    • #52149
      דבורי
      משתתף
      Offline
      Topics: 4
      Replies: 12
      Been thanked: 0 times

      ווואוו, ממש חמוד הליספ הזה!, תודה דוד!
      לפי מה שהבנתי אפשר ליצור בפקודה רק משולש שיש לו לפחות 2 צלעות…
      האם יש אפשרות של שרטוט משולש בעל 3 צלעות שונות??
      (כששרטטי כזה משולש שרטטי 3 קוים לפי מידה נתונה והייתי צריכה לנחש את הזוית, זה ממש מסובך ואפעם לא יוצא מדוייק…)

    • #52158
      davidyahalom
      מנחה
      Offline
      Topics: 2
      Replies: 459
      Been thanked: 5 times

      למיטב הבנתי הצלע השלישית היא פונקציה של אורכי שתי הצלעות הראשונות ויכולה להיות לה רק מידה אחת. וכך גם הזויות הן פונקציה של אורכי הצלעות. למשולש בעל אורכי צלעות מוגדרים, יכולים להיות רק הזויות הקבועות בו. אלא אם כן משהו השתנה בעולם הגיאומטריה לאחרונה.

    • #52159
      דבורי
      משתתף
      Offline
      Topics: 4
      Replies: 12
      Been thanked: 0 times

      היי דוד,
      כנראה הייתה פה אי הבנה,
      נניח שאני רוצה עכשיו לשרטט משולש, הנתונים שיש לי עליו הם: צלע A = 3.61' צלע B = 2.26, צלע C = 3.32. איך אני משרטטת את המשולש בצורה הפשוטה ביותר?
      (בליספ הנ"ל שצרפת אפשר לשרטט רק משולש בעל 2 צלעות שוות…)
      תודה רבה!!

    • #52165
      davidyahalom
      מנחה
      Offline
      Topics: 2
      Replies: 459
      Been thanked: 5 times

      שלום דבורי

      מצאתי בשבילך את ליספ נהדר שעושה את כל החישוב הטריגונומטרי הזה. ניתן להגדיר שם משולשים לפי זצ"ז / צז"צ / צצ"צ (שזו אפשרות ברירת המחדל ומה שחיפשת למעשה)
      ניתן להוריד אותו מהקישור המצורף.
      http://www.cadstudio.cz/dl_file.asp?ID=865

    • #52167
      דבורי
      משתתף
      Offline
      Topics: 4
      Replies: 12
      Been thanked: 0 times

      WOW!!
      זה כנראה מה שחיפשתי!! אני רק לא יודעת איך להריץ את הפקודה, מה הקיצור מקלדת שלה?
      תודה דוד

    • #52168
      davidyahalom
      מנחה
      Offline
      Topics: 2
      Replies: 459
      Been thanked: 5 times

      מריצים את הפקודה כמו כל ליספ אחר
      AP
      בוחרים את הקובץ ומאשרים
      והפקודה נקראת triangle

    • #52171
      דבורי
      משתתף
      Offline
      Topics: 4
      Replies: 12
      Been thanked: 0 times

      זה מה שעשיתי ומשום מה אוטוקאד לא מזהה לי אותו…
      אולי שמישהו ינסה להריץ את הפקודה אצלו ויספר אם הלך לו???
      המשך יום טוב

    • #52174
      davidyahalom
      מנחה
      Offline
      Topics: 2
      Replies: 459
      Been thanked: 5 times

      אני ניסיתי ועבד לי מצויין.
      על איזו גרסה את עובדת?

    • #52175
      דבורי
      משתתף
      Offline
      Topics: 4
      Replies: 12
      Been thanked: 0 times

      עובדת על אוטוקאד 2014, יכול להיות שלא התקנתי נכון??
      התקנתי כמו שהסברת לי על הליספ הראשון, הליספ הראשון עבד מצויין והשני לא עובד..

    • #52182
      davidyahalom
      מנחה
      Offline
      Topics: 2
      Replies: 459
      Been thanked: 5 times

      בעיקרון לכל גרסה כמעט, אוטודסק הוציאו תוסף תוכנה המתקן באגים קטנים שגילו בה לאחר ההפצה.
      תכתבי בגוגל autocad 2014 service pack ותקבלי קישור לאתר אוטודסק להורדת תוסף תיקון.
      לאחר התקנת התוסף תנסי להריץ את הפקודה מחדש. אני מאמין שזה אמור לפתור את הבעיה.

    • #52189
      דבורי
      משתתף
      Offline
      Topics: 4
      Replies: 12
      Been thanked: 0 times

      דבר ראשון תודה דוד על כל העזרה, ראוי להערכה מיוחדת…
      הגעתי באמת דרך הקישור להתקנת התוסף השאלה היא אם זה עלול לשבש לי ליספים אחרים שמותקנים וכן VBA, CTB…??

    • #52191
      davidyahalom
      מנחה
      Offline
      Topics: 2
      Replies: 459
      Been thanked: 5 times

      סביר להניח שלא.

    • #52199
      דבורי
      משתתף
      Offline
      Topics: 4
      Replies: 12
      Been thanked: 0 times

      תודה על העזרה, התקנתי את התוסף ולא עזר,
      יש לך אפשרות לשלוח לי את הליספ סגור על LSP?

    • #52202
      davidyahalom
      מנחה
      Offline
      Topics: 2
      Replies: 459
      Been thanked: 5 times

      הקוד של זה כתוב בצורה שונה מהותית מליספ, לכן שמירה כליספ לא עוזרת.

    • #52203
      דבורי
      משתתף
      Offline
      Topics: 4
      Replies: 12
      Been thanked: 0 times

      זה עובד!!
      בזכות התגובה שלך הבנתי ת'בעיה שלי, פשוט נסיתי לשמור את זה כליספ, עכשיו הכנסתי את הקובץ לתקיית SUPORT ועובד לי מעולה!!
      שאפו דוד!!
      תודה ענקית על העזרה והסבלנות,
      תמשיך להצליח ולעזור בשמחה!

    • #52204
      davidyahalom
      מנחה
      Offline
      Topics: 2
      Replies: 459
      Been thanked: 5 times

      🙄 :???

מציג 17 תגובות משורשרות
  • יש להתחבר למערכת על מנת להגיב.