Chuyển đến nội dung
Diễn đàn CADViet

M@trixs

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    8

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi M@trixs

  2. Đã đăng · Trả lời báo cáo

    Mình xin "moi" topic này lên để hỏi về vấn đề này

    Trường hợp sinh năm 1986 = 1+9+8+6=24 -> 2+4 =6 là Nam -> 11-6 = 5 

    Theo cách tính của bạn thienchip86 thuộc quái số 5 (Hướng tốt là Đông Bắc-Phục Vị, Tây Bắc - Thiên Y, Chính Tây - Phúc Đức, Tây Nam - Sanh Khí)

    Mình có xem ở đây http://www.diaoconline.vn/kham-pha/phong-thuy-c9/xem-huong-nha-tot-xau-theo-bat-trach-i24927 và một số Web khác có bảng tra này

    Các hướng tốt thì đúng nhưng tên các cung đi với hướng thì chưa đúng bạn xem có sai gì không ?

     

    Sao mình không chèn được ảnh nhỉ 

    http://www.upanh.com/slider/?e=malihu&s=upload&start=1vm2du2e6sj

     

     

    cái này thì thienchip86 nhầm rồi

    Với Nam sinh năm 86 (Bính Dần) thì Đông Bắc (Sinh Khí); Tây Bắc (Phước Đức); Tây (Thiên Y)

     

     

    Có lẽ là ThienChip đã xếp nhầm Quẻ (Quái). Đề nghị xem lại cho chính xác....

  4. Đã đăng · Trả lời báo cáo

    Ai giúp M@trixs với : Hiện tại nếu M@trixs tạo Block giống như cách này cho một hình vuông kt: 200x200 theo tỉ lệ 1/20 trong bản vẽ đag có tỉ lệ 1/100. Thì khi tạo tính năng Streck, mình cần làm gì để nó hiểu là mình bắt nó thao tác trên tỉ lệ 1/100, tức là nếu M@trixs muốn kéo nó dài ra 100 nữa để có kích thước 200x300 thì chỉ cần nhập thêm 100 vào mà không cần phải lấy 100*5=500 rồi mối nhập kích thước 500 vào không các bạn ????

  7. Đã đăng · Trả lời báo cáo

    Không khó khăn lắm :) Của bạn đây. Chúc bạn vui vẻ

    (defun c:oo (/ ss objlst dist entlst1 entlst2 kwrd)
(grtext -1 "Free from CADviet @ketxu")
(setq dist (getdist "\nKhoang cach offset: "))
(princ "\nChon doi tuong offset ")
(setq ss (ssget '((0 . "LWPOLYLINE,LINE,ARC,CIRCLE,ELLIPSE,SPLINE"))))
(if ss
(progn
(setq objlst (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
(initget (+ 2 4) "Yes No")
(setq kwrd (getkword "\nXoa doi tuong goc hay khong [Yes/No] : "))
(if (null kwrd)
(setq kwrd "No")
)
(foreach obj objlst
(vla-offset obj dist)
(setq entlst1 (cons (vlax-ename->vla-object (entlast)) entlst1)) 
(vla-offset obj (* dist -1))
(setq entlst2 (cons (vlax-ename->vla-object (entlast)) entlst2))
(mapcar '(lambda (x) (vla-put-layer x (getvar "clayer"))) entlst1)
(mapcar '(lambda (x) (vla-put-layer x (getvar "clayer"))) entlst2)
(if (eq kwrd "Yes")
(vla-erase obj)
)
)
)
)
(princ)
)

     

    Lệnh này hay quá..... Nhưng có ai giúp mình thêm dòng code cho nó ghi nhớ giá trị Ofset mình vừa nhập không ???

     

    Giúp mình với nhé, mình nghĩ chắc nhiều người cũng cần. Chân thành cảm ơn !!

×