Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
hadeptrai

xin lisp giống lệnh cdtext nhưng dùng ở trên cad

Các bài được khuyến nghị

Các bác ơi cho e xin cái lisp xuất các cao độ ra file .txt giống như lệnh cdtext ở trên nova ấy nhưng e dùng ở trên cad2007 thì nó ko có. E thank các bác.Ai cho e em xin hậu tạ các bác bằng 1 e girl call ngon lành cành đào (Nếu như các bác muốn)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Bạn có thể copy đoạn lisp này về và save lại sử dung:

;-----------------***********ChuyÓn Cao §é Tõ Acad Vµo Files .TXT**********------------

;********************

(defun doichu ()

(setvar "cmdecho" 0)

(setvar "cmdecho" 0)

(setvar "osmode" 0)

(if_file2)

;(setq s (getstring "\nFilename <Khong-Ten>: "))

;(if (= s nul) (setq s "Khong-Ten"))

(setq fn (open filename2 "w"))

(setq i 0)

(setq j 1)

(prompt "\n")

(prompt "\Chän C¸c §iÓm Cao §é : ")

(setq ss (ssget (list (cons 0 "Text"))))

(if ss

(progn

(repeat (sslength ss)

(setq ent (entget (ssname ss i)))

(setq nd (cdr (assoc 1 ent)))

(setq ss1 (cdr (assoc 72 ent)))

(setq ss2 (cdr (assoc 73 ent)))

(if (and (= ss1 0) (= ss2 0))

(setq td (cdr (assoc 10 ent)))

(setq td (cdr (assoc 11 ent)))

)

;(setq td1 (cdr (assoc 10 ent)))

(setq Y (cadr td))

(setq X (car td))

(setq z (caddr td))

(write-line (strcat (itoa j)

" "

(rtos X 2 3)

" "

(rtos Y 2 3)

" "

(rtos z 2 3)

" "

nd

) fn)

(setq i (+ i 1))

(setq j (+ j 1))

)

)

)

(close fn)

(setvar "osmode" 191)

(prompt "\n**** Chóc B¹n Thµnh C«ng ***")

(princ)

)

;********************************

;*********

(defun c:XCDT ()

(doichu)

)

;;***************************Mo file

(defun if_file1 (/ name1)

(if (= filename1 nil)

(progn

(setq name1 (getfiled "Më TËp Tin Chøa Sè LiÖu"

(strcat "d:/canhan/TUAN/luu/" "solieu") "txt" 2))

(if name1 (setq filename1 (strcase name1)))

)

(progn

(setq name1 (getfiled "Më TËp Tin Chøa Sè LiÖu"

filename1 "txt" 2))

(if name1 (setq filename1 (strcase name1)))

)

)

)

;****************************Ghi file

(defun if_file2 (/ name2)

(if (= filename2 nil)

(progn

(setq name2 (getfiled "Më TËp Tin Chøa Sè LiÖu"

(strcat "d:/canhan/TUAN/luu/" "solieu") "txt" 1))

(if name2 (setq filename2 (strcase name2)))

)

(progn

(setq name2 (getfiled "L­u TËp Tin Sè LiÖu"

filename2 "txt" 1))

(if name2 (setq filename2 (strcase name2)))

)

)

)

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

3 Thành viên đang đọc chủ đề này

2 members, 1 guests, 0 anonymous users

1. hadeptrai,

2. cd2k44

Bạn copy ve mở bằng notepad sau đó lưu file lại dưới dạng đuôi lisp.

Thui mình gửi bạn luôn:http://www.cadviet.com/upfiles/3/xtdt.rar

Tên lệnh xtdt

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

thank bạn nhé cần hàng thì aloo cho mình nhé thank pro

Hàng zì thía.Bạn có phần mềm gì hay hen,ok vậy cho mail đi tiện liên lạc

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hàng zì thía.Bạn có phần mềm gì hay hen,ok vậy cho mail đi tiện liên lạc

=)) đọc topic này đến đây thì quặn ruột vì cười.

Đừng ôm cái máy tính suốt ngày thế chứ bạn. nghỉ ngơi giải trí tý đê :lol:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×