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

binharch77

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

  • Số lượng nội dung

    358

  • Đã tham gia

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

  • Ngày trúng

    1

Bài đăng được đăng bởi binharch77

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

    Vẫn chưa ai có thể giải ra bài toán này sao. Lạ thật đây.

    Chỉ dùng 1 lệnh và 1 lần duy nhất mà thôi....

     

    Còn cách dùng solid thì tui đã nói ở trang trước rồi đấy.

    Không có cơ sở, và cũng không thể hiện đc trí óc trong đo

     

    Các bác thử tài đi nào

    ơ!!! thế vẫn chưa nhậu được à :)

    :) :) :cheers:

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

    Nước nóng!!! nước nóng!!!!

    Mình đang in bản vẽ mà khi preview thì có một số block lai ko thấy đâu (tất nhiên in ra giấy cũng ko thấy). Ai giúp mình với, mình đang có việc gấp. Thanks nhiều nhiều!!!!

    bạn kiểm tra lại layer chứa block đó có bị ngăn chế độ in không nha. hình cái máy in bị đánh chéo đó

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

    Chỉ bằng 1 lệnh thôi anh ạ!!! hê hê hê Còn anh có thể sử dụng lệnh đó nhiều lần cũng được. dúng như uống hết một nồi nước canh phải húp nhiều lần mới hết...He he he....

    dùng một lệnh trong một lần duy nhất, như hình trên đó :cheers:

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

    Sao hình của bạn không down về được nhỉ. Click vào thì nó hiẹn lên hình này nè :

    anh_1.jpg

    Có lẽ bạn nên nén file của bạn dưới dạng zip hoặc rar về upload lên đây xem sao.

    Chào bạn

    bạn click chuột phải vào đường link này, chọn save tages as -> chọn lệnh nhậu, xong

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

    Trước tiên xin cảm ơn bạn đã đóng góp ý kiến. Tuy vậy tôi cũng xin được phép bạn trình bày một số suy nghĩ riêng như sau :

    Thứ nhất, là bản vẽ tôi thực hiện trong cad 2004, nên rất hạn chế vấn trong vấn dề ánh sáng. Ánh sáng có thể giải quyết dễ dàng trong ma x, nhưng tôi có suy nghĩ là ma x dùng làm nhiều việc lớn hơn là việc làm ảnh tĩnh. suy đi tính lại, tôi tặc lưỡi một cái và vẽ trên cad. Tôi dựng 3d hoàn toàn bằng solid, nên việc xuất 2d rất dễ dàng mà ko cần vẽ lại cho từng bức tường, để mang đi thi công trong hs tkkt.

    Thứ hai, tôi quan niệm kiến trúc là ý tưởng, việc thể hiện bằng kĩ thuật xử lí cấp độ các họa đồ để đạt tới mức độ giống y như thật, như ảnh chụp là hơi cụ thể quá và không cần thiết, giống như thưởng thức ảnh màu và ảnh trắng đen ấy bạn ạ. Tuy thế, việc diễn tả ánh sáng trong phối cảnh theo tôi là vô cùng quan trọng, giống hư sân khấu bao giờ cũng phải có đèn. Ngoài ra, việc đưa vào phối cảnh nội thất không cần thiết đến tận bàn, ghế, vv vì những thứ ấy chưa chắc chủ nhà đã sắm, và có sắm thì mình cũng không phải là người bán những thứ ấy nên có được gì đâu . Tóm lại, tôi nghĩ nội thất cần thể hiện tốt phần tường, trần, và phần điễn chiếu sáng. Nếu có đưa vật liệu vào, các vật liệu ấy phải dễ kiếm trên thị trường.

    Tiện đây, vì bạn đã giới thiệu phòng ngủ, tôi cũng xin có chút ý kiến. nếu không vui và không quen tai thì mong bạn bỏ qua.

    Thứ nhất, là tôi thấy phòng ngủ bạn thiết kế ánh sáng nhiều quá. Phòng ngủ không cần sáng trưng như vậy. Thậm chí nó còn phải hơi tối tối, hơi dìu dịu, nhờ ánh sáng có thể điều khiển độ sáng bằng chiết áp của đèn ở đầu giường, mục đích là để đọc một tí trước khi ngử và cũng là làm cho mau buồn ngủ hơn. Trong cảnh tối mờ mờ như vậy, máy điều hòa chạy nhè nhẹ, và mở một bản nhạc gì đó thật nhỏ, như văng vẳng ở đâu đó vọng tới thì cũng hay. Hơn nửa, nếu xem ti vi trong phòng ngủ mà sáng quá thì chất lượng hình xấu lắm.

    Thứ hai, về màu sắc của vật liệu bạn bố trí nhiều quá, nên thành ra sau khi ngắm ngía một hồi, thoát ra ngoài, trong đầu không nhớ nổi là cái phòng ngủ ấy có tông chủ đạo là màu gì nữa. Thực ra, kiến trúc cần trắng và đen, còn màu sắc của vật liệu tự nhiên bản thân nó tự có trang điểm thêm như sự nhấn nhá, càng ít càng đắt...

    Nói chung, bạn có một phòng ngủ rất vui, và nếu ở trong phòng này thì rất khó ngủ.

    Bạn có đồng ý với đóng góp của tôi không ?

    hihi,

    1. hình trên được thực hiện cũng từ cad. -> xuất ra 2d để triển khai BVKT

    2. thiết kế phụ thuộc vào ý tưởng khách hàng.

    3. có khách hàng nào xem hình ảnh của KTS trình bày ở chế độ đèn tối bao giờ chưa?

    4. đây là 1 tk của 1 khach hàng miền trung nắng và gió, xu hướng của họ chuyển về tông lạnh và mát mẻ.

    5. vật dụng không làm nên nội thất nhưng nội thất nếu thiếu vật dụng giống như con người không mặc quần áo. (cái này sẽ nói nhiều à... cái hồn của ngôi nàh không do KTS quyết định mà do bản thân chủ nhà tạo nên cho nó : vật dụng trong nhà, các hình trang trí, âm thanh, cây cỏ...., vì vậy nếu không thêm vật dụng, hình ảnh sẽ như một khối lạnh, vô hồn. có bao giờ 1 KTS vẽ công trình, nội thất mà không diễn họa bao giờ chưa??? chắn chắn là chưa)

    vài lời của mình vậy, bác ktsk80 nghĩ sao. ở đây không phải tôi chỉ trích hay nói quá, nhưng nếu vẽ phối cảnh mà không diễn họa... chắc là khách hàng sẽ chẳng bao giờ chấp nhận đâu.

    • Vote tăng 1

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

    tự dưng tôi bị tình trạng đặt lệnh in liên tục không được. chỉ khi nào in xong mới dùng lệnh in được. giúp tôi vứi

    bạn vào printer and fax -> click chuột phải vào máy in sử dụng -> properties -> chọn tab advanced -> trong mục "spool print document so programe finishes printer faster" chọn " start printing immediately -> XONG :cheers:

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

    Tôi muốn hỏi các cao thủ 1 chút là tôi có 1 bản vẽ, tôi copy 1 cái van từ bản vẽ khác sang nhưng nó to quá và tôi muốn thu nhỏ cái van đó lại để cho vào bản vẽ mình làm thì như thế nào, tôi dùng lện scale rồi ấn 0,1 hay 0.1 đủ kiểu nó cũng ko thu nhỏ mà chỉ phóng to thêm ra ???

    Vậy xin hỏi mọi người để thu nhỏ 1 đối tượng thì mình cần phải làm gì!

    Xin cảm ơn. :cheers:

    trùi, gởi file lên sem thử, chứ nói thế này trả lời được chít liền

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

    Bạn binharch77 ơi, bạn nói mình thấy khó hiểu quá. Lúc thì bạn nói "nhưng đến khúc này sao nó vật vã", sau đó lại "post cho cadviet 1giải pháp cực kỳ hữu ích". Có nghĩa là bạn đã giải xong bài toán này rồi và muốn post cho anh em xem hay bạn nói đến vấn đề khác. Nếu bạn chưa giải quyết xong thì bạn nên post file lên, vì hình ảnh của bạn đưa lên nhiều nét bị khuất. Thêm nữa, bạn nên đưa ra tất cả những tình huống có thể có để bạn Phamthanhbinh không phải lúng lúng vì không biết sẽ có bao nhiêu tình huống. Và bạn cũng nên nói sơ qua công việc mình làm dẫn đến dùng cái lisp này, và file của bạn lớn cỡ nào, có khoảng bao nhiêu line tham gia. Nếu biết sơ qua về độ lớn dữ liệu, người lập trình dễ chọn nên dùng mô hình nào để lưu trữ dữ liệu ...

    giải pháp hay + chưa giải quyết được thuật toán = pó tay

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

    ( GP14 kém em 1 tuổi em gọi là cậu cho thân mật)

    Đây là ý kiến cá nhân của mỗi người bác à. Em khuyên bác ko nên nói như thế em luôn tôn trọng ý kiến đóng góp của mọi người để tỉ tê tâm sự với nhà em! Quyền quyết định mua nhà ở vị trí đó làm nhà kiểu đó vẫn là do nhà em quyết định bác à. Em ko có nghề mới hỏi các bác. Các bác cứ nhận xét vô tư khách quan theo cảm nhận của lòng mình...nghĩ thế nào nói thế...em cảm ơn các bác và sẽ hậu tạ.

    Bác nào có mẫu nhà nào khác hay hơn gửi cho em nhá

    ôi, cái tính tôi nó thế, chả sửa được mặc dù đã cố gắng nhiều rùi. cứ phang ngang bổ củi, các bác thông cảm nhá

    • Vote tăng 1

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

    Vợ bác mua nhà qua mạng hay sao thế, xây thô đất rộng thế sao khi hoàn thiện lại bị cắt mất phần phía sau thế kia.

    Nhìn ảnh nhà bác post em lại chợt nhớ đến quyển sách :"xem phong thuỷ bằng hình" mà em mới đọc được, đọc xong quyển sách đó thì dân kiến trúc bọn em khỏi hành nghề luôn.

    Bác thấy có đúng không, ai đời sách nó lại bảo:" làm nhà sơn trắng, ngói màu xanh là đại hung" (Nhà bác đang ở tình trạng đó)

    còn nữa, nhà kinh doanh ko được chọn góc ngã tư có 2 mặt tiền". Còn nhiều điều cấm kỵ nữa, đọc xong quyển đó em khỏi phải vào trang http://botay.com

    hihì, bác gp14 nói vui thật. lô đất của bác haanh chỉ chiếm 1/4 khuôn viên đất, dạng nhà liên kế góc mà.

    còn nữa, bác tính làm thầy bói hay sao mà đọc mấy cuốn tào lao thía.... hihi. nếu sách bảo nên đặt p.ngủ ra trước đại sảnh chắc cũng potay lun.

    dân Kiến quan trọng là công năng và tính khoa học của nó. màu mà cũng làm người ta chết thì có lẽ nhiều người chết lắm bác nhỉ

    • Vote tăng 1

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

    khổ ghê cơ bác ơi nhà em đâu có bàn bạc gì với em đánh đùng 1 phát mới nói cho em biết chiều nay, bác nhìn lại xem có phải ko???

    hình như hình nhà được chujp lúc khoảng 2h chiều phải không?

    còn hình mặt tiền ở dưới???,tính làm theo mặt tiền đó hay mẫu của nhà đó vậy? hổng hiểu

    • Vote tăng 1

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

    Em sắp có thằng cu nhà em rửng mỡ thế nào lại bán già nửa cổ phiếu đi để mua biệt thự xây thô, em gàn ko được vì đất nhà em rộng lăm gần 900m2 ở nhà vườn sướng hơn. Nhưng tính nhà em đã quyết làm bố đẻ cũng ko ngăn được. Em cũng bó tay ko khuyên nổi.

    Đây là một số hình ảnh về căn nhà mà nhà em định mua. Em gửi ảnh lên đây rất mong được sự giúp đỡ chỉ giáo của các bác phân tích cái hay cái chưa hay cho em nhá. Em xin thề và xin hứa sẽ thanks ko những rầm trời mà còn động đất nữa….

     

    hnh1.jpg

    Nhà xây thô

     

    hinh12222.jpg

     

    Hình phối cảnh

    hinh44444444.jpg

    Phòng giao lưu bạn bề

     

    hnh12333.jpg

    Phòng sinh hoạt cộng đồng

     

    hinnnn55555.jpg

    Phòng hạnh phúc

    ôi, khổ thế cơ à.

    cơ mà sao hình chụp mặt tiền lại chẳng giống hình chụp hiện trạng thô của căn nhà thế ???

    còn nội thất là của ai thiết kế vậy ??? tệ quá, để tôi mai tôi up cho chú 1 vài mẫu nội thất của tôi, miễn chê.

    hehehehe

     

    đừng động đất, để pà con xóm biển được nhờ... hihi

    :cheers: :) :)

    • Vote tăng 2

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

    ;;;CADALYST 01/07 Tip 2169: XMINSERT.lsp Explode Minsert © 2007 Jeffery P. Sanders

;;;--- XMINSERT - Replace a minsert entity with individual blocks arrayed.
;;;
;;;
;;;
;;;--- This program will delete the XMINSERT entity after an array is created.
;;; It will restore the attribute values contained inside the minsert.
(defun C:XMINSERT()
;;;--- Function to change an attributes value

(defun repAttVal(en tagName newVal)

;;;--- Get the DXF group codes of the entity
(setq enlist(entget en))

;;;--- Get the name of the block
(setq blkName(cdr(assoc 2 enlist)))

;;;--- Check to see if the block's attribute flag is there
(if(cdr(assoc 66 enlist))
(progn

;;;--- Get the entity name
(setq en(entnext en))

;;;--- Get the entity dxf group codes
(setq enlist(entget en))

;;;--- Get the type of block
(setq blkType (cdr(assoc 0 enlist)))

;;;--- If group 66 then there are attributes nested inside this block
(setq group66(cdr(assoc 66 enlist)))

;;;--- Loop while the type is an attribute or a nested attribute exist
(while(or (= blkType "ATTRIB")(= group66 1))

;;;--- Get the block type 
(setq blkType (cdr(assoc 0 enlist)))

;;;--- Get the block name 
(setq entName (cdr(assoc 2 enlist)))

;;;--- Check to see if this is the first attribute
(if(= blkType "ATTRIB")
(progn

;;;--- Get the attribute tag
(setq attTag(cdr(assoc 2 enlist)))

;;;--- Get the value of the attribute
(setq attVal(cdr(assoc 1 enlist))) 

;;;--- If this tag matches our search tag name
(if(= (strcase tagName)(strcase attTag))
(progn

;;;--- Replace the attribute's value
(setq enlist(subst (cons 1 newVal)(assoc 1 enlist)enlist))
(entmod enlist)
(entupd en)
)
)
)
)
;;;--- Get the next sub-entity or nested entity as you will
(setq en(entnext en))

;;;--- Get the dxf group codes of the next sub-entity
(setq enlist(entget en))

;;;--- Get the block type of the next sub-entity
(setq blkType (cdr(assoc 0 enlist)))

;;;--- See if the dxf group code 66 exist. if so, there are more nested attributes
(setq group66(cdr(assoc 66 enlist)))

)
)
)
)
;;;--- Function to return a list of tags and values from attributes in a block

(defun getAttData(en / attList attVal enlist blkType group66)

(setq attList(list))

;;;--- Get the DXF group codes of the entity
(setq enlist(entget en))

;;;--- Check to see if the block's attribute flag is there
(if(cdr(assoc 66 enlist))
(progn

;;;--- Get the entity name
(setq en(entnext en))

;;;--- Get the entity dxf group codes
(setq enlist(entget en))

;;;--- Get the type of block
(setq blkType (cdr(assoc 0 enlist)))

;;;--- If group 66 then there are attributes nested inside this block
(setq group66(cdr(assoc 66 enlist)))

;;;--- Loop while the type is an attribute or a nested attribute exist
(while(or (= blkType "ATTRIB")(= group66 1))

;;;--- Get the block type 
(setq blkType (cdr(assoc 0 enlist)))

;;;--- Check to see if this is an attribute
(if(= blkType "ATTRIB")
(progn

;;;--- If this matches your tag name
(setq attTag(cdr(assoc 2 enlist)))

;;;--- Get the value of the attribute
(setq attVal(cdr(assoc 1 enlist))) 

(setq attList(append attList (list (list attTag attVal))))
)
)

;;;--- Get the next sub-entity or nested entity as you will
(setq en(entnext en))

;;;--- Get the dxf group codes of the next sub-entity
(setq enlist(entget en))

;;;--- Get the block type of the next sub-entity
(setq blkType (cdr(assoc 0 enlist)))

;;;--- See if the dxf group code 66 exist. if so, there are more nested attributes
(setq group66(cdr(assoc 66 enlist)))

)
)
)
attList
)
;;;--- Main application

(setvar "cmdecho" 0)

;;;--- If the user selects an object
(if(setq ent(entsel "\nSelect MINSERT: "))
(progn

;;;--- If it is an object selected and not an point
(if(setq en(car ent))
(progn

;;;--- Make a copy of the entity name
(setq origEn en)

;;;--- Get the entities dxf group codes
(setq enlist(entget en))

;;;--- Get the data from the minsert
(setq blkName(cdr(assoc 2 enlist)))
(setq layName(cdr(assoc 8 enlist)))
(setq insPt(cdr(assoc 10 enlist)))
(setq cols(cdr(assoc 70 enlist)))
(setq rows(cdr(assoc 71 enlist)))
(setq colWidth(cdr(assoc 44 enlist)))
(setq rowWidth(cdr(assoc 45 enlist)))
(setq xScale(cdr(assoc 41 enlist)))
(setq yScale(cdr(assoc 42 enlist)))
(setq rAngle(cdr(assoc 50 enlist)))

;;;--- If group code 66 exist [ attributes follow flag ]
(if(assoc 66 enlist)

;;;--- Get the group code 66
(setq group66(cdr(assoc 66 enlist)))
)

;;;--- If it equals 1 then attributes follow..so
(if(= group66 1)
(progn

;;;--- Turn off attribute request during insertion
(setq oldAttReq(getvar "attreq"))
(setvar "attreq" 0)

;;;--- Get the attribute tags and values
(setq attList(getAttData en))
)
)

;;;--- Insert the new block
(command "-insert" blkName insPt xScale yScale (angtos rAngle))

;;;--- If it had attributes ...
(if(= group66 1)

;;;--- Reset the attribute request
(setvar "attreq" oldAttReq)
) 

;;;--- Get the last entity created...
(if(setq en(entlast))
(progn

;;;--- Get the group codes
(setq enlist(entget en))

;;;--- Get the name of the block
(setq blkName2(cdr(assoc 2 enlist)))

;;;--- If this is the block I just created... 
(if(= blkName blkName2)
(progn

;;;--- If it has an attributes flag code...
(if(assoc 66 enlist)
(progn

;;;--- And attributes follow [code 66 = 1] 
(if(= (cdr(assoc 66 enlist)) 1)
(progn

;;;--- Replace the attribute values 
(foreach a attList
(repAttVal en (car a) (cadr a))
)
)
)
)
) 

;;;--- Delete the minsert entity
(entdel origEn)

;;;--- Array the new block to represent the minsert entity
(command "-array" en "" "R" rows cols rowWidth colWidth)

;;;--- Inform the user
(setq str(itoa (* rows cols)))
(alert (strcat "Deleted MINSERT and added (" str ") blocks."))
)
)
)
)
)
)
)
)
(princ)
)

    ôi.... cái này hay quá.... file này có thể bị khoá rồi.... các đồng chí làm lại việc rã đồi tượng cái này giùm mình xem....

    http://www.cadviet.com/upfiles/Drawing1_39.dwg

    cố lên...

    pó tay...

    hehhe :cheers:

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

    Chào bạn Binharch77,

    Như bạn biết, bài toán bạn đặt ra khá phức tạp vì có khá nhiều phương án chọn lựa phải cân nhắc. Hoàn toàn không phải chỉ đơn giản như hình bạn post. Ví dụ khi hai đường thẳng vuông góc với nhau nhưng lại bị xoay đi một góc, hoặc khi hai đường giao nhau tạo thành nút chữ thập chứ không phải chữ T, hoặc hai đường vuông góc nhưng lại không cắt nhau, .....

    Do vậy để xử lý được hết các tình huống cần có thời gian phân tích chứ không thể nhanh như bạn muốn được. Hiện tại mình cũng đang thử xem sao nhưng mới chỉ được trong vài trường hợp đơn giản, còn phải kiểm tra lại chứ chưa thể trả lời bạn được. Rất mong bạn bình tĩnh, để mình cố xem sao.

    Hy vọng sớm giải quyết được yêu cầu của bạn.

    Chúc bạn vui.

    chào bạn, không phải mình cần gấp đâu... hihi, mình cũng đang nghiên cứu lisp,nhưng đến khúc này sao nó vật vã quá. vấn đề được đặt ra để giải quyết một trong những bài toán mà dân xây dựng rất và thường gặp phải.

     

    nhưng cảm ơn bạn nhiều vì đã xem vấn đề này.

    xong, mình sẽ post cho cadviet 1giải pháp cực kỳ hữu ích cho dân xây dựng mình.

    cụng ly nào :cheers:

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

    Untitled_1_9.jpg

    có đồng chí nào giúp mình được cái này không :

    mình muốn tạo một cái lisp sao cho khi quét các đối tượng line, nếu 2 line vuông góc nhau thì insert block A như hình vẽ (đương nhiên trục block sẽ theo 2 trục của line tạo ra, nếu có 2 line vuông góc nhưng dư ra thì insert block B như hình vẽ.

     

    cám ơn các bác nhiều.

    mình nghĩ cái này hơn khó đấy.

    HELP ME

     

    có ai giúp được mình không vậy??? :cheers:

×