Cách sử dụng hàm vlax-put-property trong thay đổi giá trị Position1 XY của dynamicblockproperties

[limfx 21]

Nhờ các anh chỉ giúp cách sử dụng hàm vlax-put-property trong thay đổi  giá trị Position1 XY của dynamicblockproperties .Thanks!. Em có đưa lisp và block dynamic ví dụ bên dưới.

PositionXY.lsp

Drawing1.dwg

[cuongtk2 342]

Điều chỉnh lại x y , nó là khoảng cách đến InsertPoint chứ không phải là toạ độ. (Xoá 1 dấu đóng ngoặc bị thừa lúc khai báo xong x y)

 

(setq base (vlax-safearray->list
             (vlax-variant-value
               (vla-get-InsertionPoint obj)))); lấy toạ độ điểm chèn block

 (setq P2 (getpoint "\nPick coordinate location: "))
    (setq x (- (car P2) (car base))
          y (-  (cadr P2) (cadr base)))

 

Bạn nên sử dụng hàm của LeeMac để đặt giá trị cho mỗi 1 property,  vì đâu phải thuộc tính đầu tiên luôn là "Position1 X"

(LM:SETDYNPROPVALUE obj "Position1 X" x) 

[limfx 21]

Cảm ơn Anh cuongtk2 nhiều ạ! Hy vọng ngày nào được gặp anh trao đổi nhiều về lisp. Good luck!