Đến nội dung


Hình ảnh

Giúp đỡ -Ghi tọa độ pick điểm lên bản vẽ Cad


  • Please log in to reply
6 replies to this topic

#1 viendinhngoc

viendinhngoc

    biết vẽ ellipse

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

Đã gửi 22 May 2015 - 02:27 PM

Chào các bạn minh có thắc mắc mong bạn giúp với

m muốn pick tọa độ điểm trên cad rồi ghi tọa độ lên bản vẽ luôn

mà không tìm thấy lisp nào dùng được. bạn nào có chia sẽ cho mình với

thank


  • 0

#2 Tr.CongSon

Tr.CongSon

    biết lệnh array

  • Members
  • PipPipPip
  • 183 Bài viết
Điểm đánh giá: 40 (tàm tạm)

Đã gửi 22 May 2015 - 02:42 PM

Cái này đâu cần Lisp đâu bạn,có nhiều cách để lấy mà^ Ví dụ:

  1. Gõ Po (Point) -->Enter.Sau đó chon point vừa vẽ ,rồi Ctrl +1 hoặc gõ Li là thấy mà ,từ đó thích Copy hay làm gì thì tùy^^
  2. Gõ ID -->Chọn điểm -->Bấm F2 là thấy tọa độ 3 điểm rõ rang^^
  3. Nếu dùng Lisp thì tặng bạn luôn^^

 

(defun c:pd ( / po x y z)
(command "undo" "Be")
(setvar "cmdecho" 0)
(setq po(getpoint "\nChon diem xuat toa do:"))
(setq x (rtos (car po) 2 2)
y (rtos (cadr po) 2 2)
z (rtos (caddr po) 2 2))
(command ".text" "J" "MC" po (* 5 (getvar "dimscale")) 0 (strcat x "," y "," z))
(setvar "cmdecho" 1)
(command "undo" "end")
(princ)
)


  • 0

#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 22 May 2015 - 02:56 PM

Bạn TCS chú ý khi dùng (command "text"...) thì chú ý đến height của textstyle current bằng 0 hay khác 0, nếu không sẽ bị lỗi. Nhiều lisp bạn viết quên điều này.


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


#4 Tr.CongSon

Tr.CongSon

    biết lệnh array

  • Members
  • PipPipPip
  • 183 Bài viết
Điểm đánh giá: 40 (tàm tạm)

Đã gửi 22 May 2015 - 03:51 PM

Bạn TCS chú ý khi dùng (command "text"...) thì chú ý đến height của textstyle current bằng 0 hay khác 0, nếu không sẽ bị lỗi. Nhiều lisp bạn viết quên điều này.

Chết chết,em không nghĩ đến điều này,tại bản vẽ em làm toàn để Texthight =0.0 nên khi (command "text" ) không bị lỗi,nên không chú ý

Đối với trường hợp Texthight khác 0.0 thì text xuất ra = 0 ạ

Mong anh chị giải thích thêm để khắc phục lỗi này ạ

Em cảm ơn!


  • 0

#5 viendinhngoc

viendinhngoc

    biết vẽ ellipse

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

Đã gửi 22 May 2015 - 03:54 PM

Bác viết thêm em mũi tên để kéo xa bản vẽ chứ không thì nó khso nhìn lắm

Thêm Chọn được số sau dấu phẩy

Và khi UCS thay đổi tọa độ thì pick tọa độ lại có thay đổi không bác


  • 0

#6 viendinhngoc

viendinhngoc

    biết vẽ ellipse

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

Đã gửi 22 May 2015 - 04:10 PM

Có lisp này lệnh TD nó ghi tọa độ khá hay nhưng bị lỗi font phần hiển thị gợi ý. Command thì mình sửa được rồi

Với lại khi mình UCS lại hệ tọa độ mới thì TD nó vẫn ra tọa độ gốc của nó ( khác với ID đã cập nhập tọa độ mới)


Bài viết đã được chỉnh sửa nội dung bởi viendinhngoc: 22 May 2015 - 04:19 PM

  • 0

#7 viendinhngoc

viendinhngoc

    biết vẽ ellipse

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

Đã gửi 22 May 2015 - 04:20 PM

ĐÂY NHÉ CÁC BÁC NHÉ


  • 0