nguyenducloi89

Tháng 1 30, 2018

Vào lúc 5/8/2016 tại 17:13, quanghuy181 đã nói:

Chào cả nhà lâu lắm mới vào lại diễn đàn đọc lại topic này thấy bồi hồi nhớ lại kỷ niệm ngày xưa làm đo đạc quá. Hôm nay xin phép cả nhà đào lại topic này lên một chút vì còn mấy bạn thắc mắc. 1. Lỗi font chữ cách sửa như sau:

- ra ngoài màn hình windows

- Chuột phải / properties

- Appearange / Addvanced

- Tại Item chọn Menu ----> và bây giờ chỉ chọn Font có đuôi .vn là OK

Chúc các bác thành công.

2. Các bác yêu cầu có HDSD. cái này em không được chuyển giao công nghệ mà cũng tư mày mò thôi. Theo kinh nghiệm của em tự tìm hiều thì khi thành lập BĐĐC chúng ta sẽ làm từng bước như sau:

2.1 Địa chính / Vẽ bản đồ địa chính

tùy theo số liệu mình đo đạc như thế nào thì chọn format cho phù hợp nhé ở đây có 3 dạng chính:

1. Tọa độ X Y

2. Cạnh nghiêng góc đứng góc bằng

3. Cạnh bằng góc bằng

3. Sau khi phun được điểm đo lên Cad thì ta nối điểm chú ý ở đây phải là layer "ranh" nhé thì mới làm được các bước tiếp theo.

4. Địa chính ----> Đánh số thửa bản đồ (cái này phải đánh thủ công nhé vì mình cũng chưa tìm ra là đánh tự động như thế nào?).

5. Địa chính ----> Tạo thửa và tính diện tích (lúc này nó sẽ tự chạy ra diện tích và koảng cách các cạnh của thửa (layer khoảng cách).

6. Địa chính -----> Biên tập bản đồ địa chính ----> Xuất hiện bảng các bác tự tìm hiểu cái này nhé đơn giản thôi

7. Hoàn thành bản đồ địa chính

Ở đây mình chỉ hướng dẫn các bước cơ bản như vậy thôi còn các bước biên tập thì các bác tự làm nhé!

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

Nếu các bác có nhã hứng thì mình sẽ up phiên bản hỗ trợ cad 2004 lên cho bạn nào cần dùng.

Mình sử dụng cad 2004 và 2007, bạn có thể gửi cho mình vào nguyenducloi19892802@gmail.com cảm ơn bạn.

Tháng 1 30, 2018

Cho mình hỏi là mình dùng CAD thì hay vào Unikey chuyển mã Unicode sang TCVN, mà thế rất mất công, có cách nào chỉ gõ lệnh trong cad là nó chuyển sang được ko. Và ngược lại.

Tháng 5 24, 2017

Lệnh EXTRIM (có cài Express).

;; free lisp from cadviet.com

;;;-----------------------

(defun SS-enlst	(ss / c L)

  (setq c -1)

  (repeat (sslength ss)

    (setq L (cons (ssname ss (setq c (1+ c))) L))

  )

  (reverse L)

)

;;;====================================================================

(defun break_with (Lstent enL /	lst masterlist ss oc break_obj intpts)

  (princ "\nCalculating Break Points, Please Wait.\n")

  

  ;;========================================

  ;; Break entity at break points in list

  ;;========================================



  (defun break_obj (ent	brkptlst   /	      brkobjlst	 en

			enttype	   maxparam   closedobj	 minparam

			obj	   obj2break  p1param	 p2param

			brkpt2	   dlst	      idx	 brkptS

			brkptE	   brkpt      result	 result

			ignore	   dist	      tmppt	 #ofpts

			enddist	   lastent    obj2break	 stdist

		       )

     (setq obj2break ent

	   brkobjlst (list ent)

	   enttype   (dxf 0 ent)

     )

    (if	(not (or (eq (dxf 0 obj2break) "TEXT")

		 (eq (dxf 0 obj2break) "MTEXT")

	     )

	)

      (setq closedobj (vlax-curve-isclosed obj2break))

    )

    (setq spt (vlax-curve-getstartpoint ent)

            ept (vlax-curve-getendpoint ent)

            brkptlst (vl-remove-if

                              '(lambda (x)

                                        (or (< (distance x spt) 0.0001)

                                             (< (distance x ept) 0.0001)

                                        )

                               )

                               brkptlst

                         )

    )

    (if	(and brkptlst

	     (not (or (eq (dxf 0 obj2break) "TEXT")

		      (eq (dxf 0 obj2break) "MTEXT")

		  )

	     )

	)

      (progn

	(setq brkptlst

	       (mapcar

		 '(lambda (x)

		    (list

		      x

		      (vlax-curve-getdistatparam

			obj2break

			(cond

			  ((vlax-curve-getparamatpoint obj2break x)

			  )

			  ((vlax-curve-getparamatpoint

			     obj2break

			     (vlax-curve-getclosestpointto

			       obj2break

			       x

			     )

			   )

			  )

			)

		      )

		    )

		  )

		 brkptlst

	       )

	)



	(setq

	  brkptlst (vl-sort brkptlst

			    '(lambda (a1 a2) (< (cadr a1) (cadr a2)))

		   )

	)



	(foreach brkpt (reverse brkptlst)

	    (setq brkptS (car brkpt)

		  brkptE brkptS

	    )

	  ;; get last entity created via break in case multiple breaks

	  (if brkobjlst

	    (progn

	      (setq tmppt brkptS); use only one of the pair of breakpoints

	      ;; if pt not on object x, switch objects

	      (if (not (numberp	(vl-catch-all-apply

				  'vlax-curve-getdistatpoint

				  (list obj2break tmppt)

				)

		       )

		  )

		(; find the one that pt is on

		  (setq idx (length brkobjlst))

		  (while

		    (and (not (minusp (setq idx (1- idx))))

			 (setq obj (nth idx brkobjlst))

			 (if (numberp (vl-catch-all-apply

					'vlax-curve-getdistatpoint

					(list obj tmppt)

				      )

			     )

			   (null (setq obj2break obj))

; switch objects, null causes exit

			   t

			 )

		    )

		  )

		)

	      )

	    )

	  ); end (if brkobjlst

	  

	  ;;; Handle any objects that can not be used with the Break Command

	  ;;; using one point, gap of 0.000001 is used

	  (if (not (or (eq (dxf 0 obj2break) "TEXT")

		       (eq (dxf 0 obj2break) "MTEXT")

		   )

	      )

	    (setq closedobj (vlax-curve-isclosed obj2break))

	  )

;;; single breakpoint ----------------------------------------------------

	    (if

	      (and closedobj

		   (not	(setq

			  brkptE (vlax-curve-getPointAtDist

				   obj2break

				   (+ (vlax-curve-getdistatparam

					obj2break

;;(vlax-curve-getparamatpoint obj2break brkpts)) 0.00001))))

;; ver 2.0 fix

					(cond

					  ((vlax-curve-getparamatpoint

					     obj2break

					     brkpts

					   )

					  )

					  ((vlax-curve-getparamatpoint

					     obj2break

					     (vlax-curve-getclosestpointto

					       obj2break

					       brkpts

					     )

					   )

					  )

					)

				      )

				      0.00001

				   )

				 )

			)

		   )

	      )

	       (setq

		 brkptE	(vlax-curve-getPointAtDist

			  obj2break

			  (- (vlax-curve-getdistatparam

			       obj2break

			       (cond ((vlax-curve-getparamatpoint

					obj2break

					brkpts

				      )

				     )

				     ((vlax-curve-getparamatpoint

					obj2break

					(vlax-curve-getclosestpointto

					  obj2break

					  brkpts

					)

				      )

				     )

			       )

			     )

			     0.00001

			  )

			)

	       ); end setq brkptE

	    ); end fi (and closedobj



	  ;; (if (null brkptE) (princ)) ; debug

	  (setq LastEnt (GetLastEnt))

	  (if (not (or (eq (dxf 0 obj2break) "TEXT")

		       (eq (dxf 0 obj2break) "MTEXT")

		   )

	      )

	    (command "._break"

		     obj2break

		     "_non"

		     (trans brkptS 0 1)

		     "_non"

		     (trans brkptE 0 1)

	    )

	  )

	  (and (= "CIRCLE" enttype) (setq enttype "ARC"))

	  (if (and (not closedobj); new object was created

		   (not (equal LastEnt (entlast)))

	      )

	    (setq brkobjlst (cons (entlast) brkobjlst))

	  ); end (if (and

	); end (foreach brkpt

      );end progn brkptlst

    ); end if brkptlst



  ); defun break_obj



  ;;====================================

  ;; CAB - get last entity in datatbase

  (defun GetLastEnt (/ ename result)

    (if	(setq result (entlast))

      (while (setq ename (entnext result))

	(setq result ename)

      )

    )

    result

  )

  ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

  ;; S T A R T              S U B R O U T I N E             H E R E

  ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



 (if (and Lstent enL)

    (progn

      ;; CREATE a list of entity & it's break points

      (foreach en Lstent

; check each object in Lstent

	(if (not (acet-layer-locked (dxf 8 en)))

	  (progn

	    (setq lst nil)

	    ;; check for break pts with other objects in Lstentwith

	    (if	(and (not (equal en enint))

		     (setq intpts (acet-geom-intersectwith en enL 0))

		)

	      (setq lst (append intpts lst))

; entity w/ break points

	    )

	    (if	lst

	      (setq masterlist

		     (cons (cons en lst) masterlist)

	      )

	    )

	  )

	)

      )

      (princ "\nBreaking Objects.\n")

      (if masterlist

	(foreach obj2brk masterlist

	  (break_obj (car obj2brk) (cdr obj2brk))

	)

      )

    )

  )

);end break_with

;;===========================================================================

;; get all objects touching entities in the sscross

;; limited obj types to "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE"

;; returns a list of enames

;;===========================================================================

(defun gettouching (en / ss lst lstb lstc objl)

  (and

    (setq objl (vlax-ename->vla-object en))

    (setq

      ss

       (ssget

	 "_A"

	 (list

	   (cons 0

		 "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE"

	   )

	   (cons 410 (getvar "ctab"))

	 )

       )

    )

    (setq lst (SS-enlst ss)

     lst (mapcar 'vlax-ename->vla-object lst))

    (mapcar

      '(lambda (x)

	 (if (not

	       (vl-catch-all-error-p

		 (vl-catch-all-apply

		   '(lambda ()

		      (vlax-safearray->list

			(vlax-variant-value

			  (vla-intersectwith objl x acextendnone)

			)

		      )

		    )

		 )

	       )

	     )

	   (setq lstc (cons (vlax-vla-object->ename x) lstc))

	 )

       )

      lst

    )

  )

  lstc

)

;;;------------------------------------------------

(defun LWP (Lpoint *Model* / PntArr)

  (setq	PntArr (vlax-make-safearray

		 vlax-vbDouble

		 (cons 0 (1- (length Lpoint)))

	       )

  )

  (vlax-safearray-fill PntArr Lpoint)

  (vla-AddLightWeightPolyline *Model* PntArr)

)

;;;------------------------------------------------

(defun DXF (code en) (cdr (assoc code (entget en))))

;;;============================================================

;;;=======================MAIN LISP============================

;;;============================================================

(defun c:trichthua (/ ss p2 encur lstss1 emin emax p3 LenssBR)
  (vl-load-com)	

  (setq	ActDoc	(vla-get-ActiveDocument (vlax-get-acad-object))

	*Model*	(vla-get-ModelSpace ActDoc)

  )

  (vla-StartUndoMark ActDoc)

  (setq	a (getreal "\n Nhap kich thuoc chieu dai: "))

  (setq	b (getreal "\n Nhap kich thuoc chieu rong "))

  (setq	emin (list (car (getvar "extmin")) (cadr (getvar "extmin"))))

  (setvar "cecolor" "104")

  (setq	lstp (list (car emin)

		   (cadr emin)

		   (+ (car emin) a)

		   (cadr emin)

		   (+ (car emin) a)

		   (+ (cadr emin) B)

		   (car emin)

		   (+ (cadr emin) B)

	     )

  )

  (vla-put-closed (LWP lstp *Model*) :vlax-True)

  (setq ss (ssadd (entlast) (ssadd)))

  (setq	p2 (ACET-SS-DRAG-MOVE

	     ss

	     (list (car emin) (cadr emin))

	     "Chon vi tri bat dau trich thua: "

	   )

  )

  (command ".move" ss "" emin p2)

  (setq encur (entlast)

	lstp (acet-geom-VERTEX-LIST encur))

  (setq ss (ssdel encur (ssget "_CP" lstp)))

  (command ".copy" ss "" p2 p2)

  (setq	p3 (ACET-SS-DRAG-MOVE

	     (ssadd encur ss)

	     p2

	     "Chon vi tri dat ban do trich thua: "

	   )

  )

  (command ".move" ss encur "" p2 p3)

  (setvar "cecolor" "0")

  (setq encur (ssname (ssget "X" '((62 . 104))) 0))

  (setq	lstobj1	(vl-remove encur (gettouching encur))

	ss	(acet-list-to-ss lstobj1)

  )

  (acet-ss-zoom-extents ss)

  (break_with  lstobj1 encur)

  (vlax-invoke-method ActDoc 'Regen acActiveViewport)

  (vla-offset (vlax-ename->vla-object encur) (* (getvar "viewsize") 0.002))

  (setq lst3 (acet-geom-vertex-list (entlast)))

  (entdel (entlast))

  (setq	LenssBR	(SS-enlst (ssget "F" lst3)))

  (foreach x LenssBR

    (if	(or (not (eq (dxf 0 x) "TEXT"))

	    (not (eq (dxf 0 x) "MTEXT"))

	)

      (entdel x)

    )

  )

  (vla-EndUndoMark ActDoc)
  (princ "\nChuc cac ban gat hai nhieu thanh cong. Thiep")

)

Mình muốn cắt như code của anh Duân, nhưng mà sẽ là select object vào một cái khung rồi cắt theo khung. Pro nào giúp được không nhỉ.

Tháng 5 24, 2017

Pro nào có thể giúp em không ạ, em muốn cắt các đối tượng trong khung như hình vẽ và copy các đối tượng và khung ra ngoài mà không ảnh hưởng đến bản vẽ. Chứ em cứ copy và paste ra rồi rồi xóa trim từng đoạn thằng một lâu quá. Em dùng cad2004 và 2007. Mong có cao thủ giúp em.Em cảm ơn nhiều.

Tháng 5 28, 2016

Hiện tại em đang có bài tập autocad cơ bản này, em nghĩ mãi vẫn chưa biết vẽ R35 của hình tròn như thế nào cả. Ai có thể chỉ em cách vẽ à, em vẽ 3 điểm lệnh C nhưng ko biết vẽ ở điểm nào

Tháng 3 23, 2016

Mình ấn vào Layer Properties thì báo lỗi như trong hình, ngày trước sử dụng bình thường, bây giờ bị lỗi. Ai có thể chỉ mình cách khắc phục với. Mình đã xóa đi autocad 2015 và cài lại 2016 vẫn bị lỗi này. Mình sử dụng Win 7 64-bit.

Đăng nhập

nguyenducloi89

Số lượng nội dung

Đã tham gia

Lần ghé thăm cuối

Loại nội dung

Hồ sơ

Diễn đàn

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

LandCadViet Utility

Lisp Chuyển Đổi Mã Font Chữ Trong Autocad

[Yêu Cầu] Cắt Đối Tượng Trong Khung

[Yêu Cầu] Cắt Đối Tượng Trong Khung

Vẽ R35 Như Thế Nào Ạ?

Lỗi Layer Properties Trong Autocad 2016 (Hoặc 2015)

Diễn đàn

Download

Đào tạo CADViet

Browse