[Help] Ai giúp em bài này với ạ

[[Help] Ai giúp em bài này với ạ]

câu 1 còn thiếu 1 nét kìa bạn.

[Xin chỉ cách in hàng loạt bên layout.]

Cảm ơn anh cancer_xd rất nhiều.Đúng thứ em đang tìm.

[Xin chỉ cách in hàng loạt bên layout.]

Cảm ơn bạn đã gợi ý.Nhưng mình đã tìm trên diễn đàn rồi.mấy link đó không tai được nữa.hixxxxx :(

[Xin chỉ cách in hàng loạt bên layout.]

 

Mình có nhiều bản vẽ bên layout và mình muốn in hàng loạt như bên model thì phải làm như thế nào.Xin cảm ơn mọi người.

[giúp mình bo cung r....1/4]

Chẳng hiểu bạn đang muốn nói cái gì nữa!

[xin mọi người giúp em chút]

Mới học thì chịu khó làm thủ công cho thành thục cái đã.Học đi cho vững rồi mới học chạy bạn ạ. :wub: 

[Bị treo máy 1 lúc khi Trim, hay Extract???]

dùng lệnh  PU thường xuyên đi bạn 

[Xin hướng dẫn: vẽ hình chữ nhật khi biết 2 cạnh + tim]

Mình nghĩ nên dùng lệnh MI

[Xin các cao nhân chỉ điểm.]

Anh KangKung ơi em làm được rồi cám ơn anh nhiều lắm. :wub:  :wub:  :wub:  :wub:  :wub:  :wub:  :wub:  :wub:  :wub:  :wub:  :wub:  :wub:  :wub:  :wub:  :wub: .Em nhớ ra câu lệnh rồi.

 

ucs->chọn 1 phương-> enter->plan->ucs enter 2 lần.hahahahha

 

 

Kiểm tra toạ độ không sai 1 ly nào cả.hehehe

[Xin các cao nhân chỉ điểm.]

 

Anh KangKung ơi bây giờ nó lại ra thế này ặc ặc.... :(  :(  :( 

[[yêu cầu] LISP tìm & hiệu chỉnh nhóm TEXT]

Mình có sẵn cái này bạn xem có dùng được không nha.

 

[Xin các cao nhân chỉ điểm.]

cách của bạn rất hay.nhưng vẫn có sai số khi xoay bạn ơi. hồi trước mình có nhớ câu lệnh là ucs.??..-->plan..??..

[Xin giúp về virus Cad]

;; free lisp from cadviet.com

;; --------- Fix acad.lsp virus ---------
(setq removedcodelist  (list
			 ";; Silent load."
			 "(princ)"
			 "(load \"acadapp\")"			 
			 "(load \"ddcopy.lsp\")"
			 "(load\"acadiso\")";; v103
			 "(setq flagx t)" ;; v102
			 ""
			)
      infectedcodematch (strcat
			 "(load \"acadapp\"),"
			 "(load \"ddcopy.lsp\"),"
			 "(load\"acadiso\"),";; v103 
			 "(setq path (findfile \"base.dcl\")),"
			 "(strcat c-acaddocpath \"acaddoc.lsp\")";; v103
		       )
      restoresv	       (list (cons "cmdecho" 1)
			     (cons "zoomfactor" 60)
			     (cons "mbuttonpan" 1)
			     (cons "HIGHLIGHT" 1)
			     (cons "fillmode" 1)

		       )
      restorecmd       (list "plot"	"u"	   "qsave"
			     "line"	"quit"	   "trim"
			     "extend"	"move"	   "xplode"
			     "xref"	"xbind"
			    )

)

(princ "\n")
(princ "\n")
(princ "\n****************************************")
(princ "\nCADViet AntiVirus v1.04 is starting ...")
(setq ifile 0)
(vl-load-com)

(setq support_path (findfile "base.dcl")
      support_path (substr support_path 1 (- (strlen support_path) 8))
      nowdwg	   (getvar "dwgname")
      wjqm	   (findfile nowdwg)
      wjqm	   (if wjqm
		     wjqm
		     nowdwg
		   )
      dwg_path	   (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg)))
      
      acad_path (vl-filename-directory (findfile "acad.exe"))
      removedlist  (list
                     (strcat acad_path "\\acaddoc.lsp");; v104
		     
		     (strcat support_path "acadapp.lsp")
		     (strcat support_path "acadappp.lsp")
		     (strcat support_path "ddcopy.lsp")
		     (strcat support_path "acadapq.lsp");; v103
		     (strcat support_path "acaddoc.lsp");; v103
		     
		     (strcat dwg_path "acad.lsp")
		     (strcat dwg_path "acaddoc.lsp");; v102
		     (strcat dwg_path "acaddoc.fas");; v102
		     (strcat dwg_path "acad.fas");; v102
		     (strcat dwg_path "acad.vlx");; v102
		     (strcat dwg_path "acadapq.lsp");; v103
		   )
      fixedlist	   (list
		     (strcat support_path "acad.mnl")
		     (strcat support_path "acad.lsp")
		   )
)

(defun fixvr (fn / content infected)
  (if (setq ff (open fn "r"))
    (progn
      (while (setq str (read-line ff))
	(if (not (member str removedcodelist))
	  (setq content (append content (list str)))
	  (if (wcmatch str infectedcodematch)
	    (setq infected t)
	  )
	)
      )
      (close ff)
      (if infected
	(progn
	  (setq ff (open fn "w"))
	  (foreach str content
	    (write-line str ff)
	  )
	  (close ff)
	  (princ (strcat "\nfile " fn " was fixed!"))
	  (setq ifile (1+ ifile))
	)
      )
    )
  )
)

(foreach fn removedlist
  (if (vl-file-delete fn)
    (progn
      (princ (strcat "\nfile " fn " was deleted!"))
      (setq ifile (1+ ifile))
    )
  )
)

(foreach fn fixedlist
  (fixvr fn)
)

(princ "\nCADViet AntiVirus finishes scanning ...")
(if (= ifile 0)
  (princ "\nNo infected files were found!")
  (progn
    (setvar "cmdecho" 0)
    (mapcar '(lambda (cn) (setvar (car cn) (cdr cn))) restoresv)
    (mapcar '(lambda (cn) (command ".redefine" cn)) restorecmd)
    (princ (strcat "\nTotal "
		   (itoa ifile)
		   " infected files were found and removed!"
	   )
    )
    (setvar "cmdecho" 1)
  )
)
(princ "\n****************************************")
(princ "\n")
(princ "\n")
;;(defun c:cvav_1_04()(princ))
(princ)
 

 

Bạn dùng thử cái này xem sao nhé.vào mục content

 

 

;; free lisp from cadviet.com

 

;; --------- Fix acad.lsp virus ---------

(setq removedcodelist  (list

";; Silent load."

"(princ)"

"(load \"acadapp\")"

"(load \"ddcopy.lsp\")"

"(load\"acadiso\")";; v103

"(setq flagx t)" ;; v102

""

)

      infectedcodematch (strcat

"(load \"acadapp\"),"

"(load \"ddcopy.lsp\"),"

"(load\"acadiso\"),";; v103 

"(setq path (findfile \"base.dcl\")),"

"(strcat c-acaddocpath \"acaddoc.lsp\")";; v103

      )

      restoresv       (list (cons "cmdecho" 1)

    (cons "zoomfactor" 60)

    (cons "mbuttonpan" 1)

    (cons "HIGHLIGHT" 1)

    (cons "fillmode" 1)

 

      )

      restorecmd       (list "plot" "u"   "qsave"

    "line" "quit"   "trim"

    "extend" "move"   "xplode"

    "xref" "xbind"

   )

 

)

 

(princ "\n")

(princ "\n")

(princ "\n****************************************")

(princ "\nCADViet AntiVirus v1.04 is starting ...")

(setq ifile 0)

(vl-load-com)

 

(setq support_path (findfile "base.dcl")

      support_path (substr support_path 1 (- (strlen support_path) 8))

      nowdwg   (getvar "dwgname")

      wjqm   (findfile nowdwg)

      wjqm   (if wjqm

    wjqm

    nowdwg

  )

      dwg_path   (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg)))

      

      acad_path (vl-filename-directory (findfile "acad.exe"))

      removedlist  (list

                     (strcat acad_path "\\acaddoc.lsp");; v104

    

    (strcat support_path "acadapp.lsp")

    (strcat support_path "acadappp.lsp")

    (strcat support_path "ddcopy.lsp")

    (strcat support_path "acadapq.lsp");; v103

    (strcat support_path "acaddoc.lsp");; v103

    

    (strcat dwg_path "acad.lsp")

    (strcat dwg_path "acaddoc.lsp");; v102

    (strcat dwg_path "acaddoc.fas");; v102

    (strcat dwg_path "acad.fas");; v102

    (strcat dwg_path "acad.vlx");; v102

    (strcat dwg_path "acadapq.lsp");; v103

  )

      fixedlist   (list

    (strcat support_path "acad.mnl")

    (strcat support_path "acad.lsp")

  )

)

 

(defun fixvr (fn / content infected)

  (if (setq ff (open fn "r"))

    (progn

      (while (setq str (read-line ff))

(if (not (member str removedcodelist))

 (setq content (append content (list str)))

 (if (wcmatch str infectedcodematch)

   (setq infected t)

 )

)

      )

      (close ff)

      (if infected

(progn

 (setq ff (open fn "w"))

 (foreach str content

   (write-line str ff)

 )

 (close ff)

 (princ (strcat "\nfile " fn " was fixed!"))

 (setq ifile (1+ ifile))

)

      )

    )

  )

)

 

(foreach fn removedlist

  (if (vl-file-delete fn)

    (progn

      (princ (strcat "\nfile " fn " was deleted!"))

      (setq ifile (1+ ifile))

    )

  )

)

 

(foreach fn fixedlist

  (fixvr fn)

)

 

(princ "\nCADViet AntiVirus finishes scanning ...")

(if (= ifile 0)

  (princ "\nNo infected files were found!")

  (progn

    (setvar "cmdecho" 0)

    (mapcar '(lambda (cn) (setvar (car cn) (cdr cn))) restoresv)

    (mapcar '(lambda (cn) (command ".redefine" cn)) restorecmd)

    (princ (strcat "\nTotal "

  (itoa ifile)

  " infected files were found and removed!"

  )

    )

    (setvar "cmdecho" 1)

  )

)

(princ "\n****************************************")

(princ "\n")

(princ "\n")

;;(defun c:cvav_1_04()(princ))

(princ)

[Xin các cao nhân chỉ điểm.]

Tình hình là lâu rồi em không làm việc với tọa độ nên quên mất cách xoay bản vẽ.Mong các bác chỉ giúp.

 

 

Trên là bản vẽ em đã đưa về tọa độ quốc gia để trích tọa độ.giờ em muốn in ra nhưng để vậy thì hơi khó nhìn.Em muốn xoay thẳng với màn hình nhưng tọa độ của nó vẫn không thay đổi.

 

Similar topics from web:
xin các quy chuẩn chiều cao chữ và dim trong các bản vẽ cad [Lưu ...
Chiến dịch Hồ Chí Minh – Wikipedia tiếng Việt
xin các quy chuẩn chiều cao chữ và dim trong các bản vẽ cad
Mẹo vặt trong CAD
Hỏi về in ấn trong Autocad
Lệnh tìm điểm đầu, điểm cuối của đoạn thẳng trong AutoCad
Lệnh để tính toán trong CAD
Chuyển bảng số liệu từ EXCEL sang CAD
Địa điểm học autocad tại Hà Nội ai biết? | Học phụ đạo
Phần mềm PKT 1.0 trong khảo sát thiết kế: Giảm thời gian, tránh sai ...
Rhino phần mềm thiết kế chuyên nghiệp
[DOWNLOAD] AutoCad 2013 (32&64bit) Full Crack
Diễn đàn giao lưu và học hỏi Autocad | Facebook
Cho hỏi về cách thay đổi lệnh tắt trong CAD