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

thanhhoa.36

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

  • Số lượng nội dung

    40

  • Đã tham gia

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

Bài đăng được đăng bởi thanhhoa.36

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

    - Em đang có 2 bản vẽ mà Bị lỗi Font, em đã Copy đầy đủ các Font nhưng không đọc được một số các đối tượng TEXT trong bản vẽ

    - Em đã xử lý nhưng không làm được , ACE đã từng bị như em và xử lý được thì cho em xin ý kiến với ạ

    - Em xin chân thành cảm ơn !

    BV1.dwg

    BV2.dwg

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

    - Em đang làm thống kê Tọa độ và kích thước cạnh trên bản vẽ 

    - Em cũng đang sử dụng 1 Lisp nhưng lisp của em dùng có rất nhiều hạn chế và không như em mong muốn 

    - Em nhờ các ace trên diễn đàn có thể giúp em có cái lisp nào mà cho em kết quả như thế này thì cho em xin với ạ Hoặc ace có thể sửa giúp em cái Lisp em đang dùng mà kết quả như em đang cần 

    - Em rất cảm ơn !

    * Cái lisp em đang muốn :

    - Lệnh : tkdt

    - Chọn chiều cao Text : (Tùy chọn)

    - Số chữ số thập phân (2)

    - Nhập bán kính vòng tròn : (Tùy chọn)

    - Pick điểm đầu tiên : (Tùy chọn 1,2….n)

    - Pick điểm tiếp theo (Enter để kết thúc) :

    - Chọn vị trí đặt bảng thống kê :

    * Kết quả em mong muốn

    image.png.6da1ef109da3089240e9a5d534adefb4.png

     

    * Em gủi cái Lisp em đang dùng và kết quả em mong muốn 

    xin được các ace GIÚP ĐỠ !

    mau.dwg

    TKDT.lsp

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

    Chào các bác trên diễn đàn !

    Em có một trường hợp như sau rất mong được các bác giúp đỡ

    em có rất nhiều thửa đất, có một đường Plyline cắt ngang qua một số thửa đất như hình vẽ

     

    http://www.cadviet.com/upfiles/3/vd_1.jpg

     

    rất mong được các bác giúp đỡ em làm sao có thể đánh được :

    - ĐÁNH SỐ THỬA

    - TÍNH DIỆN TÍCH TRONG VÀO NGOÀI ĐƯỜNG GIỚI HẠN

    - XUẤT SANG EXCELL bảng thống kê

    Rất mong được các bác trên diện đàn anh em trắc địa bọn em đỡ vất vả, món Lisp này em chẳng biết gì

     

    Cho em được cảm ơn các bác trước vậy

     

    Đây là file em gửi kèm của em

     

    http://www.cadviet.com/upfiles/3/vd_10_1.rar

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

    Chào các bác

    Em thấy Lisp của bác Thái rất là tuyệt vời, nó giúp rất hữu ích cho anh em khi thống kê diện tích

    Em có một trường hợp như sau rất mong được các bác giúp đỡ

    em có rất nhiều thửa đất, có một đường Plyline cắt ngang qua một số thửa đất như hình vẽ

    vd.jpg

    rất mong được các bác giúp đỡ em làm sao có thể đánh được :

    - ĐÁNH SỐ THỬA

    - TÍNH DIỆN TÍCH TRONG VÀO NGOÀI ĐƯỜNG GIỚI HẠN

    - XUẤT SANG EXCELL bảng thống kê

    Rất mong được các bác trên diện đàn có thể phát triển từ Lisp của bác Thái và bác Thái có thể giúp cho trong khâu giải bài toán này để anh em trắc địa bọn em đỡ vất vả, món Lisp này em chẳng biết gì

     

    Cho em được cảm ơn các bác trước vậy

     

    Đây là file em gửi kèm

     

    http://www.cadviet.com/upfiles/3/vd_10.rar

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

    Bạn chạy thử Code này nhé :

    (defun c:CTE(/ ss ent sht dtich cthua gchu lst i fname)
;copyright by Tue_NV
(IF (ACET-UTIL-VER)
(PROGN
(iF (setq ss (ssget '((0 . "*POLYLINE") (70 . 1))))
(pROGN (setq i -1 lst '())
 (while (setq ent (ssname ss (setq i (1+ i))))
   (setq L (acet-geom-vertex-list ent))
   (if (and (setq sht (ssget "CP" L '((0 . "*TEXT") (8 . "Sothua") (1 . "~*[~0-9]*"))))  
   	     (setq dtich (ssget "CP" L '((0 . "*TEXT") (8 . "Dientich") (1 . "*#.#*,*#,#*"))))
   	     (setq cthua (ssget "CP" L '((0 . "*TEXT") (8 . "Text") (1 . "*@*"))))
   	     (setq gchu (ssget "CP" L '((0 . "*TEXT") (8 . "Dientich") (1 . "@@@"))))
)
      (setq lst (vl-sort 
           (append lst
   		     (list
	 	 (mapcar '(lambda(x)
		   		(acet-dxf 1 (entget x))
			   )
    			(apply 'append
		       		(mapcar 'acet-ss-to-list
			       			(list sht sht cthua dtich gchu)
		       		)
			)
   		   	)
	     )
          );append
	 '(lambda (x1 x2) (< (atoi (car x1)) (atoi (car x2))))
	);vl-sort
   	)
    )
 );while
 ;;;;;;;;;;;;;;
(if (setq fName (getfiled "Ten file xuat " (getvar "dwgprefix") "xls" 1))
  (progn
(setq fName (open fName "w"))
(write-line "STT\tSO HIEU THUA\tCHU THUA\tDIEN TICH\tGHI CHU" fname)
(foreach pt lst
   (write-line (strcat (nth 0 pt) "\t" (nth 1 pt) "\t" (nth 2 pt) "\t"
		       (nth 3 pt) "\t" (nth 4 pt)) fName)
)
      (close fName)
  )
)
 ))));PROGN_IF
(setvar "modemacro" "Chuc ban lam viec hieu qua - tue_nvcc@yahoo.com")
(princ)
)

     

    Anh ơi sau khi Load Lisp của anh em chạy, khi quét các đối tượng nó hiện lên thông báo

     

    Select objects: ; error: no function definition: ACET-GEOM-VERTEX-LIST

     

    Đây là lỗi gì vậy anh, em chưa biết về Lisp lắm.

    Anh xem hộ em cái nhé !

    Xin cảm ơn anh nhiều !

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

    Các bác cho em hỏi có thể chuyển dữ liệu từ Cad sang Excel theo dạng này không ?

     

    http://www.cadviet.com/upfiles/3/new_folder.rar

     

    Em nhiều khi phải làm thống kê diện tích nhưng toàn phải nhập bằng tay trên Excel, lâu quá là lâu, Nhiều khi lên tới hàng vài trăm thửa đất. Quá trình này rất mất nhiều thời gian.

    Rất mong các bác trên diễn đàn giúp đỡ để cho anh em Trắc Địa đỡ vất vả.

    Xin chân thành cảm ơn !

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

    Cho tôi hỏi cách vẽ đường thẳng theo góc. ví dụ vẽ 1 đường thẳng tạo 1 góc 12 độ 39 phút với đường khác thì thế nào:(

     

    Bạn muốn tạo một đường thẳng B hợp với đường thẳng A một góc 12độ 39 phút 30 giây cần làm như sau:

    Bước 1:

    Vẽ đường thẳng A bất kỳ

     

    Bước 2:

    Chọn Format ----> Unit ------> chọn như hình vẽ

     

    1_11.jpg

     

    Trên Drawing Unit --------> Direction... Xuất hiện hội thoại chọn như hình vẽ

     

    2_8.jpg

     

    Trên Direction Control bấm chuột vào Pick an Angle ----> Chọn điểm 1 sau đó chọn điểm 2 trên đường thẳng A ----> Ok ----> Ok

     

     

    5_1.jpg

     

    Bước 3:

    Đánh lệnh: L ---> Enter -----> Pick chuột vào điểm 1

     

    Tại dòng Specify next point or [undo]: @20<12d39'30" ----> Enter ----> Enter (20 là độ dài đoạn thẳng B )

     

    Như vậy bạn đã có đoạn thẳng B có chiều dài bằng 20 và hợp với cạnh A một góc 12 độ 39 phút 30 giây

     

    Chú thích :

    Việc tạo một đường thẳng A hợp với đường thẳng B một góc bất kỳ theo chiều thuật hoặc ngược kim đồng hồ sẽ phụ thuộc vào việc chúng ta lựa chọn :

     

    Nếu chọn theo chiều ngược kim đồng hồ thì :

     

    3_3.jpg

     

    Nếu chọn theo chiều kim đồng hồ thì :

     

    4_1.jpg

     

    Bạn cần đặt lại chế độ đo góc và kiểm tra nhé !

     

    Bạn có thể sử dụng lệnh vẽ cung đường tròn nhưng nó chỉ tạo cho bạn được góc còn cạnh thì phải thêm một thao tác nữa

    Chúc bạn thành công !

    • Vote tăng 1
    • Vote giảm 1

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

    mình tìm được cái lisp chạy hồ sơ kỹ thuật thửa đất trên diễn đàn, sau khi dùng thử thì lúc chạy rất tốt, lúc thì không

    Đặc biệt lỗi nặng nhất là nhiều khi nó chạy lại góc ranh tới 2 lần như file mình gửi kèm

    Bác nào có thể xem dùm mình xem có khắc phục được không, vì mình thấy cái lisp này rất hay mà mình thì chưa biết nhiều về Lisp cả.

    Rất mong được các bác giúp đỡ!

    Thanks !

     

    Đây là file gửi kèm có cả Lisp trong đó :

     

    http://www.cadviet.com/upfiles/3/new_folder_1.rar

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

    xin lổi anh Hoành em vội quá nên ko biết hỏi gi` thôi ma! em đã upload cái điện thoại em nhạt được đó lên rồi em xem giúp em nhé! cảm ơn anh nhiều...http://data1.cadviet.com/phan_mem_san_nen.rar

     

     

    Bạn có thể hướng dẫn cụ thể cách sử dụng chương trình này không ?

     

    Mình cũng thử nhưng loay hoay mãi mà không được

     

    rất mong được sự chỉ dẫn của bạn !

     

    Thanks

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

    Các bạn đừng "kênh" nhau nữa! Dĩ hoà vi quý!

    Ssg đã hoàn thiện chương trình tổng hợp, hy vọng làm hài lòng tất cả các bạn:

     

    http://www.cadviet.com/upfiles/ChiaDat.zip

     

    Minh hoạ:

    ChiaDat3.jpg

     

    Các bạn dùng thử, phát hiện sai sót và phản hồi, ssg sẽ sửa.

     

    @tuannguyen:

    Anh diễn giải rõ ý hơn, ssg sẽ xem và lập trình giúp anh. Trước hết, anh post cho ssg cái bảng toạ độ bằng Excel (để khỏi phải gõ lại).

     

     

    Lisp này rất hay và thú vị anh SSG ạ

    Nhưng em phát hiện ra một lỗi trong cai lisp này, rất mong được anh SSG xem và sửa lại một chút

    - Cách chia của anh thì đúng rồi nhưng đi hơi ngược

    1_6.jpg

     

    Chia theo diện tích thì số diện tích nhập vào là số diện tích được chia xuất phát từ cạnh chuẩn và điểm chuẩn và phần diện tích được chia là phần được cắt từ diện tích tổng thể theo phía cạnh chuẩn và điểm chuẩn.

    Tương tự chia theo tỷ lệ cũng vậy

     

    2_6.jpg

     

    - Phần Ghi diện tích in ra mà hình nó ngược với cách chia

    Em có một mảnh đất như hình vẽ có tổng diện tích 87.4984m2

    chia theo cạnh song song được mảnh A có DT 33.5600m2 ,

    còn lại mảnh B 53.9384m2

    Lisp của anh ghi DT lên màn hình thì đúng rồi

    Nhưng thực tế khi kiểm tra lại DT thì mảnh A có DT 53.9384m2 còn mảnh B có DT 33.5600m2

    Chia theo tỷ lệ cũng sảy ra trường hợp như vậy

     

    Mong anh SSG xem lại sao cho cách chia theo cạnh chuẩn và tỷ lệ đúng như cách ghi DT của anh lên màn hình

     

    Nếu có gì không phải, Rất mong anh thông cảm !

    Rất cảm ơn món quà Lisp của anh!

    Mong anh hồi âm sớm

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

    Em đang làm về đo đạc trong ngành giao thông các đường thẳng A và B là tuợng trưng cho con đường thiết kế và thực tế

    em muốn tất cả các đối tượng đi nằm trên đường thẳng A sẽ trùng với tất cả các đối tượng nằm trên đường thẳng B theo các đỉnh 1 trùng 1', 2 trùng 2' ..... 5 trùng 5'

×