Chuyển đến nội dung
Diễn đàn CADViet
Học AutoCAD Online cùng CADViet

Bảng xếp hạng


Nội dung phổ biến

Hiển thị nội dung có danh tiếng cao nhất vì 23/01/2018 trong tất cả các lĩnh vực

  1. 2 điểm
    Thuật toán tạm hiểu như sau: * Với lệnh chính (C:COBLK) Đúng như những gì bạn nhận định chọn (và chỉ được chọn) bằng cách quét chuột các đối tượng là BLOCK; sau đó lặp qua toàn bộ đối tượng này, thực hiện thủ tục cobylayer (được ghi bên dưới) cho từng đối tượng: Mục đích đổi màu toàn bộ đối tượng bên trong BLOCK được chọn về layer bylayer (CHÚ Ý: lệnh này không có tác dụng đối với block không tên = BLock được "dán" bằng lệnh CTRL+V * Với thủ tục cobylayer Cứ căn cứ theo code lệnh thì tạm hiểu như sau: + Bước 1: đối với đối số đầu vào blk (kiểu của blk là ename) -> lấy ra tên của BLOCK thông qua lệnh (setq s (cdr (assoc 2 (entget blk)))) + Bước 2: do ename blk lấy (hoặc đưa vào) ở bước 1 chỉ là 1 trong số nhiều thằng cùng tên (gán ở biến s ở trên) (chẳng hạn có nhiều thằng lái xe tuyến Hà Nội - Sơn La như 26k-50123; 26k10001;26k0001;.........cho nhà xe "Ân Vân") do vậy cần "tuyển" lấy một thằng chung chung nào đó để làm thay đổi chung (kiểu của nó dạng enname); Cách này được làm như sau: Truy nhập ename (cái chung cần tìm vừa nói) trong "bộ sưu tập" (thư viện, ...) Danh mục quản lý BLOCK của CAD bằng câu lệnh (cái chung này chính là thằng chủ tuyến "Ân Vân") (setq e (cdr (assoc -2 (tblsearch "BLOCK" s)))) + Bước 3: thì đơn giản rồi, sau khi có được tên của thằng chung chung cần quản lý, chỉ cần xử lý với mình nó thôi, (chẳng hạn thay đổi giá vé Hà nội - Sơn La từ 190.000đ thành 250.000đ và của thằng nhà xe Ân Vân, thì các lái xe của tuyến nó sẽ phải tự tăng giá theo nè) Cái khó trong bước này là bước duyệt từng đối tượng trong Block (do Block là tập hợp = nhóm nhiều đối tượng Cad: Line, Text, Mtext, dim , hatch,.....) nên để duyệt từng thằng thì cần đến lệnh (entnext) bồ cứ tìm thằng này trên mạng (google.com.vn) sẽ dễ hơn Hoặc hiểu (setq e1 (entnext e)) sẽ tìm thằng được khởi tạo sau e (e, e1 tất cả ở dạng ename nhé) nếu như là không gian bình thường (model , layout) thì thứ tự này là sự xuất hiện lần lượt khi thực hiện Cad ví dụ như tại thời điểm 9:00 AM Cad ghi nhận vẽ Line (và lưu ename của Line này là e), sau đó vẽ tiếp Circle, sau đó là DIM, hatch,.... thì khi thực hiện lệnh (setq e1 (entnext e) sẽ cho ra Circle (setq e1 (entnext e1) sẽ cho DIM (setq e1 (entnext e1) sẽ cho hatch cứ như vậy cho đến khi hết không gian layout, model (bằng hết đối tượng, ) Còn khi không gian là BLOCK thì vẫn như trên nhưng không gian lấy đối tượng đi sau chỉ giới hạn trong không gian đối tượng Block thôi P/S trong code có một đoạn Lặp (trong toán học gọi là đệ quy) khi nào hiểu được những phần trên thì bạn tìm hiểu tiếp nhé, khá hay
  2. 2 điểm
    Chính xác là vừa giết nhầm vừa bỏ sót. OSOPTIONS = 7, Test => 1 Giết nhầm: Ignore endpoints of dimension extension lines: Check => Uncheck Bỏ sót: Ignore hatch objects: Check => Check Ở đây, có 2 biến ảnh hưởng đến snap hatch objects là OSOPTIONS và OSNAPHATCH nên có thể dùng lisp của ketxu. Tổng quát, nếu muốn thay đổi bit khác, dùng hàm (defun SwitchBit (n k) (+ n (if (= (logand n k) k)(- k) k))) n : số nguyên >=0 k : 2^i (1, 2, 4, ..)
  3. 2 điểm
    (defun c:oh ()(setvar 'osnaphatch (- 1 (getvar 'osnaphatch))))
  4. 1 điểm
  5. 1 điểm
    Các bác có biết cách nào để tạo toolbar (như bên trái hình) Ấn vào nó sẽ mở ra 1 ô để chọn block cần thiết như hình dưới này không?
  6. 1 điểm
    Gửi bác video hàng em viết bằng VBA. Cần thì liên hệ em nhé.
  7. 1 điểm
    Ban đánh lệnh AP Vào Content, sau đó add các lisp này vào, chọn load het, rồi thoát ra ngoài là ok
  8. 1 điểm
  9. 1 điểm
    Trước tiên bạn tạo 1 layer mới và set LineType là HIDDEN. Sau đó chọn layer đó vẽ bt khi Extrude lên thì khối đó sẽ mang layer mới và Linetype sẽ là Hidden. Chọn thẻ property chỗ Visual Style là 2D Wireframe. Muốn thẻ Visual Style hiện ra thì bấm chuột phải vào taoolbar chọn show tab sau đó tick vào Visual Style là sẽ hiện ra
  10. 1 điểm
    Khi tick vào "Layer" tức là bỏ qua việc các layer khác nhau. Như vậy, nếu có 5 Lines mang 5 Layers nhưng trùng nhau thì nó sẽ xóa 4 còn 1. Nếu 5 lines còn khác nhau cả color nữa thì bạn tích tiếp "Color". Nói chung, trường hợp của bạn thì cứ tick vào các ô hết đi, vì không biết các thuộc tính của bạn có giống nhau không.
  11. 1 điểm
  12. 1 điểm
    (defun C:CA (/ dt p1 p2 sl s2 i ) (command "undo" "be") (setq osm (getvar "osmode")) (setq dt (ssget) p1 (getpoint "\nDiem goc: ") p2 (getpoint p1 "\nDiem den: ") sl (getint "\nSo lan: ") s2 (/ (distance p1 p2) sl) i 1) (setvar "osmode" 0) (repeat sl (command ".copy" dt "" p1 (polar p1 (angle p1 p2) (* i s2))) (setq i (1+ i))) (command "undo" "e") (setvar "osmode" 1023) (princ))
  13. 1 điểm
    cad nó hỏi bạn có load file lisp ko, bạn zô đặt mặc định nó load nhiều bản vẽ là sẽ ko hỏi lại cái này nữa
  14. 1 điểm
    + Vì hiểu biết về cad sơ sài + không chịu dùng tính năng "Tìm Kiếm" của diễn đàn ! https://www.cadviet.com/forum/topic/21054-cách-điều-chỉnh-kích-cỡ-số-ghi-kích-thước/
  15. 1 điểm
    (defun c:cdt (/ ent poi) (while (and (setq ent (car (nentsel "\nChon DIMTEXT: "))) (eq (cdr (assoc 0 (entget ent))) "MTEXT") (Setq poi (getpoint "\nPick diem dat Mtext: " (cdr (assoc 10 (entget ent)))))) (entmake (subst (cons 10 poi) (assoc 10 (entget ent)) (entget ent)))) (princ)) Mình thấy lisp này chỉ hoạt động tốt trên UCS-W , còn với UCS bất kỳ text trích xuất ra bị nhảy đi rất xa với dim đc chọn. Mong bạn có cách khắc phục để có thể sử dụng trên bất kì ucs nào mà ko cần chuyển về UCS-W
  16. 1 điểm
    Khi gọi lệnh pick vào dim thì mình thấy báo lỗi sau : "CXX Pick DIM; error: no function definition: DXF" Bác thử check lại xem có vấn đề gì ko?
  17. 1 điểm
    Bạn ngâm kỹ xong 2 cuốn này thì hết tết rồi https://drive.google.com/open?id=0B9xaw3zFWKm1d2FMdVNXcUFJNHc https://drive.google.com/open?id=0B9xaw3zFWKm1MGlYWlVQRzhJTjQ
  18. 1 điểm
    Trong máy của bạn có cài cad đời thấp hơn ko, nếu có là cad bao nhiêu?
  19. 1 điểm
    ktra Autodesk 360 đã được cài đặt chưa.
  20. 1 điểm
    Tôi có lisp để so sánh biến hệ thống khi thay đổi một thông số trong cad.
  21. 1 điểm
    Ketxu biết đến nó là vì đã dịch gần hết các biến hệ thống trong CAD ^^ Đấy là nguồn chính thứ 1 Nguồn chính thứ 2 là search gg với nội dung liên quan, kèm theo chữ SYSVARS ^^
  22. 1 điểm
    Trong lệnh SYSVDLG có biến OSNAPHATCH mà Danh Công! Cad đang dùng 2007
  23. 1 điểm
    Tôi dùng cad 2010 nên "OSOPTIONS" cũng chỉ có giá trị 0-3 Xem ảnh và GG thì thấy cad đời mới có thêm bit 4 cho dimension extension lines. Trong tương lai có thể thêm các bit khác: 8, 16 ... https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-Core/files/GUID-0D05BECE-0DC3-454D-999A-208C6DBC3C3E-htm.html
  24. 1 điểm
    Hiện tại những chiếc máy toàn đạc điện tử đã trở nên phổ biến và các tài liệu hướng dẫn sử dụng của những thiết bị này trở nên phổ biến hơn rất nhiều. Không chỉ những kỹ sư trắc địa mà những người kỹ sư xây dựng cũng có thể dùng những chiếc máy này để thi công một cách chuẩn xác. Để tận dụng lợi thế của phần mềm Autocad thì chúng ta sẽ thêm những công cụ hỗ trợ đó chính là những Lisp hay dùng nhất để lấy tọa độ các điểm cũng như là đầu tiên chúng ta sẽ dùng Lisp TDKT để lấy tọa độ các điểm sau đó dùng Lisp CTE để xuất bảng tọa độ ra file excel để đưa vào máy toàn đạc điện tử dùng chco công tác định vị điểm tim trục nhà hay tim trục đường. Bạn đọc có thể tải lisp ở file đính kèm Autolisp.rar
  25. 1 điểm
    Thủ phạm nằm ở đây (tải về và mở trực tiếp bằng VLIDE - không copy, paste):
  26. 1 điểm
    "Quá nhanh, hơi nguy hiểm", có thể gọi là giết nhầm hơn bỏ sót.
  27. 1 điểm
    Uhm, Không hiểu lỗi này do đâu, hình như có vấn đề trong việc tải file ở diễn đàn: Khiến cho file trực tiếp tải về rồi dùng tại chỗ bị trục trặc . ----> Nhắn các bác khác trên diễn thử kiểm tra giúp em lỗi này với !, máy em cũng bị tương tự. Giải quyết: B1: Tạo mới 1 file .txt, đặt tên aaa chẳng hạn. Rồi đổi đuôi file thành .lsp B2: Mở file lisp "Test", copy nội dung từ file "Test" sang file "aaa" B3: Chạy lại lisp
  28. 1 điểm
    bạn phải load content lisp đó luôn(lisp chưa lệnh tkth), thì khi mở bất kỳ bản vẽ nào cũng có thể dùng dc nó
  29. 1 điểm
    TỔNG ĐẠI LÝ XE TẢI TIẾN PHÁT Xin giới thiệu đến Quý khách hàng gần xa Xe Veam VT260 Xe tải trọng 1.9 tấn Thùng dài 6m2 VÀO THÀNH PHỐ ban ngày. Xe sử dụng Cầu, Máy, Hộp số Hyundai nhập khẩu từ Hyundai Hàn Quốc. Xe trang bị Động cơ Hyundai D4BH được nhập khẩu từ Hyundai Hàn Quốc. Riêng động cơ Xe Veam VT260 có sử dụng hệ thống Turbo tăng áp giúp xe vận hành mạnh mẽ, bền bỉ và tiết kiệm nhiên liệu.. Cabin xe rộng rãi, vô lăng trợ lực gật gù dễ điều chỉnh tạo cảm giác thoải mái nhất cho người lái. Cùng hệ thống đèn led thế hệ mới, đảm bảo tầm nhìn vào ban đêm. Thùng dài 6 mét có thể chở được rất nhiều loại mặt hàng như: săt, thép, inox, nhôm và nhiều loại hàng hóa cồng kềnh ra vào thành phố. THÔNG SỐ KỸ THUẬT XE VEAM VT260 MB Tải trọng: 1990 Kg Tổng tải trọng: 4990 Kg Kích thướt lòng thùng: 6150 x 2060 x 1930 mm Động cơ Hyundai D4BH Cỡ lốp: 7.50-16 BÁN XE TRẢ GÓP Trả trước 20-30% giá trị xe Hỗ trợ ngân hàng lãi suất ưu đãi chỉ 0,66% tháng Thủ tục nhanh gọn, đơn giản. Ngoài ra, công ty chúng tôi còn phân phối thêm nhiều dòng sản phẩm chất lượng khác như: Hyundai HD120SL , Hyundai HD800 và Hỗ trợ làm Phù hiệu xe tải trong 3 -5 ngày làm việc. Để biết thêm thông tin chi tiết, Quý khách hàng vui lòng liên hệ: Công ty TNHH Ô Tô Tiến Phát Bộ phận chăm sóc khách hàng: Mr.TĨNH Hotline: 0901731318 – 0966959479 Website: http://banototai.com/
  30. 1 điểm
    Google dịch là có thể hiểu rồi mà. Tóm lại là lisp cần tìm 1 thằng bản vẽ, cháu nó có tên "TH_2.dwg". Lisp nó đăng lên loa phường, tìm khắp thư mục có dạng C:\...xxxx....xxxx nhưng không ra. Giải quyết: + Lúc tìm lisp thì tác giả có những tập tin đính kèm nào, tác giả hướng dẫn cài bản vẽ "TH_2.dwg" ở đâu, có nó thì lisp mới chạy được. Không có cháu "TH_2.dwg" thì lisp... bỏ xó.
  31. 1 điểm
    Thường thì những vấn đề này nên có "Đặt hàng".. :)) Nói vui thôi, nhưng nên có sự liên hệ với các anh chị có kinh nghiệm để họ bớt chút thời gian để viết bạn ạ... ^^ Vì để lập trình các bác ý cũng tốn thời gian lắm.
  32. 1 điểm
    HỖ TRỢ TRẢ GÓP XE TẢI HYUNDAI HD800 Trả trước 20-30% giá trị xe Ngân hàng hỗ trợ 80%, Lãi suất ưu đãi Thủ tục nhanh gọn, duyệt hồ sơ nhanh trong 24h Hyundai HD800 dòng xe nhập khẩu 3 cục Hàn Quốc, với Tải trọng cho phép chuyên chở 8 tấn. Hiện tại trên thị trường, HD800 là dòng xe Hyundai 8 Tấn DUY NHẤT sử dụng chassi và cầu Nhập khẩu Hàn Quốc. Còn Hyundai HD120SL sử dụng chassi và cầu Trung Quốc. Thông số kỹ thuật xe Hyundai HD800: Tải trọng: 7940 KG Tổng tải trọng: 11425 KG Kích thướt lòng thùng: 5050 x 2060 x 700/1890 mm Động cơ Hyundai D4DB 4 kì, 4 xilanh thẳng hàng Dung tích xilanh: 3907 cc Công suất 130 Ps, Turbo tăng áp Cỡ lốp: 8.25-16 Ngoài ra, công ty chúng tôi còn phân phối thêm nhiều dòng sản phẩm chất lượng khác như: Hyundai HD120SL , Veam VT260 và Hỗ trợ làm Phù hiệu xe tải trong 3 -5 ngày làm việc. Để biết thêm thông tin chi tiết, Quý khách hàng vui lòng liên hệ: Công ty TNHH Ô Tô Tiến Phát Bộ phận chăm sóc khách hàng: Mr.TĨNH Hotline: 0901731318 – 0966959479 Website: http://banototai.com/
  33. 1 điểm
    Mình phát hiện ra 1 chỗ: Dialog khai báo key "fw", nhưng khi get_tile thì lại "wf" => dẫn đến (atof nil) => Error: bad argument type: stringp nil
  34. 1 điểm
    Hotline: Mr Anh – 0972836116 - Nhà phân phối sản phẩm máy bơm chìm nước thải Tsurumi KTZ, KRS, HS, KTV, NKZ chính hãng ở Việt Nam CÔNG TY CỔ PHẦN MÁY VÀ THIẾT BỊ LẠC HỒNG VPGD: Số 10 lô B5 KĐT Đại Kim, Hoàng Mai, Hà Nội Website Http: lachongcorp.vn * Ứng dụng: - Bơm hệ thống xử lý nước sạch cho các khu công nghiệp và chung cư - Bơm hệ thống tưới tiêu thủy lợi - Bơm chìm, bơm chìm khai thác nước ngầm - Bơm hố móng, bơm cát, bơm bùn tuần hoàn, bơm nước mặn - Bơm bùn hố móng công trinh, bơm bùn đặc,.... - Bơm thoát nước tầng hầm, bơm bể lắng, bơm hố thu, bơm chìm chống ngập úng trong các tòa nhà, công trình giao thông, hầm mỏ. Bơm nước thải chuồng trại chăn nuôi gia súc Máy bơm chìm nước thải Tsurumi KTZ 21.5 1.5kW là loại máy bơm chìm nước thải hút bùn, cát chuyên dùng cho các công trình xây dựng, dùng để bơm hố móng, hoặc bơm nước thải tại các nhà máy, xí nghiệp với loại nước thải có tính ăn mòn, hoặc có lẫn cát, thích hợp rút nước ở vùng ven biển. Là loại máy bơm chìm nước thải có độ bền cao, sức chịu đựng tốt, có thể hoạt động liên tục trong thời gian dài ĐẶC ĐIỂM CỦA MÁY BƠM CHÌM NƯỚC THẢI TSURUMI KTZ Bộ bảo vệ nhiệt chống cháy máy Ống xả lắp theo kiếu thẳng đứng, hoặc nghiêng phù hợp vời điều kiện vận hành Dầu nhờn bôi trơn và làm mát động cơ cuả Tsurumi Cáp điện loại tốt, vận hành trong môi trường khắc nghiệt Phốt chặn cơ khí chống rò rỉ Cánh quạt bằng sắt mạ chrome độ bền cao CHI TIẾT KỸ THUẬT MÁY BƠM CHÌM NƯỚC THẢI TSURUMI KTZ 611 11KW Model: KTZ 611 Điện áp: 380V Công suất: 11 kW - 15HP Cột áp: 32m Lưu lượng 2.5 m3/phút Đk xả: 150 Xuất xứ Tsurumi Nhật Bản Bảo hành 12 tháng, COCQ đầy đủ Nhà sản xuất Máy bơm chìm nước thải Tsrumi Nhật Bản là nhà sản xuất máy bơm chìm có quy mô lớn nhất hiện nay. Hãng chuyên đáp ứng các nhu cầu sử dụng máy bơm chìm nước thải đa dạng các ngành nghể như xây dựng, nuôi trồng thủy hải sản. các xí nghiệp sản xuất, nhà hàng, khách sạn, khai khoáng.. Chất lượng hàng đầu trên thế giới Ngoài ra công ty chúng tôi còn cung cấp thêm những loại máy khác: - Máy bơm nước thải Tsurumi KTZ, KRS - Máy bơm trục ngang Pentax, Matra dòng CM, bơm bù áp Pentax - Bơm chìm giếng khoan, bơm hỏa tiễn Pentax 4S, 6S, - Máy bơm xăng Tohatsu - Nén khí Puma – Đài Loan - Máy cắt uốn sắt Toàn Phong Trung Quốc GQ, GW - Máy đầm dùi bê tông, máy đầm dùi cầm tay, đầm bàn - Palăng cáp điện, tời kéo Trung Quốc, Nhật Bản… - Máy trộn bê tông, thùng trộn, phun vữa, bơm vữa Trung Quốc.. - Máy mài sàn, máy trà sàn, máy đục, búa đục phá bê tông Trung Quốc - Máy bơm hóa chất, bơm định lượng, bơm màng,bơm bánh răng, máy xục khí, thổi khí Nhật Bản, Italy, Mỹ… Báo giá máy bơm nước,Bơm tõm hút nước thải, Bơm chìm nước thải lẫn bùn loãng, máy bơm bùn đặc hãng Tsurumi, bơm nước thải hố móng công trình lẫn bùn cát, bơm nước thải Tsurumi, bơm nước thải đặt chìm, Bán máy bơm chìm Tsurumi, bơm nước thải hố móng công trình Giá bán máy bơm nước thải hố ga 0.75kw chạy điện 1 pha, máy bơm nước thải nhập khẩu Tsurumi HS2.75 công suất 0.75kw Bán máy bơm nước thải lẫn bùn loãng 0.4Kw, máy bơm nước thải nhập khẩu HS2.4 công suất 0.4kw Đại lý phân phối máy bơm nước thải Tsurumi 5.5kw,7.5kw, bơm nước thải hố móng công trình Bơm nước thải lẫn bùn cát 9kw,11kw,15kw,22kw Chuyên bơm nước thải hố móng công trình lẫn bùn cát 3.7kw,4kw,5.5kw,6kw,7.5kw - hàng chính hãng xuất xứ Nhật Bản Bán bơm bùn lẫn đất sét trắng 22kw, giá tiền máy bơm bùn đặc hãng Tsurumi KRS822 công suất 22kw
  35. 1 điểm
    Hề hề hề, Lưu ý bạn check lại các dialog vì thường thì các biến trong dialog sẽ lấy giá trị chuỗi string. Nếu bạn bỏ qua các biến này khi nhập liệu vào dialog sẽ bị báo lỗi như trên khi lisp check các dialog.
  36. 1 điểm
    Chịu thôi, 1 cái lisp dài loằng ngoằng thế này không biết đâu mà lần được. Thường thì viết lisp dài thì phải chia nhỏ ra mà kiểm tra, chứ kiểm tra 1 cục thế này thì không biết lỗi ở đâu mà gỡ.
  37. 1 điểm
    Xem cái mớ loằng ngoằng đấy có phải là " Point" không rồi xoá nó đi, hoặc gõ "DDPT" để chỉnh hình dạng Point.
  38. 1 điểm
    Cad đời cao đã có hẳn 1 lệnh rất pro cho yêu cầu này rồi mà :)
  39. 1 điểm
    bạn phải Etransmit tại sheetset chứ ko phải etransmit tại file
  40. 1 điểm
  41. 1 điểm
    Thử thay xem thế nào ^_^: (mapcar '(lambda(o) (vla-put-Layer o lay)) (Get_lst_Obj doc blkname))) thành: (mapcar '(lambda(o) (vla-put-Layer o lay) (vla-put-color o 256)) (Get_lst_Obj doc blkname))
  42. 1 điểm
    Cách đơn giản là bạn chọn tất cả các đối tượng rồi gõ lệnh w sau đó chọn nơi lưu file mới. File mới này sẽ không chứa các đối tượng không được sử dụng trong bản vẽ. (file 5MB -> 91KB)
  43. 1 điểm
    Chuẩn. Nhiều LineType nên rất nặng Pu -> cho đến khi nút PurgeAll không bấm được thì thôi. BV 5MB-96KB.dwg
  44. 1 điểm
    Bạn dùng lệnh Audit trên menu File Bạn à. Bản vẽ nặng vì nhiều linetype quá! Google Drive111.dwg
  45. 1 điểm
    Chuẩn Cách đơn giản là copy những cái block, details, ... những gì bạn muốn làm thư viện vào một file. Lúc nào cần thì mở nó lên rồi copy và paste sang file dự án của bạn.
  46. 1 điểm
    Bạn tìm hiểu về toolpallettes.
  47. 1 điểm
    1. hatch xít 1 tí rồi nổ ra tại shape. 2. Dùng ký hiệu độ (%%d) cũng ra chấm tròn đặc.
  48. 1 điểm
    Chào anh em Mình tìm được trên mạng file Lisp của Lee Mac tạo 3 List box liên kết với nhau. Mình có dựa vào và chỉnh sửa lại chút như file Lisp đính kèm sau đây :Tapper Block Sets TBS.lsp Mình muốn nhờ anh em sửa giúp mình để chèn các block tương ứng với các tên ở list box cuối cùng, đồng thời lưu lại lần chọn cuối cùng để lần sau chọn nó hiện đúng vị trí cuối đấy. vd: Chọn TBS35 , TBS35-30 , TBS35-30-5 , chọn OK thì sẽ chèn block theo chương trình tbs35305 ở phía trên Thanks anh em!
  49. 1 điểm
    insert tên Block là "Bo tri thep duong", scale lên 100 lần xài lại
  50. 1 điểm
    Cám ơn bạn đã viết cho mình, phải nói là file lisp hoạt động rất giống với ý mình, chỉ có hai cái mình chưa hiểu lắm: - Thứ nhất nếu mình muốn cái bảng và chữ trong bảng to ra thì có thể sửa đc ko và sửa như thế nào được. - Thứ hai là các dòng này : (defun c:thcap2 () (setq dscap3d (nth (atoi vitricap2) dscap2)) (setq filechen (strcat "c://" dscap3d ".dwg")) (princ filechen) ) Theo mình hiểu thì đây sẽ là dòng cần sửa để insert block mình cần ra , và mình sửa như này liệu có đúng ko, mong bạn xem giúp: (defun c:thcap2 () (setq dscap3d (nth (atoi vitricap2) dscap2)) (command "insert" (strcat "E:/Nghia_AutoLisp 2012/DCL/Tapper block sets TBS/" dscap3d ".dwg") pause "" "" "") (command "_.Explode" "l") )
Bảng thành tích này được đặt thành Tp. Hồ Chí Minh /GMT +07:00
×