Đến nội dung


Hình ảnh
- - - - -

lisp thống kê block (VD như KH cửa)


  • Please log in to reply
10 replies to this topic

#1 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 25 January 2011 - 10:44 AM

chào cả nhà!
em viết cái lisp này để thống kê các block theo nội dung ATT, em biết nó cũng không có gì ầm ỉ cả, em đem lên đây để biết đâu có người cần. nó tiện cho việc thống kê block (vd như thống kê cửa...)
http://www.cadviet.c...lock_name_1.lsp
http://www.cadviet.c...iles/3/sw_1.lsp

đầu tiên chọn block có ATT cần thống kê. để chọn dể dàng em có viết cái lệnh SW dùng để chọn những dtượng giống nhau. nó giống như lệnh select similar trong ADT và các cad sau này. em xài Cad 2008 thì ko có. sau đó dùng lệnh sd để thống kê.
chúc năm mới dzui dzẽ
  • 3
Hình đã gửi

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 25 January 2011 - 01:14 PM

Lisp dùng tốt với block có 1 att,cảm ơn bạn nhiều^^ Chúc bạn ngày càng phát triển nó ^^
  • 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


#3 thichhoabinh

thichhoabinh

    biết vẽ circle

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

Đã gửi 25 January 2011 - 03:06 PM

Hy vọng bạn update nó lên thống kê cho tất cả các thuộc tính của 1 loạibloc
  • 0

#4 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 25 January 2011 - 04:15 PM

Hy vọng bạn update nó lên thống kê cho tất cả các thuộc tính của 1 loạibloc

Bạn đã sử dụng lệnh ATTOUTATTIN chưa?
Muốn thống kê theo tiêu chí nào, cái chuẩn nào (đếm cái gì đó theo tiêu chí nào đó chẳng hạn)
-> qua Excel xử lý file txt -> thống kê, tổng hợp :)
  • 0

#5 thichhoabinh

thichhoabinh

    biết vẽ circle

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

Đã gửi 05 February 2011 - 09:33 AM

Bạn đã sử dụng lệnh ATTOUTATTIN chưa?
Muốn thống kê theo tiêu chí nào, cái chuẩn nào (đếm cái gì đó theo tiêu chí nào đó chẳng hạn)
-> qua Excel xử lý file txt -> thống kê, tổng hợp :s_big:

Vậy bác dùng kết hợp với gì để chuyển từ Excel sang CAD ?
  • 0

#6 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 16 February 2011 - 09:45 AM

Vậy bác dùng kết hợp với gì để chuyển từ Excel sang CAD ?

Sử dụng lệnh DataLink và Table
  • 1

#7 nam.mr1

nam.mr1

    Chưa sử dụng CAD

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

Đã gửi 08 May 2012 - 02:54 PM

Sao em dùng lisp này không được nhỉ, nó báo như sau:

Command: sd
Select objects: 1 found
Select objects:
Specify point:text
Current text style: "VnAvantH" Text height: 300.0000 Annotative: No
Specify start point of text or [Justify/Style]: j Enter an option
[Align/Fit/Center/Middle/Right/TL/TC/TR/ML/MC/MR/BL/BC/BR]: tr
Specify top-right point of text:
Specify rotation angle of text <250>: 250
Enter text: 0
Command: 1 Unknown command "1". Press F1 for help.
Command: SD Unknown command "SD". Press F1 for help.
Command: text
Current text style: "VnAvantH" Text height: 300.0000 Annotative: No
Specify start point of text or [Justify/Style]: j Enter an option
[Align/Fit/Center/Middle/Right/TL/TC/TR/ML/MC/MR/BL/BC/BR]: tl
Specify top-left point of text:
Specify rotation angle of text <250>: 250
Enter text: 0
Command: content: FCU-1-40 Unknown command "CONTENT: FCU-1-40". Press F1 for
help.
Command: SD Unknown command "SD". Press F1 for help.
Command: ; error: bad argument type: lentityp nil

và có 2 số 0 nằm nghiêng 250 độ trên bản vẽ ???
  • 0

#8 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 08 May 2012 - 04:42 PM

Hị hị quả này mình trả lời được nè: Do bản vẽ của bạn fonts chữ mặc định đang có height khác 0 nên bị thế. bạn tạo style mới có height bằng 0 rồi cho nó hiện hành xong chạy líp là được.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#9 ducluongx3

ducluongx3

    Chưa sử dụng CAD

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

Đã gửi 07 June 2012 - 01:37 PM

Lisp của bạn rất hữu ích. Tuy nhiên khi thống kê nó không sắp xếp theo thứ tự tiếng Việt được!
  • 0

#10 ngo thi bon

ngo thi bon

    Chưa sử dụng CAD

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

Đã gửi 14 June 2012 - 10:20 AM

minh chua biet nhieu ve autolisp ban nao biet cho minh tai lieu hoc voi
  • 0

#11 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 14 June 2012 - 08:52 PM

minh chua biet nhieu ve autolisp ban nao biet cho minh tai lieu hoc voi

Link đây bạn :
http://www.cadviet.c...showtopic=44534
  • 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