DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE

DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE

Chào mừng quý vị và các bạn đến với diễn đàn http://tamnangduongsinh.forumvi.com
 
Trang ChínhPortalCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Hỗ trợ trực tuyến- Admin
Admin : Nguyễn Gia Sơn
Chat với Skype Admin!
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Tổng số lượt xem
Thống kê truy cập diễn đàn
Top posters
tamnangduongsinh (318)
 
Admin (308)
 
tamphat (130)
 
Latest topics
Tìm kiếm
 
 

Display results as :
 

 


Rechercher Advanced Search
Đồng hồ và Lịch âm dương

KẾT QUẢ XỔ SỐ
Keywords

Share | 
 

 lisp xuất text sang excel

Go down 
Tác giảThông điệp
tamnangduongsinh



Tổng số bài gửi : 318
Tổng số điểm : 785
Được cảm ơn : 71
Join date : 05/12/2014

Bài gửiTiêu đề: lisp xuất text sang excel   Thu Oct 13, 2016 4:44 pm

;TEXTOUT.LSP By: Jeffery P. Sanders
;This program gets text from an AutoCAD drawing and writes it to a text file.

;define program - listing your variable names here
; resets them to nil after the program finishes
(defun C:TEXTOUT(/ lts ernote filen fil eset en enlist cntr)

;turn echo off
(setvar "cmdecho" 0)

;get ltscale (Note: ltscale should always equal dimscale)
(setq lts(getvar "ltscale"))

;set the exit note to successful
(setq ernote "\n....TextOut Complete.")

;use dialog box to set file name / the 1 allows
;the user to type in a new file name
;the "txt" sets the default to be "*.txt"
(setq filen
(getfiled "Type or Select Text File Name" "" "txt" 1)
)

;open file to write
(if (setq fil(open filen "w"))

;progn necessary for multiple statements inside an if statement
(progn

;if ssget returns a valid selection set
(if (setq eset(ssget))

;progn necessary for multiple statements inside an if statement
(progn

;set the entity counter to zero [the first entity in a set is zero]
(setq cntr 0)

;step through each entity in the selection set
(while (< cntr (sslength eset))

;get the entity name indexed by cntr
(setq en(ssname eset cntr))

;get the DXF group codes for the entity
(setq enlist(entget en))

;check the group code 0 to see if entity type = TEXT
(if(= "TEXT" (cdr(assoc 0 enlist)))

;progn necessary for multiple statements inside an if statement
(progn

;get the text string from the entity's DXF Group Code 1
(setq str(cdr(assoc 1 enlist)))

;print the string to the command line
(princ (strcat "\nOutput To File: " str))

;print the string to the file
(princ (strcat "\n" str) fil)

) ;close the if progn

) ;close the if statement

;increment the counter to get the next entity
(setq cntr(+ cntr 1))

) ;close the while loop

;close the text file
(close fil)

) ;close the if progn

;set the exit note as an error
(setq ernote "\nError - No Entities Selected.")

) ; close the if statement

) ;close the if progn

;set the exit note to be an error
(setq ernote (strcat "\nError - Could not create File: " filen))

) ;close the if statement

;turn the command echo back on
(setvar "cmdecho" 1)

;print the exit note to the command line
(princ ernote)

;clear the command line
(princ "\n ")

;supress last echo
(princ)

) ;close the program
Về Đầu Trang Go down
Xem lý lịch thành viên
tamnangduongsinh



Tổng số bài gửi : 318
Tổng số điểm : 785
Được cảm ơn : 71
Join date : 05/12/2014

Bài gửiTiêu đề: Re: lisp xuất text sang excel   Mon Dec 10, 2018 3:58 pm

Dùng cái này nè, rất tiện cho e2c, c2e [You must be registered and logged in to see this link.]
Nguồn bài viết :
[You must be registered and logged in to see this link.]
Về Đầu Trang Go down
Xem lý lịch thành viên
tamnangduongsinh



Tổng số bài gửi : 318
Tổng số điểm : 785
Được cảm ơn : 71
Join date : 05/12/2014

Bài gửiTiêu đề: Re: lisp xuất text sang excel   Mon Dec 10, 2018 4:00 pm

(defun c:exptxt()
(setq
ss (ssget '((0 . "TEXT")))
fn (getfiled "Ten file: " "" "txt" 1)
f (open fn "w")
lst (ss2ent ss)
)
(foreach e lst
(setq tt (entget e)
p (cdr (assoc 10 tt))
x (rtos (car p))
y (rtos (cadr p))
z (cdr (assoc 1 tt))

)
(write-line (strcat x " " y " " z) f)
)
(close f)
(princ)
)

(defun ss2ent (ss / sodt index lstent)
(setq
sodt (if ss
(sslength ss)
0
)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)

Nguồn bài viết : [You must be registered and logged in to see this link.]
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: lisp xuất text sang excel   

Về Đầu Trang Go down
 
lisp xuất text sang excel
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Lưu Thuỷ Trường

Permissions in this forum:Bạn không có quyền trả lời bài viết
DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE :: Autocad :: Lisp autocad-
Chuyển đến