GeoGIS

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

برنامه‌ای برای نمایش نام لایه در خط فرمان

ارسال توسط راستگو در تاریخ ۷ - اردیبهشت - ۱۳۹۳

در زیر برنامه‌ای برای نمایش نام لایه عوارض ترسیم شده در یک سند اتودسک(اتوکد، لنددسکتاپ، سیویل تری دی)، قرار داده شده است. به کمک نصب این فایل بسیار کوچک، کاربر می‌تواند با کلیک کردن روی هر عارضه، نام لایه‌ای که آن عارضه در آن ترسیم شده است (در آن لایه قرار دارد) را در خط فرمان مشاهده کند.

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

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

;;;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;;;|                                     |
;;;|        ()()()    ()()()    ()()()    ()()()   ()()   ()()         |
;;;|       ()    ()  ()    ()  ()    ()  ()    ()   ()   ()  ()        |
;;;|       ()    ()  ()        ()    ()  ()    ()   ()    ()          |
;;;|       ()        ()()()    ()    ()  ()         ()     ()           |
;;;|       ()  ()()  ()        ()    ()  ()  ()()   ()      ()         |
;;;|       ()    ()  ()    ()  ()    ()  ()    ()   ()   ()  ()        |
;;;|        ()()()    ()()()    ()()()    ()()()   ()()   ()()          |
;;;|                                    |
;;;|        All rights of this program is to GeoGIS.ir        |
;;;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
; layer name
(defun  C:lan()
  (prompt "\npick entity on the layer you want listed:")
  (setq name (cdr (assoc 8 (entget (car (entsel))))))
  (princ "\nthe layer is ")
  (princ name)
  (princ)
)

;;;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

;;;| |

;;;| ()()() ()()() ()()() ()()() ()() ()() |

;;;| () () () () () () () () () () () |

;;;| () () () () () () () () () |

;;;| () ()()() () () () () () |

;;;| () ()() () () () () ()() () () |

;;;| () () () () () () () () () () () |

;;;| ()()() ()()() ()()() ()()() ()() ()() |

;;;| |

;;;| All rights of this program is to GeoGIS.ir |

;;;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

; layer name

(defun C:lan()

(prompt "\npick entity on the layer you want listed:")

(setq name (cdr (assoc 8 (entget (car (entsel))))))

(princ "\nthe layer is ")

(princ name)

(princ)

)

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

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

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

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

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

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