Đến nội dung


Hình ảnh

Script và ứng dụng


  • Please log in to reply
30 replies to this topic

#1 bemove

bemove

    biết lệnh divide

  • Vip
  • PipPipPipPipPipPip
  • 446 Bài viết
Điểm đánh giá: 1308 (rất tốt)

Đã gửi 31 August 2008 - 12:09 AM

Script là 1 file text chứa các lệnh của Autocad. Script có thể được dùng để thiết lập bản vẽ hoặc thực hiện 1 serie lệnh. File script có phần mở rộng là *.scr. Bạn có thể tạo file script bằng Notepad hoặc 1 phần mềm chỉnh sửa văn bản nào đấy. Sau đó dùng lệnh SCRIPT trong AutoCAD để load chạy lệnh. Sau đây là 1 ví dụ dùng script để thiết lập bản vẽ.

Các bước thiết lập layer bằng lệnh trong AutoCAD

Hình đã gửi

Ký tự "<" là ấn Enter
Command: -la <
-LAYER
Current layer: "0"


Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
p <
Enter a plotting preference [Plot/No plot] <Plot>: n <
Enter layer name(s) for this plot preference <0>:
0 <

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
n <
Enter name list for new layer(s):
Doors, Walls, Centerlines <

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: c
<
New color [Truecolor/COlorbook] <7 (white)>: 10
<
Enter name list of layer(s) for color 10 <0>: Doors
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: c
<
New color [Truecolor/COlorbook] <7 (white)>: t
<
Red,Green,Blue
: 20,82,1138 <
Enter name list of layer(s) for color 20,82,113 <0>: Walls <

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: c
<
New color [Truecolor/COlorbook] <7 (white)>: co
<
Enter Color Book name: pantone
<
Enter color name: 14-6327 tc
<
Enter name list of layer(s) for color PANTONE 14-6327 TC <0>: Centerlines
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: l
<
Enter loaded linetype name or [?] <Continuous>: center
<
Enter name list of layer(s) for linetype "CENTER" <0>: Centerlines
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: lw
<
Enter lineweight (0.0mm - 2.11mm): 0.35
<
Enter name list of layers(s) for lineweight 0.35mm <0>: Doors
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: lw
<
Enter lineweight (0.0mm - 2.11mm): 0.60
<
Enter name list of layers(s) for lineweight 0.60mm <0>: Walls
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: lw
<
Enter lineweight (0.0mm - 2.11mm): 0.25
<
Enter name list of layers(s) for lineweight 0.25mm <0>: Centerlines
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
<

Mở Notepad, soạn thảo file như sau và save thành file setup.scr (Lưu ý các chữ in đậm)

Hình đã gửi

Vào AutoCAD, tạo 1 file mới, gõ lệnh SCR, tìm đến file setup.scr và open.

Mở layer manager kiểm tra bạn đã thấy các layer đã được tạo.
  • 10

#2 anhtong

anhtong

    biết vẽ line

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

Đã gửi 19 September 2008 - 10:25 AM

à, camon anh bemove với SCRIPT,
mình đã thử làm cái srcipt trên, nhưng sao Enter xuống dòng như file hướng dẫn thì file setup.scr khong chạy nhỉ, chỉ viết liên tục không ENTER xuống dòng (nhìn khó quá) thì mới chạy! chỉ mình với, cảm ơn!
  • 1

#3 khuyennd81

khuyennd81

    biết vẽ circle

  • Members
  • PipPip
  • 36 Bài viết
Điểm đánh giá: 31 (tàm tạm)

Đã gửi 07 October 2008 - 11:18 AM

Lênh CR là một lệnh rất hay ứng dụng nhiều như: tung toạ độ vào CAD từ dữ liệu EXel, vẽ nhiều mặt cắt ngang.... một cách đơn giản mà không cần phải viết lisp.
để hiểu đơn giản nhất về SCR bạn hình dung: khi bạn vẽ thông thường thì bạn gõ lênh->may sẽ hỏi bận các thông số đầu vào->bạn nhập thông số đó->máy lại hỏi các thông số tiếp theo hoạc lệnh tiếp....nói chung là giao tiếp giữa máy và dữ liệu nhập vào từ bàn phim. còn lệnh SCR là cad sẽ giao tiếp với văn bản mà người lập sẵn (thông qua file *.SCR giống dạng text). vấn đề ở đây là cách viết và và sửa lỗi file *.CRS.
Để các ạn hiểu tôi lấy 1 VD đơn giản này: bạn vẽ 1 hình chữ nhật dạng pline có toạ độ (0,0); (1,0); (1,1);(0,1) và 2 đường line chéo. tậo 1 file vidu.SCR và viết nội dung như sau:
Pline
0,0
1,0
1,1
0,1
0,0

{2 lần xuống dòng: 1 để máy hiểu kết thúc nhập điểm (0,0), 1 để máy hiểu kết thúc lệnh pline giống như ta enter khi thực hiện trên commad vậy}
line
0,0
1,1

line{có thể enter lần nữa đê máy trở lại lện line}
1,0
0,1

{2 lần enter xuống dòng: 1 để máy hiểu kết thúc nhập điểm (0,1), 1 để máy hiểu kết thúc lệnh line giống như ta enter khi thực hiện trên commad vậy}
sau đó save file vidu.SCR
mở cad gõ lệnh SCR tìm đường link đến file vidu.scr la ok
chung ta có thể dùng rất nhiều lệnh trong 1 *.SCR như INSERT hình mẫu từ suport, dimaligned, text... khi bạn đã hiểu thì bạn có thể tự thêm nhiều vào *.SCR của mình
các bạn ủng hộ xin bấm vào "thansk" nhé
  • 2

#4 khuyennd81

khuyennd81

    biết vẽ circle

  • Members
  • PipPip
  • 36 Bài viết
Điểm đánh giá: 31 (tàm tạm)

Đã gửi 07 October 2008 - 11:20 AM

à, camon anh bemove với SCRIPT,
mình đã thử làm cái srcipt trên, nhưng sao Enter xuống dòng như file hướng dẫn thì file setup.scr khong chạy nhỉ, chỉ viết liên tục không ENTER xuống dòng (nhìn khó quá) thì mới chạy! chỉ mình với, cảm ơn!

Một lần enter xuống dòng tương đương với bạn thực hiện enter (hay dấu cách_) ở dòng lênh commad
  • 1

#5 the big boss

the big boss

    biết pan

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

Đã gửi 12 August 2009 - 10:25 PM

anh bemove ơi giúp em với .
chả hiểu sao trình notepad ở máy em không lưu được file scr nhỉ .
anh giúp em với
  • 0
Có một sự sáng suốt đáng buồn: xét mọi người theo quá khứ của họ. Có một sự sáng suốt đáng yêu: đoán trước người ta có thể biến đổi tốt đẹp chừng nào.

#6 HoangSon614

HoangSon614

    biết lệnh properties

  • Members
  • PipPipPipPip
  • 254 Bài viết
Điểm đánh giá: 66 (tàm tạm)

Đã gửi 13 August 2009 - 12:03 AM

anh bemove ơi giúp em với .
chả hiểu sao trình notepad ở máy em không lưu được file scr nhỉ .
anh giúp em với

Vậy là trình notepad của bạn bị lỗi, bạn có thể dùng trình Wordpad cũng được
  • 0

#7 duongsatdn

duongsatdn

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 1657 Bài viết
Điểm đánh giá: 761 (tốt)

Đã gửi 13 August 2009 - 07:56 AM

anh bemove ơi giúp em với .
chả hiểu sao trình notepad ở máy em không lưu được file scr nhỉ .
anh giúp em với

Bạn thao tác như thế nào? Có phải sau khi lưu thì chỉ có file tenfile.txt?
  • 0

#8 the big boss

the big boss

    biết pan

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

Đã gửi 13 August 2009 - 09:30 PM

Bạn thao tác như thế nào? Có phải sau khi lưu thì chỉ có file tenfile.txt?

vâng đúng rồi ạ !
sau khi gõ xong nội dung thì em chọn "save as"
trong phần "save as type" thì chỉ có mỗi định dạng là "txt" thôi
Hình đã gửi
  • 0
Có một sự sáng suốt đáng buồn: xét mọi người theo quá khứ của họ. Có một sự sáng suốt đáng yêu: đoán trước người ta có thể biến đổi tốt đẹp chừng nào.

#9 svba1608

svba1608

    Tưởng Thị Tú Khuyên

  • Moderator
  • PipPipPipPipPipPipPip
  • 601 Bài viết
Điểm đánh giá: 620 (tốt)

Đã gửi 13 August 2009 - 09:48 PM

vâng đúng rồi ạ !
sau khi gõ xong nội dung thì em chọn "save as"
trong phần "save as type" thì chỉ có mỗi định dạng là "txt" thôi

Bạn gõ (tên file).scr, ví dụ: EMKHONGLUUDUOC.scr, phía dưới bạn chọn "All files" rồi chọn "Save" là Ok thôi. Chúc thành công!
  • 1
http://khuyen.space

#10 the big boss

the big boss

    biết pan

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

Đã gửi 14 August 2009 - 04:13 PM

Bạn gõ (tên file).scr, ví dụ: EMKHONGLUUDUOC.scr, phía dưới bạn chọn "All files" rồi chọn "Save" là Ok thôi. Chúc thành công!

ah em làm được rồi này
cảm ơn anh 'svba1608' nhé
và cả anh bemove nữa
chúc các anh thành công
  • 0

#11 vanquang_xd

vanquang_xd

    biết pan

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

Đã gửi 20 September 2009 - 12:24 AM

Mở Notepad, soạn thảo file như sau và save thành file setup.scr (Lưu ý các chữ in đậm)



Hình đã gửi

Vào AutoCAD, tạo 1 file mới, gõ lệnh SCR, tìm đến file setup.scr và open.



Cả nhà ơi giúp em với
em tạo một ffile setup.scr (em gõ lại nguyên bản như trên) ,nhưng khi load file chạy thử trên cad 2007 sao lại ko co kết quả nhi? em ko biết nguyên nhân tại sao? cả nhà giúp em với nha!
  • 0

#12 CDung_k47

CDung_k47

    biết vẽ pline

  • Members
  • PipPip
  • 65 Bài viết
Điểm đánh giá: 36 (tàm tạm)

Đã gửi 27 November 2009 - 09:22 PM

Cái này hay đấy,mới đầu tưởng có thể vẽ nhiều hình mình muốn bằng notepad nhưng thấy còn hạn chế nhìu wa :cheers:
không dùng lệnh tắt được vậy nên phải có hiểu biết nhiều về các chữ cái đầy đủ của mỗi lệnh VD line,rectang,...và cũng như VD của bác BEMOVE thì ai bít 1 thao tác thay đổi thuộc tính layer đơn giản vậy mà khi dùng dòng lệnh lại phức tạp vậy. Các bác có kinh nghiệm cho em hỏi ứng dụng nhiều cái nầy vào việc gì không? (em học GTVT và vừa làm thực tập trắc địa,đang nung nấu ý định rải điểm từ máy cơ,không nhập như Nova nữa :D)
  • 0

#13 meohoang

meohoang

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 811 Bài viết
Điểm đánh giá: 342 (khá)

Đã gửi 27 November 2009 - 09:36 PM

Cái này hay đấy,mới đầu tưởng có thể vẽ nhiều hình mình muốn bằng notepad nhưng thấy còn hạn chế nhìu wa :cheers:
không dùng lệnh tắt được vậy nên phải có hiểu biết nhiều về các chữ cái đầy đủ của mỗi lệnh VD line,rectang,...Các bác có kinh nghiệm cho em hỏi ứng dụng nhiều cái nầy vào việc gì không?

Cái này gọi là "kịch bản" ; dùng để lặp lại cho nhanh các việc thường ngày của 1 họa viên.
Ngày nào cũng mở bản vẽ làm công việc tương tự hôm qua thì chơi 1 file scrip (kịch bản) cho khỏe ; ko cần phải học lập trình autolisp chi cho mệt
  • 0

#14 Bluster

Bluster

    biết vẽ line

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

Đã gửi 03 January 2010 - 02:52 PM

Các bạn có thể chỉ cụ thể hơn làm cái này đề làm gì không? Có phải là để mỗi khi mình vào CAD thì có sẵn các layer mình tạo ko?
  • 0

#15 dinhvuks

dinhvuks

    Chưa sử dụng CAD

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

Đã gửi 02 February 2010 - 10:06 AM

SCRIPT có thể tự dộng tạo tỉ lệ bản vẻ và tỉ lệ dim theo ý minh khong ko? có ai biết tra lời cho mình với ! hic hic hic
  • 0

#16 ducmeca

ducmeca

    Chưa sử dụng CAD

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

Đã gửi 01 April 2010 - 09:37 PM

Mình có mấy cái file ví dụ về script file từ thời học đại học, gửi các bạn tham khảo.
http://congtrinhthep...script file.zip
-------------------------
www.congtrinhthep.com
www.dankhonggian.com
  • 1

#17 nhutvo86

nhutvo86

    Chưa sử dụng CAD

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

Đã gửi 20 August 2010 - 06:07 PM

pro nào chỉ dùm mình tai sao ko dùng được các lisp mà mình đã load vào cad.nhấp vào lệnh là nó kêu lỗi.trong khi đó máy của người khác cài vào như vậy mà vẫn dùng bình thường.Mong các sư huynh chỉ dùm vì mình đang cần sử dụng lisp để vẽ ống gió
  • 0

#18 freewayuce

freewayuce

    Chưa sử dụng CAD

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

Đã gửi 03 September 2010 - 05:33 PM

Script là 1 file text chứa các lệnh của Autocad. Script có thể được dùng để thiết lập bản vẽ hoặc thực hiện 1 serie lệnh. File script có phần mở rộng là *.scr. Bạn có thể tạo file script bằng Notepad hoặc 1 phần mềm chỉnh sửa văn bản nào đấy. Sau đó dùng lệnh SCRIPT trong AutoCAD để load chạy lệnh. Sau đây là 1 ví dụ dùng script để thiết lập bản vẽ.

Các bước thiết lập layer bằng lệnh trong AutoCAD

Hình đã gửi

Ký tự "<" là ấn Enter
Command: -la <
-LAYER
Current layer: "0"


Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
p <
Enter a plotting preference [Plot/No plot] <Plot>: n <
Enter layer name(s) for this plot preference <0>:
0 <

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
n <
Enter name list for new layer(s):
Doors, Walls, Centerlines <

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: c
<
New color [Truecolor/COlorbook] <7 (white)>: 10
<
Enter name list of layer(s) for color 10 <0>: Doors
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: c
<
New color [Truecolor/COlorbook] <7 (white)>: t
<
Red,Green,Blue
: 20,82,1138 <
Enter name list of layer(s) for color 20,82,113 <0>: Walls <

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: c
<
New color [Truecolor/COlorbook] <7 (white)>: co
<
Enter Color Book name: pantone
<
Enter color name: 14-6327 tc
<
Enter name list of layer(s) for color PANTONE 14-6327 TC <0>: Centerlines
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: l
<
Enter loaded linetype name or [?] <Continuous>: center
<
Enter name list of layer(s) for linetype "CENTER" <0>: Centerlines
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: lw
<
Enter lineweight (0.0mm - 2.11mm): 0.35
<
Enter name list of layers(s) for lineweight 0.35mm <0>: Doors
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: lw
<
Enter lineweight (0.0mm - 2.11mm): 0.60
<
Enter name list of layers(s) for lineweight 0.60mm <0>: Walls
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: lw
<
Enter lineweight (0.0mm - 2.11mm): 0.25
<
Enter name list of layers(s) for lineweight 0.25mm <0>: Centerlines
<

Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
<

Mở Notepad, soạn thảo file như sau và save thành file setup.scr (Lưu ý các chữ in đậm)

Hình đã gửi

Vào AutoCAD, tạo 1 file mới, gõ lệnh SCR, tìm đến file setup.scr và open.

Mở layer manager kiểm tra bạn đã thấy các layer đã được tạo.

:D
  • 1

#19 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 04 September 2010 - 09:05 PM

Vậy có cách nào tự động gọi file scr mỗi khi Cad khởi động không anh :undecided:
  • 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


#20 MarsLove

MarsLove

    Chưa sử dụng CAD

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

Đã gửi 25 September 2010 - 11:59 AM

:(

các anh cho em hỏi: tại sao em cũng tạo 1 file SCR và mở đầu bằng -la giống bài này. nhưng khi vào trong cad load file SCR ra thi nó lại báo là không biết lệnh -la. Nhưng em gõ lệnh trực tiếp trong cad thì lại được là bị sao ạ :((
  • 0