[Giúp đỡ]Tọa độ của điểm đặt block khác với ma 10 DFX

[huunhantvxdts 195]

Mình dùng lisp sau để xem tọa độ của điểm đặt block thì cho ra kết quả khác với dùng lệnh mo xem tọa độ

Mọi người biết lý do giúp mình với

(defun c:gfi()
(setq ma (car (entsel)))
(setq ma1 (entget ma))
(princ ma1)
(princ)
)

 

Toa do Block.dwg

[ndtnv 481]

Vì dxf 210 không phải (0 0 1)

 

[huunhantvxdts 195]

7 phút trước, ndtnv đã nói:

Vì dxf 210 không phải (0 0 1)

 

Bây giờ làm sao để nó về đúng với giá trị giống giá tri mo

[Danh Cong 422]

Chắc bác thay đổi toạ độ UCS địa phương :)))

Bác đổi về UCS thế giới xem có lỗi nữa không :))

[huunhantvxdts 195]

38 phút trước, Danh Cong đã nói:

Chắc bác thay đổi toạ độ UCS địa phương :)))

Bác đổi về UCS thế giới xem có lỗi nữa không :))

Không đơn giản rứa bỡi có nhiều block lại đúng chỉ 1 ít sai thôi.

Vấn đề nữa là thay mã dfx 210 về (0 0 1) nó lại nhảy đi chỗ khác

[NTHAHT 83]

Do hiển thị thôi! (làm tròn số) -> thực chất là 1 đó!

Bạn thử xem có giống nhau không:

(defun c:td  (/ ent)
  (if (setq ent (car (entsel "\nPick Block: ")))
    (mapcar ''((x) (rtos x 2 2)) (cdr (assoc 10 (entget ent))))))

 

[ngokiet 169]

Mã dxf 210 là pháp vecto của mặt phẳng chứa block đó. 

Nếu thay đổi mặt phẳng thì nó thay đổi vị trí.

Do block nó nằm nghiêng nên thay đổi code 210 sẽ lỗi thôi

Code 210 có 3 giá trị tổng bình phương là 1.

Bạn muốn lấy giá trị thì bạn phải dùng chuyển trục toạ độ thôi.

Bạn thử tham khảo https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/dxf-codes-10-and-210-formula/td-p/1132777/page/2

 Mình ko trên máy nên chưa test.

[huunhantvxdts 195]

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

Do hiển thị thôi! (làm tròn số) -> thực chất là 1 đó!

Bạn thử xem có giống nhau không:

(defun c:td  (/ ent)
  (if (setq ent (car (entsel "\nPick Block: ")))
    (mapcar ''((x) (rtos x 2 2)) (cdr (assoc 10 (entget ent))))))

 

Chắc bạn chưa chú ý tọa độ x =512107.72 khi xem lệnh mo và x=-512107.72 khi dùng lisp

[NTHAHT 83]

12 phút trước, huunhantvxdts đã nói:

Chắc bạn chưa chú ý tọa độ x =512107.72 khi xem lệnh mo và x=-512107.72 khi dùng lisp

Ah, srr.

Bạn chuyển theo lisp này xem!

(defun c:td  (/ els ent poi)
  (if (setq ent (car (entsel "\nPick Block: ")))
    (progn (setq els (entget ent))
           (setq poi (trans (cdr (assoc 10 els)) (cdr (assoc 210 els)) 1)
                 els (subst (cons 10 poi) (assoc 10 els) els)
                 els (subst '(210 0.0 0.0 1.0) (assoc 210 els) els))
           (entmod els))))

[huunhantvxdts 195]

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

Ah, srr.

Bạn chuyển theo lisp này xem!

(defun c:td  (/ els ent poi)
  (if (setq ent (car (entsel "\nPick Block: ")))
    (progn (setq els (entget ent))
           (setq poi (trans (cdr (assoc 10 els)) (cdr (assoc 210 els)) 1)
                 els (subst (cons 10 poi) (assoc 10 els) els)
                 els (subst '(210 0.0 0.0 1.0) (assoc 210 els) els))
           (entmod els))))

Cái này mình thử rồi khi thay mã 210 block sẽ chuyển về vị trí tọa độ âm

Mình muốn lấy tọa độ theo lệnh mo

Hiện tại đang lấy giá trị tuyệt đối của tọa độ x,y không biết có trường hợp nào sai ko nữa

[NTHAHT 83]

Bạn thử lisp trên chưa? Thay cả 10 và 210 mà!

[Doan Van Ha 3.192]

Thử:

((lambda (data) (trans (cdr (assoc 10 data)) (cdr (assoc 210 data)) 1)) (entget (car (entsel))))

[huunhantvxdts 195]

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

Bạn thử lisp trên chưa? Thay cả 10 và 210 mà!

ok rồi bạn đọc qua tường thay chắc mã 210 sorry ban

Cám ơn bạn nhiều