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

vostro 1500

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

  • Số lượng nội dung

    32

  • Đã tham gia

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

  • Ngày trúng

    2

Bài đăng được đăng bởi vostro 1500

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

    Chào cả nhà!
    Mình ST được 1 lisp SUM chiều dài và diện tích kết quả Sum có field. Nay mình nhờ AI nâng cấp lên 1 chút đo được cả Spline (sai số mm). Lệnh: 
    TKLF : sum chiều dài
    TKAF : sum diện tích

    SF      : kiểm tra đối tượng sum

    Dùng được với CAD 2007. Mình mong là hữu ích cho công việc của các bạn.


    PS: sorry tác giả vì lâu quá mình không nhớ là bác nào luôn

    SUM Length Area TKLF_TKAF_SF ok.lsp

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

    Mình dùng nhiều lisp nên bị tình trạng thay đổi biến hệ thống: khi bấm chọn line (hay 1 block động ) : nhập 100 -> line dãn dài ra thêm 100.
    Mình muốn như Trước đây (mình đã chỉnh mà quên mất biến hệ thống là gì) khi chọn 1 object line -> trên line sẽ hiện lên 1 bảng số trắng nhập 100 -> tổng chiều dài line là 100 (hay bất kỳ chiều dài nào mình muốn như hình). Rất tiện lợi.
    Mong các bác giúp mình thay biến hệ thống nào nhé.
    Xin cảm ơn!

     

    images.jpg

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

    17 giờ trước, Duong Nhat Duy đã nói:

    Thì cài cad đời cao thôi bạn :). Hay bạn có cách nào khác bày giúp mình với, thanks bạn nha !

     

    Mình đã cập nhật thêm lệnh TBE rồi nhé, bạn xem lại trên đầu topic và down lại trong link nhé !

    Mình rất cảm kích về sự nhiệt tình và vì sự tiến lên cộng đồng CADVIET. Tuyệt vời! 

    Nhân tiện các bạn cao thủ CAD cho mình hỏi chút: hình như cad2007 ko có lệnh lispsys -> khi chuyển sang excel luôn thành ký tự lạ thì phải. Có cách nào khắc phục việc này cho CAD đời tháp 2007 khong các bạn?

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

    Vào lúc 26/11/2024 tại 10:56, vietduc147258 đã nói:

    Tiện đây cho em hỏi nếu muốn chuyển màu của môi trường Block Editor có được không? Tuy ít phải sửa nhưng mỗi lần vào cũng lười. 

    Vào lúc 4/3/2025 tại 08:34, vietduc147258 đã nói:

    Sau một thời gian mò thì đã có những kết luận sau:

    1: vla không có hàm hỗ trợ đổi màu nền

    2. ngoài OP ra thì có thể dùng Rigistry để đổi màu nền

    3.  Khi sửa Rigistry thì phải tắt Cad trước khi sửa. (một số tùy Option khác không cần tắt cad)

    (đã thử (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R22.0\\ACAD-1005:409\\Profiles\\<<VANILLA>>\\Drawing Window" "BEditBackground" "0") nhưng thất bại, thử mở Rygistry lên sửa thủ công cũng thất bại, tắt cad thì giá trị nó bị reset lại)

    Nếu đọc tới đây rồi mà vẫn kiên nhẫn muốn sửa màu nền thì tặng cái lisp tạo file .reg cho rigistry

    Vì các bước cực rườm rà nên làm 1 phát mấy Option luôn (Màu nền, tên bản vẽ trên titlebar, size máy in). Chưa tìm hiểu hết nên chưa đưa thêm các cái khác vào được 

    
(defun c:taofilereg (/ tmp setup regurl )
(setq tmp (getfiled "Chon File" "" "reg" 1))
(setq setup (open tmp "w"))
(setq regurl 	(strcat
			"[HKEY_CURRENT_USER\\"
			(vlax-product-key)
			"\\Profiles\\"
			(getvar "cprofile")))		

(write-line (strcat	"Windows Registry Editor Version 5.00\n"
		regurl
		"\\Drawing Window]"
		"\n\"BEditBackground\"=dword:00000000")	;Mau nen Block Edit
		setup)
(write-line (strcat	
		regurl
		"\\General]"
		"\n\"ShowFullPathInTitle\"=dword:00000001")	; Hien full duong dan tren titlebar Autocad
		setup)
(write-line (strcat	
		regurl
		"\\General]"
		"\n\"PAPERUPDATE\"=dword:00000001")	;Pape size theo may in
		setup)
)

    Quy trình là các bước sau:

    1. Tạo file reg nếu chưa có

    2. tắt Cad nếu cad đang chạy

    3.Chạy file reg

    4. khởi động cad và tận hưởng

     

    Mình thấy trong phần OP ->tag Display -> nút "Colors" có tùy chỉnh màu nền của Block edit. Bạn thử xem sao

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

    Lisp rất hay. Nhưng bị gò bó đối tượng. Mình mong bạn @Duong Nhat Duy có thể mở rộng thêm đối tượng là Table, ATT -> để kết hợp dc lisp Thống kê của bạn Duy -> sang excel rất tiện lợi.
    Mình xin gửi 1 lisp chuyên xử lý table->excel (mình không nhớ tác giả) ngắn gọn nhưng hiệu quả -> để các bạn tham khảo. Mong lắm update của bạn Duy.
    PS do mình ko rành lisp nên phải nhờ các bạn chuyên chứ ko phải là mình lười :(

    table to excel.lsp

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

    Vào lúc 28/2/2025 tại 10:36, xethoigian85 đã nói:

    Có ai sửa được cái lisp này 1 chút không, sau khi kết thúc lệnh tự chuyển về Unicode hay hơn, nếu bv đang sử dụng VNI thì qua Zalo, google hay office lại phải dùng phím nóng 1 lần nữa hơi phiền, đã lười thì lười cho tới luôn :)

     

    Gửi bạn!  

    ;============================================================================;
; 	A U T O   U N I K E Y   C O N T R O L   R O U T I N E   by	Cadviet.com - Le Thuy Linh 313        ;
;============================================================================;


(vl-load-com)

;; Bi?n toàn c?c luu b?ng mã ban d?u c?a UniKey (m?c d?nh Unicode)
(setq *initial-unikey-code* "UNICODE") ; M?c d?nh UniKey b?t d?u ? Unicode

;; Danh sách l?nh bao g?m c? ch?nh s?a và t?o m?i
(setq lscmd "DDEDIT,MTEDIT,TEXTEDIT,EATTEDIT,TEXT,MTEXT,DT")
(setq *acdver* (atof (substr (getvar "ACADVER") 1 4)))
(cond
  ((>= *acdver* 21.0) (setq com1 "_textedit")) ; 21.0-acad2017
  ((<= *acdver* 19.0) (setq com1 "_ddedit"))   ; 19.0- ACAD2013 lower
  ((<= *acdver* 17.0) (setq com1 "_ddedit"))   ; 17.0- ACAD2007
  (t (ALERT (strcat "Phiên b?n AutoCAD hi?n t?i là " (substr (getvar "ACADVER") 1 4) "\nChua du?c khai báo")))
)

;; Kh?i t?o reactors
(if (= hyp-rctCmds nil)
  (setq hyp-rctCmds (vlr-command-reactor nil '((:vlr-commandCancelled . hyp-cmdAbort)
                                               (:vlr-commandEnded . hyp-cmdAbort)
                                               (:vlr-commandWillStart . hyp-cmdStart))))
)
(foreach x (cdar (vlr-reactors :vlr-mouse-reactor))
  (if (= (vlr-data x) "Double-Click") (vlr-remove x))
)
(vlr-mouse-reactor "Double-Click" '((:vlr-beginDoubleClick . callback-DoubleClick)))

;; Thêm reactor TEXTEDITOR cho AutoCAD 2009+
(if (>= *acdver* 19.0) ; T? AutoCAD 2009
  (progn
    (foreach x (cdar (vlr-reactors :vlr-sysvar-reactor))
      (if (= (vlr-data x) "Auto-Unikey") (vlr-remove x))
    )
    (vlr-sysvar-reactor "Auto-Unikey" '((:vlr-sysvarchanged . callback-Unikey)))
  )
)

;; Hàm chính
(defun c:ed (/ textmod n-textmod ent n-ent obj n-obj l-obj font code user-input)
  (princ "\nHãy ch?n b?ng mã font ban d?u (UNI-1; VNI-2; TCVN3-3): ")
  (setq user-input (getint "(Nh?n Enter d? m?c d?nh UNI): "))
  (cond
    ((= user-input 1) (setq *initial-unikey-code* "UNICODE"))
    ((= user-input 2) (setq *initial-unikey-code* "VNI"))
    ((= user-input 3) (setq *initial-unikey-code* "TCVN3"))
    (t (setq *initial-unikey-code* "UNICODE"))
  )
  (princ (strcat "\nÐã ch?n b?ng mã ban d?u: " *initial-unikey-code*))

  (and
    (or
      (and
        (setq textmod (ssget "I"))
        (sssetfirst textmod)
        (setq obj (ssname textmod 0))
      )
      (setq textmod (entsel) obj (car textmod))
    )
    (while obj
      (setq ent (cdr (assoc 0 (entget obj))))
      (cond
        ((wcmatch ent "TEXT,MTEXT,ATTDEF")
          (setq font (cdr (assoc 7 (entget obj))))
          (vl-cmdf com1 textmod "")
        )
        ((= ent "DIMENSION")
          (setq font (vla-get-textstyle (vlax-ename->vla-object obj)))
          (vl-cmdf com1 textmod "")
        )
        ((= ent "HATCH")
          (initdia)
          (vl-cmdf "_hatchedit" textmod)
        )
        ((= ent "INSERT")
          (and
            (eq (type textmod) 'LIST)
            (setq n-textmod (nentselp (cadr textmod)))
            (setq n-obj (car n-textmod))
            (setq n-ent (entget n-obj))
            (setq n-obj (vlax-ename->vla-object n-obj))
            (cond
              ((= (cdr (assoc 0 n-ent)) "ATTRIB")
                (setq font (cdr (assoc 7 n-ent)))
                (vl-cmdf "_eattedit" textmod)
              )
              ((wcmatch (cdr (assoc 0 n-ent)) "TEXT,MTEXT")
                (if (or extract_clone (and (not extract_clone) (load "trexblk.lsp")))
                  (progn
                    (extract_clone n-textmod)
                    (vla-put-visible n-obj :vlax-false)
                    (entupd obj)
                    (setq l-obj (entlast))
                    (setq font (cdr (assoc 7 n-ent)))
                    (vl-cmdf com1 l-obj "")
                    (vla-put-textstring n-obj (cdr (assoc 1 (entget l-obj))))
                    (vla-put-visible n-obj :vlax-true)
                    (entdel l-obj)
                    (entupd obj)
                  )
                  (princ "B?n chua cài d?t gói Express tool cho CAD\n")
                )
              )
            )
          )
        )
      )
      (setq textmod (entsel) obj (car textmod))
    )
  )
  (princ)
)

;; Hàm x? lý khi l?nh b?t d?u
(defun hyp-cmdStart (param1 param2 / code current-style)
  (if (wcmatch (strcase (car param2)) lscmd)
    (progn
      (if (wcmatch (strcase (car param2)) "TEXT,MTEXT,DT")
        (setq font (getvar "TEXTSTYLE"))
        (if (null font) (setq font (getvar "TEXTSTYLE")))
      )
      (setq code (check-font-code font))
      (cond
        ((= code "TCVN3") (sendkeys "^+{F2}"))
        ((= code "UNICODE") (sendkeys "^+{F1}"))
        ((= code "VNI") (sendkeys "^+{F3}"))
      )
    )
  )
)

;; Hàm x? lý khi l?nh k?t thúc ho?c h?y
(defun hyp-cmdAbort (param1 param2)
  (if (wcmatch (strcase (car param2)) lscmd)
    (progn
      (cond
        ((= *initial-unikey-code* "TCVN3") (sendkeys "^+{F2}"))
        ((= *initial-unikey-code* "UNICODE") (sendkeys "^+{F1}"))
        ((= *initial-unikey-code* "VNI") (sendkeys "^+{F3}"))
      )
      (setq font nil)
      (setvar "HIGHLIGHT" 1)
    )
  )
)

;; Hàm callback di?u khi?n UniKey khi TEXTEDITOR thay d?i (AutoCAD 2009+)
(defun callback-Unikey (reactor sysvar / code Crfont)
  (if (and (= (car sysvar) "TEXTEDITOR") (> (getvar "TEXTEDITOR") 0))
    (progn
      (if font (setq Crfont font) (setq Crfont (getvar "TEXTSTYLE")))
      (setq code (check-font-code Crfont))
      (cond
        ((= code "TCVN3") (sendkeys "^+{F2}"))
        ((= code "UNICODE") (sendkeys "^+{F1}"))
        ((= code "VNI") (sendkeys "^+{F3}"))
      )
    )
  )
  (if (and (= (car sysvar) "TEXTEDITOR") (= (getvar "TEXTEDITOR") 0))
    (progn
      (cond
        ((= *initial-unikey-code* "TCVN3") (sendkeys "^+{F2}"))
        ((= *initial-unikey-code* "UNICODE") (sendkeys "^+{F1}"))
        ((= *initial-unikey-code* "VNI") (sendkeys "^+{F3}"))
      )
      (setq font nil)
    )
  )
)

;; Hàm ki?m tra b?ng mã font
(defun Check-Font-Code (style / ts Bold Italic charSet PitchandFamily)
  (setq ts (vlax-ename->vla-object (tblobjname "style" style)))
  (vla-GetFont ts 'font 'Bold 'Italic 'charSet 'PitchandFamily)
  (if (= font "")
    (setq font (vla-get-fontfile ts))
  )
  (cond
    ((wcmatch (setq font (strcase font)) ".VN*") "TCVN3")
    ((wcmatch font "VNI*") "VNI")
    ((wcmatch font "ARIAL*,TAHOMA*,TIMES*,COURIER NEW,CAMBRIA,CONSOLAS,TCVN 7284,MICROSOFT*") "UNICODE")
  )
)

;; Hàm g?i phím t?t
(defun SendKeys (keys / wscript)
  (vlax-invoke-method
    (setq wscript (vlax-create-object "WScript.Shell"))
    'sendkeys
    keys
  )
  (vlax-release-object wscript)
)

;; Hàm callback khi double-click
(defun callback-DoubleClick (reactor point / sset obj ss objtype)
  (setq sset (vla-get-selectionsets (vla-get-activedocument (vlax-get-acad-object))))
  (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list sset "Tien2005")))
    (setq ss (vla-add sset "Tien2005"))
    (progn
      (setq ss (vla-item sset "Tien2005"))
      (vla-clear ss)
    )
  )
  (vla-selectatpoint ss (vlax-3d-point (trans (car point) 0 1)))
  (if (> (vlax-get ss 'Count) 0)
    (progn
      (setq obj (vla-item ss 0)
            objtype (vlax-get obj 'ObjectName)
      )
      (if (wcmatch objtype "AcDbText,AcDbMText,AcDbAttributeDefinition")
        (progn
          (setq font (vla-get-stylename obj))
          (sssetfirst nil (ssadd (vlax-vla-object->ename obj)))
        )
        (if (not (eq objtype "AcDbBlockReference"))
          (sssetfirst nil (ssadd (vlax-vla-object->ename obj)))
        )
      )
    )
  )
  (vla-delete ss)
)

     

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

    Chào cả nhà!
    Mình tìm được LISP rất hay của bác duy782006 chia sẻ V/v tạo Menu cho các LISP chuyên dụng. Tuy nhiên lisp này bị hạn chế phải chép file Lisp vào đúng dg dẫn "E:\menu" và cá nhân mình dùng bị lỗi. Sau 1 thời gian tìm mọi cách "chỉnh sửa" mình đã chỉnh dc thành 1 lisp phù hợp (thêm lệnh di chuyển M; lệnh thay tên menu xếp lớp) + hoạt động khá ổn với CAD2007 mình xin được chia sẻ cho cả nhà. Mong bác duy782006 đừng giận. Cách sử dụng cho các bạn gà mờ như mình:
    1- Các bạn chép lisp vào bất kỳ vị trí nào

    2- Load lisp (lệnh AP)

    3- Nhập lệnh VMN -> chọn đúng folder chứa lisp này -> lisp sẽ tự tạo folder menu ngay tại đây.

    4- Tạo menu theo ý (tối đa 5 cấp menu)

    5- LƯU: phải tạo trước 1 Folder riêng để lưu (vị trí bất kỳ) -> copy đường dẫn đến folder này (VD: D:\luumenu) -> gọi lệnh SLMN -> dán -> OK

    6- LOAD: gọi lệnh GLMN -> dán đường dẫn đến folder lưu menu -> OK

    7- Gọi lệnh SDMN -> Hoàn thành và sử dụng menu cá nhân

    8- XÓA: tìm "Folder menu" tại vị trí chứa lisp này -> xóa đi là ok. Bật CAD sẽ mất menu cá nhân
     

    menu.lsp

    Về việc load tự động các lisp chèn vào Menu tự tạo : Mình  có tìm trên DD mình thấy AutoLoadAllLisps.lsp khá hay để tự động load bộ Lisp (nguồn LeeMac -> 1 bác trên DD edit lại). Mình cũng xin phép chia sẽ cho mọi người cùng tham khảo. Cách sử dụng:

     

    Mở AutoCAD.

    1- Gõ lệnh APPLOAD và nhấn Enter.

     2- Trong cửa sổ "Load/Unload Applications", nhấn nút "Contents" trong phần "Startup Suite".

    3- Nhấn "Add" và chọn tệp "AutoLoadAllLisps.lsp".

    4- Nhấn "Close" để lưu.

    5- lần đầu tiên lisp sẽ YC bạn chọn Folder chứa file "AutoLoadAllLisps.lsp".

     

    Kết quả: Mỗi lần mở AutoCAD, tệp Lisp này sẽ chạy tự động và nạp tất cả các tệp lisp khác trong cùng thư mục.

    Gửi các bạn cùng tham khảo. 

     

    AutoLoadAllLisps.lsp

    • Like 1

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

    Vào lúc 6/8/2011 tại 23:17, duy782006 đã nói:

    *Biết rằng nhiều bạn không khuyến khích việc viết lisp phục vụ việc tạo menu. Nhưng đã lỡ theo nên mình làm cho nó ra ngô ra khoai luôn. Nay mình hoàn thiện lisp tạo nemu giúp các bạn ko rành vẩn tạo được menu bằng thao tác trực quan và dể hiểu.

    -Bạn load file này về và copy vào thư mục menu trong ổ E. (do mình gặp trở ngại trong việc xoá file bằng lisp nên bị hạn chế phải thư mục cố định mới được).

    -Load nó lên gỏ lệnh VMN thì sẽ có 1 menu mới cho bạn: Ban đầu nó có tên duy782006 (quảng cáo tí) bạn dùng lệnh DTMN hoặc chọn trên menu để đổi tên theo ý bạn.

    -Khi load lên nó sẽ xuất hiện menu sử dụng:

    +Ban đầu nó chỉ có 1 mục đó là giới thiệu lisp menu (trong quá trình biên tập bạn nên đổi nó sang chức năng khác vì đây là mục khởi thuỷ mình tạo để có đường vào chức năng biên tập)

    +Phía dưới menu sử dụng có chức năng gọi menu biên tập (mục này là cố định lisp không hổ trợ chỉnh sửa mục này).

    -Khi gọi menu biên tập lisp sẽ tắt menu sử dụng và thay menu biên tập vào:

    +Menu biên tập có các mục giống hệt menu sử dụng trong phần hiển thị tiêu đề chỉ khác phía sau có chử biên tập bạn chọn mục nào thì chức năng biên tập sẽ cho các lựa chọn:

    Gỏ C: Chèn mục đơn vào bên trên vị trí mục vừa chọn.

    Gỏ L: Chèn mục xếp lớp vào vào bên trên vị trí mục vừa chọn (lưu ý rằng lisp hổ trợ việc lồng các mục xếp lớp vào nhau nhưng chỉ giới hạn trong 5 cấp vì mình nghỉ như thế là quá đủ cho nhu cầu) có một hạn chế là lisp ko kiểm tra tính sẳn có của 1 menu xếp lớp nên nếu bạn tạo 1 mục xếp lớp có tiêu đề trùng tiêu đề menu xếp lớp hiện có thì menu cũ sẽ được thay thế bằng menu mới. Mổi mục xếp lớp tại menu biên tập sẽ có 1 mục hổ trợ xoá bỏ menu này (mục này bạn không thể thay đổi nội dung và không xuất hiện bên menu sử dụng).

    Gỏ P: Chèn đường phân cách bên trên vị trí mục vừa chọn. Trên mổi đường phân cách trong menu biên tập sẽ có 1 mục xoá đường phân cách giúp việc xoá đường phân cách bêb dưới mà không ảnh hưởng đến các đường phân cách khác (mục này bạn không thể thay đổi nội dung và không xuất hiện bên menu sử dụng).

    Gỏ S: Sửa mục chọn bằng cách nhập nội dung hiển thị và tên lệnh mới.

    Gỏ X: Xoá bỏ mục chọn (lưu ý rằng kkhông nên xoá bỏ toàn bộ các mục đơn vì như thế sẽ ko có mục khởi thuỷ giúp bạn thực hiện chức năng biên tập).

    *Tại menu biên tập còn hổ trợ các chức năng:

    -ĐTNM: Đổi tên menu chính.

    -SLMN: Sao lưu menu hiện hành.

    -GLMN: Gọi lại menu đã sao lưu.

    -TLMN: Tạo mới menu (lúc này menu quay về trạng thái ban đầu như khi vừa mới gọi lệnh VMN).

    -XBMN: Xoá bỏ hoàn toàn menu khỏi cad của bạn

    *Khi nào cần sử dụng chức năng biên tập thì bạn hãy load lisp còn bình thường menu hoạt động mà ko cần lip (chỉ là chức năng gọi menu biên tập sẽ không thực hiện được).

    Cảm ơn bác @duy782006 đã viết 1 lisp HAY. Do máy mình ko có ổ "E:" nên mính có chỉnh thành ổ đĩa "D:" trong lisp. (thay chữ E: -> D:). Các bước sử dụng Lisp như sau (dành cho các bạn gà như mình :D )

    1- Tạo folder MENU tại ổ D:

    2- Chép Lisp VMN vào folder MENU này

    -> vậy là có thể sử dụng LISP tạo MENU cho riêng mình :D .

    Tuy đến lệnh tạo menuxeplop "L" thì khi "nhập tiêu đề cho Menu" dính lỗi : "; error: bad argument type: FILE nil". (các lệnh C,S,X dùng bình thường). Không biết có phải do mình chỉnh ổ E: sinh ra lỗi này không nữa?

    Mong bác Duy và các bác cao thủ cố gắng hỗ trợ mình nhé. Lips hay mà mình không dùng hết chức năng tức quá. Mình đang dùng CAD2007, CAD2022.

    Xin cảm ơn!

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

    Sau 1 thời gian tìm kiếm mình tìm được Lisp đổi tên Block phù hợp với nhu cầu:

    1- Đổi tên 1 Block đã chọn 

    2- Đổi tên All Block 

     

    Phần tên Block mới bị hạn chế không được có dấu cách -> mong các bác chuyên Lisp hỗ trợ -> Tên Block dc nhập dấu cách 

     

    PS: mình thử với Block động hình như không được -> Cũng mong các bác chuyên Lisp hỗ trợ -> thêm Block động thì hay quá

     

    Xin cảm ơn!

    RRE RenameBlock.lsp

    • Like 1

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

    Mình đã tải và dùng thử phần mềm của bác redsea_tq mà ko thành công. Bảng excel chỉ xuất ra cột STT toàn số 0. Mong bác redsea_tq hướng dẫn thêm để có thể chạy đúng phần mềm.

    Mình cũng mong cả nhà góp ý dùng líp hay phần mềm nào để xuất giá trị từ bản vẽ san nền kèm theo sang excel để mình tiện thẩm tra khối lượng.

    Cảm ơn mọi người đã quan tâm!

     

     

    Phần mềm của bác redsea_tq:

    http://www.cadviet.com/upfiles/4/16824_xuatklsn_3_1.rar

     

    File excel xuất ra từ phần mềm:

    http://www.cadviet.com/upfiles/4/16824_book1.rar

     

    File acad san nền VD:

    http://www.cadviet.com/upfiles/4/16824_san_nen_vi_du.dwg

     

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

    Mình tính cải tạo lại nhà nhưng đến phần chọn vật liệu làm vách ngăn lại bí. Đành nhờ các bác nhiều kinh nghiệm góp ý kiến về vật liệu.

    Tiêu chí mình mong muốn: có thể cách nhiệt tương đối (vì muốn lắp máy lạnh), dễ thi công, kinh tế.

    Nếu được các bác cho mình xin luôn địa chỉ liên hệ thi công thì càng tốt.

    Mình thì nghĩ đến vách thạch cao khung gỗ, vách Prima. Mong sự góp ý của mọi người. THANKS!

    Vách 1 cao đến trần nhà (giữ nhiệt khi bật máy lạnh), vách 2 chỉ cao khoảng 2,2m -> 2,5m (ngăn phòng)

     

     

    Nha.jpg

     

    file acad:

    http://www.cadviet.com/upfiles/2/nha1.dwg

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

    Hiện mình đã chỉnh lại cái lisp này 1 chút cho tiện dùng

    -Tên lệnh: SCXY

    -Thao tác:

    +Nhập lệnh SCXY.

    +Chọn đối tượng.

    +Chọn điểm chuẩn (để phóng)

    +Vẽ hình chử nhật chuẩn (bằng cách chọn 2 điểm chéo góc).

    +Vẽ hình chử nhật đích (bằng cách chọn 2 điểm chéo góc).

    Xong!

     

    Đây !!!

     

    Mình dùng cái này của bác thật tuyệt vời. Có 1 thắc mắc nhỏ:

    Hình như đối tượng Scale bị "bung" ra phải ko bác? Cụ thể là mình thử với hình chữ nhật (vẽ bằng REC) rồi scale -> 4 đoạn thẳng ghép lại.

×