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

nguyen tuan hung

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    41

  • Đã tham gia

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

Bài đăng được đăng bởi nguyen tuan hung

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

    Em chào các Pro em là hưng.

    Em biết vấn đề này trên cadviet đã đề cập đến nhiều nhưng em tim mãi mà không cái mà e muốn tìm.

    Việc là như thế này:Phần mềm của công ty em dùng phần mềm có bản quyền và việc cài đặt do phòng IT quản lý.Không tự động cài đặt được.Khi họ cài cho em thi lại thiết mất cái phần "Express tool".Mà mà mỗi lần request rất phức tạp.

    Các Pro cho e hỏi là bi giờ em không cạ lại cad thì có cách nào để add "Express tool" vào trong cad không ?

    Cám ơn các pro nhiều.

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

    Anh tú giải quyết cho em với.

    Em có down vnplot2.1 của a vê mày và chọn máy in khổ a3(chọn block,xref sẽ in tất cả),scale to fit 1/1 thì nó to vượt khổ giấy.

    mà khi in trog cad em cũng làm như trên thì được vì khung của em là khung theo khổ giấy a3 mà.

    Có bác nào biết thì trả lời cho thắc mắc của em với.

    Rất mong nhận được sự giúp đỡ của diễn đàn.

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

    Version này mình nâng cấp từ phiên bản 1.0 và 2.0 theo góp ý của các bạn :undecided:

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

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

     

    Tính năng bổ sung là

     

    p137a7w072056hp38g3w921.jpg

     

    AE góp ý để mình làm version tiếp theo nha, nhất là bạn ketxu sáng tạo :wub:

     

    http://tudaihiep.com/VnPlotV2.1.rar

    Anh tú giải quyết cho em với.

    Em có down vnplot2.1 của a vê mày và chọn máy in khổ a3(chọn block,xref sẽ in tất cả),scale to fit 1/1 thì nó to vượt khổ giấy.

    mà khi in trog cad em cũng làm như trên thì được vì khung của em là khung theo khổ giấy a3 mà.

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

    Tui sẽ tổng hợp thành file thư viện từng loại rùi up lên cho bà con CADVIET cùng thưởng thức.

    Các bạn thưởng thức hoạ tiết đắp hoa văn này ngẫm xem

    http://www.cadviet.com/upfiles/3/mld5840.dwg

    http://www.cadviet.com/upfiles/3/mld5860.dwg

    bác có phần cad nào liên quan đến bản vẽ điện không cho em với.

    nói chung là thư viên cad (điện).

    Thank bác.

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

    Bạn thêm 1 dòng thôi là được. Tối r mình ngại upload quá, bạn chịu khó chép code nhé

     

    (defun c:clear1()
;free lisp from CADviet.com @ketxu
(vl-load-com)
(command "undo" "be")
(command "change" (ssget "X") "" "p" "c" "8" "")
(if (ssget "x" '((0 . "INSERT")(66 . 1)))
 (progn
	(setq adoc (vla-get-activedocument (vlax-get-acad-object))
		  ss (vla-get-activeselectionset adoc)
	)
    (vlax-for block (vla-get-blocks adoc)	
		(if (not (wcmatch (strcase (vla-get-name block) t) "*_space*")) 
			(vlax-for   ent block 
				(progn			
				(vla-put-color ent "8")					
				)    
			) 
		) 
	)
	(vlax-for attblock ss
		(setq atts (vlax-invoke attblock 'getattributes))
		(foreach att atts
			(vla-put-color att 8)				
		)
	)   
  );end progn
 );end if
(acet-sysvar-set (list "dimclrt" 8 "dimclre" 8 "dimclrd" 8 "cmdecho" 0 "INSUNITS" 4 "INSUNITSDEFSOURCE" 4 "INSUNITSDEFTARGET" 4)) 
(command "dim1" "update" (ssget "X" '((0 . "Leader"))) "")
(command "-layer" "c" "8" "*" "")	
(vla-regen adoc acactiveviewport) 
(command "-purge" "a" "" "N")
(command "undo" "e") 
(princ))

     

    Bác cho thêm yêu cầu tất kả các đường trong layer về cỡ 0.09 cho e nhé trong lisp clear1.

    Nó sẽ giúp ích cho em rất nhiều trong công việc.

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

    Bạn thêm 1 dòng thôi là được. Tối r mình ngại upload quá, bạn chịu khó chép code nhé

     

    (defun c:clear1()
;free lisp from CADviet.com @ketxu
(vl-load-com)
(command "undo" "be")
(command "change" (ssget "X") "" "p" "c" "8" "")
(if (ssget "x" '((0 . "INSERT")(66 . 1)))
 (progn
	(setq adoc (vla-get-activedocument (vlax-get-acad-object))
		  ss (vla-get-activeselectionset adoc)
	)
    (vlax-for block (vla-get-blocks adoc)	
		(if (not (wcmatch (strcase (vla-get-name block) t) "*_space*")) 
			(vlax-for   ent block 
				(progn			
				(vla-put-color ent "8")					
				)    
			) 
		) 
	)
	(vlax-for attblock ss
		(setq atts (vlax-invoke attblock 'getattributes))
		(foreach att atts
			(vla-put-color att 8)				
		)
	)   
  );end progn
 );end if
(acet-sysvar-set (list "dimclrt" 8 "dimclre" 8 "dimclrd" 8 "cmdecho" 0 "INSUNITS" 4 "INSUNITSDEFSOURCE" 4 "INSUNITSDEFTARGET" 4)) 
(command "dim1" "update" (ssget "X" '((0 . "Leader"))) "")
(command "-layer" "c" "8" "*" "")	
(vla-regen adoc acactiveviewport) 
(command "-purge" "a" "" "N")
(command "undo" "e") 
(princ))

    chuẩn không cần chỉnh.

    thank bác nhiều.

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

    Bạn chỉ yêu cầu chuyển tất cả về màu 8 chứ chưa yêu cầu chuyển màu của layer về màu 8, phải không nào ^^ Bạn gửi lại file giúp mình nhé.

    http://www.cadviet.com/upfiles/3/img_drawings_option_1_rev_no02_jan_27_2011.dwg

    tất cả về hết màu 8,trong layer cung về hết màu 8,tất cả các đường về cỡ 0.09.

    Bác xem dồi sủa code cho em nhe'.

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

    Bạn dùng IE để down lisp nhé. Nếu không thì reply, copy code của mình rồi tạo file lisp hoặc paste thẳng vào commandline của CAD ^^

     

    (defun c:clear()
;free lisp from CADviet.com
(vl-load-com)
(command "undo" "be")
(command "change" (ssget "X") "" "p" "c" "8" "")
(if (ssget "x" '((0 . "INSERT")(66 . 1)))
 (progn
	(setq adoc (vla-get-activedocument (vlax-get-acad-object))
		  ss (vla-get-activeselectionset adoc)
	)
    (vlax-for block (vla-get-blocks adoc)	
		(if (not (wcmatch (strcase (vla-get-name block) t) "*_space*")) 
			(vlax-for   ent block 
				(progn			
				(vla-put-color ent "8")					
				)    
			) 
		) 
	)
	(vlax-for attblock ss
		(setq atts (vlax-invoke attblock 'getattributes))
		(foreach att atts
			(vla-put-color att 8)				
		)
	)   
  );end progn
 );end if
(acet-sysvar-set (list "dimclrt" 8 "dimclre" 8 "dimclrd" 8 "cmdecho" 0 "INSUNITS" 4 "INSUNITSDEFSOURCE" 4 "INSUNITSDEFTARGET" 4)) 
(command "dim1" "update" (ssget "X" '((0 . "Leader"))) "")	
(vla-regen adoc acactiveviewport) 
(command "-purge" "a" "" "N")
(command "undo" "e") 
(princ))

    lisp của bác chạy rất tốt.đã chuyển tất kả về màu 8 nhưng khi e bật layer lên thì màu trong đó vẫn giữ nguyên màu như lúc đầu.Bác xem lai giúp em nhe'

    Thank bac :rolleyes:

×