vietduc147258
-
Số lượng nội dung
338 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
37
Bài đăng được đăng bởi vietduc147258
-
-
10 giờ trước, amateurday đã nói:Toang rồi các bác ạ. Lỗi này em không biết sửa như thế nào, tắt bảng này là thoát cad luôn. Các bác giúp em với.
Mới phải cài lại Cad Mechanical 2018 này. Cài xong xóa xóa AcWebrowser.exe rồi sửa file Host...
Được ngày nào hay ngày đó thôi chứ bữa nay Autodesk nó quét mạnh quá. Suy thoái kinh tế với lương ba cọc ba đồng thế này thì bao giờ mới mong mua được bản quyền mà dùng.
Nó mà bán giá như Office thì may ra có hi vọng.
-
1
-
1
-
-
Cái này có khả năng là nó so sách với Block nào đó làm gốc. Cái Block đó bị xóa đi thì các cái khác sẽ bị lỗi ##.
Hoặc vào Youtube tìm Video của PhuongTK có nói về lỗi này
-
1
-
-
1 giờ trước, copvan0204 đã nói:Mình xem rồi, 2 lệnh này mình đã thử nhưng khi Visibility đổi sang Block khác có chứa ATT thì ATT nó cũng không hiện lên được. Chắc là mình làm sai ở bước nào đấy.
Trước khi thử với att thì thử với text thường xem có được không? Mà bạn gửi file thì người khác mới xem giúp bạn được là sai chỗ nào
-
1
-
-
6 giờ trước, copvan0204 đã nói:Nhờ bác làm video hướng dẫn cách tạo kiểu chọn Block có chứa ATT này được không? Mình làm nhưng lúc đổi block thì các ATT này ẩn hết, mặc dù Tag đã để khác nhau rồi.
Đã bao giờ xem với like video của Thân lê với Phương tk chưa? Thử tìm hiểu attsync với battman xem.
-
4 giờ trước, Xuân Lộc đã nói:cảm ơn anh đã quan tâm, anh có thể bỏ phần đặt tên thủ công ở lisp của anh Lê Quang Dương được ko ạ, còn cái units là nhu cầu riêng thôi anh có cũng đc ko có cũng ko sao.
(if (or (eq (setq blkname (getstring T "\nBlock Name: ")) "") (/= (tblsearch "block" blkname) nil))
(Set_blkname)
)Haha. Bạn này vui tính quá. Không rảnh về lisp lắm nên bạn không tô màu thì cũng chịu rồi. Xin phép tác giả nha.
Cái này bỏ hết đoạn đó đi. thay bằng (Set_Blkname) thôi bạn. Bỏ vậy hình như bỏ luôn cái kiểm tra tên có chưa. Nhưng chắc không sao đâu.
-
lisp thêm dung sai
trong AutoLisp
18 giờ trước, ppiu8703 đã nói:Em làm trong công ty sử dụng cad bình thường nên mỗi lần ghi dung sai là em phải vào propertie mới làm dc á
Cái dung sai của Mechanical thì không chê vào đâu được. Nhưng edit mấy dim thông thường thì thằng Mechanical lại cảm giác rối hơn.
Gửi bạn cái mình đang dùng. Do có nhu cầu nên tự mày mò công cụ. Chỉ có những dung sai hay dùng thôi. Muốn thêm dung sai thì thêm vào file data.txt
Bạn bỏ file vào ổ C:\Dung_Sai
thích dùng menu thì menuload > Browse ->C:\Dung_Sai\menu_ds.cuix
thích dùng mình lisp thôi thì AP -> C:\Dung_Sai\Tolerance.lsp
Gọi lệnh ds1 hoặc menu. hỗ trợ 3 kiểu dung sai. Đổi kiểu bằng lệnh (kieudungsai) hoặc trên menu.
thêm lệnh tắt bằng cách sửa file C:\Dung_Sai\Tolerance.lsp, như ví dụ dưới
(defun c:th7 (/ mds) (setq mds "h7") (c:ds1) (princ) ) (defun c:H7 (/ mds) (setq mds "H7") (c:ds1) (princ) )P/S: Bạn muốn sửa dung sai H7 thành 0.006 thì bạn copy cái vùng H7 trong Data.txt ra. Ctrl+H để thay thế +0.000 thành +0.006.
Nhớ phân biệt H7 với h7 nha. Với Back up file trước khi làm cho an toàn
-
21 giờ trước, Xuân Lộc đã nói:anh sửa giúp em code tự đặt tên block với ạ, với khi đặt block thì block luôn luôn ở đơn vị minimet nữa ạ. thank anh
Tại sao không Units đi rồi hãy tạo Block. Chứ bản vẽ đang Units là Inch mà ép Block nó theo mm là kích thước tùm lum luôn đó
Đặt tên thì OK, bỏ qua pick điểm thì thôi nhé.
(defun c:QB (/ selectionset insertionpoint number Blockname) ;;; Tharwat 11. May. 2012 ;; (if (and (setq selectionset (ssget "_:L")) (setq insertionpoint (getpoint "\n Specify insertion point :")) ) (progn (setq Blockname (strcat (substr (getvar "dwgname") 1 5 ) (menucmd "M=$(edtime, $(getvar,date),_DDMO_HHMMSS)"))) (while (tblsearch "BLOCK" Blockname) (setq Blockname (strcat Blockname "n") ) ) (command "_.-Block" Blockname insertionpoint selectionset "") (command "_.-insert" Blockname insertionpoint "" "" "") ) (princ) ) (princ) )-
1
-
-
Nhìn các nét bị mất không theo quy luật nào cà. Có lẽ không phải lỗi người dùng.
"Bò" thì mất rồi góp ý bạn làm cái "chuồng" thôi. Dùng đồng bộ Google Drive hoặc Dropbox, One Drive... Sẽ lấy lại được file của những lần lưu trước đó. Lịch sử, giờ lưu file, nếu có chia sẻ thì biết User nào sửa... Bạn có thể xem lại thời gian lưu để loại trừ nguyên nhân... đổi máy... đổi phiên bản CAD... để loại trừ nguyên nhân
Bật .bak lên. Lúc lưu xong mở lên xem lại liền. Nếu có thay đổi thì sẽ cứu ngay.
Bôi chọn 1 vùng và ghi nhớ tổng số Ojbect. Lưu và mở lại kiểm tra tổng số Ojbect lại....
-
Vào lúc 29/10/2024 tại 09:59, NguyenMinh88 đã nói:Vâng cám ơn bạn ! 02 lisp đó mình dều load trên mạng
1 . Lisp thứ 1 thì giống như lệnh edit block trong cad . > bạn giúp viết thêm không cần hiện lên bản click chon vào biệu tuong + hay - dể remove đối tượng ,
2 lisp thứ 2 thì remove và xóa đối tuong đó luôn.> bạn giúp chỉnh lisp remove đối tuong mà không xóa .
Mình mong muốn remove đối tuong trong block nhu khong xóa đối tượng.
Xin cám ơn bạn .
Không rành lisp lắm nên sửa cho bạn dùng đỡ. Không tắt được bảng, chỉ bớt được khâu chọn - để remove thôi. Với lại không hỗ trợ Block động nữa
(defun c:Rm () (if(=(strlen(getvar 'refeditname))0) (progn (sssetfirst nil(ssget "_:S" '((0 . "INSERT")))) (command "_-refedit" "O" "" "") (command "_refset" "_rem" (ssget) "") (command "refCLOSE" "") ) ) (princ) ) -
Vào lúc 26/10/2024 tại 22:48, NguyenMinh88 đã nói:Xin chào các bạn ! Mình tìm được lisp này trên mạng
Mình khong hiểu gì về lisp
Nhờ các bạn hiểu về lisp chỉnh sửa đoạn lisp này
lisp này chỉ hiện lên bảng giúp chúng ta chọn thêm hày remove đối tương ra khỏi block và bấm nút save trên bản hiện ra
Vậy có cách nào giúp chọn đối tường và remove và save lại mà không hiện bảng chỉ dẫn ( ý là bỏ qua bước hiện bản giúp chọn và save )
Xin cám ơn các bạn đã giúp đỡ.
(defun c:Rm ()
(if(=(strlen(getvar 'refeditname))0)
(progn
(sssetfirst nil(ssget "_:S" '((0 . "INSERT"))))
(command "-refedit" "O" "" "")
)
(command "refCLOSE" "" "")
)
(princ)
Lisp EraseOjbectFromBlock này chắc cũng nằm cùng chỗ với cái bạn tìm thấy
Sao không dùng nó?
-
2 giờ trước, ppiu8703 đã nói:Có cách nào thay vì d1 là phi d2 là M thì em chỉ cần nhập DN là em có thể nhập mọi thứ không ạ?
Với khi em nhấn 2 lệnh trên xong thì sau khi Dim bình thường thì sau mọi Dim đều có hậu tố “.” hết á, vậy thì có cách fix không anh ơi?
Ý là nhập DN xong máy sẽ hỏi là muốn thêm Phi hay M rồi mới thực hiện lệnh phải không? Lại đổi đề bài ban đầu đưa ra thế.
Thấy Lisp bác Cường hay mà sao không dùng.
-
2 giờ trước, ppiu8703 đã nói:Có cách nào trên 1 DIM vừa có D1 và D2 kh anh ha. Với lisp trên khi em nhấn D1 thì D2 mất và ngược lại ạ
Làm sao mà có thể vừa Phi vừa M được bạn. Không có tiêu chuẩn nào mà thể hiện bản vẽ như thế cả
-
1 giờ} trướ}c, cuongtk2 đã nói:Dùng TextPrefix cho dim:
(defun c:d1 ()(vla-put-TextPrefix (vlax-ename->vla-object (car (entsel))) "%%C"))
Đúng là cao thủ ra tay có khác.
-
15 giờ trước, ppiu8703 đã nói:mọi người cho em hỏi có lisp nào mà mình chỉ cần nhấn D1 là thêm Ø cho DIM, D2 là biến Ø6 thành M6,... kiểu kiểu vậy không ạ
Có nhé. Cái này đã hỏi diễn đàn lâu lắm rồi nhưng không có lisp. Qua mày mò các lisp khác sửa lại cũng được cái mình cần. Nay share lại cho bạn
d1: Thêm Ø
d2: Thêm M
dr: là DDI nhưng thay vì ra Ø sẽ ra M
(defun c:d1 ( / newdimvalue oldvl ss ent) (if (setq ss (ssget "_:L" '((0 . "*DIMENSION")))) (repeat (setq in (sslength ss)) (setq ent (entget (ssname ss (setq in (1- in))))) (if (not (member '(100 . "AcDbDiametricDimension") ent)) ;; Neu la Dim duong tron - da cho san phi (progn (setq oldvl (cdr (assoc 1 ent))) (if (= oldvl "") (setq newdimvalue "%%C<>") (if ( = (strcase (substr oldvl 1 3)) "%%C") (setq newdimvalue oldvl) (setq newdimvalue (strcat "%%C" oldvl)) ) ) (setq ent (subst (cons 1 newdimvalue) (assoc 1 ent) ent)) (entmod ent) ) ) ) ) ) (defun c:d2 (/ dtdim)(editdim "M" "M<>")) (defun editdim ( noidungc newdimvalue ) (setq dtdim (entsel (strcat "\n Chon Dim chen " noidungc))) (command "dimedit" "n" newdimvalue dtdim "") (princ) ) (defun c:dr ( / *error* msg) (defun *error* ( msg ) (if "." (setvar 'DIMPOST ".")) (princ) ) (setvar "DIMPOST" "M<>") (command "DIMDIAMETER" PAUSE PAUSE) (setvar "DIMPOST" ".") (princ) )
-
1
-
-
Muốn cái nào về theo thiết lập của Layer thì phải chuyển cái đó về ByLayer. Chỉ đơn giản thế thôi. Lý thuyết thế, thực hành nó sẽ ra thế thôi. Trừ khi thiết lập nét in theo Layer rồi lại đi in theo màu thì chịu rồi.
![Autodesk AutoCAD 2018 - [CUsersAdministratorDownloadsDrawing1 (1).dwg].jpg](https://www.cadviet.com/forum/uploads/monthly_2024_10/869035850_AutodeskAutoCAD2018-CUsersAdministratorDownloadsDrawing1(1)_dwg.jpg.f025282b5e47d645de6b1da611d81075.jpg)
-
Mở file *.dwg
trong Sử dụng AutoCAD
Qen dùng crack rồi nên cũng chưa thử qua Libre Cad.
Nếu mở với và chuyển đổi định dạng, đo đạc thì DWG TrueView của Autodesk luôn. Hơi nặng, lag chút nhưng free + chính hãng.
Chỉnh sửa thì chịu rồi.
Bạn thử https://vina-cad.com/ xem sao? Nếu OK thì giới thiệu cho người khác biết dùng thử.
-
1
-
-
9 giờ trước, huyennd đã nói:em không tìm thấy anh ah, nhờ a hướng dẫn với. em cám ơn
Bạn kết hợp Select Order với Fence nữa cho nhanh.
Chọn Selected order -> Select. nhấn phím f - chọn 2 điểm (hoặc nhiều hơn) để tạo line qua các khung bản vẽ. Lisp sẽ in theo hướng từ điểm 1 cho đến điểm 2, điểm n
Bạn đọc lại #8 có nói cái này rồi
-
1
-
-
Xem lại ổ đĩa cài đặt đi nhé. Ổ E chắc là ổ CD à. Không còn bộ nhớ trống kìa
-
SUPER HATCH
trong Sử dụng AutoCAD
4 phút trước, conghoa đã nói:Em tạo 1 cái sêm sêm mà chưa zám post :D, sợ chủ thớt lại chỉ cần sửa cái superhatch :)
Thêm cho chủ thớt 1 sàn lát gỗ 800x120
*00_800_120,0
;; Goc x y dichx arayX l aray Y
0, 0, 0, 0, 120
90, 0, 0, 0, 800, 120, -600
90, 670, 120, 0, 800, 120, -600
90, 540, 240, 0, 800, 120, -600
90, 410, 360, 0, 800, 120, -600
90, 280, 480, 0, 800, 120, -600
90, 150, 600, 0, 800, 120, -600
![Autodesk AutoCAD 2018 - [Drawing1.dwg].jpg](https://www.cadviet.com/forum/uploads/monthly_2024_10/523768316_AutodeskAutoCAD2018-Drawing1_dwg.jpg.42276c852e572b6cdbdaf93e3a145442.jpg)
-
Lỗi ảnh
trong Sử dụng AutoCAD
Vào lúc 5/10/2024 tại 14:20, Thái Lương đã nói:Mọi người ơi, giúp em với ạ.
Em mở cad có file ảnh bên trong, copy move thì vẫn ổn nhưng dùng rotate thì ảnh bị mất, có cách nào để sửa ko ạ?File có Xrep mà gửi không kèm ảnh nữa thì sao mà giúp được.
Có chèn thử ảnh khác thì xoay bình thường không lỗi. Thử Attach lại rồi nhập góc xoay trong cửa sổ Attach xem sao. Nhớ thử các góc lẻ và góc bội của 90 nữa.
-
Nguyên nhân là Mtext của Block khung tên thì vào Block khung tên, tìm từng Mtext xem có cái nào có mấy chấm xanh vượt quá khung tên hay không. Hoặc X cái là Mtext thành text thôi.
Cái lỗi này trong diễn đàn nói đến mấy lần rồi đó. Trong bài viết về MPL cũng có người hỏi cái này rồi.
-
1
-
-
làm tròn cộng dim
trong AutoLisp
(defun c:ccd(/ gtt dt sdt ent id str) (setq dt (ssget '((0 . "DIMENSION"))) sdt (sslength dt) id 0 gtt 0 str "" ) (repeat sdt (setq ent (ssname dt id) id (1+ id) gtt (+ gtt (gt1 ent) ) str (strcat str (rtos (* (fix (+ (/ (gt1 ent) 10.0) 0.50)) 10) 2 0) "+") ) ) (lisped (setq str (substr str 1 (1- (strlen str))))) (princ str) (princ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;; (defun gt1(ent / so) (if (wcmatch(cdr(assoc 1 (entget ent)))"") (setq so (cdr(assoc 42 (entget ent)))) (setq so (atof(cdr(assoc 1 (entget ent))))) ) )Thay 0.10 thành 0.50 nha
-
21 giờ trước, dongdong123 đã nói:Thanks bác ! e đã thử xuất sang pdf rồi import ngược lại nhưng nó chuyển thành Mtext chứ không sang đường line được ạ
Vậy là bác đọc không kỹ rồi. Text Dim nên dùng fonts .shx nhé. Fonts ttf sẽ thành Mtext.
Biết đâu phiên bản Cad cao hơn Autocad nó thông minh hơn nên fonts .shx nó cũng thành Mtext. Cái đó là điều người dùng mong muốn ngược so với mong muốn của bạn.
Mà thấy dùng X với txtexp cũng ok mà. Kết hợp với FI nữa
-
Làm ngược lại mới khó chứ. Không hiểu về lĩnh vực này lắm nhưng nếu muốn làm như vậy thì Explored cái Dim rồi text dim thì txtexp.
Mà text tốt nhất là shx nha.
Hoặc xuất PDF rồi import ngược lại thì Dim với text Dim thành Line với Pline hết
-
1
-
Bản quyền Autocad
trong Sử dụng AutoCAD
Đã đăng · Trả lời báo cáo
Bạn click phải vào Notepad > Run as Administrator
Bạn open hoặc kéo thả file host vào notepad. file host nằm ở "C:\Windows\System32\drivers\etc\hosts"
thêm vào dòng sau và lưu lại. Chỉ cần 3 dòng đầu thôi cũng được. nhưng thà giết nhầm còn hơn bỏ sót.
Cái này cũng có thể Autodesk nó sẽ fix thôi. được ngày nào hay ngày đó bạn
127.0.0.1 genuine-software.autodesk.com 127.0.0.1 genuine-software1.autodesk.com 127.0.0.1 genuine-software2.autodesk.com 0.0.0.0 autodesk.fi 0.0.0.0 autodesk.de 0.0.0.0 autodesk.es 0.0.0.0 autodesk.ca 0.0.0.0 autodesk.dk 0.0.0.0 autodesk.pl 0.0.0.0 ns1.autodesk.com 0.0.0.0 ns2.autodesk.com 0.0.0.0 ns3.autodesk.com 0.0.0.0 a.gtld-servers.net 0.0.0.0 b.gtld-servers.net 0.0.0.0 c.gtld-servers.net 0.0.0.0 d.gtld-servers.net 0.0.0.0 e.gtld-servers.net 0.0.0.0 f.gtld-servers.net 0.0.0.0 g.gtld-servers.net 0.0.0.0 h.gtld-servers.net 0.0.0.0 i.gtld-servers.net 0.0.0.0 j.gtld-servers.net 0.0.0.0 k.gtld-servers.net 0.0.0.0 l.gtld-servers.net 0.0.0.0 ns1.autodesk.com 0.0.0.0 m.gtld-servers.net 0.0.0.0 adobeereg.com 0.0.0.0 126114-app1.autodesk.com 0.0.0.0 94175-app1.autodesk.com 0.0.0.0 94184-app2.autodesk.com 0.0.0.0 96579-lbal1.autodesk.com 0.0.0.0 acamp.autodesk.com 0.0.0.0 adeskdi3.autodesk.com 0.0.0.0 adeskdmzpdc.autodesk.com 0.0.0.0 adeskgate.autodesk.com 0.0.0.0 adesknews2.autodesk.com 0.0.0.0 adeskout.autodesk.com 0.0.0.0 adsknateur.autodesk.com 0.0.0.0 amernetlog.autodesk.com 0.0.0.0 app5.autodesk.com 0.0.0.0 aprimo-relay1.autodesk.com 0.0.0.0 aprimo-relay2.autodesk.com 0.0.0.0 aprimo-relay3.autodesk.com 0.0.0.0 aprimo-relay4.autodesk.com 0.0.0.0 autosketch.autodesk.com 0.0.0.0 blues.autodesk.com 0.0.0.0 cbuanprd.autodesk.com 0.0.0.0 cbuanprhcllb.autodesk.com 0.0.0.0 cbuanqa2lb.autodesk.com 0.0.0.0 ci3dwsdev-svc.autodesk.com 0.0.0.0 ci3dwsprd-svc.autodesk.com 0.0.0.0 ci3dwsstg-svc.autodesk.com 0.0.0.0 community.autodesk.com 0.0.0.0 cut.autodesk.com 0.0.0.0 cvsprd01.autodesk.com 0.0.0.0 discussion.autodesk.com 0.0.0.0 eur.autodesk.com 0.0.0.0 extcidev.autodesk.com 0.0.0.0 extciqa.autodesk.com 0.0.0.0 extupg.autodesk.com 0.0.0.0 ftp-users.autodesk.com 0.0.0.0 ftp2b.autodesk.com 0.0.0.0 gisdmzpdc.autodesk.com 0.0.0.0 hqaribasrf04.autodesk.com 0.0.0.0 hqmgwww01.autodesk.com 0.0.0.0 hqmgwww04.autodesk.com 0.0.0.0 hqmobileweb01.autodesk.com 0.0.0.0 hqprxsrftrn.autodesk.com 0.0.0.0 hqpsweb01.autodesk.com 0.0.0.0 hubdev-svc.autodesk.com 0.0.0.0 hubprd-svc.autodesk.com 0.0.0.0 hubstg-svc.autodesk.com 0.0.0.0 itappprd01-svc.autodesk.com 0.0.0.0 itappprd02-svc.autodesk.com 0.0.0.0 its.autodesk.com 0.0.0.0 jdevextv-new.autodesk.com 0.0.0.0 jp.autodesk.com 0.0.0.0 jstgextv-new.autodesk.com 0.0.0.0 jstgintv-new.autodesk.com 0.0.0.0 lbsvzw.autodesk.com 0.0.0.0 lbsvzw1.autodesk.com 0.0.0.0 lbsvzw2.autodesk.com 0.0.0.0 library.autodesk.com 0.0.0.0 liveupdate.autodesk.com 0.0.0.0 locationservices.autodesk.com 0.0.0.0 lsctsol04.autodesk.com 0.0.0.0 mail-relay.autodesk.com 0.0.0.0 mneprdext-svc.autodesk.com 0.0.0.0 mut.autodesk.com 0.0.0.0 nbugma-dmz.autodesk.com 0.0.0.0 ns1.autodesk.com 0.0.0.0 ns2.autodesk.com 0.0.0.0 ns3.autodesk.com 0.0.0.0 ns4.autodesk.com 0.0.0.0 ns5.autodesk.com 0.0.0.0 nut.autodesk.com 0.0.0.0 otw-new.autodesk.com 0.0.0.0 otwdownloads.autodesk.com 0.0.0.0 partnercenter.autodesk.com 0.0.0.0 partnerproducts.autodesk.com 0.0.0.0 paste.autodesk.com 0.0.0.0 pedidrq.autodesk.com 0.0.0.0 pediqrx.autodesk.com 0.0.0.0 petars1.autodesk.com 0.0.0.0 petcp11ia-2nat.autodesk.com 0.0.0.0 petcr12ihsrp2.autodesk.com 0.0.0.0 phxgciv.autodesk.com 0.0.0.0 phxgciv_dr.autodesk.com 0.0.0.0 planix3d.autodesk.com 0.0.0.0 pointa.autodesk.com 0.0.0.0 register.autodesk.com 0.0.0.0 registerallied-pr.autodesk.com 0.0.0.0 registeronce.autodesk.com 0.0.0.0 salestraining.autodesk.com 0.0.0.0 searchnews.autodesk.com 0.0.0.0 shop.autodesk.com 0.0.0.0 spamster-bulk.autodesk.com 0.0.0.0 sswwwp.autodesk.com 0.0.0.0 trialdownload.autodesk.com 0.0.0.0 usa.autodesk.com 0.0.0.0 uspetcr12ie_198.autodesk.com 0.0.0.0 uspetcr12if.autodesk.com 0.0.0.0 uspetcr12if_198.autodesk.com 0.0.0.0 uspetcrs12ia_ib_vlan500_2_hsrp.autodesk.com 0.0.0.0 uspetcrs12ia_vlan500_2.autodesk.com 0.0.0.0 uspetcrs12ib_vlan500_2.autodesk.com 0.0.0.0 uspetne06ia_ib_untrust_dip7.autodesk.com 0.0.0.0 usrelay.autodesk.com 0.0.0.0 ussclout1.autodesk.com 0.0.0.0 vzwlpsrel.autodesk.com 0.0.0.0 vzwlpstst.autodesk.com 0.0.0.0 web.autodesk.com 0.0.0.0 webservices.autodesk.com 0.0.0.0 wormhole.autodesk.com 0.0.0.0 www.autodesk.com 0.0.0.0 www3.autodesk.com