لیسپ نمایش شیب صفحه
صفحه را با سه نقطه در فضا معین کرده، با ضرب خارجی برداری، بردار عمود بر صفحه را محاسبه
و در نهایت شیب نسبت به افق را نمایش میدهد
لینک دانلود
دستور: dip
لیسپ محاسبه مساحت و درج در فایل متنی (txt)
لینک دانلود:
http://s9.picofile.com/file/8275116050/coupage.lsp.html
بعد از لود کردن با دستور cup فایل مساحت را در در درایو c بیابید.
محاسبه آزیموت زوایههای اتوکد.
نحوه کار:
لیسپ پیوست را در اتوکد یا سیویل تری دی لود کنید1.
Download link:azimuth lisp
http://s8.picofile.com/file/8275055768/Azimuth_angle.LSP.html
با تایپ az در خط فرمان ابتدا و انتهای خط را انتخاب کنید. زاویه و آزیموت آن در انتهای خط درج میشود.
1-یا کد زیر را در لیسپ اتوکد کد وارد کنید:
(defun c:az ()
pi=3.141592653589793L0
(setq pnt1 (getpoint "\n get pnt1"))
(setq pnt2 (getpoint "\n end pnt2"))
(setq rd (angle pnt1 pnt2))
(setq ang (angtos rd 0))
(setq deg (/ (* rd 180) pi))
(setq degg (rtos deg 2 2))
;(setq rd (rtos rd 2 2))
(cond
((and
(>= deg 0)
(<= deg 90))
(setq txt (- 90 deg))
)
((and
(> deg 90)
(<= deg 180))
(setq txt (- 450 deg))
)
((and
(> deg 180)
(<= deg 270))
(setq txt (- 450 deg))
)
((and
(> deg 270)
(< deg 360))
(setq txt (- 450 deg))
)
)
(setq txtt (rtos txt 2 2))
(setq tx (strcat "Cad Angle:" degg " Azimut:" txtt))
(command "text" pnt2 "" deg tx)
)
توضیح : در کد دو حالت مازاد آمده/
شیفت+ کنترل+ 2 :نیم فاصله