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

tranthuong

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

    18
  • Đã tham gia

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

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


  1. Mọi người cho e hỏi, e tạo các khung MV bên layout, sau khi thể hiện các chi tiết xong xuôi trên khổ giấy A3, e đã lưu lại.

    Hôm sau e mở ra thì k thể kích đúp vào các khung MV để chỉnh sửa bản vẽ và cũng k nhìn thấy các chi tiết ở khung MV đó, mà vẫn là khung MV đó thì e thử in vẫn thể hiện đc các chi tiết trên bản vẽ. Đây là lỗi gì ạ? ai giúp e với ạ, e cảm ơn!


  2. Bên model không phải là đường đơn bình thường, mà là nó là đường có nét hàn, tuy nhiên tỉ lệ linetype scale quá bé để bạn nhận ra. Bạn chọn vào nó, ấn Ctrl 1, chỉnh phần Linetype Scale to lên bạn sẽ hiểu. Từ bài rep đến giờ mình chưa nói 1 tí nào đến từ DIM

    E hiểu rồi, e cảm ơn a ạ. 

    Nãy e viết nhầm line thành dim.

    A cho e hỏi thêm là muốn tạo kiểu line là đường hàn như vậy thì làm cách nào ạ?


  3. Hề hề hề,

    Bạn gõ lệnh ucs trên dòng command, sau đó gõ n (new) rồi pick cái điểm cần chuyển gốc tọa độ về đó. trong trường hợp của bạn là pick vào cái tâm của hình chữ nhật.

    Hề hề hề,...

    A cho e hỏi, ví dụ như đang có 1 hình tròn, muốn tâm hình tròn vào 1 tọa độ cho trước thì làm thế nào ạ?


  4.  

    Ủa LISP của bạn xài tốt mà, không biết bạn áp dụng vào bản vẽ ntn, và áp dụng như thế nào mà không được nhỉ?!!!

    Sau khi bạn pick một DIM, Height text sẽ thay đổi đối với các DIM: cùng DIMstyle và cùng chiều cao nữa.

     

    Tuy nhiên, mình thấy rằng trong một bản vẽ thống nhất, mặc dù có nhiều DIMstyle khác nhau về Scale Factor, nhưng Height text của các DIMstyle phải bằng nhau chứ? (thường bằng 2.5; 3 hay 3.5 gì đó, trong LISP sau, mình để sẵn giá trị tham chiếu là 3)

    Vì vậy mình nghĩ, ý bạn là chuyển tất cả DIM trong bản vẽ (mặc dù khác DIMstyle và khác chiều cao) về cùng một Height text do bạn nhập vào, nếu vậy bạn xài thử LISP sau đây:

     

    
    

     

    (defun c:HDA (/ th);;; Height Dimensions All ;;;
    (command "undo" "be")
    (defun tab (s / d r)
    (while   (setq d (tblnext s (null d)))
    (setq r  (cons (cdr (assoc 2 d)) r))))
    (setq th (getreal "\nNhap chieu cao moi <3.0>:\n")) (if (= th nil) (setq th 3.0))
    (setvar "cmdecho" 0)
    (mapcar '(lambda(x) (command "DIMSTYLE" "R" x) (setvar "DIMTXT" th) (command "DIMSTYLE" "S" x "Y")) (tab "DIMSTYLE"))
    (command "undo" "en") (command "-dimstyle" "A" "all" "")
    (prompt (strcat "\nDa thay chieu cao DimText thanh: [" (rtos th) "]\n")))
    (defun c:HDA (/ th)   ;;; Height Dimensions All ;;;
    (command "undo" "be")
    (defun tab (s / d r)
    (while   (setq d (tblnext s (null d)))
    (setq r  (cons (cdr (assoc 2 d)) r))))
    (setq th (getreal "\nNhap chieu cao moi <3.0>:\n")) (if (= th nil) (setq th 3.0))
    (setvar "cmdecho" 0)
    (mapcar '(lambda(x) (command "DIMSTYLE" "R" x) (setvar "DIMTXT" th) (command "DIMSTYLE" "S" x "Y")) (tab "DIMSTYLE"))
    (command "undo" "en") (command "-dimstyle" "A" "all" "")
    (prompt (strcat "\nDa thay chieu cao DimText thanh: [" (rtos th) "]\n")))
    [/lisp]
     
    Chúc bạn vui!

    Cảm ơn bạn!!!

    cái lisp ban đầu của tôi áp dụng với bản vẽ đầu tiên thì k đc, t thử với bản vẽ # và đã thực hiện đc.


  5. Phải có lisp thì mới chuẩn đoán được, mò thế này không tiện, up file lisp+ up file mà lisp không có tác dụng nhé, cũng nên kiểm tra xem nếu là lisp không có tác dụng với mọi file, mọi Dimstyle thì chắc là ..chẹp chẹp.. 

    cảm ơn bạn! bạn giúp t với, lisp đây.

    http://www.cadviet.com/upfiles/3/119309_hdim_1.lsp

    t đã kiểm tra với file # và thực hiện đc.  :) 

    sao lại như đấy hả bạn???


  6. chào tất cả mọi ng!

    tôi là 1 thành viên mới của diễn đàn, là 1 ng mới học cad có thắc mắc mog mọi ng giúp đỡ.

    trong bản vẽ tôi có sử dụng lisp cad để chỉnh lại chiều cao của chữ số ghi kích thước, sau khi viết lệnh chọn và điền trị số chiều cao mới thì cad báo là nil và chiều cao của chữ số kích thước k thay đổi. Mong mọi ng giải đáp giúp.

    Cảm ơn!!!

×