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

yeuvietnam

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

  • Số lượng nội dung

    31

  • Đã tham gia

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

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

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

    Đây là đoạn Code Scale 1 chiều, Tue_NV đã cải tiến lại với lựa chọn thêm tham số R giống như Scale 2 chiều. Các bạn sử dụng và cho biết ý kiến thêm để Tue_NV hoàn thiện nhé.

    Cảm ơn các bạn

     

    ;XSCALE Scale the mot chieu lenhtat :XSC
(DEFUN EXCUTE()
(setq oldvalue (getvar "CMDECHO"))
(setvar "CMDECHO" 0)

(princ "Chon doi tuong can scale: ")
(setq ss (ssget))
(setq P0 (getpoint "\n Base point: "))
(initget 1 "X Y X S")
(setq C (getkword "\nScale theo [X,Y,Z,Scale]? :"))
(setq hstr (getstring "\n Cho biet he so scale or Reference < R >"))

(if (/= hstr "R") (setq hs (distof hstr 2)))
(if (or (= hstr "R") (= hstr ""))
(progn
(setq po1 (getdist p0 "\n Nhap chieu dai cua doan 1 hay Pick diem thu 2 cua canh thu 1:"))
(setq po2 (getdist p0 "\n Nhap chieu dai cua doan 2 hay Pick diem thu 2 cua canh thu 2:"))
(setq hs (/ po2 po1))
))

(DELBLOCK "VKC_TEMP")
(CREATEBLOCK ss P0)
(Command "-Insert" "VKC_TEMP" C hs P0 "")
(setq dt (entlast))
(Command "Explode" dt)

(setvar "CMDECHO" oldvalue)
(princ)
)
(DEFUN CREATEBLOCK(ss P)
(command "-Block" "VKC_TEMP" P ss "")
)

(DEFUN DELBLOCK (bname)
(if (IsExistBlock bname)
(Command "-Purge" "B" bname "Y" "Y")
)
)
(DEFUN IsExistBlock(bname / kq)
(setq kq Nil)
(setq n (length LiBlk))
(setq i 0)
(while (< i n)
(if (= bname (nth i LiBlk))
(progn
(setq i n)
(setq kq T)
)
)
(setq i (1+ i))
)
kq
)
(DEFUN CREALIBLK (/ NL)
(setq LiBlk (List))
(setq NL (tblnext "BLOCK" T))
(while NL
(setq LiBlk (append LiBlk (list (cdr (assoc 2 NL)))))
(setq NL (tblnext "BLOCK"))
)
(setq LiBlk (Acad_strlsort LiBlk))
)
(DEFUN C:XSCALE()
(CREALIBLK)
(EXCUTE)
)
(DEFUN C:XSC()
(CREALIBLK)
(EXCUTE)
)

    sử dụng lênh gì để scal đây bác

    • Vote giảm 1

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

    Hề hề hề,

    Việc này phụ thuộc vào tay nghề của đầu bếp đã chế biến bạn ạ. Nếu đầu bếp là người chuyên nghiệp thì việc muốn biết các gia vị đã nêm không quá khó. Còn đầu bếp là một cán bộ tay ngang thì có nhẽ may ra chỉ có đầu bếp đó nhớ được đã thêm nếm những gì bạn ạ.

    Hy vọng rằng các đầu bếp bạn có đều là dân chuyên nghiệp......

    MÌnh viết đại tỷ lệ nào đó. 

    do trong bản vẽ có khi ko yêu cầu ngặt nghèo tỷ lệ. ví dụ cái sàn bê tông cốt thép, bề dày có 100mm, mà bề ngang tới 7000mm, nên tỷ lệ tương đối

    • Vote giảm 1
×