GeoGIS

برنامه‌ای برای خروجی گرفتن از نقاط اتوکدی به‌صورت فایل متنی

ارسال توسط راستگو در تاریخ ۲۲ - تیر - ۱۳۹۳

در زیر برنامه‌ای بسیار کاربردی در اختیار شما دوستان قرارگرفته است که به کمک آن می‌توانید از هر نقطه‌ای مختصات به‌صورت فایل متنی خروجی بگیرید. پس از اجرای برنامه شما در هر نقطه‌ای از صفحه ترسیم کلیک کنید مختصات آن ذخیره‌شده و در پایان یک نام و مسیر ذخیره‌سازی از کاربر درخواست می‌شود که مختصات تمام آن نقاط در آن فایل به‌صورت متنی ذخیره‌شده است. در اصل زمانی که نرم‌افزار سیویل یا لند هنوز به بازار ارزه نشده بود و تنها اتوکد در اختیار نقشه‌بردارها قرار داشت این برنامه نوشته و از آن برای گرفتن خروجی و انتقال آن به دوربین جهت پیاده‌سازی استفاده می‌شود ولی در حال حاضر به وجود نرم‌افزارهای قدرتمند سیویل تر دی و لند دسکتاپ دیگر از این برنامه استفاده چندانی نمی‌شود جز در مواقعی که این دو نرم‌افزار در دسترس نباشد.

دوستانی که نحوه‌ی فراخوانی فایل‌های لیسپ (LISP) را در نرم‌افزار‌های اتودسک نمی‌دانند، برای رفتن به صفحه آموزش فراخوانی فایل‌های لیسپ (LISP) در نرم‌افزار‌های اتودسک اینجا کلیک کنند.

برای دستیابی به موارد بالا، ابتدا کدهای زیر را در یک فایل متن (مانند نوتپد “Notpad”، ورد “Word” و …) کپی کرده و در نهایت پسوند فایل را به lsp. تغییر دهید.

									;-=====================================-;
				;-   Exports XYZ text file From point  -;
				;-     Tested on AutoCAD 2005-2014     -;
				;-              Written by             -;
				;-           Ebrahim Rastgou           -;
				;-            WWW.GeoGIS.ir            -;
				;-              05-05-14               -;
				;-=====================================-;

;---------------Exports XYZ text file From point selections------------------

(defun C:EXPOINT ()
    (alert "                            Hello friends
    \nSelect the points to Exports XYZ text file" )
  (setq DN (getvar "dwgname"))
  (setq DNLen (strlen DN))
  (setq FN (getfiled "Save As: " (substr DN 1 (- DNLen 4)) "txt" 1))
  (setq FIL (open FN "a"))
  (setq ss (ssget '((0 . "POINT"))))
  (setq cnt (sslength ss))
    (while (>= (setq cnt (1- cnt)) 0)
      (setq tmp (ssname ss cnt))
      (setq el (entget tmp))
      (setq COORDS (assoc 10 el))
      (setq XCOORD (cadr COORDS))
      (setq YCOORD (caddr COORDS))
      (setq ZCOORD (cadddr COORDS))
      (setq xyzlin (strcat (rtos XCOORD 2 3) "," (rtos YCOORD 2 3) "," (rtos ZCOORD 2 3) ))
      (write-line xyzlin FIL)	
    )'elihw
   (close FIL)
); end defun

;-=====================================-;

;- Exports XYZ text file From point -;

;- Tested on AutoCAD 2005-2014 -;

;- Written by -;

;- Ebrahim Rastgou -;

;- WWW.GeoGIS.ir -;

;- 05-05-14 -;

;-=====================================-;

;---------------Exports XYZ text file From point selections------------------

(defun C:EXPOINT ()

(alert " Hello friends

\nSelect the points to Exports XYZ text file" )

(setq DN (getvar "dwgname"))

(setq DNLen (strlen DN))

(setq FN (getfiled "Save As: " (substr DN 1 (- DNLen 4)) "txt" 1))

(setq FIL (open FN "a"))

(setq ss (ssget '((0 . "POINT"))))

(setq cnt (sslength ss))

(while (>= (setq cnt (1- cnt)) 0)

(setq tmp (ssname ss cnt))

(setq el (entget tmp))

(setq COORDS (assoc 10 el))

(setq XCOORD (cadr COORDS))

(setq YCOORD (caddr COORDS))

(setq ZCOORD (cadddr COORDS))

(setq xyzlin (strcat (rtos XCOORD 2 3) "," (rtos YCOORD 2 3) "," (rtos ZCOORD 2 3) ))

(write-line xyzlin FIL)

)'elihw

(close FIL)

); end defun

دوستانی که تمایل به کپی کردن کد برنامه را ندارند می‌توانند فایل لیسپ (LISP) برنامه بالا را از پیوندهای زیر دریافت نمایند.

برای اجرای این برنامه پس از دریافت و بارگذاری برنامه روی نرم افزار اتودسک خود، کافیست در خط فرمان (Command Line) نام اجرای برنامه که در خط تعریف برنامه (defun)، نوشته شده است و اینتر کنند. نامه این برنامه برای اجرا EXPOINT است.

نکته : جزوات و اطلاعات این سایت به روز خواهند شد پس در زمان دانلود، به تاریخ انتشار آن توجه فرمایید.

حجم داده : ۲۳ کیلوبایت

تاریخ انتشار : ۹۳/۰۴/۲۲

دانلود : دانلود از لینک مستقیم

دانلود : دانلود از لینک کمکی ۱

دانلود : دانلود از لینک کمکی ۲

رمز فایل :www.geogis.ir

راهنمای دانلود

راهنمای تصویری دانلود

[!] گزارش

Processing your request, Please wait....

برچسب‌هاAuto LISP, AutoCAD, Exports XYZ text file From point selections, اتولیسپ, اتوکد, خروجی گرفتن از نقاط اتوکدی به‌صورت فایل متنی

AutoLisp

۸ نظر

وحید می‌گوید،
سلام
من Lisp داخل اتودسک بارگذاری کردم و روند تایپ دستور جلو Command line را ادامه دادم : expoint
ولی بعد از اینتر کردن پیغام Unknown می آید.
با تشکر از تلاش و راهنمایی شما

ارسال شده در تاریخ تیر ۳۱ام, ۱۳۹۳ در ساعت ۱۱:۵۸ ق.ظ
راستگو می‌گوید،
با سلام
این برنامه‌ها همگی تست شدن و در سایت قرار داده شده است.
به احتمال خیلی زیاد شما درست فایلتون را بارگذاری نکردید، زیرا پیغام فرمان ناشناخته (Unknown) زمانی ظاهر می‌شود که فایل درست بارگذاری (Load) نشده باشد.
لطفاً یک بار دیگر از دانلود صحیح برنامه و اینکه پسوند آن .lsp هست اطمینان حاصل کرده و یک بار دیگر آن را به شیوه ای که در قسمت بارگذاری نرم افزار توضیح داده شده بارگذاری و اجرا کنید.
پیروز و سربلند باشید.

ارسال شده در تاریخ مرداد ۲ام, ۱۳۹۳ در ساعت ۲:۰۸ ق.ظ
mansour می‌گوید،
با سلام خدمت شما در خصوص برنامه lisp دنبال یه برنامه می گردم در مورد دایمیشن هستش به این صورت که شما یه فایل اتوکد دارید که متشکل از پارسل ها هستش که برای محاسبه مساحت و اندازه هر ضلع نیازی به محاسبه تک تک این ها نیست و با همچنین برنامه ای که در اتوکد بارگذاری میشه با یه دستور کل پارسل ها مساحتشون و طول اضلاع شون محاسبه می شه اگه لطف کنین که این فایل رو برای دانلود قرار بدید ویا راهنمایی کنید که از کجا تهیه کنم خیلی از شما ممنون میشم.

ارسال شده در تاریخ آذر ۲۵ام, ۱۳۹۳ در ساعت ۸:۱۵ ب.ظ
راستگو می‌گوید،
با سلام
دوست گرامی شما برای این کار نیازی به برنامه نویسی ندارید در نرم افزار سیویل تری دی این قابلیت در قسمت قطعه زمین (Parcel) آورده شده است. برای اطلاغعات بیشتر اینجا کلیک کنید.
پیروز و سربلند باشید.

ارسال شده در تاریخ آذر ۳۰ام, ۱۳۹۳ در ساعت ۱۰:۲۷ ب.ظ
mansour می‌گوید،
با سلام خدمت شما اگه میشه لیسب up build رو در سایت بذارید و همچنین نحوه کار با این لیسب رو .

ارسال شده در تاریخ بهمن ۱۴ام, ۱۳۹۳ در ساعت ۸:۳۰ ب.ظ
راستگو می‌گوید،
با سلام
دوست گرامی یوپی بیلد یک نرم افزار است که با زبان ویژوال بیسیک اپلیکیشن (Visual basic for application) برای کار تفکیک آپارتمانها نوشته شده است. اگر شما به این کار علاقه دارید بهتر است به جزوه ای که مهندس شفیعی در این زمینه به صورت کامل و جامع تهیه کردن مراجعه کنید. (کلیک کنید)
پیروز و سربلند باشید.

ارسال شده در تاریخ بهمن ۱۴ام, ۱۳۹۳ در ساعت ۱۰:۱۶ ب.ظ
mansour می‌گوید،
با سلام خدمت شما ممنونم از راهنمایی شما در خصوص نرم افزار upbuildا اما این نرم افزار دو بخش داره که اولیش همینیه که شما می فرمایید اما دومیش مثلا میتونیم یک زمینی رو تفکیک کنیم وبعد از طریق این لیسپ که در اتوکد بارگذاری میشه به طور یک پارچه اندازه طول هر ضلع رو مینویسه و مساحت هر پلاک رو تو خودش میزنه مثل پارسل در لند و سی ویل ۳d ام هرجا میگردم این لیسپ رو واسه اتوکد پیدا نمیکنم . اگه میشه راهنماییم کنید. باز هم تشکر میکنم از سایت بسیار خوب شما. اگه میشه فیلم و کتاب های بیشتری برای دانلود در سایت تون قرار بردید.

ارسال شده در تاریخ بهمن ۱۵ام, ۱۳۹۳ در ساعت ۶:۳۵ ب.ظ
راستگو می‌گوید،
با سلام
دوست گرامی بنده این فایل را ندارم.
سپاس و درود

ارسال شده در تاریخ بهمن ۲۱ام, ۱۳۹۳ در ساعت ۱۲:۳۱ ق.ظ