GeoGIS

سایتی در زمینه علوم ژئوماتیک

برنامه‌ای برای تبدیل صفحه‌های سه‌بعدی به چندخطی‌های سه‌بعدی

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

در زیر برنامه‌ای کاربردی برای تبدیل صفحه‌های سه‌بعدی (۳Dface) به چندخطی‌های سه‌بعدی (۳DPolyline) در سند نرم‌افزارهای اتودسک (اتوکد، لنددسکتاپ، سیویل تری دی)، قرار داده‌شده است. پس از اجرای دستور با انتخاب تمام صفحه‌های سه‌بعدی در کسری از ثانیه آن‌ها تبدیل به چندخطی‌های سه‌بعدی می‌شوند. این برنامه زمانی کاربرد دارد که شما بخواهید مثلث‌بندی موجود در نرم‌افزارهای اتودسک مانند سیویل و لنددسکتاپ را وارد نرم‌افزار دیگری کنید. معمولاً نرم‌افزارهای دیگر ۳DFace را نمی‌شناسند ولی ۳DPolyline را می‌شناسند.

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

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

					;-=====================================-;
					;-  Converts 3D Faces to 3D Polylines  -;
					;-    Tested on AutoCAD 2002-2014      -;
					;-              Written by             -;
					;-           Ebrahim Rastgou           -;
					;-            WWW.GeoGIS.ir            -;
					;-              05-02-14               -;
					;-=====================================-;

;---------------Converts 3D Faces to 3D Polylines------------------

(defun C:3df3dp ()
  (setq cmdecho (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (command "UNDO" "G")
  (setq sset (ssget '((0 . "3DFACE"))))
  (if sset
    (progn
      (setq itm 0 num (sslength sset))
      (while (< itm num)
        (setq hnd (ssname sset itm))
        (setq ent (entget hnd))
        (setq pt1 (cdr (assoc 10 ent)))
        (setq pt2 (cdr (assoc 11 ent)))
        (setq pt3 (cdr (assoc 12 ent)))
        (setq pt4 (cdr (assoc 13 ent)))
        (entdel hnd)
        (command "_3DPOLY" pt1 pt2 pt3 pt4 "C")
        (setq itm (1+ itm))
      );  end while
      (princ ", Done.")
    );  end progn
  );  end if
  (setq sset nil)
  (command "UNDO" "E")
  (setvar "CMDECHO" cmdecho)
  (princ)
);  end defun

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

;- Converts 3D Faces to 3D Polylines -;

;- Tested on AutoCAD 2002-2014 -;

;- Written by -;

;- Ebrahim Rastgou -;

;- WWW.GeoGIS.ir -;

;- 05-02-14 -;

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

;---------------Converts 3D Faces to 3D Polylines------------------

(defun C:3df3dp ()

(setq cmdecho (getvar "CMDECHO"))

(setvar "CMDECHO" 0)

(command "UNDO" "G")

(setq sset (ssget '((0 . "3DFACE"))))

(if sset

(progn

(setq itm 0 num (sslength sset))

(while (< itm num)

(setq hnd (ssname sset itm))

(setq ent (entget hnd))

(setq pt1 (cdr (assoc 10 ent)))

(setq pt2 (cdr (assoc 11 ent)))

(setq pt3 (cdr (assoc 12 ent)))

(setq pt4 (cdr (assoc 13 ent)))

(entdel hnd)

(command "_3DPOLY" pt1 pt2 pt3 pt4 "C")

(setq itm (1+ itm))

); end while

(princ ", Done.")

); end progn

); end if

(setq sset nil)

(command "UNDO" "E")

(setvar "CMDECHO" cmdecho)

(princ)

); end defun

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

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

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

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

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

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