Tue_NV

Tháng 11 19, 2008

Các bác cho em hỏi ! em vẽ 2 hình chữ nhật một hình to, một hình nhỏ 2 hình này dùng 2 layer khác nhau khi em đặt hình to trồng lên hình nhỏ và sử dụng lệnh send to back và send to front nhưng hình con bị hình to đè lên mà nó không mất đi là sao vậy! Thanks.

Hình chữ nhật mà bạn vẽ thuộc đối tượng nào vây? Phải chăng là rectangular? Như vậy là không được rồi.

Lệnh Draworder là lệnh thay đổi trật tự hiển thị của đối tượng image và đối tượng khác.

Bạn phải nhớ là đối tượng image nhé.

Tháng 11 19, 2008

em có ý kiến này nha : các bác vào tools>costomize>edit program parameter xong rồi các bác thêm lệnh DIMLFAC(lệnh DF) xong rồi các bác save lại ,xong rồi tắt cad rồi mở lại .vậy là ok bác mở bản vẽ ra rồi nhập lệnh DF va xem dưới dòng nhập lệnh sẽ thấy tỉ lệ bản vẽ mà các bác đang được xem :leluoi:

Bạn nói không đúng rồi. Lệnh DimLfac chỉ cho biết tỉ lệ hiện hành của dimension sẽ vẽ chứ không cho biết được tỉ lệ vẽ trên kích thước thật của một đối tượng là bao nhiêu?

Tháng 11 19, 2008

Bạn vui lòng bổ sung hai hàm : M_lay và M_lay_c .
Thanks.

Xin lỗi, hai hàm đó đay anh gia bách ạ.

;;; Tao Layer khong co mau:
(defun M_Lay(layr_name / tbl t1 t2 key)
  (setq tbl(tblnext "LAYER" 1))
  (while tbl
  (setq t1(strcase layr_name) t2 (cdr(car(cdr tbl))) )
  (if (equal t1 t2) (setq key 1))  
  (setq tbl(tblnext "LAYER"))
  )  
  (if(/= key 1)
  (progn (setq tbl NIL ) 
	 (command "_.LAYER" "N" layr_name "" ) 
	 (princ (strcat "\nLayer "layr_name".... was created."))
  )
  )
  (setq layr_name NIL)
  (princ)
)
;;; Tao Layer co mau:
(defun M_Lay_c(layr_name color / tbl t1 t2 key)
(setvar "Cmdecho" 0)
  (setq tbl(tblnext "LAYER" 1))
  (while tbl
  (setq t1(strcase layr_name) t2 (cdr(car(cdr tbl))) )
  (if (equal t1 t2) (setq key 1))  
  (setq tbl(tblnext "LAYER"))
  )  
  (if(/= key 1)
  (progn (setq tbl NIL ) 
	 (command "_.LAYER" "N" layr_name "C" color layr_name "" ) 
	 (princ (strcat "\nLayer "layr_name".... was created."))
  )
  )
  (setq layr_name NIL)
  (princ)
)
;;; Command Active:
;;; Chuyen toan bo Dim sang Layer "_Dim":
(defun C:CDL (/ dim_app)
(setvar "Cmdecho" 0)
(setq dim_app(ssget "X" '((0 . "DIMENSION")) ))
(if dim_app
 (progn
   (M_lay "_Dim");Tao Layer Dim neu chua co
   (command "_.Chprop" dim_app "" "LA" "_Dim" "")
 )
 (prompt "\nHien tai, khong co Dim.")
)
(princ)
)
;;; Chuyen toan bo cac doi tuong ve Layer tuong ung voi mau:
(defun C:COL (/ op_ccl sl_op op_find cl_find en_find)
(setvar "Cmdecho" 0)
(setq op_ccl(ssget "X"))
(if op_ccl
 (progn
  (setq sl_op (sslength op_ccl) next_op 0)
  (while (		  (setq op_find(ssname op_ccl next_op)
			en_find(entget op_find)
			cl_find(cdr(assoc 62 en_find)) )
	  (if (and (numberp cl_find) (			  (progn (M_lay_c (itoa cl_find) cl_find)
				 (command "_.Chprop" op_find "" "LA" (itoa cl_find) 
												 "C" "Bylayer" "")
		  )
	  )
	  (setq next_op(+ next_op 1) cl_find NIL en_find NIL)
  )
  (setq next_op NIL cl_find NIL)
 )
)
(princ)
)
;;; Chuyen toan bo Text -> Text Layer:
(defun C:CTL (/ Text_app)
(setvar "Cmdecho" 0)
(setq Text_app(ssget "X" '((0 . "*Text")) ))
(if Text_app
 (progn
   (M_lay_c "_Text" "4");Tao Layer _Text neu chua co
   (command "_.Chprop" Text_app "" "LA" "_Text" "C" "Bylayer" "")
 )
 (prompt "\nHien tai, khong co Texts.")
)
(princ)
)
;;; Chuyen toan bo Blocks ve Layer _Blocks
(defun C:CBLL (/ blk_app)
(setvar "Cmdecho" 0)
(setq blk_app(ssget "X" '((0 . "INSERT")) ))
(if blk_app
 (progn
   (M_lay "_Blocks");Tao Layer _Blocks neu chua co
   (command "_.Chprop" blk_app "" "LA" "_Blocks" "")
 )
 (prompt "\nKhong co Blocks nao duoc Insert.")
)
(princ)
)
;;; Chuyen toan bo Hatch ve Layer _Hatch
(defun C:CHL (/ hat_app)
(setvar "Cmdecho" 0)
(setq hat_app(ssget "X" '((0 . "Hatch")) ))
(if hat_app
 (progn
   (M_lay "_Hatch");Tao Layer _Hatch neu chua co
   (command "_.Chprop" hat_app "" "LA" "_Hatch" "")
 )
 (prompt "\nKhong co vat lieu Hatch.")
)
(princ)
)

Tiện thể, xin hỏi anh giabach có hàm nào mà khi pick vào dimension thì trả về được một giá trị chính là giá trị số text ghi trên dimension đó hay không?

Cám ơn anh.

Chúc anh thật nhiều sức khỏe.

Tháng 11 18, 2008

em đang vẽ thử một bản vẽ thiết kế có tỉ lệ 1:100 .em dùng lệnh dim để đo khoảng cách một đoạn thẳng có chiều dài là 650 thì khi vẽ chọn chiều dài là bao nhiêu

Bạn cần phân biệt tỉ lệ thật của bản vẽ với tỉ lệ khi in ra giấy.

Khi bạn vẽ thì vẫn vẽ bình thường. Nếu bạn vẽ line có chiều dài 650 thì cứ vẽ đúng theo chiều dài ấy. Đơn giản phải không?

Vấn đề tỉ lệ 1:100 là ở khổ giấy bạn in ra.

Trong bản vẽ, thì vẽ với tỉ lệ thật khi in ra với tỉ lệ 1:100 thì bạn phải khai khổ giấy

Ví dụ A4(có khổ giấy thật là 297mmx210mm) thì trong bản vẽ bạn phải vẽ khung A4 (29700mmx21000mm) (nhân 100 lần)

Khổ giấy nhân lên 100 lần tức là nếu vẽ với tỉ lệ thật thì hình vẽ thu nhỏ lại 100 lần (1/100) đúng không bạn. Vì thế bạn cứ vẽ bình thường không có vấn đề gì cả.

Còn nếu bạn vẽ đối twợng với tỉ lệ 1:50 thì bạn vẫn vẽ bình thường sau đó scale lên 2 lần (100:50=2)

Tương tự với các đối tượng vẽ với các tỉ lệ khác nhau còn lại.

Mình nói thế bạn có hiểu không?

Có gì thắc mắc hỏi nhé.

Tháng 11 18, 2008

Gửi bác Hoành:
Bác có thể viết lisp cho em với yêu cầu sau được không?

Nội dung là có thể ghi được cao độ cụ thể các điểm trên mặt cắt dọc.

Ví dụ cao độ tim đường là 15m, cao độ chân taluy la 12.5m, khi vẽ theo tỉ lệ 1:1 thì khoảng cách 2 vị trí này là 2500mm.

Ý em muốn là khi píc chuột vào vị trí tim đường thì sẽ xuất hiện luôn cao độ của nó là 15 (được hiển thị dưới dạng 1 bock ghi cao độ )

Và tương tự khi pic vào chân mái taluy thì cũng hiển thị cao độ la 12.5m.

Cảm ơn bác nhiều

Code đây sẽ làm được điều bạn cần :

;--------------------------------------------------------
(defun gc_err (s)
(if (/= s "Function cancelled")
	(princ (strcat "\nError: " s))
)
(setvar "Osmode" old_osmode)
(setq *error* old_err)
 (princ)
)
;;; Main Function:
(defun C:Mgco (/ block_in cot_base dim_scl dim_txt old_base_ data_base cot_in
			 text_h text_clr text_point next_p ghi_base old_ortho cao_do
			 old_ortho c_base n_base c_unit moc_st lim_out)
(setq old_osmode(getvar "Osmode")
  old_ortho(getvar "Orthomode"))
(setvar "Osmode" (+ 1 8 512)); End Node Near
(setvar "Orthomode" 0)
(setvar "Cmdecho" 0)
(setq old_error *error* *error* gc_err)
(prompt "\nNhap: \"T\" neu xac dinh cot theo moc tuong doi.")
(command "_.Ucs" "W")
(initget 9 "T");(+ 1 8)
(setq c_base(getpoint "\n-> Diem goc xac dinh cot /T/: ")
  block_in "C:\\Tue\\cot.dwg"
  next_p 0
  c_unit 0
  dim_txt(getvar "Dimtxt")
  dim_scl(getvar "Dimscale"))
(if(= c_base "T")
  (progn
  (initget 8)
  (setq c_base NIL c_unit NIL
		c_base(getpoint "\n-> Diem goc xac dinh cot tuong doi: "))
  (initget 8)
  (if c_base 
	  (setq c_unit(getdist "\n->> Nhap cao do moc tuong doi : "))
  )
  (if(= c_unit NIL)(setq c_unit 0.000))
  )
  (setq c_unit 0.0)
)
(if(= dim_scl 0.0)
  (setq dim_scl dim_txt dim_txt NIL)
  (setq dim_scl (* dim_scl dim_txt) dim_txt NIL))
(setq dim_scl (* dim_scl 2.0))
(if(not(findfile block_in))
  (progn(alert (strcat "\n  Thieu file: \""block_in"\" !  "))(setq next_p NIL c_base NIL)))
(if (and c_base c_unit)
(while next_p
 (if(= next_p 0);ghi cot moc
	(progn
	  (if(/= c_unit 0)(setq moc_st c_unit c_unit 0)(setq moc_st 0.0))
	  (initget "Y N") 
	  (setq ghi_base(getkword "\n->> Ghi cot vao diem goc ?/Y/: "))
		(if(or(= ghi_base "Y")(/= ghi_base NIL))  

		   (pro_cot c_base moc_st);Ghi cot vao vi tri moc
		)
	  (setq ghi_base NIL)
	)
 )
 (setvar "Osmode" 1);(+ 1 8 128)) End Node Per


 (initget 8)
 (if (setq n_point(getpoint "\n->> Diem ghi cot tiep theo: " c_base))
	 (progn 
;Pack for Out-size Limits:
	  (if(			 (progn 
		  (if(				 (cond
			   ((					(setq lim_out -1.0) )
			   ((> (cadr c_base)(cadr n_point))
				(setq lim_out -1.0) )
			   ((= (cadr c_base)(cadr n_point))
				(setq lim_out 1.0) )
			 )
		  )
		  (if(>= (cadr n_point) 0)
			 (setq lim_out 1) )
		 )
	  );if c_base 		  (if(> (cadr c_base) 0)
		 (setq lim_out 1) )
;End Pack
	  (setq cao_do(* lim_out (- (abs(cadr n_point)) (abs(cadr c_base))) )
			next_p (+ next_p 1))
	  (pro_cot n_point (+ cao_do c_unit))
	 )
	 (setq next_p NIL cao_do NIL c_base NIL n_point NIL)
 );if
);while
);if c_base
(setq cot_in NIL text_point NIL text_h NIL text_clr NIL dim_scl NIL cao_do NIL
  moc_st NIL c_unit NIL)
(setvar "Osmode" old_osmode)
(setvar "Orthomode" old_ortho)
(setq *error* old_err)
(princ)
)
;;;

(defun pro_cot (cot_base old_base)
(if (and cot_base (findfile block_in))
(progn
  (if(not old_base)
	 (setq old_base 0.000 old_base_ "0.000")
	 (progn
	  (if(			 (progn
		   (if(>= (abs old_base) 1000)
			  (setq old_base_(strcat "-" (rtos (/ old_base -1000.000) 2 3)))
			  (progn 
				(if(/= (substr (rtos (/ old_base 1000.000) 2 3) 1 3) "-0.")
				   (setq old_base_(strcat "-0" (rtos (/ old_base -1000.000) 2 3)))
				   (setq old_base_(strcat "-" (rtos (/ old_base -1000.000) 2 3)))
				)
			  )
		   )
		 )
		 (progn 
		   (if(>= old_base 1000)
			  (setq old_base_(strcat "+" (rtos (/ old_base 1000.000) 2 3)))
			  (progn 
				(if(/= (substr (rtos (/ old_base 1000.000) 2 3) 1 2) "0.")
				   (setq old_base_(strcat "+0" (rtos (/ old_base 1000.000) 2 3)))
				   (setq old_base_(strcat "+" (rtos (/ old_base 1000.000) 2 3)))
				)
			  )
		   )
		 )
	  )
	  (if(= old_base 0)(setq old_base 0.000 old_base_ "0.000"))
	 );progn
  );if 
  (prompt "\nCot cao do tinh bang \"Milimet\" !")
  (initget 8)
  (setq data_base(getint(strcat "\n->> Cot cao do  :")))
  (if(not data_base)
	 (setq data_base old_base)
	 (setq old_base data_base)
  );if
  (if data_base
	  (progn
		(if(> data_base 0)
		   (if(>= data_base 1000)
			  (setq cot_in(strcat "+" (rtos (/ data_base 1000.000) 2 3)))
			  (progn 
				(if(/= (substr (rtos (/ data_base 1000.000) 2 3) 1 2) "0.")
				   (setq cot_in(strcat "+0" (rtos (/ data_base 1000.000) 2 3)))
				   (setq cot_in(strcat "+" (rtos (/ data_base 1000.000) 2 3)))
				)
			  )
		   )
		   (if(;				  (setq cot_in(strcat "-0" (rtos (/ data_base -1000.000) 2 3)))
			  (progn 
				(if(/= (substr (rtos (/ data_base 1000.000) 2 3) 1 3) "-0.")
				   (setq cot_in(strcat "-0" (rtos (/ data_base -1000.000) 2 3)))
				   (setq cot_in(strcat "-" (rtos (/ data_base -1000.000) 2 3)))
				)
			  )
			  (setq cot_in(strcat "-" (rtos (/ data_base -1000.000) 2 3)))
		   )
		)  
		(if(= data_base 0)(setq cot_in "%%p0.000"))
		(if (and cot_in cot_base dim_scl (findfile block_in))
			(progn
			  (setvar "Osmode" 0); Non Osmode
			  (command "_.Insert" block_in cot_base dim_scl "" "0")
			  (setq text_point(list (+ (car cot_base) (* 0.2 dim_scl))
									(+ (cadr cot_base)(* 0.6 dim_scl)) )
					text_h (* 0.4 dim_scl)
					text_clr 4)
			  (setq old_text_st(getvar "TextStyle"))
			  (MT_style "SYMBOL_TEXT" "Arial.ttf" "0.7")
			  (command "_.Text" text_point text_h "0.0" cot_in
					   "_.Chprop" "L" "" "C" text_clr "")
			  (setvar "TextStyle" old_text_st)
			  (setq old_text_st NIL text_point NIL text_h NIL text_clr NIL)
			)
		)
	  );progn
  );if old_base
);progn cot_base
);if cot_base
(setvar "Osmode" old_osmode)
(setq *error* old_err)
(princ)
)  
;;; Find and Make TextStyle: Symbol_Text
(defun MT_style(textst_name f_name wide_fit / tbl t1 t2 key)
  (setq tbl(tblnext "STYLE" 1) key NIL)
  (while tbl
  (setq t1 textst_name t2 (cdr(car(cdr tbl))) )
  (if (equal t1 t2) (setq key 1))  
  (setq tbl(tblnext "STYLE"))
  )  
  (if(/= key 1)
  (progn (setq tbl NIL ) 
	 (command "_.STYLE" textst_name f_name "" wide_fit "" "" "") 
	 (princ (strcat "\nText Style: " textst_name " was created !"))
  )
  (setvar "TextStyle" textst_name)
  )
  (setq textst_name NIL f_name NIL wide_fit NIL key NIL)
  (princ)
)
;;; Copy cot cao do:
(defun Ccot (/ op_cot op_pro_c moc_cot np_cot op_p op_text text_pro
			stt_c npc str_text cot_ins cot_new div_in num_text)
(setvar "Cmdecho" 0)
(setq old_osmode(getvar "Osmode")
  old_ortho(getvar "Orthomode"))
(setvar "Orthomode" 1)
(setq old_error *error* *error* gc_err lim_out NIL)
(setq op_cot(ssget) stt_c NIL npc NIL op_text NIL)
(if (and op_cot (> (sslength op_cot) 1))
(progn
  (setvar "Osmode" (+ 1 8 512)); End Node Near
  (initget 8)
  (setq moc_cot(getpoint "\n-> Diem moc copy: ") npc 1)
  (if moc_cot
	  (progn
	   (while npc
		 (setvar "Osmode" (+ 128 512));Per Ner
		 (initget 8) 
		 (if(setq np_cot(getpoint "\n->> Diem dat cot tiep theo: " moc_cot))
			(progn
			 (pack_out_lm moc_cot np_cot)
;				 (setq lim_out 1)
			 (setq op_p NIL str_text NIL text_pro NIL op_text NIL 
				   op_pro_c NIL stt_c 0 cot_new NIL div_in NIL cot_ins NIL)
			 (while (> (sslength op_cot) stt_c)
			   (setq op_pro_c(ssname op_cot stt_c))
			   (setvar "Osmode" 0) 
			   (command "_.Copy" op_pro_c "" moc_cot np_cot)
			   (setq op_cot_c(entlast))
			   (setq op_p op_cot_c
					 op_text(cdr(assoc 0 (setq text_pro(entget op_p)))) )
			   (if (and(= op_text "TEXT")
					   (= "SYMBOL_TEXT" (cdr(assoc 7 (entget op_p)))) )
				   (progn  
					(setq str_text(assoc 1 text_pro))
					(if (or (= (substr (cdr str_text) 1 1) "+") (= (substr (cdr str_text) 1 1) "-")(= (substr (cdr str_text) 1 3) "%%p"))
					   (progn 
						(if (or(= (substr (cdr str_text) 1 1) "+")
							   (= (substr (cdr str_text) 1 1) "-"))
							(setq num_t 2)(setq num_t 4))  
;							(setq div_in (- (abs(cadr np_cot)) (abs(cadr moc_cot)))
						(setq div_in (- (cadr np_cot) (cadr moc_cot))
								 num_text(atof (substr (cdr str_text) num_t))
								 num_t NIL
								 cot_new(+ num_text (/ div_in 1000.000))) 
						(if cot_new
						  (progn
						   (if(= div_in 0)(setq cot_ins "%%p0.000"))
						   (if(and(								  (if(>= (abs cot_new) 1)
								 (setq cot_ins(strcat "-" (rtos (* cot_new -1) 2 3)))
								 (progn 
								   (if(/= (substr (rtos cot_new 2 3) 1 3) "-0.")   
									  (setq cot_ins(strcat "-0"(rtos (* cot_new -1) 2 3)))
									  (setq cot_ins(strcat "-"(rtos (* cot_new -1) 2 3)))
								   )
								 )
							  )
							  (if(>= cot_new 1)
								 (setq cot_ins(strcat "+" (rtos cot_new 2 3)))
								 (progn 
								   (if(/= (substr (rtos cot_new 2 3) 1 2) "0.")   
									  (setq cot_ins(strcat "+0"(rtos cot_new 2 3)))
									  (setq cot_ins(strcat "+"(rtos cot_new 2 3)))
								   )
								 )
							  )
						   )
						   (if(= cot_new 0)(setq cot_ins "%%p0.000"))
						   (setq text_pro(subst (cons '1 cot_ins) str_text text_pro))
						   (entmod text_pro)
						  );progn
						);if cot_new
					   ) 
					);if str_text
				   )
			   );if op_text
			   (setq stt_c (+ 1 stt_c))
			 );while
			)
			(setq npc NIL) 
		 );if np_cot
	   );While npc
	 )
  );if moc_cot
  )
);if op_cot
(setq *error* old_err)
(setvar "Osmode" old_osmode)
(princ)
)
;;;Pack for Out-size Limits:
(defun pack_out_lm (c_base_p n_point_p)
(if(and c_base_p n_point_c)
  (progn
	  (if(			 (progn 
		  (if(				 (cond
			   ((					(setq lim_out 1.0) )
			   ((> (cadr c_base_p)(cadr n_point_p))
				(setq lim_out 1.0) )
			   ((= (cadr c_base_p)(cadr n_point_p))
				(setq lim_out -1.0) )
			 )
		  )
		  (if(>= (cadr n_point_p) 0)
			 (setq lim_out -1) )
		 )
	  );if c_base_p 		  (if(> (cadr c_base_p) 0)
		 (setq lim_out -1) )
  )
)
)
;End Pack
;;;
(defun C:Ccot () 
(setq old_error *error* *error* gc_err)
(ccot) (setq *error* old_err)
(princ))
;;; Load OK
;;;(princ "\nMCOT.lsp Loading... OK")

Cách thức hoạt động của đoạn code trên :

Bạn giải nén file tue.zip (Có chứa file ghicot.lsp và file cot.dwg) vào trong ổ đĩa C:\tue mà mình sẽ upload dưới đây

Sau đó vào CAD ->gõ option ->File -> Bạn chọn Support file Search path -> Add vào đường dẫn C:\tue ->OK.

Nếu bạn không làm những bước trên thì chương trình sẽ không chạy.

Bạn appload file ghicot.lsp lên và bắt đầu sử dụng :

Đơn vị ghi cot là đơn vị mm

Ở đây có thêm lệnh Ccot là lệnh copy cao độ từ cao độ có sẵn. Bạn ngâm cứu nhé. hay lắm

Mình sẽ làm ví dụ trong file của bạn

Command: mgco

Nhap: "T" neu xac dinh cot theo moc tuong doi.

-> Diem goc xac dinh cot /T/: _from Base point: (Pick vào điểm gốc xác định tọa độ tương đối) : @0,-368550 (đây là tọa độ điểm gốc 0,0 được xác định theo chế độ bắt điểm from từ điểm gốc xác định tọa độ tương đối)

->> Ghi cot vao diem goc ?/Y/: n