Đến nội dung


Hình ảnh
* * * - - 1 Bình chọn

[Yêu cầu] viết lisp thống kê bản vẽ


  • Please log in to reply
177 replies to this topic

#141 nguoi_tho_mo

nguoi_tho_mo

    biết vẽ arc

  • Members
  • PipPip
  • 41 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 19 November 2010 - 10:33 AM

Cám ơn bác gia_bach đã quan tâm tới lỗi của em.
Rất mong bác sớm hoàn thiện phục vụ cho bà con nông dân như em

Bác gia_bach update nhanh thật
Cám ơn bác nhiều
Link sửa lỗi
Bà con bấm vào đây nhé
  • 0

#142 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1435 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 19 November 2010 - 11:02 AM

Em vừa dùng thử trên cad 2007 thì không tạo đc bảng bác ạ. ấn tạo bảng nó không hiện lên gì cả.Khi dùng trên 2008 thì tốt nhưng sao e đã để font mặc định là font của các tag cần thống kê mà nó vẫn lỗi font. phải vào bảng chỉnh lại font thì nó mới ra đúng. Thank

Hiện giờ tôi không có cad 2007 nên không biết chính xác lỗi đuợc. Hôm qua tôi đã thử chạy trên cad 2007 thì đuợc.

nguyentuyen6 thử chạy lại với file cad "Drawing List.dwg" trong file đính kèm, nhớ để TableStyle hiện hành là CadViet, sau khi chạy xong mới đổi TableStyle xem sao ?
(nhiều khả năng là do lỗi này ?)
  • 1

#143 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1435 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 19 November 2010 - 11:07 AM

Theo ý tại hạ thì nên gộp chung các lệnh về thống kê thành một lệnh
Khi thực hiện lệnh Thongke thì hiện ra Form trong đó có nhiều Tab để người dùng lựa chọn

Cám ơn góp ý của trinhvqh.
Form trong đó có nhiều Tab : hiện nay tôi chưa biết cách làm trong LISP ! <_<
Khi nào rảnh rỗi chuyển qua AutoCad .NET may ra ...
hãy đợi đấy ...
  • 1

#144 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 19 November 2010 - 11:32 AM

Hiện giờ tôi không có cad 2007 nên không biết chính xác lỗi đuợc. Hôm qua tôi đã thử chạy trên cad 2007 thì đuợc.

nguyentuyen6 thử chạy lại với file cad "Drawing List.dwg" trong file đính kèm, nhớ để TableStyle hiện hành là CadViet, sau khi chạy xong mới đổi TableStyle xem sao ?
(nhiều khả năng là do lỗi này ?)


Hì !!! chào bác gia_bach. em vừa thử lại thì lại chạy ngon bác ạ. Còn vụ font thì phải vào trong TableStyle chỉnh thì nó mới đúng. Cảm ơn bác nhiều lắm!!!!
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#145 nguoi_tho_mo

nguoi_tho_mo

    biết vẽ arc

  • Members
  • PipPip
  • 41 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 19 November 2010 - 09:41 PM

Cảm ơn anh gia_bach
  • 0

#146 vtd_xd

vtd_xd

    biết vẽ circle

  • Members
  • PipPip
  • 38 Bài viết
Điểm đánh giá: 5 (bình thường)

Đã gửi 10 July 2011 - 05:16 PM

chương trình thống kê bản vẽ đã hết thời gian sử dụng, bác Gia_bach có thể gửi lại chương trình này được không vậy, thanks bác
  • 0
Chuc vui ve

#147 NguyenNgocSon

NguyenNgocSon

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 368 Bài viết
Điểm đánh giá: 39 (tàm tạm)

Đã gửi 13 July 2011 - 11:02 AM

Chiến trường đã tan, em trở về với việc nhà bề bộn. Xin lỗi bác vì chưa trả lời được bác sớm.
Đây là đoạn Code ví dụ về Link giữa 2 thuộc tính của Block (lấy chính từ lisp này)

(defun C:LGT (/ obn Tkq)
(setq obn (vlax-ename->vla-object (car (nentsel "\nChon doi tuong nguon")))
obd (vlax-ename->vla-object (car (nentsel "\nChon text dich")))
Tkq (strcat "%<\\AcObjProp Object(%<\\_ObjId "
(rtos (vla-get-objectid obn) 2 0)
">%).TextString>%"
)
)
(vla-put-textstring obd Tkq)
(vla-update obd)
(vl-cmdf "regen")
(princ)
)

Lisp này rất hay, nataca có thể áp dụng để link giá trị block thuộc tích bằng cách cộng, trừ, nhân, chia với 1 giá trị được không?
Thân !
  • 0

#148 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 10 October 2011 - 03:12 PM

Update Lisp thống kê bản vẽ

link download here password : cadviet.com

Nhờ bác gia_bach nhắc lại điều kiện sử dụng giúp em với.
Có bản vẽ em dùng thoải mái, có bản vẽ báo
** Error: bad argument type: lselsetp nil **,
mà code không ngó được nên em gần như mù tịt ^^ (các bản vẽ đều có khung ATT Block ạ )
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#149 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 15 October 2011 - 11:40 AM

Dạo này bận quá nên ít vào CadViet.
Vì không có "vật chứng" nên anh cũng không rõ tại sao?!
Em gửi file bị lỗi xem sao ?

File đó đây anh ạ. Em đã tìm ra thằng gây lỗi, là cái block trong khung duy nhất có nội dung ở Chi tiết sàn (mà em để lại). Chỉ cần xóa thằng này đi thì lại xài vô tư ^^
http://www.cadviet.c..._a_gia_bach.rar
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#150 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1435 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 27 October 2011 - 04:20 PM

File đó đây anh ạ. Em đã tìm ra thằng gây lỗi, là cái block trong khung duy nhất có nội dung ở Chi tiết sàn (mà em để lại). Chỉ cần xóa thằng này đi thì lại xài vô tư ^^
http://www.cadviet.c..._a_gia_bach.rar

Lisp bị lỗi với Anonymous blocks.
 
  • 1

#151 ksdung

ksdung

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 07 February 2012 - 11:06 PM

Năm mới chúc các bác trên diễn đàn sức khỏe nha!
Bác gia_bach có thể gửi lai em lisp exblk.vls được không, file bác gửi không còn hạn sử dụng thì phải, thanks bác
  • 0

#152 anhieu

anhieu

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 15 February 2012 - 02:17 PM

Bác gia_bạch cũng cho e xin lisp dùng với nhé, e cũng đang cần lisp này, thanks
  • 0

#153 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1435 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 16 February 2012 - 12:17 PM

Năm mới chúc các bác trên diễn đàn sức khỏe nha!
Bác gia_bach có thể gửi lai em lisp exblk.vls được không, file bác gửi không còn hạn sử dụng thì phải, thanks bác



Bác gia_bạch cũng cho e xin lisp dùng với nhé, e cũng đang cần lisp này, thanks

Update :


  • 2

#154 anhieu

anhieu

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 16 February 2012 - 02:56 PM

Bác gia_bach xem lại giúp e, lisp bị lỗi : ** Error: bad argument type: lselsetp nil ** thanks bác
  • 0

#155 ksdung

ksdung

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 16 February 2012 - 10:56 PM

Tôi cũng thấy báo lỗi như vậy, bác gia bạch có thể chỉnh giúp e cột " tên bản vẽ" cho căn lề trái được không vậy, thanks
  • 0

#156 anhieu

anhieu

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 23 February 2012 - 08:26 AM

Bác gia_bach oi có thể gửi lại lisp này được không ạ, lisp bác gửi bị lỗi rồi, e đang cần lisp thống kê bản vẽ này, thanks bác nhiều nhé
  • 0

#157 mr.trunghd

mr.trunghd

    biết lệnh mirror

  • Advance Member
  • PipPipPip
  • 150 Bài viết
Điểm đánh giá: 46 (tàm tạm)

Đã gửi 01 August 2012 - 05:23 PM



Update : download here

Tình hình là trc đây e dùng lisp thống kê bv của bác rất ngon nhưng bây giờ dùng thì máy báo lỗi "The trial period has expired!" Bác có thể reset lại giúp e đc k? Thanks bác!
  • 0

Đừng bao giờ mất kiên nhẫn, đó chính là chiếc chìa khoá cuối cùng mở được cửa.

-Saint Exupery-


#158 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1435 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 02 August 2012 - 10:54 AM

Tình hình là trc đây e dùng lisp thống kê bv của bác rất ngon nhưng bây giờ dùng thì máy báo lỗi "The trial period has expired!" Bác có thể reset lại giúp e đc k? Thanks bác!


Update :
  • 1

#159 patita

patita

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 15 August 2013 - 04:59 PM

Update : download here (password : cadviet.com )

Bác gia_bach đã kỳ công tạo ra một lisp rất hữu ích. Nhưng khi tải về thì có thông báo như sau:

Command:  EXBLK
The trial period has expired!

Bác có thể cho mọi người dùng free mãi mãi được không? ( mạn phép )

Chúc bác sức khỏe!


  • 0

#160 phongtran86

phongtran86

    biết lệnh offset

  • Members
  • PipPipPip
  • 177 Bài viết
Điểm đánh giá: 22 (tàm tạm)

Đã gửi 19 August 2013 - 03:11 PM

mạn phép. Líp này quá có ích. Mọi người sẽ biết ơn bác nhiều nếu lisp không có period


  • 0