currently i found on the web , this lisp to draw Road profile or any other profiles by the lisp that contains two commands :

1- " NGL " : To draw natural ground elevation in terms of station and elevation from an excel sheet with a Datum .

2- "PGL" : tO DRAW DESIGN ELEVATION from excel sheet too , with same datum.

the lisp states an error message "error no function definition , [ACET-STR-FORMAT ] after loading " NGL" and entering datum , BUT it work with " PGL" without any error ... ??!!

currently I'm trying to export the autocad lisps to briscad. Almost all lisps work fine except for a few who are listed with acet-error-init. Probably briscad will not work with these codes or have it wrtten in a other way. Anyone who could help?

;;;MAKE LAYER ---;;; [defun LayerMake [name / ] [if [not [tblsearch "layer" name]] [command "_.layer" "M" name "c" "white" "" "lw" "0.20" "" ""] ;make layer [command "_.layer" "s" name ""] ] ]

;;;; MAKE DIMENSION -;;;; [defun MakeDim [dim / ] [setvar "CMDECHO" 0] [acet-error-init [list [list "CLAYER" [getvar "clayer"] ] 0]] ;;"DIMCLRT" 2 [LayerMake "Dimension"] [setvar "CMDECHO" 1] [if [= dim dimensionarc] [dimensionarc] [command dim] ] [while [> [getvar "cmdactive"] 0][command pause]] ;until dimlinear stopped [setvar "CMDECHO" 0] [acet-error-restore] ;restore acad variable ]

;;; Make dimlinear ;;;; [defun c:dli [] [MakeDim "_.dimlinear"] ]

Regards

This discussion has been closed.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Nếu bạn muốn lần sau Autocad load tự động khi khởi động thì vào mục History list. Bấm vào Content [Startup suit]. Load file Lips cần

và ok.

T đã chọn được file trong Content rồi nhưng sau đó click Load nhưng ra ngoài ko sử dụng đựoc lệnh đó ?

Nguyên văn bởi pbh Tác dụng: rất đơn giản trong việc joint các đối tượng đơn thành Polyline. Lệnh : jj

cái này hay thật đây trước T toàn phải xài pe rồi mệt cả hơi thank nhá ! nhưng T thấy lệnh f xài cũng ngon lành lém !

Last edited by a moderator: 10/10/07

songvotinh

• 22

LIST Ẩn hiện đối tượng được chọn !!

Cái này mình mới mò được bên diễn đàn Cadviet.com, cũng là một tiện ích hay cho chúng ta trong việc tăng tiến độ vẽ cad, Download về bình thường, giải nén, load LIST vưa giải nén, sử dụng bằng các lệnh sau: Lệnh: Vis: dùng để ẩn đối tượng được chọn; InVis : Hiện lên đối tượng mà bạn vừa ẩn đi; Chúc các bạn thành công !

• hideshowanhiendoituongduocchon.rar 674 bytes · Đọc: 616

• 23

Nối Hack !

Mình mới lang thang bên cadviet.com về, hum nay gặp được list lệnh này cũng hay, lên mình giới thiệu để các bạn cùng học hỏi... Nghe tên LIST chắc hẳn bạn đã hiểu được nội dung của list này, Lệnh: MH : dùng để nối các Hack khác nhău để tạo thành một hack chung, cũng giống như lệnh JJ mà đã giới thiệu trước đây, Chúc các bạn thành công ! Chú ý: Thuộc tính [layer, màu, kiểu hatch, ...] của hatch kết quả được lấy theo đối tượng hactch đầu tiên. Mẹo: Khi các hatch không giống nhau, muốn đối tượng sau khi merge giống hatch nào thì nên pick hatch đó đầu tiên, sau đó mới select các hatch khác. Xin cảm ơn diễn đàn Cadviet.com và người viết list !!!

• MH-NoiHack.rar 486 bytes · Đọc: 695

• 24

các bác cho ơi sao em cài hỗ trợ nối các đối tượng đơn thành polyline và thực hiện các bước theo chỉ dẫn nhưng lại báo lỗi: no function definition: ACET-ERROR-INIT. Bác biết nào chỉ em với.

• 25

List L = PL

các bác cho ơi sao em cài hỗ trợ nối các đối tượng đơn thành polyline và thực hiện các bước theo chỉ dẫn nhưng lại báo lỗi: no function definition: ACET-ERROR-INIT. Bác biết nào chỉ em với.

Bạn thử dùng cái này xem sao, Download về máy => giải nén => LOAD list => dùng lệnh NN => vậy là bạn có thể nối Line thành Pline rồi Bạn dùng thử đi, xem có bị lỗi như thế ko, rùi PM cho Tiểu Bảo nhé !!! * List nguồn: www.cadviet.com * Giá xây dựng cảm ơn các bạn đã quan tâm, mong sự ủng hộ và góp sức của các bạn Thanks 4 All !!!

• NN - Loi L thanh PL.rar 6,5 KB · Đọc: 652

DauthauGXD

• 26

Có ai biết về lập trình Autolist thì chỉ bảo hộ với nhé: Đây là một List dùng để chèn chữ vào vị trí chỉ định nhưng khi thực hiện nó không đúng như mong muốn. Mong mọi người chỉ giúp cách khắc phục

[defun C:ve [/ scalei pto mtxtin i orx pti]

[setq pto [getpoint "Nhap toa do "]] [setq scalei [getreal "Nhap khoang cach chu: "]] [setq mtxtin ""] [setq mtxtin [getstring "input text: "]] [setq tlen [strlen mtxtin]] [setq i 1] [setq orx [car pto]] [while [ Okie

MrHienNo1

• 31

Autolips Expert

File autolip chỉ dành riêng cho dân cầu đường đây. Autolisp tính tọa độ võng. +Tính và ghi tọa độ điểm bên trái: lệnh hh +Tính và ghi tọa độ điểm bên phải: lệnh hu

• Toado_Vong.rar 630 bytes · Đọc: 396

MrHienNo1

• 32

Autolisp Expert

Còn đây là file lisp dùng để đo diện tích và tính chiều dài. Rất hay và tuyệt vời dành cho dân xây dựng.

• DienTich_ChieuDai.rar 3,6 KB · Đọc: 670

NPDL

• 33

anh vi tiểu bảo có autolisp vẻ đường taluy ko vậy up lên cho mọi người dùng đi, trong đó có em nữa hihi

• 34

  anh vi tiểu bảo có autolisp vẻ đường taluy ko vậy up lên cho mọi người dùng đi, trong đó có em nữa hihi

Lisp vẽ đường taluy thì mình đang tìm lại - lâu nay ít dùng! Nhưng bạn có thể dùng thử kiểu đường taluy dưới đây xem nhé. Tải file đính kèm dưới đây, giải nén xong bạn mở bằng cad, copy 2 đường này vào bản vẽ của bạn, dùng lệnh Ma là xong! Chú ý line scale nhé, đổi tỷ lệ phù hợp để hiển thị taluy.

• kieu duong taluy-tuvan246.rar 7,3 KB · Đọc: 451

MrHienNo1

• 36

Mình đang cần một Lisp thống kê thép có tổng hợp hẳn hoi, bạn có up cho mình với nhá. Cảm ơn bạn nhiều

• 37

lsip dd1: dùng định vị trí chung cho các điểm đặt chân DIM. lsip dd2: dùng định vị trí chung cho các điểm đặt DIM. text2mtext: cái tên nói lên tất cả, Text --> mtext.

• DD1.rar 1,3 KB · Đọc: 347
• DD2.rar 1,2 KB · Đọc: 335
• text2mtext.rar 1 KB · Đọc: 358

shinnikel

• 38

Các bạn thân có thể viết cho tôi 1 lisp chọn một bề mặt ngẫu nhiên[đối tượng kính] sau đó cho ra lựa chọn vật liệu là nhôm, thép, kính và tiếp đó là lựa chọn chiều dài hoặc dầy để cho ra 1 kết quả text là khối lượng của khối đó tính bằng [Kg] chân thành cảm ơn anh e tối rất cần lisp nay.

• 39

  Các bạn thân có thể viết cho tôi 1 lisp chọn một bề mặt ngẫu nhiên[đối tượng kính] sau đó cho ra lựa chọn vật liệu là nhôm, thép, kính và tiếp đó là lựa chọn chiều dài hoặc dầy để cho ra 1 kết quả text là khối lượng của khối đó tính bằng [Kg] chân thành cảm ơn anh e tối rất cần lisp nay.

Lisp này có thể viết được. Bạn cần cung cấp cho mình các dữ liệu sau: -Bạn cần cho các loại vật liệu gì thì liệt kê ra theo tên và trọng lượng riêng [kg/m3]. -Tiết diện bạn chọn theo cách nào: +Chọn pline khép kín sẳn có. +pick vào 1 vùng kín lisp tự tạo ra pline này. -Một mét bạn vẽ có giá trị bao nhiêu [cái này có thể viết thêm để bạn tùy biến nhưng viết sẽ lâu hơn] -Kết quả xuất ra kiểu gì: text bao lớn, có bao gồm chử gì phía trước và sau không hay chỉ là số trọng lượng.