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

hoan2182

Thành viên
  • Số lượng nội dung

    2439
  • Đã tham gia

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

  • Ngày trúng

    60

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


  1. Hình như anh đã mở file trực tiếp từ thư mục có file đó. Anh khởi động lại CAD và thao tác lại xem có được không?

    Các chữ ghi chú bị mất anh dùng font chữ gì? Có thể CAD của em không có font chữ như của anh nên khi recover bản vẽ phần chữ đó không được hiển thị.

    Em vừa recover lại bản vẽ của anh thấy nó cũng ra i sì như file sua2010.dwg


  2. Hình chiếu bằng của anh thiếu đường tâm lỗ, thừa cách nét đậm là giao tuyến của R22.5 với 2 mặt phẳng nghiêng. Có thể do anh nhìn trên hình 3D thấy có nét đó nên vẽ thêm vào, trong thực tế người ta không vẽ nét đó trên hình chiếu .

    Hình chiếu đứng ỏ khu vực 1 có 2 nét là chính xác.

    Suy luận của anh “khu vực số 2 có 1 đường nằm ngang kéo dài anh thì hoàn toàn không có. điểm này thì em nghĩ ng vẽ hoàn toàn không nhầm. mà theo em có thể đó là 2 chi tiết riêng biệt ghép lại với nhau bằng mối hàn.” không đúng vì đây là bản vẽ chi tiết đã gia công , trên bản vẽ ghi độ nhám còn lại của chi tiết là Rz20.

    Nét ngang mà bản vẽ đã vẽ thừa có chăng chỉ có ở bản vẽ phôi hàn. Nhưng với chi tiết như thế không ai làm kế cấu hàn cả .

     

    Kích thước độ cao 30 chính là kích thước đo tại khoảng chiều dài 52. Kích thước 30 này và kích thước 28.5 cần thiết để xác định mặt phẳng nghiêng. mặt nghiêng này và mặt vát 30 độ được bo bởi R22.5 suy ra kích thước 35 là kích thước tạo thành trong quá trình dựng hình > nó là kích thước tham khảo.

    • Vote tăng 1

  3. ý mình là mình có một đối tượng có sẵn trước đó ( không biết tỷ lệ ) , mình vẽ một đối tượng khác và muốn đối tượng mình mới vẽ có cùng kiểu tỷ lệ với đối tượng có sẵn đó thì phải dùng lệnh gì ?

    Bản vẽ của anh đang vẽ ở tỉ lệ 1:50, anh vẽ hình vuông cạnh 100 anh nhập kích thước 100. Khi anh vẽ hình vuông khác to hơn chẳng hạn hình vuông cạnh 200 thì anh vẫn nhập kích thước là 200. như thế cải hai hình vuông đều có tỉ lệ như nhau là 1:50.

    Nếu anh vẽ bản vẽ không biết tỉ lệ là bao nhiêu, muốn biết người ta đã vẽ tỷ lệ bao nhiêu anh thiết lập một bản vẽ mới đặt tỷ lệ vẽ là 1:1

    Anh copy cả khung bản vẽ từ file bản vẽ không biết lệ là bao nhiêu sang file bản vẽ có tỷ lệ 1:1 kiểm tra kích thước của khung bản vẽ anh luận ra được tỉ lệ.


  4. đừng bao giờ cho rằng mọi người đều nghĩ như mình bạn nhé.

    Câu nói của bác chỉ có đúng trở nên. Không thể suy bụng trâu ra bụng bò được. Cùng kiếm ăn trên một bãi có nhưng trâu bò có sự lựa chọn các loại cỏ khác nhau. Trâu lầm lũi gặm cỏ, không kêu ca phàn nàn gì nhưng bò thì thỉnh thoảng lại thở dài than vãn ò ò ò!...


  5. Em mở Cad ra, có thông báo: " Fail to create CommCntr Client Sink Object! ",thông báo này chỉ xuất hiện khi mở lần đầu tiên thôi.

    Có ai bị thế này k ạ ?

     

    "Các bạn đã sử dụng một công cụ làm sạch registry gần đây? Nếu vậy, Autodesk khuyên

    rằng điều này sẽ xóa đăng ký của CommCntr và bạn sẽ phải

    ! cài đặt lại autocad - không có cách nào khác ra khỏi nó!

    Gần đây nó được sử dụng các công cụ làm sạch registry?

    Nếu, Autodesk rằng điều này đã dẫn đến xóa hồ sơ đăng ký CommCntr bạn cần phải sửa chữa hoặc cài đặt lại autocad không có cách nào khác!"

    • Vote tăng 2

  6. Mình có một bản vẽ không thể mở được , Mỗi khi mở nó cứ báo lỗi "Unable to load this drawing file because it contains inrrect or corrupted information”, Mình đã đọc các bài viết trên diễn đàn về lỗi này và cách khắc phục nó, Mình cũng đã làm theo các cách đó nhưng đều không hiệu quả, mình cũng không có file Bak mà bây gio mà vẽ lại thì chết mất

    Bác nào có cách mở hộ mình với !

    Xin chân thành cảm ơn !

     

    http://www.cadviet.com/upfiles/3/hst2sua.dwg

    Khởi động AutoCAD, vào menu File > Drawing Utilities > Recover > chọn đến file bị lỗi là được:

    Đây là file đã sửa lỗi:

    http://www.cadviet.com/upfiles/3/sua2010.dwg


  7. - Nhưng cái mái nó nghiêng mà bạn?

    Ai chả biết mái ngói nghiêng! Anh vẽ được mái ngói tất anh phải biết cách gắn UCS. Nếu bản vẽ do người khác vẽ anh phải gắn USC lên mặt nghiêng

    Command: ucs

    Current ucs name: *NO NAME*

    Specify origin of UCS or [Face/NAmed/OBject/Previous/View/World/X/Y/Z/ZAxis]

    <World>: 3

    Specify new origin point <0,0,0>:

    Specify point on positive portion of X-axis <1.0000,0.0000,0.0000>:

    Specify point on positive-Y portion of the UCS XY plane <0.0000,1.0000,0.0000>:

     

    Anh nên biết lệnh Area chỉ thực hiện được trên mặt phẳng của hệ trục xoy

     

    Chọn đối tượng hatch mái ngói >>> gõ lệnh LI sẽ biết diện tích của tất cả các mặt phẳng không nằm trong cùng mặt phẳng của hệ trục xoy


  8. Ý mình không phải thế

    Mục đích của mình là : Có lệnh nào trong cad có thể đưa đường thẳng A nằm trùng lên đường thẳng B với các đỉnh 1=1', 2= 2', 3 = 3' , ......n =n' giống như lệnh ALIGN

    Vẫn chưa hiểu ý của anh?

    Hề hề hề,...

     

    Nếu chỉ đơn giản là 1'=1; 2'=2; 3'=3; 4'=4; ..... thì bạn chỉ việc copy thằng A thành thằng A' rồi tha hồ lôi nó đi bất cứ đâu bạn muốn. Sau đó xóa béng thằng B đi và lấy thằng A' làm thằng B là xong, ALIGN ơ liếc gì cho mất công vậy????

    Hề hề hề.....


  9. - Các bạn cho hỏi làm sao tính đc diện tích mái ngói. (VD: muốn tính diện tích sàn thì dùng lệnh Area). Cám ơn.

    Chắc hẳn khi vẽ mái ngói anh đã thể hiện vật liệu bằng hatch

    Chọn đối tượng hatch mái ngói >>> gõ lệnh LI sẽ biết diện tích:

     

    Command:

    Command: li LIST 1 found

     

    HATCH Layer: "0"

    Space: Model space

    Handle = 186

    Hatch pattern HONEY

    Annotative: No

    Hatch scale 1.0000

    Hatch angle 0

    Associative

    Area 16.2336

    Origin X= 0.0000 Y= 0.0000 Z= 0.0000


  10. Mình đang hỏi cách để chữa cái lỗi cad đó thôi, chứ đang dùng mà bị treo thế tức lắm, còn việc fix lại thì mình biết lâu rồi

    Có nhiều nguyên nhân :

    1- Anh mở nhiều chương trình cad, word, Excel...

    2- Thao tác của anh nhanh quá mà khả năng xử lý thông tin có hạn

    Máy có cấu hình thấp thường hay gặp anh nâng cấp máy lên cấu hình cao hơn sẽ cải thiện được tình hình. Anh có thấy là khi anh đang cần vẽ vội một bản vẽ để đưa cho sếp thì máy cứ đơ ra không?


  11. híc

    mặc định của mình hình như có muời mấy thôi, nên không thấy hết, giờ mình chỉnh lên 64 luôn, chỉ cho chỉnh từ 2-64 thôi. mình dùng cad 2007

     

    Hị hị hị! CAD 2007 của anh hình như chỉ có mưới mấy thôi giờ anh phải chỉnh lên 64 luôn. Đau Khổ nhể?

     

    CAD 2007 của em nó mặc định sẵn là 64 không phải chỉnh xuống đã thấy nó lộ nguyên hình chứ không tàng hình ẩn hiện như anh!

     

    Các AutoCAD phiên bản mới, với các tính năng về hiển thị, giúp người sử dụng có những công cụ trực quan hơn. Nhưng bù lại, lại tiêu tốn một lượng tài nguyên của máy tính khá lớn. Làm sao để máy tính đời cũ, đang chạy tốt với ACAD 14, 2000 thì nay có thể chạy tốt với ACAD 2007,2008? Xin mở topic này để chúng ta cùng thảo luận về cách tối ưu hóa AutoCAD để ACAD chạy nhanh nhất và đương nhiên, sẽ mất đi một số các tính năng mới về hiển thị.

     

    Đầu tiên, xin góp một vài thao tác để làm nhẹ AutoCAD. Các thao tác này là sự cắt giảm hiển thị trực quan, đưa AutoCAD phiên bản mới về giao diện giống như R14 hay 2000.

     

    - Đặt biến VTENABLE về 0 (bằng cách gõ VTENABLE rồi nhập vào 0). Sẽ cho lệnh zoom trở lại như đời cũ.

    - Đặt biến SELECTIONPREVIEW về 0. Sẽ làm cho việc di chuyển chuột qua đối tượng trở về như đời cũ, không lấp lánh như đời mới.

    - Đặt biến DYNMODE về 0. Sẽ tắt chức năng nhập dữ liệu tại con trỏ. đưa kiểu nhập liệu về dòng lệnh command như đời cũ.

    - Đặt biến SELECTIONAREA về 0. Tắt chức năng tô màu đặc vào giữa miền crossing hoặc window. đưa kiểu select drag về đời cũ.

    - Đặt biến MAXACTVP về cỡ 5-6, chỉ làm việc trên 1 viewport một lúc. Sẽ nhẹ đi rất nhiều khi bạn vẽ bằng layout.

    - Đặt biến INDEXCTL về 3.

    - Đặt biến TREEDEPTH về 3020.

    - Đặt VIEWRES về 100.

    - Đặt LWDISPLAY về 0 để tắt chức năng hiển thị lineweight.

    - Đặt IMAGEHLT về 0.

    - Đặt IMAGEQUALITY về "d" để giảm chất lượng hiển thị của ảnh.

    • Vote tăng 1

  12. Tôi đang nói những lời của sự thật chứ không hề cường điệu một chút nào. Cứ mỗi lần có bạn nước ngoài đến Hà Nội lại chẳng biết đưa họ đi đâu. Lần thứ nhất đưa đi Văn Miếu, lần thứ hai Văn Miếu, lần thứ ba cũng Văn Miếu và lần thứ bao nhiêu không nhớ nữa cũng lại món Văn Miếu.

     

    Văn Miếu là một địa chỉ Văn Hóa rất đáng tự hào của người Việt Nam nhưng lại của người xưa từ hơn 1000 năm trước để lại. Ngày nay chúng ta có gì hỡi các vị? Thật khó trả lời phải không thưa các vị?

     

    Bởi thế mà hai tiếng World Cup vang lên như một niềm vui mà cũng là một nỗi cay đắng. Và lúc này, chính tôi đang đợi đến đêm mai World Cup trở về. Trở về đi World Cup. Nếu không ta buồn và trống rỗng lắm thay. Ta thật tội nghiệp. Nhưng ta biết đi đâu và xem gì bây giờ???

     

    Trực Ngôn (tuanvietnam.net)

    Hãy ngược dòng thời gian về World Cup 1996 thăm bến cảng Vinashin

     

    Lời ngỏ của chủ tịch Hội đồng quản trị

    LoiNgo.jpg

    Chào mừng quý vị đến với Cổng thông tin điện tử của Công ty Tài chính Công nghiệp Tàu thuỷ!

    Công ty Tài chính Công nghiệp Tàu thuỷ (VFC) là một tổ chức tín dụng Nhà nước được thành lập từ năm 1998, thực hiện chức năng của một trung gian tài chính phục vụ các nhu cầu đầu tư và phát triển thuộc Tổng Công ty Công nghiệp Tàu thuỷ (nay là Tập đoàn Kinh tế VINASHIN). Dưới sự lãnh đạo của Tập đoàn Kinh tế VINASHIN, bằng tâm huyết, sự vươn lên không ngừng, cùng với chiến lược đầu tư đúng đắn vào con người và công nghệ, VINASHIN Finance đã từng bước làm tốt được vai trò là một tổ chức tín dụng thuộc Tập đoàn kinh tế mạnh, đồng thời vươn lên một vị thế mới trên thị trường tài chính tiền tệ Việt Nam và Quốc tế.

    Với phương châm uy tín và chất lượng hàng đầu, VFC sẵn sàng cung cấp cho quý khách hàng các dịch vụ tài chính, các dịch vụ tư vấn tốt nhất, đa dạng nhất nhằm tối đa hoá lợi ích của quý khách hàng. VFC sẽ luôn là một người bạn đồng hành đáng tin cậy của quý khách hàng .

    Bằng sức trẻ, sự năng động sáng tạo và tính chuyên nghiệp trong mọi hoạt động, VFC đã và đang đóng góp một phần không nhỏ để xây dựng VINASHIN ngày một vững mạnh, vì một tương lai phồn thịnh của ngành Công nghiệp Tàu thuỷ Việt Nam nói riêng và nền Kinh tế Việt Nam nói chung.

    VFC xin bày tỏ lòng cảm ơn chân thành tới sự quan tâm của Đảng và Nhà nước, sự chỉ đạo sáng suốt của Tập đoàn Công nghiệp Tàu thuỷ Việt cảm ơn sự tin tưởng và hợp tác của Quý khách hàng trong suốt thời gian qua. Chúng tôi tin tưởng rằng, với sự ủng hộ nhiệt thành và mối quan hệ hợp tác ngày càng bền chặt, Công ty Tài chính Công nghiệp Tàu thuỷ sẽ tiếp tục khẳng định được vị thế của mình trên thị trường Tài chính trong nước và quốc tế.

    Trân trọng,

    Phạm Thanh Bình

    Chủ tịch Hội đồng Quản trị.

    http://www.vinashin-finance.com.vn/default/4/default.aspx

     

    Cam kết thương hiệu Vinashin Finance

    http://www.vinashin-finance.com.vn/default...aspx?DataID=217

    Bước chuyển quan trọng của ngành đóng tàu

    http://www.nasico.com.vn/home/index.php?op...age&lang=vi


  13. Ồ. Cái hình bác post không được rõ lắm, nhưng em thấy có những điểm chưa được rõ.

    Thực ra nó không đến nỗi phức tạp lắm.

    Đây là một số điểm không rõ:

    http://cA2.upanh.com/10.203.14340696.LCP0/1bv.jpg

    - Nét "2" trên mặt đứng không có, dẫn đến điểm '1' có thể không có hoặc có.

    - Theo hình vẽ thì điểm '3' rất khó hiểu. Nó có thể là nét khuất trên hình chiếu đứng hoặc không có nét này

    - Điểm '4' này hơi mỏng.

     

    Hình vẽ mặt cắt A-A không chính xác

    Hình chiếu đứng vẽ thiếu nét

    - Trong thực tế hình vẽ trên không cần thiết phải vẽ thêm hình cắt A-A chỉ cần thể hiện cắt trích trên hình chiếu đứng là đủ điều kiện

    Cách hay nhất là anh vẽ dựng lại hình trên CAD sẽ thấy sự "vô duyên" của nó!


  14. Bạn chỉnh lại biến MAXACTVP

    mặc định của ACAD là 48, còn bạn để bao nhiêu cho phù hợp với bản vẽ của bạn (càng nhỏ càng tốt)

    ý nghĩa: biến này quy định số lượng viewport được hiển thị cùng lúc, bạn bị như vậy có lẽ vì số lượng viewport của bạn đang nhiều hơn số lượng viewport có thể hiển thị của ACAD.

    Hiện tại thì biến MAXACTVP chỉ có thể điều chỉnh từ 2 đến 64 thôi bạn ạh (có lẽ là Autodesk tính toán đó là con số hợp lý cho các thế hệ máy tính phổ thông hiện nay)

    Em hỏi anh tuongdaphoipha câu hỏi trên vì em thấy anh GP14 viết :’mặc định của ACAD là 48” có phải là viết nhầm 64 = 48 không? Hay là CAD của anh tuongdaphoipha chỉ mặc định có 48?


  15. Em mở được và nén đuôi rar không đặt pass nhưng khi Upload lên diễn đàn nó báo lỗi sau:

     

    Server Error in '/cadviet/3' Application.

    Object reference not set to an instance of an object.

    Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

     

    Exception Details: System.NullReferenceException: Object reference not set to an instance of an object.

     

    Source Error:

     

    An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.

     

    Stack Trace:

     

    [NullReferenceException: Object reference not set to an instance of an object.]

    IIS7Injector.InjectedContentStream.Write(Byte[] buffer, Int32 offset, Int32 count) +135

    System.Web.HttpWriter.FilterIntegrated(Boolean finalFiltering, IIS7WorkerRequest wr) +281

    System.Web.HttpResponse.FilterOutput() +119

    System.Web.CallFilterExecutionStep.System.Web.HttpApplication.IExecutionStep.Exe

    cute() +47

    System.Web.HttpApplication.ExecuteStep(IExecutionStep step, Boolean& completedSynchronously) +75

     

     

    Version Information: Microsoft .NET Framework Version:2.0.50727.3603; ASP.NET Version:2.0.50727.4049


  16. bạn nói rõ hơn được ko?? "al" là gì?? tìm lồi mắt trên diễn đàn, cụm từ 2 chữ cái ko được phép tìm kiếm

     

     

    Kết quả 1 - 10 cho al với Tìm kiếm An toàn bật (0.12 giây)

     

    Google

    Tìm kiếm Tuỳ chỉnh

    1.

    Nhờ mọi ngưòi giúp về lệnh AL

    Tập hợp mẹo sử dụng các phần mềm CAD, AutoCAD, nơi bạn có thể học hỏi và tìm tòi các lời giải cho các câu hỏi hóc búa về CAD.

    www.cadviet.com/cadtips/17319_Nho_moi_nguoi_giup...AL/320/

    AL là lệnh tắt

    Command: al

    ALIGN

    http://www.cadviet.com/forum/index.php?showtopic=17319

    • Vote tăng 1

  17. ví dụ như mình có một bản vẽ thiết kế xây dựng,gồm nhiều hạn mục công trình nhưng vẽ trong một bàn vẽ trong môi trường thiết kế(model).khi mình muốn in một hạn mục trong đó(tức là một phần nhỏ trong bản vẽ ấy) thì mình làm như thế nào?

    Cách làm thủ công là copy khung tên bản vẽ rồi scale khung nhỏ lại rồi đặt khung tên đó vào phần nhỏ cần in.


  18. em dang sửa bản vẽ 2d nhưng bản vẽ bị lỗi khi các nét không cùng nằm trên 1 mặt phẳng.

    xin các bác giúp đỡ em chuyển về cùng 1 mat75 phẳng

    Bạn sử dụng lệnh EXPLAN của Express Tool.

    hoặc dùng LISP mình sưu tầm được. sau khi Load sử dụng lệnh : FLAT

    ;;; FLATTEN.LSP version 2k.01f, 14-Jul-2000
    ;;;
    ;;; FLATTEN sets the Z-coordinates of these types of objects to 0
    ;;; in the World Coordinate System:
    ;;;  "3DFACE" "ARC" "ATTDEF" "CIRCLE" "DIMENSION"
    ;;;  "ELLIPSE" "HATCH" "INSERT" "LINE" "LWPOLYLINE"
    ;;;  "MTEXT" "POINT" "POLYLINE" "SOLID" "TEXT"
    ;;;
    ;;;-----------------------------------------------------------------------
    ;;; copyright 1990-2000 by Mark Middlebrook
    ;;;   Daedalus Consulting
    ;;;   e-mail: mark@markcad.com
    ;;;
    ;;; Before you e-mail me with support questions, please make sure that
    ;;; you're using the current version. You can download it from
    ;;; [url="http://markcad.com"]http://markcad.com[/url].
    ;;;
    ;;; This program is free software. You can redistribute it and/or modify
    ;;; it under the terms of the GNU General Public cấp quyền as published by
    ;;; the Free Software Foundation: [url="http://www.gnu.org/copyleft/gpl.html"]http://www.gnu.org/copyleft/gpl.html[/url].
    ;;;
    ;;; Thanks to Vladimir Livshiz for improvements in polyline handling
    ;;; and the addition of several other object types.
    ;;;
    ;;;-----------------------------------------------------------------------
    ;;; Revision history
    ;;;  v. 2k.0   25-May-1999  First release for AutoCAD 2000.
    ;;;  v. 2k.01  25-Jun-1999  Fixed two globalization bugs ("_World" & "_X")
    ;;;                         and revised error handler.
    ;;;  v. 2k.01f 14-Jul-1999  Added GNU GPL and download info to header.
    ;;;
    ;;;-----------------------------------------------------------------------
    ;;;*Why Use FLATTEN?
    ;;;
    ;;; FLATTENing is useful in at least two situations:
    ;;;  1) You receive a DXF file created by another CAD program and discover
    ;;;     that all the Z coordinates contain small round-off errors. These
    ;;;     round-off errors can prevent you from object snapping to
    ;;;     intersections and make your life difficult in other ways as well.
    ;;;  2) In a supposedly 2D drawing, you accidentally create one object with
    ;;;     a Z elevation and end up with a drawing containing objects partly
    ;;;     in and partly outside the Z=0 X-Y plane. As with the round-off
    ;;;     problem, this situation can make object snaps and other procedures
    ;;;     difficult.
    ;;;
    ;;; Warning: FLATTEN is not for flattening the custom objects created by
    ;;; applications such as Autodesk's Architectural Desktop. ADT and similar
    ;;; programs create "application-defined objects" that only the
    ;;; application really knows what to do with. FLATTEN has no idea how
    ;;; to handle application-defined objects, so it leaves them alone.
    ;;;
    ;;;-----------------------------------------------------------------------
    ;;;*How to Use FLATTEN
    ;;;
    ;;; This version of FLATTEN works with AutoCAD R12 through 2000.
    ;;;
    ;;; To run FLATTEN, load it using AutoCAD's APPLOAD command, or type:
    ;;;   (load "FLATTEN")
    ;;; at the AutoCAD command prompt. Once you've loaded FLATTEN.LSP, type:
    ;;;   FLATTEN
    ;;; to run it. FLATTEN will tell you what it's about to do and ask you
    ;;; to confirm that you really want to flatten objects in the current
    ;;; drawing. If you choose to proceed, FLATTEN prompts you to select objects
    ;;; to be flattened (press ENTER to flatten all objects in the drawing).
    ;;; After you've selected objects and pressed ENTER, FLATTEN goes to work.
    ;;; It reports the number of objects it flattens and the number left
    ;;; unflattenened (because they were objects not recognized by FLATTEN; see
    ;;; the list of supported objects above).
    ;;;
    ;;; If you don't like the results, just type U to undo FLATTEN's work.
    ;;;
    ;;;-----------------------------------------------------------------------
    ;;;*Known limitations
    ;;;  1) FLATTEN doesn't support all of AutoCAD's object types. See above
    ;;;     for a list of the object types that it does work on.
    ;;;  2) FLATTEN doesn't flatten objects nested inside of blocks.
    ;;;     (You can explode blocks before flattening. Alternatively, you can
    ;;;     WBLOCK block definitions to separate DWG files, run FLATTEN in
    ;;;     each of them, and then use INSERT in the parent drawing to update
    ;;;     the block definitions. Neither of these methods will flatten
    ;;;     existing attributes, though.
    ;;;  3) FLATTEN flattens objects onto the Z=0 X-Y plane in AutoCAD's
    ;;;     World Coordinate System (WCS). It doesn't currently support
    ;;;     flattening onto other UCS planes.
    ;;;
    ;;;=======================================================================
    
    (defun C:FLAT (/       tmpucs  olderr  oldcmd  zeroz   ss1     ss1len
                     i       numchg  numnot  numno0  ssno0   ename   elist
                     etype   yorn    vrt     crz
                    )
     (setq tmpucs "$FLATTEN-TEMP$")        ;temporary UCS
    
     ;;Error handler
     (setq olderr *error*)
     (defun *error* (msg)
       (if (or
             (= msg "Function cancelled")
             (= msg "quit / exit abort")
           )
         ;;if user cancelled or program aborted, exit quietly
         (princ)
         ;;otherwise report error message
         (princ (strcat "\nError: " msg))
       )
       (setq *error* olderr)
       (if (tblsearch "UCS" tmpucs)
         (command "._UCS" "_Restore" tmpucs "._UCS" "_Delete" tmpucs)
       )
       (command "._UNDO" "_End")
       (setvar "CMDECHO" oldcmd)
       (princ)
     )
    
     ;;Function to change Z coordinate to 0
    
     (defun zeroz (key zelist / oplist nplist)
       (setq oplist (assoc key zelist)
             nplist (reverse (append '(0.0) (cdr (reverse oplist))))
             zelist (subst nplist oplist zelist)
       )
       (entmod zelist)
     )
     ;;Setup
     (setq oldcmd (getvar "CMDECHO"))
     (setvar "CMDECHO" 0)
     (command "._UNDO" "_Group")
     (command "._UCS" "_Delete" tmpucs "._UCS" "_Save" tmpucs "._UCS" "_World")
                                           ;set World UCS
    
     ;;Get input
     (prompt
       (strcat
         "\nFLATTEN sets the Z coordinates of most objects to zero."
       )
     )
    
     (initget "Yes No")
     (setq yorn (getkword "\nDo you want to continue <Y>: "))
     (cond ((/= yorn "No")
            (graphscr)
            (prompt "\nChoose objects to FLATTEN ")
            (prompt
              "[press return to select all objects in the drawing]"
            )
            (setq ss1 (ssget))
            (if (null ss1)                 ;if enter...
              (setq ss1 (ssget "_X"))      ;select all entities in database
            )
            ;;*initialize variables
            (setq ss1len (sslength ss1)    ;length of selection set
                  i      0                 ;loop counter
                  numchg 0                 ;number changed counter
                  numnot 0                 ;number not changed counter
                  numno0 0                 ;number not changed and Z /= 0 counter
                  ssno0  (ssadd)           ;selection set of unchanged entities
            )                              ;setq
    
            ;;*do the work
            (prompt "\nWorking.")
            (while (< i ss1len)            ;while more members in the SS
              (if (= 0 (rem i 10))
                (prompt ".")
              )
              (setq ename (ssname ss1 i)   ;entity name
                    elist (entget ename)   ;entity data list
                    etype (cdr (assoc 0 elist)) ;entity type
              )
    
              ;;*Keep track of entities not flattened
              (if (not (member etype
                               '("3DFACE"     "ARC"        "ATTDEF"
                                 "CIRCLE"     "DIMENSION"  "ELLIPSE"
                                 "HATCH"      "INSERT"     "LINE"
                                 "LWPOLYLINE" "MTEXT"      "POINT"
                                 "POLYLINE"   "SOLID"      "TEXT"
                                )
                       )
                  )
                (progn                     ;leave others alone
                  (setq numnot (1+ numnot))
                  (if (/= 0.0 (car (reverse (assoc 10 elist))))
                    (progn                 ;add it to special list if Z /= 0
                      (setq numno0 (1+ numno0))
                      (ssadd ename ssno0)
                    )
                  )
                )
              )
    
              ;;Change group 10 Z coordinate to 0 for listed entity types.
              (if (member etype
                          '("3DFACE"    "ARC"       "ATTDEF"    "CIRCLE"
                            "DIMENSION" "ELLIPSE"   "HATCH"     "INSERT"
                            "LINE"      "MTEXT"     "POINT"     "POLYLINE"
                            "SOLID"     "TEXT"
                           )
                  )
                (setq elist  (zeroz 10 elist) ;change entities in list above
                      numchg (1+ numchg)
                )
              )
    
              ;;Change group 11 Z coordinate to 0 for listed entity types.
              (if (member etype
                          '("3DFACE" "ATTDEF" "DIMENSION" "LINE" "TEXT" "SOLID")
                  )
                (setq elist (zeroz 11 elist))
              )
    
              ;;Change groups 12 and 13 Z coordinate to 0 for SOLIDs and 3DFACEs.
              (if (member etype '("3DFACE" "SOLID"))
                (progn
                  (setq elist (zeroz 12 elist))
                  (setq elist (zeroz 13 elist))
                )
              )
    
              ;;Change groups 13, 14, 15, and 16
              ;;Z coordinate to 0 for DIMENSIONs.
              (if (member etype '("DIMENSION"))
                (progn
                  (setq elist (zeroz 13 elist))
                  (setq elist (zeroz 14 elist))
                  (setq elist (zeroz 15 elist))
                  (setq elist (zeroz 16 elist))
                )
              )
    
              ;;Change each polyline vertex Z coordinate to 0.
              ;;Code provided by Vladimir Livshiz, 09-Oct-1998
              (if (= etype "POLYLINE")
                (progn
                  (setq vrt ename)
                  (while (not (equal (cdr (assoc 0 (entget vrt))) "SEQEND"))
                    (setq elist (entget (entnext vrt)))
                    (setq crz (cadddr (assoc 10 elist)))
                    (if (/= crz 0)
                      (progn
                        (zeroz 10 elist)
                        (entupd ename)
                      )
                    )
                    (setq vrt (cdr (assoc -1 elist)))
                  )
                )
              )
    
              ;;Special handling for LWPOLYLINEs
              (if (member etype '("LWPOLYLINE"))
                (progn
                  (setq elist  (subst (cons 38 0.0) (assoc 38 elist) elist)
                        numchg (1+ numchg)
                  )
                  (entmod elist)
                )
              )
    
              (setq i (1+ i))              ;next entity
            )
            (prompt " Done.")
    
            ;;Print results
            (prompt (strcat "\n" (itoa numchg) " object(s) flattened."))
            (prompt
              (strcat "\n" (itoa numnot) " object(s) not flattened.")
            )
    
            ;;If there any entities in ssno0, show them
            (if (/= 0 numno0)
              (progn
                (prompt (strcat "  ["
                                (itoa numno0)
                                " with non-zero base points]"
                        )
                )
                (getstring
                  "\nPress enter to see non-zero unchanged objects... "
                )
                (command "._SELECT" ssno0)
                (getstring "\nPress enter to unhighlight them... ")
                (command "")
              )
            )
           )
     )
    
     (command "._UCS" "_Restore" tmpucs "._UCS" "_Delete" tmpucs)
     (command "._UNDO" "_End")
     (setvar "CMDECHO" oldcmd)
     (setq *error* olderr)
     (princ)
    )
    
    ;(prompt  "\nFLATTEN version 2k.01f loaded.  Type FLATTEN to run it.")
    ;(princ)
    
    ;;;eof
    
    


  19. mình có 1 bản vẽ bị thiếu font gothnib.shx mình đã tìm hết trên google rồi mà chưa thấy, trong diễn đàn có topic có đề cập đến font này nhưng khi tải file winrar thì lại không có pass, mình đã thủ với pass: www.cadviet.com nhưng không được, topic đó đây: http://www.cadviet.com/forum/index.php?showtopic=7808

    các bạn giúp mình với, thanks các bạn trước.

    anh tải ở bài viết của tác giả nào?

     

    Anh thử tìm trong đây xem sao:

    http://112.78.6.71/detail.php?id=0fd9ca2e3...ce81e94d72cd036

    VietTorrent

    Fonts tool/FontsCad/Fonts/GOTHNIB.SHX, 45.59 KB. Fonts tool/FontsCad/Fonts/dutcheb.ttf, 45.56 KB. Fonts tool/FontsCad/Fonts/VSWISLI.TTF, 45.55 KB ...

    112.78.6.71/detail.php?... - Đã lưu trong bộ nhớ cache


  20. cho mình hỏi cái này cái.

    Trong layout có một số khung nhìn khi thấy khi lại không thấy.

    kothay.jpg?t=1279356672

    nếu ta xóa khung hình đó đi rồi undo lại, chuyển qua model(click chuột thôi) rồi chuyển qua lại layout thì thấy bình thường, nhưng khung nhìn thấy lúc trước thì lúc sau lại không còn thấy nữa, không hiểu mọi người có hiểu ý mình diễn đạt không, ai biết cách khắc phục thì chỉ dùm với.

     

    file đó đây :

    http://dc266.4shared.com/download/D7PHSZb2...050407-b82907ff

    http://www.4shared.com/photo/D7PHSZb2/abc.html

     

    Bạn kiểm tra 2 thứ sau:

    - biến MAXACTVP (số lượng active viewport max) của ACAD máy bạn bằng bao nhiêu? mặc định là 64.

    - Tổng số các viewport trên tất cả các layout của bạn.

    Nếu tổng số các viewport trên tất cả layout của bạn lớn hơn MAXACTVP, hiện tượng bạn nói sẽ xảy ra.

     

    Nếu số lượng viewport vẫn ít hơn giá trị MAXACTVP thì bạn hãy upload file lên diễn đàn, mọi người có thể giúp bạn!

    Vấn đề chính là cấu hình máy của anh thấp, nếu cấu hình cao thì vô tư chả có gì phải nói nữa!

    • Vote tăng 1
×