برای دانلود کلیک کنید: فایل اکسل قیمت جدید
فایل دارای پسورد می باشد.
لیسپ نمایش شیب صفحه
صفحه را با سه نقطه در فضا معین کرده، با ضرب خارجی برداری، بردار عمود بر صفحه را محاسبه
و در نهایت شیب نسبت به افق را نمایش می‌دهد
لینک دانلود
دستور: 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 :نیم فاصله