משולש באוטוקאד

יש את האפשרות ליצור משולש שווה צלעות באמצעות הפקודה 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)
)
)

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

שלום דבורי

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

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

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

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

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

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

🙄 :???