Lisp ghi toạ độ điểm ra màn hình !!!

[leejang 5]

Các bác Pro à ? Em muốn sửa lisp pick toạ độ để ghi thêm X=, Y= trước các toạ độ tương ứng:

Command: td

Pick point:(chọn điểm lấy toạ độ)

Điểm ghi toạ độ:(Chọn điểm ghi tạo độ)

kết quả :

X=....

Y=....

 

(DEFUN EXCUTE(/ n P TX TY)

(setq str (strcat "\nPhan so le muon lay [" (itoa sl) "] (press Enter or Space for get default): "))

(setq n (getint str))

(if (/= n Nil)

(setq sl n)

)

(While T

(setq P Null)

(princ "\nPick a point or press ESC for exit:")

(setq P (getpoint))

(if (/= P Nil)

(progn

(setq TX (rtos (Car P) 2 sl))

(setq TY (rtos (Cadr P) 2 sl))

(command "-INSERT" "TD" P "1" "1" "0" TX TY)

)

)

);End While

)

(DEFUN INIT()

(if (= sl Nil)

(setq sl 2)

)

)

(DEFUN C:TD()

(INIT)

(EXCUTE)

)

[Tue_NV 3.912]

Các bác Pro à ? Em muốn sửa lisp pick toạ độ để ghi thêm X=, Y= trước các toạ độ tương ứng:

Command: td

Pick point:(chọn điểm lấy toạ độ)

Điểm ghi toạ độ:(Chọn điểm ghi tạo độ)

kết quả :

X=....

Y=....

 

(DEFUN EXCUTE(/ n P TX TY)

(setq str (strcat "\nPhan so le muon lay [" (itoa sl) "] (press Enter or Space for get default): "))

(setq n (getint str))

(if (/= n Nil)

(setq sl n)

)

(While T

(setq P Null)

(princ "\nPick a point or press ESC for exit:")

(setq P (getpoint))

(if (/= P Nil)

(progn

(setq TX (rtos (Car P) 2 sl))

(setq TY (rtos (Cadr P) 2 sl))

(command "-INSERT" "TD" P "1" "1" "0" TX TY)

)

)

);End While

)

(DEFUN INIT()

(if (= sl Nil)

(setq sl 2)

)

)

(DEFUN C:TD()

(INIT)

(EXCUTE)

)

Bạn thay 2 dòng :

(setq TX (rtos (Car P) 2 sl))

(setq TY (rtos (Cadr P) 2 sl))

bằng 2 dòng :

(setq TX (strcat "X = " (rtos (Car P) 2 sl)))

(setq TY (strcat "Y = "(rtos (Cadr P) 2 sl)))

[leejang 5]

Bạn thay 2 dòng :

(setq TX (rtos (Car P) 2 sl))

(setq TY (rtos (Cadr P) 2 sl))

bằng 2 dòng :

(setq TX (strcat "X = " (rtos (Car P) 2 sl)))

(setq TY (strcat "Y = "(rtos (Cadr P) 2 sl)))

Cảm ơn bác !

ok

[toiyeuvietnam 0]

Nhờ các anh giúp sửa cho em cái code ghi toa do X,Y  chuyển ngược thành YX và để khi copy sang Excel của Chitietwin sẽ chuyển sang 2 cột ngang với!

 

(defun c:pt (/ p)
(while (setq p (getpoint "\nPick Point: ")) (print p))
(princ))

cảm ơn các anh!

[Doan Van Ha 3.202]

Đây!

(defun c:pt (/ p)

(while (setq p (getpoint "\nPick Point: "))

(print (cdr (reverse p))))

(princ))

[toiyeuvietnam 0]

cảm ơn anh ha, anh giúp em 1 chút nữa được không, là vì khi em copy sang Excel nó thành 1 cột và lại phải bôi đen phần X và copy sang cột bên cạnh, có cách nào khi copy cả Y và X và paste sang Excel nó phân thành 2 cột Y và X không anh? sửa giúp em lấy sau dấu phẩy 2 số thập phân nữa. cảm ơn anh nhiều!

[Doan Van Ha 3.202]

Đây!

 

(defun c:pt (/ p lst fn pw)
 (while (setq p (getpoint "\nPick Point: "))
  (setq lst (cons p lst)))
 (setq fn (getfiled "Chon file de xuat ket qua" "" "csv" 1))
 (setq pw (open fn "w"))
 (write-line "Y,X" pw)
 (foreach p (reverse lst)
  (write-line (strcat (rtos (cadr p) 2 2) "," (rtos (car p) 2 2)) pw))
 (close pw)
 (princ))

[toiyeuvietnam 0]

cảm ơn anh hà rất nhiệt tình, đc rồi anh!

[lamtac0085 0]

Giúp em lập lisp ghi tọa độ điểm

X....y....

X....y....

X....y....

thành file notepad nhé các anh pro

[nguyenngoc971 77]

Mình có 5 cái:

- Xuất ra màn hình

- Xuất ra bảng

- Xuất ra .txt

- Xuất ra excel (đang tìm vì lâu rồi ko dùng đến nên không biết tên lisp là gì nữa)

- Xuất ra word (đang tìm vì lâu rồi ko dùng đến nên không biết tên lisp là gì nữa)

 

[lamtac0085 0]

Mình cần lisp xuất ra txt để đưa vào máy cnc tìm giúp mình với

[nguyenngoc971 77]

Của bạn đây

http://www.cadviet.com/upfiles/3/114123_coorn.lsp

[lamtac0085 0]

Sao k tải về dc vậy nhỉ

[lamtac0085 0]

Sao k tải về dc vậy nhỉ

[lamtac0085 0]

K tải về dc anh ơi

[lamtac0085 0]

K tải về dc anh ơi

[nguyenngoc971 77]

-Tải bình thường mà bạn.

-Bạn đưa mail lên mình gửi qua cho

[lamtac0085 0]

Lamtac0211@gmail.com

[lamtac0085 0]

Cảm ơn anh nguyenngoc971 nhé

[lamtac0085 0]

Cảm ơn anh nguyenngoc971 nhé

[nguyenngoc971 77]

Nếu lisp đúng yêu cầu rồi thì phải like chứ nhỉ.

[tanphuoc1985 0]

e cần caí lisp xuất trược tiếp trên màng hình

.

[huy7979 0]

bạn

nguyenngoc971  cho mình xin list xuất ra màn hình với ra bảng được ko. thask nhiều

[xuxuku142 0]

Anh nguyenngoc971 ơi

Hiện em đang bí về vấn đề xuất tạo độ này nhờ anh giúp e với ạ

Nhờ anh gửi giúp em list xuất ra màn hình và bảng hộ em với được ko ạ

Cảm ơn anh nhiều trước nhé

Mail của em là  thuan.utc.gtcc@gmail.com

[Minh Kiên 0]

Xin chào bạn nguyenngoc,bạn có thể gửi giúp mình lisp xuất tọa độ ra bảng và ra màn hình được không,cảm ơn bạn nhé!

Mail mình là : connections13@gmail.com