Nhờ chỉnh sửa lisp ghi tọa độ

[newcadvn 3]

Xin chào các anh chị !

Nhờ các anh chịgiúp đỡ về lisp này ( mình không biết gì về lisp chỉ biết su dung thôi )

(defun c:XY (/)
 (setvar "DYNMODE" 1)
 (setq pt (getpoint "\nPick Point  >"))
 (vl-cmdf "_leader"
          pt
          pause
          ""
          (strcat "X = " (rtos (car pt) 2 3))
          (strcat "Y = " (rtos (cadr pt) 2 3))
          ""
 )
)

Mình muốn ghi toa độ chia cho 1000 ( gì vẽ mm ghi ra vn 2000 theo met)

X và Y nằm giữa đường leader ! ( hiện tại X, Y nằm trên duong leader )

Xin cham thành cám ơn

[quangcda 6]

X và Y nằm giữa có thể do định dạng Mleader. còn chia cho 1000 thì như này bạn:

(defun c:XY (/)
 (setvar "DYNMODE" 1)
 (setq pt (getpoint "\nPick Point  >"))
 (vl-cmdf "_leader"
          pt
          pause
          ""
          (strcat "X = " (rtos (/ (car pt) 1000) 2 3))
          (strcat "Y = " (rtos (/ (cadr pt) 1000) 2 3))
          ""
 )
)

[newcadvn 3]

xin cám ơn bạn .

[vietduc147258 54]

Bạn dùng Qleder có thể giải đưa text về giữa được.

Do không biết cái thiết lập cho Qleder có lệnh System Variable nào nên bạn thiết lập thủ công như sau:

Nhấn lệnh qleder - > chọn Setings- Chọn thẻ Attacment. Có mấy kiểu Middle, bạn chọn kiểu ưng ý cho cả left và right.

Cái này chỉ có tác dụng trên file đó. Có thể thiết lập sẵn trong file mẫu.

Sau đó dùng cái này:

 

(defun c:XY (/)
 (setvar "DYNMODE" 1)
 (setq pt (getpoint "\nPick Point  >"))
 (vl-cmdf "_QLEADER"
          pt
          pause
          ""
          ""
          (strcat "X = " (rtos (/ (car pt) 1000) 2 3))
          (strcat "Y = " (rtos (/ (cadr pt) 1000) 2 3))
          ""
 )
)

[NTHAHT 83]

1 giờ trước, vietduc147258 đã nói:

Bạn dùng Qleder có thể giải đưa text về giữa được.

Do không biết cái thiết lập cho Qleder có lệnh System Variable nào nên bạn thiết lập thủ công như sau:

Nhấn lệnh qleder - > chọn Setings- Chọn thẻ Attacment. Có mấy kiểu Middle, bạn chọn kiểu ưng ý cho cả left và right.

Cái này chỉ có tác dụng trên file đó. Có thể thiết lập sẵn trong file mẫu.

Sau đó dùng cái này:

Mình nghĩ chủ thớt muốn thế này.

[newcadvn 3]

Vâng ! đúng rồi mà mình vẫn chưa làm được ! Xin chỉ giúp ! Cám ơn @NTHAHT

[NTHAHT 83]

 

[vietduc147258 54]

1 giờ} trướ}c, NTHAHT đã nói:

Mình nghĩ chủ thớt muốn thế này.

Cũng thấy thế này đẹp hơn. Nhưng Setting để ra được như thế thì chịu. Mleader thì được, chứ Qleader với Leader thì chịu

[newcadvn 3]

Vâng ! đúng rồi ! xin bạn chỉ giúp @NTHAHT !lisp  sửa lại làm sao ? Xin cám on.

 

 

[Duong Nhat Duy 302]

Bạn dùng Block động ý, tiện hơn nhiều, copy vào là xong khỏi cần lisp, sau này còn phục vụ thống kê nữa.

File DWG: BLOCK TOA DO.dwg

[ronaldo2002 7]

.... HONG!!!

[NTHAHT 83]

Vào lúc 14/3/2024 tại 10:22, newcadvn đã nói:

Vâng ! đúng rồi mà mình vẫn chưa làm được ! Xin chỉ giúp ! Cám ơn @NTHAHT

a - Mình để lisp ở video.

b - Mô tả thêm:

- Chọn hệ toạ độ: nhấn "C" để chọn HTD autocad hoặc Vn2000 (chỉ là đảo X, Y).

- Tỷ lệ: Nhấn "S" để chia X, Y cho nó.

- Nhấn "P": số chữ số thập phân.

- Nhấn "R": Trường hợp copy ra mỗi leader (không có Mtext), hoặc định dạng không giống như nhu cầu...

- Nhấn "U": Sẽ cập nhật tọa độ...

*** Ngoài ra (Phải load lisp mới có tác dụng - Dùng reactor):

- Khi copy leader kèm mtext (tất nhiên là do lisp này tạo ra), tọa độ sẽ tự cập nhật.

- Khi chỉnh sửa hoặc move leader thì Mtext Textstring tự thay đổi phù hợp tọa độ mà trước đó đã thiết lập.

*** Update

Chỉnh sửa Tháng 3 15 theo NTHAHT
Update

[newcadvn 3]

Xin cám ơn bạn @NTHAHT .

Mình cố gắng xem video để chép ra thành lisp nhưng không được ( mình không biết gì về lisp , chỉ biết sử dụng downd trên mạng và anh em chỉ giúp )

Nếu có thể bạn up lisp để cho mọi người .

Xin chân thành cám ơn.

 

 

[NTHAHT 83]

22 phút trước, newcadvn đã nói:

Xin cám ơn bạn @NTHAHT .

Mình cố gắng xem video để chép ra thành lisp nhưng không được ( mình không biết gì về lisp , chỉ biết sử dụng downd trên mạng và anh em chỉ giúp )

Nếu có thể bạn up lisp để cho mọi người .

Xin chân thành cám ơn.

 

 

[newcadvn 3]

xin cám ơn bạn @NTHAHT

Mình download về và đã xử dụng lisp

Nhưng có điều chữ nó vẫn nằm ở trên leader ! mình kéo nó thì nó sẽ ngay giữa leader .

Mình mò  mà chưa ra . xin chỉ giúp !

 

[NTHAHT 83]

11 giờ trước, newcadvn đã nói:

xin cám ơn bạn @NTHAHT

Mình download về và đã xử dụng lisp

Nhưng có điều chữ nó vẫn nằm ở trên leader ! mình kéo nó thì nó sẽ ngay giữa leader .

Mình mò  mà chưa ra . xin chỉ giúp !

 

Bạn có thể gửi file.dwg hoặc video thể hiện các bước thực hiện của bạn hay không???!!!

[newcadvn 3]

Vâng ! xin cám on bạn ! mình xin gửi file Cad bạn xem giúp !

test.coordinate.dwg

[NTHAHT 83]

3 giờ trước, newcadvn đã nói:

Vâng ! xin cám on bạn ! mình xin gửi file Cad bạn xem giúp !

test.coordinate.dwg

Mình đã cập nhật, link ở chỗ cũ.

 

P/s: Theo ý kiến của mod, mình đưa LINK về đây.

Chỉnh sửa Tháng 3 18 theo NTHAHT
Theo ý kiến của mod.

[Doan Van Ha 3.191]

9 phút trước, NTHAHT đã nói:

Mình đã cập nhật, link ở chỗ cũ.

Nếu lisp này không có gì bí mật thì bạn có thể share trên forum này thì tiện hơn?

 

[newcadvn 3]

xin cám ơn bạn @NTHAHT

Xin cảm ơn.