Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
thienchip86

[yêu cầu] lisp chèn block phong thủy

Các bài được khuyến nghị

oh ^^ sr.. anh Bình tính tài lanh mà ko pit rứa, ko bit gì về điện mà đi sữa ống nước hihi, để em sữa lại ở trên lun cho bạn ấy hen :D

@thienchip86: code mình đã sữa #19, bản down lại nhé ^^

Ps:Đang đo, đợi mấy anh kím móc tranh thủ, chơi = điện thoại cựa rứa ^^

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Cái này là chuân xác rùi,cảm ơn các bạn nhiêù mình đã chèn dòng code mà ban phamthanhbinh úp ơ trên và đã chạy ngon! nhưng mình quên mâts là không đưa thêm thuâtj toán đêr các bạn tính thêm.vơí thuât toán trên chỉ đúng vơí a>10 vâỵ nêú tông của năm sinh mà nhỏ hơn 10 thì lại không tính đươc,ví dụ chủ nhà sinh năm 2012 thì lại ko tính đươc: nêú là 2012=2+0+1+2=5<10 khi đó ta có Nam :11-5=6 quái sô 6(block 6),các bạn viêts thêm cho mình mâý dòng này nưã nhé.Thanks 4 alls!

 

;; free lisp from cadviet.com

;;; this lisp was downloaded from http://www.cadviet.c...=0

 

(defun c:pht (/ bln a b c d tg gt t1 t2 t3)

(setq year (getint "\n Hay nhap nam sinh du 4 chu so: ")

GT (getint "\n Hay nhap gioi tinh chu nha <1=Nam; 2=nu>: "))

(setq a (atoi (substr (itoa year) 1 1))

b (atoi (substr (itoa year) 2 1))

c (atoi (substr (itoa year) 3 1))

d (atoi (substr (itoa year) 4 1))

Tg (+ a b c d) )

;;;;;;;;;;;;;;;;;;;

(defun ssu (a / a1 a2 t1)

(if (> a 9)

(progn

(setq t1 (itoa a)

a1 (atoi (substr t1 1 1))

a2 (atoi (substr t1 2 1))

t2 (+ a1 a2) )

(if (> t2 9)

(ssu t2) )

)

)

t2

)

;;;;;;;;;;;;;;;;;;

(setq tong (ssu tg))

(if (= gt 1)

(progn

 

(setq t3 (- 11 t2))

(if (> t3 9)

(setq t3 (ssu t3))

)

(setq bln (itoa t3))

)

(progn

(setq t3 (+ 4 t2))

(if (> t3 9)

(setq t3 (ssu t3))

)

(setq bln (itoa t3))

)

)

(alert (strcat "\n Ten block can chen la " bln))

(command "insert" bln (getpoint "\n Nhap diem chen block") 1 1 0)

)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

@OP :

- Bạn đã thử cái ở bài #24 nhocangbat giúp bạn chưa ? (k những 2012 mà năm 200000012 nữa ...)

- Bạn có thấy mọi người gửi code lên đều để trong tag CODE k ?

- Bạn có thấy nút Like bên dưới bài viết của nhoclangbat, phamthanhbinh ... không ?

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

@OP :

- Bạn đã thử cái ở bài #24 nhocangbat giúp bạn chưa ? (k những 2012 mà năm 200000012 nữa ...)

- Bạn có thấy mọi người gửi code lên đều để trong tag CODE k ?

- Bạn có thấy nút Like bên dưới bài viết của nhoclangbat, phamthanhbinh ... không ?

thành thật xin lôĩ các bạn mình mơí tham gia diên đàn nên có nhiêù điêù chưa được biêts ,minh muôn cảm ơn mà lại ko để ý nên toàn viêt cảm ơn thay vi nút Like..hihi.Cảm ơn ban Ketxu đã nhác nhở,cảm ơn bạn nhoclangbat ,Lisp ban viêt rât chuân.cũng như cảm ơn bạn Phamthanhbinh nưã...

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

thành thật xin lôĩ các bạn mình mơí tham gia diên đàn nên có nhiêù điêù chưa được biêts ,minh muôn cảm ơn mà lại ko để ý nên toàn viêt cảm ơn thay vi nút Like..hihi.Cảm ơn ban Ketxu đã nhác nhở,cảm ơn bạn nhoclangbat ,Lisp ban viêt rât chuân.cũng như cảm ơn bạn Phamthanhbinh nưã...

 

hihi, no problèm ^^, vui vẻ là chính, ah có phải bạn @thienchip86 là @fankaka1 bên vn-zoom ko nhỉ nhìn hao hao :D, bạn đa tài nhỉ^^

104473_dddddddddddddddddddqqqqqqqqqq.png

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Có nhã hứng, chúc bạn vui vẻ :)

Giải quyết các vấn đề bạn lăn tăn

Mẫu nguyên của bạn!

 

http://www.cadviet.c..._phong_thuy.rar

Cảm ơn bạn Ketxu. thật là tuyệt vời.mình xin gửi lại 9 quái số chuẩn nhất mình đã biên tập lại bạn sửa lại giúp mình nhé!9 block bát quái hôm trước còn sơ sài nay xin gửi bạn 9 block hoàn chỉnh.http://www.cadviet.com/upfiles/3/81893_phongthuy.rar

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Anh Ket ghê thật viết nó tự vẽ rùi chèn lun ^^, khi nào nhoc = đc anh Ket nhỉ :D

Ps: cái avatar của anh bên xaydungit ghê thật thế, phải anh chụp ở nhà ko >"<, vậy mà cứ than thất tình hihi ^^

104473_avatar580294_1.jpg

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

@Nhóc : nhanh thôi mà, với đà này

Cái avar là hàng chôm đề vào cho đỡ FA, chứ a có đâu ra :)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Anh Ket ghê thật viết nó tự vẽ rùi chèn lun ^^, khi nào nhoc = đc anh Ket nhỉ :D

Ps: cái avatar của anh bên xaydungit ghê thật thế, phải anh chụp ở nhà ko >"<, vậy mà cứ than thất tình hihi ^^

104473_avatar580294_1.jpg

Hề hề hề,

Cai ni là do anh ấy sử dụng lisp xén váy quá đà ây mà.........

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

@thienchip86 : bữa nay upload file failed hoài, mình update ở đây, bạn chịu khó vào lấy nhé ^^

Quá Pro bạn ạ.hihi ...Thanks bạn nhiều..!Từ nay các bạn cũng có thể tự xem cơ bản phong thủy cho gia đình rồi.chúc các bạn vui .

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Cảm ơn bạn thienchip86 đã có ý tưởng rất hay

Qua một ngày vẽ và tìm hiểu vòng tròn bát quái, quả là quái thật

Mình xin góp thêm ứng dụng được lập trình bằng Autocad.net và vb.net

Các bạn giải nén vào thư mục bất kỳ

1. Về cách sử dụng file PTXDIT.dll

- Mở AutoCAD

- Lệnh "NETLOAD"

- Tìm đến file PTXDIT.dll

- Lệnh "BQ" Hoặc "batquai" để sử dụng

2. Đối với file PTXDIT.exe các bạn Click vào để sử dụng(Cho những bạn không có AutoCAD)

Đã test trên autocad 2007 và win7

Chúc các bạn may mắn !

 

Video :

 

 

 

Link :

http://www.cadviet.com/upfiles/3/106039_xem_huong_nha.rar

  • Vote tăng 3

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

hihi ...hay quá bạn ơi.thanks tất cả các bạn đã có nhã hứng với chủ đề này...hihi thực ra hiện nay mình thường tính bằng các đốt tay.mình bấp đốt tay giống các cao nhân trong các phim của Trung quốc ấy..hehe...nhưng mình muốn chuyển nó sang công nghệ để cho các bạn yêu công nghệ cùng sử dụng.vì cộng đồng đúng không các bạn.

Để phần mềm trên hoàn chỉnh hơn mình xin bổ sung 3 thuật toán nữa,đó là,tính Kim Lâu,Hoang Ốc và Tam sat.

Mục đích của việc tính này: giúp gia chủ sau khi xem hướng nhà xong thì cần xem trong năm mà gia chủ muốn khởi tạo thi công,có phạm vào 3 điều tối kỵ trên không nếu phạm thì nên để năm khác xây dựng.vì nếu xây dựng sẽ dẫn tới những điều không lành cho gia chủ cung như cho gia đình.

1.Thuật Toán tính Kim lâu:

sau khi đã có tất cả các dữ liệu ở trên:(năm sinh chủ nhà,Nam ,Nữ)

Bạn thêm cho mình một ô: Nhập năm khởi tạo xây dựng: ví dụ 2013

giờ chúng ta tính tuổi của chủ nhà vào năm khởi tạo xây dựng,ta lấy năm xây dụng trư(-) năm sinh chủ nhà

VD: năm sinh chủ nhà là 1979

Năm khởi tạo xây dựng 2013

khi đó tuổi dương lịch của chủ nhà A= 2013-1979=34 -----> tuổi âm lịch là B=A+1=34+1=35

Lấy tuổi âm lịch(B.) chia cho 9.

+ Nếu dư 1 là phạm Kim lâu thân (Gây tai hoạ cho bản thân người chủ);

+ Nếu dư 3 là phạm Kim lâu thê (Gây tai hoạ cho vợ của người chủ);

+ Nếu dư 6 là phạm Kim lâu tử (Gây tai hoạ cho con của người chủ);

+ Nếu dư 8 là phạm Kim lục súc (Gây tai hoạ cho con vật nuôi trong nhà); Riêng cái này có phạm cũng không sao nếu bạn không phải người kinh doanh chăn nuôi hoặc quá yêu quý động vật .

2.Thuật toán tính Hoang Ốc:

 

Sau khi có năm sinh của chủ nhà,và năm khởi tạo xây dựng,----->tính được tuổi chủ nhà.sau đó cho đối chiếu với các nhóm tuổi ra năm ấy chủ nhà có bị Hoang Ốc không.

bạn liệt kê cho mình thành sáu nhóm tuổi theo vòng Hoang Ốc: Nhất Kiết(Cát),Nhị nghi,Tam địa sát,Tứ Tấn Tài,Ngũ Thọ Tử,Lục Hoang Ốc

+ các tuổi thuộc Nhất Kiết(Cát):10,16,25,34,43,49,52,58,61,67

+----------------------Nhị nghi : 11,17,20,26,35,44,53,59,62,68

+----------------------Tam địa sát: 12,18,21,27,30,36,45,54,63,69

+----------------------Tứ Tấn Tài :13,19,22,28,31,37,40,46,55,64

+----------------------Ngũ thọ tử :14,23,29,32,38,41,47,50,56,65

+----------------------Lục Hoang ốc: 15,24,33,39,42,48,51,57,60,66

 

giờ bạn tính tuổi của chủ nhà vào năm cần xây dựng ra được 1 số là X; lúc đó cho làm đối chiếu xem X thuộc cung nào trên 6 nhóm ở trên là xong

VD: chủ nhà sinh năm 1979, năm cần xây nhà là 2013-----> tuổi dương của chủ nhà: A=2013-1979=34,tuổi âm :B=A+1=34+1=35

vậy tuổi âm của chủ nhà là:35 thuộc Nhị nghi

 

Nhưng cung thuộc Hoang ốc: Tam địa sát,Ngũ Thọ tử,và Lục Hoang Ốc ( không làm được nhà)

 

Ý nghĩa :

Nhứt kiết an cư thông vạn sự

Nhì nghi tấn phát địa sanh tài

Tam sát nhơn do giai đắc bệnh

Tứ tấn tài phước lộc lai

Ngũ thọ tử ly thên phòng tử biệt

Lục ốc tạo gia bất khả thành

3.Tính Tam sát:

 

Những tuổi sau phạm tam tai vào nhưng năm:

Thân, tý, thìn - tam tai vào năm dần - mão - thìn

tỵ ,dậu, sửu- tam tai vào năm hợi - tý - sửu

Dần , ngọ, tuất -.tam tai vào năm thân - dậu - tuất.

hợi, mão, mùi.-tam tai vao năm tỵ - ngọ - mùi

thuật toán: ta sẽ có 12 con giáp gắn với các biến,sau đó ta có 4 nhóm phạm tam sát là

+Dần-Mão-Thìn(Nhóm 1)

+hợi - tý - sửu(Nhóm 2)

+thân - dậu - tuất.(Nhóm 3)

+tỵ - ngọ - mùi(Nhóm 4)

giờ chúng ta xét xem gia chủ thuộc con giáp nào thì sẽ nằm trong tam sat của 1 trong 4 nhóm trên

VD: chủ nhà tuổi Tý thì sẽ gặp tam sat vào năm thuộc nhóm 1(Dần-Mão-Thìn)

 

Sau đó bạn cho đối chiếu với năm gia chủ cần xây nhà xem có nằm trong nhóm 1,2,3,4 không từ đó ta sẽ suy ra năm đó gia chủ có phạm tam sat không

VD: Chủ nhà sinh năm 1979 (Kỷ Mùi) ,vậy gia chủ là tuổi Mùi ta xét thấy tuổi này se gặp tam sát vào những năm thuộc nhóm 4(tỵ - ngọ - mùi)

Và bây giờ ta đối chiếu Năm 2013 là năm Quý Tỵ.tức là gia chủ gặp tam sát rồi đúng không.

 

Các Bạn ơi!hãy cùng nghiên cứu nhé để ứng dung trên được hoàn chỉnh hơn....!mình chỉ biết thuật toán thôi còn lập trình thì mù tịt chằng thấy đường nên ko thể làm gì được .mong các bạn chung tay gây dựng..hihi Thân ái chào quyết thắng,chờ tin vui từ tiền tuyến!!!

  • Vote tăng 3

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Ngoài block phong thủy theo trường phái Bát trạch Minh cảnh (như đã up load),

các cao thủ viết thêm block theo Bát trạch Lạc Việt nữa để cho bà con nhận thấy mọi sự sẽ rối tưng.

 

Lúc đó chúng ta sẽ chuyển nghề "Thợ vẽ" sang nghề "Thầy bói"

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Ngoài block phong thủy theo trường phái Bát trạch Minh cảnh (như đã up load),

các cao thủ viết thêm block theo Bát trạch Lạc Việt nữa để cho bà con nhận thấy mọi sự sẽ rối tưng.

 

Lúc đó chúng ta sẽ chuyển nghề "Thợ vẽ" sang nghề "Thầy bói"

Hì hì. theo mình bạn nên comment mang tính chất đóng góp những ý kiến tính tích cực.Bạn nói "Thợ vẽ" sang nghề "Thầy bói" .Bạn không hiểu Phong thủy nên nói vậy.Phong Thủy và Bói toán không phải là 1 đâu bạn.Nếu có điều kiện bạn tìm đọc quyển "Kinh Dich" nhé....Hi hi đọc quyển này xong cẩn thận tẩu hỏa nhập ma đấy!!!

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hi, vậy là có ý tưởng mới rồi

Bạn thienchip86 cho mình yahoo hoặc mail để tiện trao đổi "Kinh dịch" nhé :)

Thanks !

mail cua minh nè: hoangthanthien79@gmail.com

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Cái K-H-T không cập nhật năm sinh bên BQ ạ?

 

 

 

Làm ren mà có thể cập nhật vô cái block cứng nhắc kia được chứ!

Có điều nếu bạn xaydungit.vn có thể xuất ra một Form (một tờ giấy A4 chẳng hạn) như là một lá số có dấu ấn cá nhân sẽ hay hơn

trên đó có ghi thông tin: Họ tên, năm sinh, thuộc quái số, Cách tính tuổi làm nhà theo Kim Lâu-Hoang Ốc-Tam Tai, kèm theo ảnh của Bát trạch Minh Cảnh là xem như tạm ổn

 

@thienchip86:

Tôi mà viết thêm một vài câu bông đùa nữa thì chắc sẽ nổi sóng ngay thôi (có khi bị block nick không chừng)

Hehe

Bây giờ hãy dành thời gian "chúc mừng" thành quả của xaydungit.vn đã

Rồi từ từ tôi sẽ phản biện tiếp

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×