Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
52 replies to this topic

#1 leejang

leejang

    biết lệnh move

  • Members
  • PipPipPip
  • 120 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 11 August 2009 - 10:04 AM

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)
)
  • 1

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 11 August 2009 - 10:43 AM

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)))
  • 0

#3 leejang

leejang

    biết lệnh move

  • Members
  • PipPipPip
  • 120 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 11 August 2009 - 11:26 AM

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
  • 0

#4 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 08 August 2013 - 04:36 PM

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!


  • 0

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 08 August 2013 - 05:16 PM

Đây!

(defun c:pt (/ p)

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

(print (cdr (reverse p))))

(princ))


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#6 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 08 August 2013 - 05:59 PM

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!
  • 0

#7 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 08 August 2013 - 06:33 PM

Đâ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))

  • 2

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#8 toiyeuvietnam

toiyeuvietnam

    biết vẽ polygon

  • Members
  • PipPip
  • 78 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 08 August 2013 - 10:25 PM

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


  • 0

#9 lamtac0085

lamtac0085

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 26 April 2014 - 01:03 PM

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
  • 0

#10 nguyenngoc971

nguyenngoc971

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 385 Bài viết
Điểm đánh giá: 74 (tàm tạm)

Đã gửi 26 April 2014 - 03:08 PM

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)

114123_untitled_9.gif

 


  • 3

114123_building_folds_demolition.gif


#11 lamtac0085

lamtac0085

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 26 April 2014 - 04:28 PM

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

#12 nguyenngoc971

nguyenngoc971

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 385 Bài viết
Điểm đánh giá: 74 (tàm tạm)

Đã gửi 26 April 2014 - 05:25 PM

Của bạn đây

http://www.cadviet.c...14123_coorn.lsp


  • 0

114123_building_folds_demolition.gif


#13 lamtac0085

lamtac0085

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 27 April 2014 - 08:39 AM

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

#14 lamtac0085

lamtac0085

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 27 April 2014 - 12:35 PM

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

#15 lamtac0085

lamtac0085

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 27 April 2014 - 08:41 PM

K tải về dc anh ơi
  • 0

#16 lamtac0085

lamtac0085

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 27 April 2014 - 08:42 PM

K tải về dc anh ơi
  • 0

#17 nguyenngoc971

nguyenngoc971

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 385 Bài viết
Điểm đánh giá: 74 (tàm tạm)

Đã gửi 27 April 2014 - 08:46 PM

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

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


  • 1

114123_building_folds_demolition.gif


#18 lamtac0085

lamtac0085

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 28 April 2014 - 02:43 PM

Lamtac0211@gmail.com
  • 0

#19 lamtac0085

lamtac0085

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 28 April 2014 - 02:45 PM

Cảm ơn anh nguyenngoc971 nhé
  • 0

#20 lamtac0085

lamtac0085

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 28 April 2014 - 02:45 PM

Cảm ơn anh nguyenngoc971 nhé
  • 0