GeoGIS

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

برنامه ای برای تبدیل توصیفات به متن در نرم افزارهای اتودسک

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

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

برای دریافت برنامه تبدیل برعکس (تبدیل متن “Text” به توصیفات “Attribute”) اینجا کلیک کنید.

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

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

					;-=================================-;
					;-   Convert attribute to text     -;
					;-  Tested on AutoCAD 2002-2014    -;
					;-           Written by            -;
					;-        Ebrahim Rastgou          -;
					;-         WWW.GeoGIS.ir           -;
					;-           05-02-14              -;
					;-=================================-;

;---------------Function for Converts attributes to texts------------------
(defun c:ATT2TXT ( / ss ssl i e new grp grplst addg)
  (setq ss (ssget '((0 . "ATTDEF"))))
  (setq ssl (sslength ss)  i 0)
  (setq grplst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
  (while (< i ssl)
    (setq e (ssname ss i))
    (setq ent (entget e))
    (setq new '((0 . "TEXT")))
    (setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
    (foreach grp grplst
      (setq addg (assoc grp ent))
      (if (/= addg nil)
        (setq new (append new (list (assoc grp ent))))
      )
    )
    (entmake new)
    (entdel e)
    (setq i (1+ i))
  )
  (princ)
)

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

;- Convert attribute to text -;

;- Tested on AutoCAD 2002-2014 -;

;- Written by -;

;- Ebrahim Rastgou -;

;- WWW.GeoGIS.ir -;

;- 05-02-14 -;

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

;---------------Function for Converts attributes to texts------------------

(defun c:ATT2TXT ( / ss ssl i e new grp grplst addg)

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

(setq ssl (sslength ss) i 0)

(setq grplst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))

(while (< i ssl)

(setq e (ssname ss i))

(setq ent (entget e))

(setq new '((0 . "TEXT")))

(setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))

(foreach grp grplst

(setq addg (assoc grp ent))

(if (/= addg nil)

(setq new (append new (list (assoc grp ent))))

)

(entmake new)

(entdel e)

(setq i (1+ i))

)

(princ)

)

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

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

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

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

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

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