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

Tue_NV

Moderator
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    4260

  • Đã tham gia

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

  • Ngày trúng

    288

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

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

    Đúng là mình muốn vậy nhưng mà cái Lisp ở diễn đàn đó ko chạy được bạn à ? Báo lỗi : "Select objects: ; error: quit / exit abort"

    Lỗi này là do file .dcl chưa được chỉ đường dẫn để tải vào ACAD.

    CÁi này gồm 2 file Edit Multi Text.dcl và file Edit Multi Text.lsp

    Bạn chép 2 file này vào trong 1 thư mục nào đó

     

    Vào CAD, đánh lệnh op (option) -> ở nhãn file -> hàng đầu tiên Support file search Path -> Chọn Add -> Chỉ đường dẫn tới thư mục chứa file Edit Multi Text.dcl ->Apply -> OK.

     

    Appload file lisp và sử dụng. Tên lệnh là edd.

    Hai file đó đay : http://www.cadviet.com/upfiles/Edit_Multi_Text.rar

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

    Chào mọi người.

     

    Có ai biết làm sao để tất cả line mà có lineweight 0.2mm , khi mình nhấn tab LWT thì nó sẽ sáng đậm hơn những line có lineweight nhỏ hơn 0.2mm.

     

    Hiện tại CAD chỉ cho phép line mà có lineweight 0.3mm trở lên thì nhấn tab LWT thì nó sẽ sáng đậm hơn thì phải.

     

    Xin mọi người chỉ giáo.

    Có một mẹo nhỏ mà khi ấn Tab LWT làm cho line và các đối tượng có lineweight 0.2mm sáng đậm hơn lineweight khác là :

    Bạn chuyển các line và các đối tượng có lineweight 0.2mm về lineweight lớn hơn 0.3mm. và lẽ đương nhiên các lineweight 0.2mm này sẽ sáng hơn các lineweight còn lại.

     

    Nhưng phải sử dụng thủ thuật sau đây, để khi cần chọn 1 phát lệnh, các lineweight 0.2mm phải tự động chuyển về lineweight 0.2mm vốn ban đầu của nó.

     

    Mẹo sử dụng Lệnh quick select kết hợp với lệnh Group như sau :

    Bấm chọn toàn bộ bản vẽ (Nhấn phím Ctrol +A). Chọn Tool -> Quick select -> hiện hộp thoại Quick select

    Chọn lineweight bằng 0.2mm như hình vẽ

    quick_1.jpg

    Hop thoai Quick Select

     

    Sau khi OK xong - các đối tượng trên bản vẽ lineweight bằng 0.2mm được chọn.

    Đánh lệnh G (Group) -> hộp thoại Group xuất hiện -> đánh tên group name -> kích chuột vào New ->ở hàng Select object : đánh chữ P (Previous). Lập tức các đối tượng đã chọn bằng Quick select trước đó được chọn ->OK.

    bây giờ bạn kích vào đối tượng Group có lineweight bằng 0.2mm đổi thành lineweight lớn hơn 0.30mm thì các lineweight sẽ sáng hơn.

    Khi cần thiết bạn có thể chọn Group này và cho nó trở lại lineweight ban đầu của nó là 0.20mm.

     

    bạn có thể để hiển thị nhóm hay không muốn hiển thị nhóm để thao tác trên đối tượng thuộc nhóm thi vào Tool ->option -> Ở nhãn Selection đánh tick hoặc không đánh tick vào ô object grouping

    Bạn cũng có thể thêm, hoặc bỏ đối tượng ra khỏi nhóm trong lệnh Group.

     

    Mong rằng bạn hiểu.

    Chúc thành công.

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

    Cho mình hỏi thêm : Làm thế nào có thể gõ thứ tự các ô một cách nhanh nhất. Cách thông thường mình làm là : Dùng lệnh text, rồi bắt điểm, gõ số vào. Làm như thế thì rất là lâu, đặc biệt khi số ô lưới tăng lên. Mọi người có cách nào nhanh hơn không?

    Để làm được điều đó bạn đọc bài viết này của bác SSG :

    http://www.cadviet.com/forum/index.php?showtopic=7906

    Tiện đây cho mình hỏi, làm thế nào có thể thiết lập font mặc định Time new Roman cho nội dung của phần text. Thanks!

    bạn đánh lệnh Sten thì nó sẽ thiết lập textstyle là Ten và font chữ là Time new Roman 

    (defun c:Sten ()
(command "style" "ten" "Times New Roman" "" "" "" "" "")
)

    Chúc thành công.

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

    mọi người không hiểu ý mình rồi.Mình có hình ảnh cụ thể đây:

    http://www.cadviet.com/upfiles/untitled_49.bmp

    Ở đây hình A là điều mình mong muốn, nghĩa là với bất cứ đường tròn nào dù lớn hay nhỏ thì đường tâm luôn lớn hơn đường tròn.

    Còn hình B , nếu bản vẽ có n đường tròn khác nhau thì minh không thể chỉnh Center mark trong dimesion style n lần được, hoặc nếu dùng lệnh dimcenter thì quá mất thời gian.

    Nói đến đây chắc mọi người hiểu rồi chứ.Xin mọi người giúp mình.

    Hình vẽ bạn nên lưu dưới đuôi .jpg và khi upload lên diễn đàn bạn nên kiểm tra xem hình vẽ của bạn đã được upload chưa?

    Hình vẽ của bạn bấm vào không thấy gì cả. Chỉ thấy dòng chữ này : Concurrent download limit exceeded.

    bạn kiểm tra lại hình vẽ minh hoạ của bạn lại nhé.

     

    Mình mới viết được đoạn Code này, hy vọng nó chạy theo đúng ý bạn.

    Bạn có thể thay đổi phần dư ra khỏi đường tròn bằng cách khai lại biến KC

    Tên lệnh là : Dcen

    (defun c:Dcen ()
(setq c1 (getpoint "Pick vao duong tron:")) (terpri)
(command "lengthen" c1 "")
(setq L1 (getvar "perimeter"))
(setq KC 200)					; chieu dai phan du
(setq D (+ (/ L1 pi 2) KC))
(command "dimcen" D)
(command "dimcenter" c1 )
)

     

    Chúc thành công.

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

    Xin chào các anh chị và các bạn, mình là thành viên mới, rất mong được sự giúp đỡ của tất cả mọi người.

    Minh rất thích tìm hiểu về Lisp và có thắc mắc này mong các anh chị và các bạn giúp mình:

    -Khi vẽ đường tròn chúng ta thường phải vẽ tâm, nếu dùng Center Mark thì phải scale lên tùy theo kích thước của đường tròn nên rất bất tiện, mọi người ai có lisp nào vẽ được Center Mark theo bất kỳ tỉ lệ nào cũng được mà không cần scale lên vẫn tương ứng với đường tròn đó thì xin giúp mình với.Cảm ơn nhiều.

     

    Chưa hiểu ý bạn. Thường thì để vẽ Center Mark ta dùng lệnh dimcenter và sau đó chọn cung hoặc đường tròn để vẽ

     

    Command: dimcenter

    Select arc or circle:

     

    Bạn có thể nói rõ hơn ý của bạn được không?

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

    Bác Pro nào viết cho em cái Lisp biến các text ( Mtext) được chọn thành 1 Text khác (hay 1 Value) mà mình nhập vào ???

    Cảm ơn các bác !

    Có phải bạn muốn chọn các text, sau đó nhập giá trị Text vào, lập tức các Text được chọn ban đầu đó nhận giá trị là Text vào

    Nếu vậy thì cái bạn cần ở đây : http://www.cadviet.com/forum/index.php?showtopic=7092

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

    Lisp này bác SSG viết chuẩn rùi bạn thao tác sai ấy chứ. Bác dùng lệnh UNIT đế đặt chữ số có 2 số lẻ thui nhé

    Sử dụng lệnh Units không được bạn meohoang ạ.

     

    Lisp của bác SSG chỉ đúng khi số có số lẻ thập phân lớn hơn 2, còn số có số lẻ thập phân nhỏ hơn 2 thì không được.

     

    Ví dụ : 16.92678 x3 = 50.78 -> Kết quả đồng ý.

     

    16.9 x3 = 50.7 -> Chưa đạt kết quả mong muốn là 50.70

     

    16x3 = 48 -> Chưa đạt kết quả mong muốn là 48.00

     

    Còn nữa , nếu số có số lẻ thập phân lớn hơn 2 nhưng khi nhân với một số k cho được một kết quả có số lẻ thập phân nhỏ hơn 2 thì cũng không được

    Ví dụ : 20.4333 x 3 = 61.3 -> Chưa đạt kết quả mong muốn là 61.30

     

    Mong bác Ssg bỏ chút thời gian chỉnh sửa lại một chút đoạn Code trên cho hoàn thiện.

    Cảm ơn bác SSG nhiều lắm.

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

    layer DEFPOINTS đó bác

    Địa chỉ: http://www.cadviet.com/upfiles/Drawing2_9.dwg

    Ồ, đương nhiên rồi Layer DEFPOINTS layer không thể in (Plot) ra được.

    Bạn xem trong hộp thoại Layer Properties Manager ở hàng có DEFPOINTS thì bạn sẽ thấy cái máy in có màu xám.

    Điều này chứng tỏ là lớp DEFPOINTS này không in ra được.

    Bạn xem hình vẽ ở dưới này nhé :

    defpoint.jpg

     

    Để có thể in các đối tuợng thuộc lớp DEFPOINTS bạn phải chuyển các đối tượng này sang lớp khác thì mới in được

     

    Nhưng bạn có thể freeze (đóng băng) được với điều kiện là Layer DEFPOINTS không phải là lớp hiện hành

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

    mọi ngưòi ơi ai hay dùng quen phần mềm này cho mình hỏi nha:

    mình viết chữ trong đó nha sau đó sử dụng WMF coppy sang word .tại sao nó lại bị lỗi phông nhỉ.mặc dù mình cùng chọn một loại phông như nhau nha. mình dùng phông times new roman.cám ơn mọi người

    Mình đã phát hiện được một mẹo này rất hay mà khi chèn CAD sang Word không bị lỗi Font chữ Times new roman (Unicode)

    Xin được cùng chia sẻ cho mọi người

    Đó là : Khi khai báo font chữ Times new roman, thì bạn phải khai báo cho Font chữ này có độ rộng Width Factor khác 1 (nhỏ hơn hoặc lớn hơn 1).

     

    Đánh lệnh Style -> Khai báo tên textstyle, font chữ Times new roman và độ rộng Width Factor khác 1

    Đánh lệnh Mtext -> Viết chữ -> sử dụng WMF coppy sang word

     

    Bạn hãy xem kết quả của mình thu được khi làm xong :

    http://www.esnips.com/doc/85cf3dbf-368e-45...d/TimeNewRomans

    Bạn nào bị lối font chữ Times new roman khi chèn từ CAD qua Word thì hãy làm theo cách của mình nhé.

    Mới phát hiện nên thấy thú vị lắm.

    Chúc thành công :cheers:

    • Vote tăng 4

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

    Bác ơi, trong cad2009 patse kiểu Autocad entities không điều chỉnh được bảng mà patse bình thường thì lại xấu và khó điều chỉnh, file cad lại nặng nữa. Bác xem có cách nào giúp em với. Em cảm ơn nhiều!

    Thế thì bạn đọc thêm cái này nữa nhé : File mà bạn tải về mang tên Excel2CAD

    Đường Link đây : Xuất bảng từ Excel ra acad

    Hy vọng đọc thêm bài viết này nữa, bạn sẽ làm được điều mình muốn.

    Chúc thành công. :cheers:

    • Vote tăng 1

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

    Bạn kiểm tra xem:

    1. nét bạn vẽ đã phải là nét đứt chưa? và phải bảo đảm rằng bạn luôn để bylayer với lớp bạn đang vẽ.

    2. Trong bảng Properties , bạn cũng phải đảm bảo rằng Linetype Scale đang để là 1.

    3. Bạn chỉ cần đánh lênh LTS và chọn khoảng đứt theo ý bạn. Nếu in 1/100 và là nét center hay hidden thì bạn để LTS = 50 là OK. Thử xem nhé ! thanks đi nào !!!

    Các bạn hãy chú ý về sự khác nhau giữa lệnh LTscale và lệnh CeLtscale

     

    Lệnh Ltscale (Tắt là lệnh LTS) : với hệ số tỉ lệ của nó thì hệ số tỉ lệ của nó ảnh hưởng toàn bộ tới tỷ lệ nét của các đường tim, trục, các đường khuất trong bản vẽ của các bạn. Các bạn hãy chú ý.

     

    Còn lệnh CeLtscale : Khi sử dụng lệnh này thì hệ số tỷ lệ của đường nét chỉ ảnh hưởng tới đối tượng sắp vẽ chứ không hề ảnh hưởng tới toàn bộ tỷ lệ nét của các đường tim, trục, các đường khuất trong bản vẽ của các bạn.

     

    Tuỳ thuộc vào bản vẽ của các bạn mà hãy sử dụng 2 lệnh trên cho phù hợp.

     

    Các bạn có thể xem thêm ở chủ đề này http://www.cadviet.com/forum/index.php?sho...c=624&st=20

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

    ai còn mẹo nào nữa ko nói cho anh em nghe với!

    Sao không ai nói về mẹo kích thước thế nhỉ?

    Mẹo về sửa (edit) các kích thước cho giống nhau chỉ bằng 1 lệnh : (không ed nhiều lần)

    Đó là lệnh Dimedit (Tắt là Ded)

     

    Command: ded DIMEDIT : đánh lệnh Ded

    Enter type of dimension editing [Home/New/Rotate/Oblique] <Home>: n

     

    : gõ N , sau đó hiện lên hộp thoại Mtext , bạn gõ kích hước cần sửa, (ví dụ :1000)

     

    Select objects: Specify opposite corner: 4 found : quét chọn các đường kích thước cần sửa,

     

    Select objects:

     

    Lập tức, các kích thước cần sửa sẽ có giá trị là 1000.

     

    Chỉ cần sử dụng 1 lệnh thôi, các kích thước đã sửa giống nhau 1 lần.

     

    Ai thấy mẹo này hay thì tick Thanks nhé. :cheers:

    • Vote tăng 4

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

    chào câc bạn:

    mình muốn hỏi 1 vấn đề:

    khi hatch 1 đối tượng thường có hiện tượng tỉ lệ hatch qua nhỏ làm cho hatch ra đen thui ko thấy gì cả.

    sau đó phải vào proprety sửa lại tỉ lệ rất thủ công

    xin các cao thủ chỉ giup

    xin gửi về : xomcaydua@gmail.com

    thanks

    Mới viết được đoạn Code này để thay đổi tỉ lệ Hatch.

    Các bạn dùng thử : 

    (defun c:TLH ()
(prompt " Chon mau Hatch : ") 
(setq MH (ssget))
(setq TLe (getreal "Nhap ti le hatch : "))
(command "Hatchedit" MH "" "P" "" TLe "")
)

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

    Nếu cad của bạn có cài Express thì có thể sử dụng lệnh BURST (mình dùng cad08,không rõ từ cad bao nhiêu thì có lệnh này) để phá text thuộc tính thành text bình thường.

    Hay bạn cũng có thể sử dụng file lisp này : burst.lsp

    File này là file lisp nằm trong phụ trợ Express. Nếu bạn dùng các phiên bản CAD không có phụ trợ Express này thì hãy sử dụng đoạn Lisp này để thay thế.

    ;;;
;;;
;;;	BURST.LSP
;;;	Copyright © 1999 by Autodesk, Inc.
;;;
;;;	Your use of this software is governed by the terms and conditions of the
;;;	cấp quyền Agreement you accepted prior to installation of this software.
;;;	Please note that pursuant to the cấp quyền Agreement for this software,
;;;	"[c]opying of this computer program or its documentation except as
;;;	permitted by this cấp quyền is copyright infringement under the laws of
;;;	your country.  If you copy this computer program without permission of
;;;	Autodesk, you are violating the law."
;;;
;;;	AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;;	AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;;	MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
;;;	DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;;	UNINTERRUPTED OR ERROR FREE.
;;;
;;;	Use, duplication, or disclosure by the U.S. Government is subject to
;;;	restrictions set forth in FAR 52.227-19 (Commercial Computer
;;;	Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;;	(Rights in Technical Data and Computer Software), as applicable.
;;;
;;;  ----------------------------------------------------------------

(Defun C:BURST (/ item bitset bump att-text lastent burst-one burst
			  BCNT BLAYER BCOLOR ELAST BLTYPE ETYPE PSFLAG ENAME )

 ;-----------------------------------------------------
 ; Item from association list
 ;-----------------------------------------------------
  (Defun ITEM (N E) (CDR (Assoc N E)))
 ;-----------------------------------------------------
 ; Error Handler
 ;-----------------------------------------------------

 (acet-error-init
(list
  (list "cmdecho" 0
		"highlight" 1
  )
  T	;flag. True means use undo for error clean up.
);list
 );acet-error-init


 ;-----------------------------------------------------
 ; BIT SET
 ;-----------------------------------------------------

  (Defun BITSET (A B) (= (Boole 1 A B) B))

 ;-----------------------------------------------------
 ; BUMP
 ;-----------------------------------------------------

  (Setq bcnt 0)
  (Defun bump (prmpt)
  (Princ
	 (Nth bcnt '("\r-" "\r\\" "\r|" "\r/"))
  )
  (Setq bcnt (Rem (1+ bcnt) 4))
  )

 ;-----------------------------------------------------
 ; Convert Attribute Entity to Text Entity
 ;-----------------------------------------------------

  (Defun ATT-TEXT (AENT / TENT ILIST INUM)
  (Setq TENT '((0 . "TEXT")))
  (ForEach INUM '(8
		6
		38
		39
		62
		67
		210
		10
		40
		1
		50
		41
		51
		7
		71
		72
		73
		11
		74
	 )
	 (If (Setq ILIST (Assoc INUM AENT))
		(Setq TENT (Cons ILIST TENT))
	 )
  )
  (Setq
	 tent (Subst
			 (Cons 73 (item 74 aent))
			 (Assoc 74 tent)
			 tent
		  )
  )
  (EntMake (Reverse TENT))
  )

 ;-----------------------------------------------------
 ; Find True last entity
 ;-----------------------------------------------------

  (Defun LASTENT (/ E0 EN)
  (Setq E0 (EntLast))
  (While (Setq EN (EntNext E0))
	 (Setq E0 EN)
  )
  E0
  )

 ;-----------------------------------------------------
 ; Burst one entity
 ;-----------------------------------------------------

  (Defun BURST-ONE (BNAME / BENT ANAME ENT ATYPE AENT AGAIN ENAME
				 ENT SS-COLOR SS-LAYER SS-LTYPE mirror ss-mirror
				 mlast)
  (Setq
	 BENT   (EntGet BNAME)
	 BLAYER (ITEM 8 BENT)
	 BCOLOR (ITEM 62 BENT)
	 BCOLOR (Cond
			   ((> BCOLOR 0) BCOLOR)
			   ((= BCOLOR 0) "BYBLOCK")
			   ("BYLAYER")
			)
	 BLTYPE (Cond ((ITEM 6 BENT)) ("BYLAYER"))
  )
  (Setq ELAST (LASTENT))
  (If (= 1 (ITEM 66 BENT))
	 (Progn
		(Setq ANAME BNAME)
		(While (Setq
				  ANAME (EntNext ANAME)
				  AENT  (EntGet ANAME)
				  ATYPE (ITEM 0 AENT)
				  AGAIN (= "ATTRIB" ATYPE)
			   )
		   (bump "Converting attributes")
		   (ATT-TEXT AENT)
		)
	 )
  )
	 (Progn
		(bump "Exploding block")
		(acet-explode BNAME)
	   ;(command "_.explode" bname)
	 )
  (Setq
	 SS-LAYER (SsAdd)
	 SS-COLOR (SsAdd)
	 SS-LTYPE (SsAdd)
	 ENAME	ELAST
  )
  (While (Setq ENAME (EntNext ENAME))
	 (bump "Gathering pieces")
	 (Setq
		ENT   (EntGet ENAME)
		ETYPE (ITEM 0 ENT)
	 )
	 (If (= "ATTDEF" ETYPE)
		(Progn
		   (If (BITSET (ITEM 70 ENT) 2)
			  (ATT-TEXT ENT)
		   )
		   (EntDel ENAME)
		)
		(Progn
		   (If (= "0" (ITEM 8 ENT))
			  (SsAdd ENAME SS-LAYER)
		   )
		   (If (= 0 (ITEM 62 ENT))
			  (SsAdd ENAME SS-COLOR)
		   )
		   (If (= "BYBLOCK" (ITEM 6 ENT))
			  (SsAdd ENAME SS-LTYPE)
		   )
		)
	 )
  )
  (If (> (SsLength SS-LAYER) 0)
	 (Progn
		(bump "Fixing layers")
		(Command
		   "_.chprop" SS-LAYER "" "_LA" BLAYER ""
		)
	 )
  )
  (If (> (SsLength SS-COLOR) 0)
	 (Progn
		(bump "Fixing colors")
		(Command
		   "_.chprop" SS-COLOR "" "_C" BCOLOR ""
		)
	 )
  )
  (If (> (SsLength SS-LTYPE) 0)
	 (Progn
		(bump "Fixing linetypes")
		(Command
		   "_.chprop" SS-LTYPE "" "_LT" BLTYPE ""
		)
	 )
  )
  )

 ;-----------------------------------------------------
 ; BURST MAIN ROUTINE
 ;-----------------------------------------------------

  (Defun BURST (/ SS1)
  (setq PSFLAG (if (= 1 (caar (vports)))
				   1 0
			   )
  )
  (Setq SS1 (SsGet (list (cons 0 "INSERT")(cons 67 PSFLAG))))
  (If SS1
	 (Progn
		(Setvar "highlight" 0)
		(terpri)
		(Repeat
		   (SsLength SS1)
		   (Setq ENAME (SsName SS1 0))
		   (SsDel ENAME SS1)
		   (BURST-ONE ENAME)
		)
		(princ "\n")
	 )
  )
  )

 ;-----------------------------------------------------
 ; BURST COMMAND
 ;-----------------------------------------------------

  (BURST)

 (acet-error-restore)

);end defun


(princ)

     

    Chúc thành công.

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

    Xin chào

     

    Bác Duy có thể bổ sung thêm là nếu mình muốn ( Color đỏ, Layer day dien, Linetype hidden2, Linetype Scale 0.8, Lineweight 0.2mm, Style standard, Width factory 0.8)

     

    Xin bác Duy chỉ giáo thêm. B)

    Sao bạn đòi hỏi nhiều quá vây? :cheers:

     

    (Defun c:chuyen ( ) 
(Prompt "\nChon doi tuong muon chuyen ...")
(Setq chuyen (Ssget))
(command "Layer" "m" "daydien" "C" "1" "" "")
(command "style" "Standard" "" "" "0.8" "" "" "" "")
(command "chprop" chuyen "" "LA" "daydien" "Color" "1" "lt" "HIDDEN2" "s" "0.8" "")
(Princ)
)

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

    Tôi gởi các bạn file "case.lisp" để các bạn dùng thử. Nó dùng để thay đổi các dạng chữ hoa--> thường --> hỗn hợp. Tôi viết lệnh này khi sử dụng Cad2004, nhưng từ Cad2006 đã bổ sung thêm lệnh này trong Express. Tuy nhiên tôi vẫn upload hy vọng giúp cho bạn nào đang sử dụng Cad2004.

    http://www.cadviet.com/upfiles/case.lsp

     

    Mình mới học về cad. Bạn cho mình hỏi sử dụng tiện ích của bạn thế nào vậy? Mình đang dùng Autocad 2008.

    File này là file Lisp. Bạn có thể đọc hướng dẫn sử dụng mã Lisp ở đây :

    http://www.cadviet.com/forum/index.php?showtopic=1787

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

    cái này phải chọn từng cái một lâu lắm, nếu chọn cả thì nó lại đánh thứ tự từ phải sang trái, bạn có cách nào chọn toàn bộ mà nó đánh số từ trái sang phải không?

    cám ơn bạn nhé

    Ở dòng Select Object : Bạn nhập F (Fence), kéo một đường từ trái qua phải, lập tức nó đánh số từ trái sang phải liền.

    • Vote tăng 1

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

    Có lisp nào lặp lại cho ra kết quả ngay của lệnh trước vừa thực hiện VD như phím F4 trong Excel

    Mình chưa biết có Lisp nào như thế nhưng có lệnh Multiple trong ACAD là lệnh lặp lại câu lệnh trước.

    Bạn có thể thiết lập lệnh tắt Multiple trong file acad.pgp

     

    Command: multiple

     

    Enter command name to repeat: copy

     

    Select objects: 1 found

     

    Select objects:

    Specify base point or displacement, or [Multiple]: Specify second point of

    displacement or :

    COPY

    Select objects: Specify opposite corner: 1 found

    Specify base point or displacement, or [Multiple]: Specify second point of

    displacement or :

    ....

    ....

    • Vote tăng 1

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

    sao không ai trả lời giúp em vậy ta!

     

    các huynh ơi giúp em với. vấn đề của em là trươc đây em vẽ cad 2004 vẫn bình thường không biết dạo này khi mở các file cũ thì nó không thể hiện cữa sổ chọn đường dẫn( ngay cả file mới làm xoong cũng vậy) mà ờ dưới dòng lệnh nó yêu cầu là nhâp tên vào. Cái này thì làm sao mà mình nhớ chính xác các tên bản vể phải không các huynh. Và cho hỏi thêm nữa là đôi lúc lưu nó cũng không muốn mình "đặt đâu ngồi đấy" mà nó cứ muốn vào chỗ nó "yêu" là document and setting à. thật là cứng đầu. Mong các anh chỉ cho em cho nó một bài học nha. càm ơn các ânhsao

    Bạn gõ Lệnh Filedia và nhập cho nó giá trị bằng 1 là được.

     

    Command: filedia

     

    Enter new value for FILEDIA <0>: 1

     

    Chúc thành công.

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

    cảm ơn anh đã chỉ giáo :lol:nhưng em làm cách đấy ko được mà em cũng ko hiểu bản chất của nó

    anh nói rõ hơn được ko

    Bản chất của lệnh Viewres là điều khiển việc xuất hiện của các đối tượng bằng cách thiết đặt độ phân giải của chúng trong cổng nhìn hiện thời. Giá trị của Viewres từ 1 đến 20000. Giá trị của viewres càng lớn thì độ phân giải trong cổng nhìn càng lớn. Điều này được thể hiện qua việc các đường tròn không bị biến thành các hình đa giác mà mịn hơn, trơn tru hơn.

     

    Lệnh REGEN (Tắt là RE) : Tái hoạt, làm tươi (Refresh) cổng nhìn hiện thời.

    Lệnh REGENALL (Tắt là REA) : Tái hoạt, làm tươi (Refresh) tất cả cổng nhìn.

     

    Còn lệnh SNap : là lệnh bắt buộc con trỏ phải chạy tới không gian truy bắt.

    Bạn có thể thiết lập chế độ bước nhảy con trỏ bằng cách kích chuột vào thanh công cụ ở dưới đáy màn hình -> Chọn Setting.

     

    Đánh lệnh SN (SNap)

    Command: sn SNAP

    Specify snap spacing or [ON/OFF/Aspect/Rotate/Style/Type] <0.5000>:

     

    giải thích :

    ON :bật chế độ snap, OFF : tắt chế đọ SNAP

     

    Aspect: ( A ) tạo khoảng không gian khác nhau X và Y

    Rotate: ( R ) Lưới điểm Snap được quay

    Type : ( T ) xác định loại truy bắt (Polar or Grid)

     

    Mong bạn hiểu bản chất của lệnh và làm tốt.

×