خروجی مختصات از اتوکد
گاهی پیش می آید که اعداد یا متن که در اتوکد هستند را به فایل اکسل خروجی بگیرم اما تایپ کردن دستی این متن ها در اکسل بسیار دشوار می باشد، این مشکل با برنامه نویسی اتوکد به راحتی حل شده است، در برنامه ای که با اتولیسپ آماده کرده ام میتوانید به راحتی متن هایی که select کردید خروجی CSV بگیرید.
اگر در خروجی مشکل است، این مشکل با تنظیمات Region ویندوز قابل حل است،اگر باز هم با مشکل برخوردید می توانید با تلگرام سایت در ارتباط باشید.
- نام دستور برای اجرای برنامه : T2N
اگر با نحوه اجرای برنامه های اتولیسپ آشنا نیستید توصیه میکنم از پست مقابل حتما دیدن کنید : آموزش اجرای برنامه های اتولیسپ
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
;;********************************************************* ;;Export Selected Texts to csv ;;2019/06/15 ;;Author : Bahman.Jafari ;;Gmail : Bahman.jf.68@gmail.com ;;********************************************************* (defun c:T2N () (vl-load-com) (setq acadObj (vlax-get-acad-object) doc (vla-get-ActiveDocument acadObj) ) (if (and (setq sel (ssget '((0 . "TEXT,MTEXT")))) (setq stm (vlax-invoke (vlax-create-object "scripting.filesystemobject") 'createtextfile (setq txt (getfiled "Save as to csv format " (getvar 'DWGPREFIX) "CSV" 1 ) ) -1 0 ) ) ) (progn (setq l nil) (vlax-invoke stm 'write "Code,EASTING,NORTHING,ELEVATION") (vlax-for obj (setq ss (vla-get-activeselectionset doc)) (setq name (vla-get-textstring obj)) (setq pt (vlax-get obj 'Insertionpoint)) (vlax-invoke stm 'write (strcat "\r\n" name "," (rtos (car pt) 2) "," (rtos (cadr pt) 2) "," (rtos (caddr pt) 2) ) ) ) (vlax-invoke stm 'close) (startapp "notepad" txt) (mapcar 'vlax-release-object (list stm fso)) ) (vla-delete ss) ) ) |
12 دیدگاه برای "لیسپ خروجی نقاط از اتوکد به اکسل"