Xin tài liệu Autolisp( visual lisp)

Tiêu đề: Xin tài liệu Autolisp( visual lisp) Wed 14 Nov 2012 - 0:27

Chào các anh trong diễn đàn Votauthuy.org!
Nhóm em là nhóm tin học lớp 52tt, tụi em đang nghiên cứu vấn đề tự động hóa vẽ đường hình tàu trong autocad bằng ngôn ngữ Autolisp nhưng gặp rất nhiều khó khăn trong vấn đề tài liệu nên rất mong được sự chia sẻ của các đàn anh đi trước.
Tụi em đang có bài toán cụ thể sau nhờ các anh hướng dẫn cách làm và các code liên quan là: từ một mặt cắt ngang của tàu mẫu cho trước, viết một đoạn lisp chiết xuất tọa độ của tất cả các đường có trên mặt cắt ngang ra exel hoặc file text hoặc ngay trên cad cũng được. Sau đó, dùng bảng tọa độ đó để vẽ lại một mặt cắt ngang khâc với chiều rộng và chiều cao khác.
Cảm ơn các anh!

Tiêu đề: Re: Xin tài liệu Autolisp( visual lisp) Wed 14 Nov 2012 - 0:29

đây cũng là một vấn đề rất hay
minh cũng đang nghiên cứu về vấn đề đó
mong các anh chỉ giáo cho chút ít.

Được sửa bởi loc2210 ngày Thu 15 Nov 2012 - 2:16; sửa lần 2.

HJhj Công việc của bạn thì dùng AutoLISP không thể thực hiện được.
Thứ 1: AutoLisp không cho xuất dữ liệu sang Excel chỉ cho xuất sang file notepad thôi và nếu có xuất được cũng chỉ xuất được dưới dạng file "csx"(mình nhớ không nhầm là vậy) và không thể nào xuât sang được "xls" để xuất được file này cần phải liên kết ...

Thứ 2: Công việc lấy giao điểm Autolisp cũng không thực hiện được, để thực hiện được công việc này các bạn phải tìm hiển phần exten VisualLISP(Reactor) (nhớ là Visual LISP và AutoLISP khác nhau nhé)
Và việc lập hộp thoại trên ngôn ngữ AutoLISP các bạn cũng gặp rất nhiều khó khăn, để giải quyết vấn đề này các bạn phải dùng đên ngôn Ngữ DCL(Dialog control Language).
Và công việc các bạn cần làm thì mình đã làm hết rồi

Thứ 3: Để điều khiển được đối tượng một cách tự động các bạn phải hiểu và lấy các mã DXF đối tượng.....

Tiêu đề: Re: Xin tài liệu Autolisp( visual lisp) Wed 14 Nov 2012 - 22:17

Chào anh Lộc!
Em cũng là thành viên của lớp 52tt. Đầu tiên em xin đính chính 52tt là 52 tàu thuyền đó anh. Đầu tiên xin cảm ơn anh vì bài viết rất hay và bổ ích cho chúng em.
KÌ này chúng em đang học môn tự động hóa thiết kế tàu, nên rất cần tài liệu tham khảo cũng như tài liệu hướng dẫn cho môn học này.
Theo em thấy hình như bài của anh chỉ dành cho tàu cá thì phải. Vậy đối với nhưng tàu khác thì cách làm tương tự hay là có gì khác không anh?
Nhân tiện, anh có tài liệu gì hay hay về môn học này không ( đặc biệt autoship vì em tìm mãi mà không thấy tài liệu nào cụ thể cả)?
Rất mong được sự giúp đỡ của anh!

Tiêu đề: Re: Xin tài liệu Autolisp( visual lisp) Thu 15 Nov 2012 - 1:56

Các bài viết các bạn nên tham khảo khi lập trình
[You must be registered and logged in to see this link.]
Link đây em
[You must be registered and logged in to see this link.]
Visual LÍp(Reactor) Cái này cần phải nghiên cứu kỹ nhé vì nó mới giải quyết được cái vấn đề của em: [You must be registered and logged in to see this link.]

Tiêu đề: Re: Xin tài liệu Autolisp( visual lisp) Thu 15 Nov 2012 - 3:33

Cảm ơn anh Lộc!

Tiêu đề: Re: Xin tài liệu Autolisp( visual lisp) Thu 15 Nov 2012 - 22:21

anh ơi anh có thể giúp em biết 1 đoạn lisp để gọi 1 file *.DCL ra trong Cad không ạ!vì tụi em muốn xem Dialog đó có hình dạng sao khi xuất ra mà mò mãi không được khoc

file đó nằm trong mục support của cad ở ổ C:. Tụi em cũng tự mò và viết được 1 lisp như sau nhưng không biết chạy như thế nào để gọi nó ra cả:

Code:: (setq dialog(load_dialog "C:\Program Files (x86)\Autocad2008\Support\BANGTOADO.DCL"))
(if (not(new_dialog "BANGTOADO" dialog)) (exit))
(start_dialog)
(unload_dialog dialog)

Nhờ anh loc2210 và mọi người trên diễn đàn giúp cho ạ!Em cảm ơn nhiều.

Tiêu đề: Re: Xin tài liệu Autolisp( visual lisp) Fri 16 Nov 2012 - 0:02

- Muốn xem trước hộp thoại khi lập trình đâu cần phải làm như vậy, trong môi trường Visual LISP cho phép người dùng xem trước hộp thoại bằng cách như sau: Tools===> interfaces Tool ==> Preview Dialog in Editor(Thực hiện được khi cấu trúc hộp thoại đã hoàn thiện)

- Khi load hộp thoại vào trong chương trình người ta mới dùng cách của em, trước hết em hãy kiểm trả code hộp thoại viết đã đúng chưa, còn nếu file.dcl được đặt sẵn trong mục support của AutoCAD thì không cần phải đường dẫn vì khi nhận lệnh AutoCAD vẽ tự động tìm đường của file này theo trình tự như sau:
C:\Users\Bui Cong Loc\AppData\Roaming\Autodesk\AutoCAD 2007
C:\Program Files\AutoCAD 2007\Support
C:\Program Files\AutoCAD 2007\fonts
C:\Program Files\AutoCAD 2007\help
C:\Program Files\AutoCAD 2007\Express
C:\Program Files\AutoCAD 2007\support\color
(Tất cả các file nằm trong mục này không cần phải đường dẫn AutoCAD sẽ tự động tìm và tải file)
Dưới đây là 2 đoạn LISP vẽ đường hình theo tọa độ người dùng nhập vào các em tham khảo

Code:: (defun c:dn ()
(setq kc (getreal "\nNhap KC-DN (mm)"))
(setq ks (getreal "\nDuong nuoc so may?"))
(setq v t)
(while (= v t)
(setq cd (getreal "\nnhap chuoi"))
(if (/= cd nil) (progn
   (setq k (list cd (* kc ks)))
   (command "point" k)
   (setq v t)
      (setq ks (+ ks 1))
   );; het progn
(progn (setq v nil))

);;het if
)
)
;;;=======================================
(defun c:cd ()
(setq kc (getreal "\nNhap KC-CD (mm)"))
(setq v t)
(setq ks (getreal "\nCat Doc so may?"))
(while (= v t)
(setq cd (getreal "\nnhap chuoi"))
(if (/= cd nil) (progn
   (setq k (list (* kc ks) cd ))
   (command "point" k)
   (setq v t)
      (setq ks (+ ks 1))
   );; het progn
(progn (setq v nil))

);;het if
)
)
;;;;==================================
(defun c:mcs ()
(setq xmcs (getreal "\nNhap chieu rong"))
(setq ymcs (getreal "\nNhap chieu cao"))
(setq k (list xmcs ymcs))
(command "point" k)
)

Hoặc đoạn LISP tìm giao điểm giữa đường thẳng và mặt phẳng

Code:: ";---------------------------------------------------------------------
;- Command GiaoTuyen ()
;- Creates a points at the the intersection of a line and a plane
;- The user selects the three points defining the plane and the
;- two points defining the line.

(defun c:Giaotuyen ()
;-- Get the plane points
(setq pp1 (getpoint "\nSelect the 1st point on the plane: "))
(setq pp2 (getpoint "\nSelect the 2nd point on the plane: "))
(setq pp3 (getpoint "\nSelect the 3rd point on the plane: "))

;-- Get the line points
(setq lp1 (getpoint "\nSelect the 1st point on the line: "))
(setq lp2 (getpoint "\nSelect the 2nd point on the line: "))

;-- Find the intersection
(setq int_pt (line_plane_int (list pp1 pp2 pp3) (list lp1 lp2) ))

;-- Draw the intersection point
(command "_point" (car int_pt))
)

;---------------------------------------------------------------------
;- Function LINE_PLANE_INT (PLANE_PTS LINE_PTS)
;- Finds the intersection of a line and a plane
;-
;- Arguments: Point list of the form
;- ( (p1 p2 p3) (l1 l2) )
;- PLANE_PTS p1->p3 is the points list defining the plane
;- LINE_PTS l1 and l2 are the points defining the line
;-
;- RETURNS the intersection point and 'T' if the point is inside
;- the triangle p1->p2->p3, else nil of the form
;- ( (x y z) T ) or ( (x y z) nil )
;-

(defun line_plane_int (ppts lpts / xa ya za xb yb zb x0 y0 z0 x1 y1 z1 x2 y2 z2 mat1 xc yc zc w u v pt t1 t2 t3)

(setq xa (car (nth 0 lpts)))
(setq ya (cadr (nth 0 lpts)))
(setq za (caddr (nth 0 lpts)))

(setq xb (car (nth 1 lpts)))
(setq yb (cadr (nth 1 lpts)))
(setq zb (caddr (nth 1 lpts)))

(setq x0 (car (nth 0 ppts)))
(setq y0 (cadr (nth 0 ppts)))
(setq z0 (caddr (nth 0 ppts)))

(setq x1 (car (nth 1 ppts)))
(setq y1 (cadr (nth 1 ppts)))
(setq z1 (caddr (nth 1 ppts)))

(setq x2 (car (nth 2 ppts)))
(setq y2 (cadr (nth 2 ppts)))
(setq z2 (caddr (nth 2 ppts)))

;--- Load the matrix to invert
(setq mat1 (list
   (list (- xa xb) (- x1 x0) (- x2 x0))
(list (- ya yb) (- y1 y0) (- y2 y0))
(list (- za zb) (- z1 z0) (- z2 z0))
))

;--- Invert the matrix
(setq mat1 (matrix_inverse3 mat1))

;--- Solve for the column variables
(setq xc (- xa x0))
(setq yc (- ya y0))
(setq zc (- za z0))

;--- Solve for the parametric variables (w is substitued for t)
(setq w (+
   (* xc (car (nth 0 mat1)))
   (* yc (cadr (nth 0 mat1)))
   (* zc (caddr (nth 0 mat1)))
))
(setq u (+
   (* xc (car (nth 1 mat1)))
   (* yc (cadr (nth 1 mat1)))
   (* zc (caddr (nth 1 mat1)))
))
(setq v (+
   (* xc (car (nth 2 mat1)))
   (* yc (cadr (nth 2 mat1)))
   (* zc (caddr (nth 2 mat1)))
))

;--- Solve for the intersection point
(setq pt (list
   (+ xa (* w (- xb xa)))
   (+ ya (* w (- yb ya)))
   (+ za (* w (- zb za)))
))
;--- Determine if the intersection point is inside the triangle
(setq t1 (and (>= u 0.0) (<= u 1.0)))
(setq t2 (and (>= v 0.0) (<= v 1.0)))
(setq t3 (<= (+ u v) 1.0))

;--- Add the condition result to the point list
(setq pt (list pt (and t1 t2 t3)))
)

;---------------------------------------------------------------------
;- Function MATRIX_INVERSE3 (MLIST)
;- Finds the inverse of a 3x3 matrix
;- Arguments: Matrix list of the form
;- ( (r1c1 r1c2 r1c3) (r2c1 r2c2 r2c3) ....)
;-

(defun matrix_inverse3 (mlist / mlist det row1 row2 row3 a11 a12 a13 a21 a22 a23 a31 a32 a33 matrix)
(setq row1 (nth 0 mlist))
(setq row2 (nth 1 mlist))
(setq row3 (nth 2 mlist))
(setq a11 (nth 0 row1)
a12 (nth 1 row1)
a13 (nth 2 row1)
)
(setq a21 (nth 0 row2)
a22 (nth 1 row2)
a23 (nth 2 row2)
)
(setq a31 (nth 0 row3)
a32 (nth 1 row3)
a33 (nth 2 row3)
)

;--- Find the determinant ----
(setq det (matrix_det3 mlist))

;--- Use the row variables to define the new inverse matrix
(setq row1 (list
   (/ (- (* a22 a33) (* a32 a23)) det)
   (/ (- (* a13 a32) (* a33 a12)) det)
   (/ (- (* a12 a23) (* a22 a13)) det)
))
(setq row2 (list
   (/ (- (* a23 a31) (* a33 a21)) det)
   (/ (- (* a11 a33) (* a31 a13)) det)
   (/ (- (* a13 a21) (* a23 a11)) det)
))
(setq row3 (list
   (/ (- (* a21 a32) (* a31 a22)) det)
   (/ (- (* a12 a31) (* a32 a11)) det)
   (/ (- (* a11 a22) (* a21 a12)) det)
))

;--- Return the matrix
(setq matrix (list row1 row2 row3))
)

;---------------------------------------------------------------------
;- Function MATRIX_DET3 (MLIST)
;- Calculates and returns the determinate of a 3x3 matrix
;- Arguments: Matrix list of the form
;- ( (r1c1 r1c2 r1c3) (r2c1 r2c2 r2c3) ....)
;-
(defun matrix_det3 (mlist / mlist row1 row2 row3 a1 a2 a3 b1 b2 b3 c1 c2 c3 det)
(setq row1 (nth 0 mlist))
(setq row2 (nth 1 mlist))
(setq row3 (nth 2 mlist))
(setq a1 (nth 0 row1)
a2 (nth 1 row1)
a3 (nth 2 row1)
)
(setq b1 (nth 0 row2)
b2 (nth 1 row2)
b3 (nth 2 row2)
)
(setq c1 (nth 0 row3)
c2 (nth 1 row3)
c3 (nth 2 row3)
)
;--- Do the calcs ----
(setq det (+
(* a1 b2 c3)
(- (* a1 b3 c2))
(- (* a2 b1 c3))
(* a2 b3 c1)
(* a3 b1 c2)
(- (* a3 b2 c1))
))
(setq det (float det))
)
(alert "Bui Cong Loc - Nha Trang University")"

Tiêu đề: Re: Xin tài liệu Autolisp( visual lisp) Fri 16 Nov 2012 - 0:17

Vâng em cảm ơn anh nhiều em sẽ tham khảo thêm.

Tiêu đề: Re: Xin tài liệu Autolisp( visual lisp) Fri 16 Nov 2012 - 12:11

anh loc2210 ơi tình hình là em làm theo lời a:

Trích dẫn :: Muốn xem trước hộp thoại khi lập trình đâu cần phải làm như vậy, trong môi trường Visual LISP cho phép người dùng xem trước hộp thoại bằng cách như sau: Tools===> interfaces Tool ==> Preview Dialog in Editor(Thực hiện được khi cấu trúc hộp thoại đã hoàn thiện)

mà không được kick vào nó cứ trơ trơ không chạy gì cả cũng không báo lỗi gì làm em bó tay luôn.
Đoạn code đó như sau:
Anh xem giúp em nếu được chụp em cái ảnh hộp thoại nó như thế nào luôn ạ. Cảm ơn anh nhiều!

Code:: BANGTOADO : dialog {
label = "BANG TOA DO TAU THIET KE";
: row {
: boxed_column {
: text {
label = "_______l NUA CHIEU RONG l CHIEU CAO ";
}

: row {
: column {
: text {
label = "SUON";
}
: text {
label = "-0.5";
}
: text {
label = "0";
}
: text {
label = "1";
}
: text {
label = "2";
}
: text {
label = "3";
}
: text {
label = "4";
}
: text {
label = "5";
}
: text {
label = "6";
}
: text {
label = "7";
}
: text {
label = "8";
}
: text {
label = "9";
}
: text {
label = "9.5";
}
: text {
label = "10";
}
: text {
label = "10.5";
}
: text {
label = "11";
}
: text {
label = "11.5";
}
: text {
label = "12";
}
: text {
label = "12.5";
}
}
: column {
: text {
label = "DN1";
}
: edit_box {
key = "edt_D1S05";
}
: edit_box {
key = "edt_D1S0";
}
: edit_box {
key = "edt_D1S1";
}
: edit_box {
key = "edt_D1S2";
}
: edit_box {
key = "edt_D1S3";
}
: edit_box {
key = "edt_D1S4";
}
: edit_box {
key = "edt_D1S5";
}
: edit_box {
key = "edt_D1S6";
}
: edit_box {
key = "edt_D1S7";
}
: edit_box {
key = "edt_D1S8";
}
: edit_box {
key = "edt_D1S9";
}
: edit_box {
key = "edt_D1S905";
}
: edit_box {
key = "edt_D1S10";
}
: edit_box {
key = "edt_D1S1005";
}
: edit_box {
key = "edt_D1S11";
}
: edit_box {
key = "edt_D1S1105";
}
: edit_box {
key = "edt_D1S12";
}
: edit_box {
key = "edt_D1S1205";

}
}
: column {
: text {
label = "DN2";
}
: edit_box {
key = "edt_D2S05";
}
: edit_box {
key = "edt_D2S0";
}
: edit_box {
key = "edt_D2S1";
}
: edit_box {
key = "edt_D2S2";
}
: edit_box {
key = "edt_D2S3";
}
: edit_box {
key = "edt_D2S4";
}
: edit_box {
key = "edt_D2S5";
}
: edit_box {
key = "edt_D2S6";
}
: edit_box {
key = "edt_D2S7";
}
: edit_box {
key = "edt_D2S8";
}
: edit_box {
key = "edt_D2S9";
}
: edit_box {
key = "edt_D2S905";
}
: edit_box {
key = "edt_D2S10";
}
: edit_box {
key = "edt_D2S1005";
}
: edit_box {
key = "edt_D2S11";
}
: edit_box {
key = "edt_D2S1105";
}
: edit_box {
key = "edt_D2S12";
}
: edit_box {
key = "edt_D2S1205";

}
}
: column {
: text {
label = "DN3";
}
: edit_box {
key = "edt_D3S05";
}
: edit_box {
key = "edt_D3S0";
}
: edit_box {
key = "edt_D3S1";
}
: edit_box {
key = "edt_D3S2";
}
: edit_box {
key = "edt_D3S3";
}
: edit_box {
key = "edt_D3S4";
}
: edit_box {
key = "edt_D3S5";
}
: edit_box {
key = "edt_D3S6";
}
: edit_box {
key = "edt_D3S7";
}
: edit_box {
key = "edt_D3S8";
}
: edit_box {
key = "edt_D3S9";
}
: edit_box {
key = "edt_D3S905";
}
: edit_box {
key = "edt_D3S10";
}
: edit_box {
key = "edt_D3S1005";
}
: edit_box {
key = "edt_D3S11";
}
: edit_box {
key = "edt_D3S1105";
}
: edit_box {
key = "edt_D3S12";
}
: edit_box {
key = "edt_D3S1205";

}
}
: column {
: text {
label = "DN4";
}
: edit_box {
key = "edt_D4S05";
}
: edit_box {
key = "edt_D4S0";
}
: edit_box {
key = "edt_D4S1";
}
: edit_box {
key = "edt_D4S2";
}
: edit_box {
key = "edt_D4S3";
}
: edit_box {
key = "edt_D4S4";
}
: edit_box {
key = "edt_D4S5";
}
: edit_box {
key = "edt_D4S6";
}
: edit_box {
key = "edt_D4S7";
}
: edit_box {
key = "edt_D4S8";
}
: edit_box {
key = "edt_D4S9";
}
: edit_box {
key = "edt_D4S905";
}
: edit_box {
key = "edt_D4S10";
}
: edit_box {
key = "edt_D4S1005";
}
: edit_box {
key = "edt_D4S11";
}
: edit_box {
key = "edt_D4S1105";
}
: edit_box {
key = "edt_D4S12";
}
: edit_box {
key = "edt_D4S1205";

}
}
: column {
: text {
label = "DN5";
}
: edit_box {
key = "edt_D5S05";
}
: edit_box {
key = "edt_D5S0";
}
: edit_box {
key = "edt_D5S1";
}
: edit_box {
key = "edt_D5S2";
}
: edit_box {
key = "edt_D5S3";
}
: edit_box {
key = "edt_D5S4";
}
: edit_box {
key = "edt_D5S5";
}
: edit_box {
key = "edt_D5S6";
}
: edit_box {
key = "edt_D5S7";
}
: edit_box {
key = "edt_D5S8";
}
: edit_box {
key = "edt_D5S9";
}
: edit_box {
key = "edt_D5S905";
}
: edit_box {
key = "edt_D5S10";
}
: edit_box {
key = "edt_D5S1005";
}
: edit_box {
key = "edt_D5S11";
}
: edit_box {
key = "edt_D5S1105";
}
: edit_box {
key = "edt_D5S12";
}
: edit_box {
key = "edt_D5S1205";

}
}
: column {
: text {
label = "MAN";
}
: edit_box {
key = "edt_MS05";
}
: edit_box {
key = "edt_MS0";
}
: edit_box {
key = "edt_MS1";
}
: edit_box {
key = "edt_MS2";
}
: edit_box {
key = "edt_MS3";
}
: edit_box {
key = "edt_MS4";
}
: edit_box {
key = "edt_MS5";
}
: edit_box {
key = "edt_MS6";
}
: edit_box {
key = "edt_MS7";
}
: edit_box {
key = "edt_MS8";
}
: edit_box {
key = "edt_MS9";
}
: edit_box {
key = "edt_MS905";
}
: edit_box {
key = "edt_MS10";
}
: edit_box {
key = "edt_MS1005";
}
: edit_box {
key = "edt_MS11";
}
: edit_box {
key = "edt_MS1105";
}
: edit_box {
key = "edt_MS12";
}
: edit_box {
key = "edt_MS1205";

}
}
: column {
: text {
label = "CD0";
}
: edit_box {
key = "edt_CD0S05";
}
: edit_box {
key = "edt_CD0S0";
}
: edit_box {
key = "edt_CD0S1";
}
: edit_box {
key = "edt_CD0S2";
}
: edit_box {
key = "edt_CD0S3";
}
: edit_box {
key = "edt_CD0S4";
}
: edit_box {
key = "edt_CD0S5";
}
: edit_box {
key = "edt_CD0S6";
}
: edit_box {
key = "edt_CD0S7";
}
: edit_box {
key = "edt_CD0S8";
}
: edit_box {
key = "edt_CD0S9";
}
: edit_box {
key = "edt_CD0S905";
}
: edit_box {
key = "edt_CD0S10";
}
: edit_box {
key = "edt_CD0S1005";
}
: edit_box {
key = "edt_CD0S11";
}
: edit_box {
key = "edt_CD0S1105";
}
: edit_box {
key = "edt_CD0S12";
}
: edit_box {
key = "edt_CD0S1205";
}
}
: column {
: text {
label = "CD1";
}
: edit_box {
key = "edt_CD1S05";
}
: edit_box {
key = "edt_CD1S0";
}
: edit_box {
key = "edt_CD1S1";
}
: edit_box {
key = "edt_CD1S2";
}
: edit_box {
key = "edt_CD1S3";
}
: edit_box {
key = "edt_CD1S4";
}
: edit_box {
key = "edt_CD1S5";
}
: edit_box {
key = "edt_CD1S6";
}
: edit_box {
key = "edt_CD1S7";
}
: edit_box {
key = "edt_CD1S8";
}
: edit_box {
key = "edt_CD1S9";
}
: edit_box {
key = "edt_CD1S905";
}
: edit_box {
key = "edt_CD1S10";
}
: edit_box {
key = "edt_CD1S1005";
}
: edit_box {
key = "edt_CD1S11";
}
: edit_box {
key = "edt_CD1S1105";
}
: edit_box {
key = "edt_CD1S12";
}
: edit_box {
key = "edt_CD1S1205";
}
}
: column {
: text {
label = "CD2";
}
: edit_box {
key = "edt_CD2S05";
}
: edit_box {
key = "edt_CD2S0";
}
: edit_box {
key = "edt_CD2S1";
}
: edit_box {
key = "edt_CD2S2";
}
: edit_box {
key = "edt_CD2S3";
}
: edit_box {
key = "edt_CD2S4";
}
: edit_box {
key = "edt_CD2S5";
}
: edit_box {
key = "edt_CD2S6";
}
: edit_box {
key = "edt_CD2S7";
}
: edit_box {
key = "edt_CD2S8";
}
: edit_box {
key = "edt_CD2S9";
}
: edit_box {
key = "edt_CD2S905";
}
: edit_box {
key = "edt_CD2S10";
}
: edit_box {
key = "edt_CD2S1005";
}
: edit_box {
key = "edt_CD2S11";
}
: edit_box {
key = "edt_CD2S1105";
}
: edit_box {
key = "edt_CD2S12";
}
: edit_box {
key = "edt_CD2S1205";
}
}
: column {
: text {
label = "CD3";
}
: edit_box {
key = "edt_CD3S05";
}
: edit_box {
key = "edt_CD3S0";
}
: edit_box {
key = "edt_CD3S1";
}
: edit_box {
key = "edt_CD3S2";
}
: edit_box {
key = "edt_CD3S3";
}
: edit_box {
key = "edt_CD3S4";
}
: edit_box {
key = "edt_CD3S5";
}
: edit_box {
key = "edt_CD3S6";
}
: edit_box {
key = "edt_CD3S7";
}
: edit_box {
key = "edt_CD3S8";
}
: edit_box {
key = "edt_CD3S9";
}
: edit_box {
key = "edt_CD3S905";
}
: edit_box {
key = "edt_CD3S10";
}
: edit_box {
key = "edt_CD3S1005";
}
: edit_box {
key = "edt_CD3S11";
}
: edit_box {
key = "edt_CD3S1105";
}
: edit_box {
key = "edt_CD3S12";
}
: edit_box {
key = "edt_CD3S1205";
}
}

: column {
: text {
label = "MAN";
}
: edit_box {
key = "edt_MANCS05";
}
: edit_box {
key = "edt_MANCS0";
}
: edit_box {
key = "edt_MANCS1";
}
: edit_box {
key = "edt_MANCS2";
}
: edit_box {
key = "edt_MANCS3";
}
: edit_box {
key = "edt_MANCS4";
}
: edit_box {
key = "edt_MANCS5";
}
: edit_box {
key = "edt_MANCS6";
}
: edit_box {
key = "edt_MANCS7";
}
: edit_box {
key = "edt_MANCS8";
}
: edit_box {
key = "edt_MANCS9";
}
: edit_box {
key = "edt_MANCS905";
}
: edit_box {
key = "edt_MANCS10";
}
: edit_box {
key = "edt_MANCS1005";
}
: edit_box {
key = "edt_MANCS11";
}
: edit_box {
key = "edt_MANCS1105";
}
: edit_box {
key = "edt_MANCS12";
}
: edit_box {
key = "edt_MANCS1205";
}
}
}
: row {
: edit_box {
label = "KCS";
key = "edt_KCS";
}
: edit_box {
label = "SSUON";
key = "edt_SS";
}
: edit_box {
label = "LMAX";
key = "edt_BTDLMAX";
}
: text {
label = "m";
key = "txt_1";
}
: edit_box {
label = "BMAX";
key = "edt_BTDBMAX";
}
: text {
label = "m";
key = "txt_2";
}
: edit_box {
label = "H";
key = "edt_BTDH";
}
: text {
label = "m";
key = "txt_3";
}
: button {
key = "but_XEM";
label = "XEM";
edit_width = 10;
is_default = true;
fixed_width = true;
}
: button {
key = "but_XUAT";
label = "XUAT";
edit_width = 10;
fixed_width = true;
}
}
}

}
thoat;
errtile;
}
thoat : button {
key = "cancel";
label = "THOAT";
is_cancel = true;
edit_width = 8;
fixed_width = true;
alignment = centered;
}

Tiêu đề: Re: Xin tài liệu Autolisp( visual lisp) Fri 16 Nov 2012 - 12:41

Đoạn code DCL em upload không có vấn đề gì vẫn hoạt động tốt, anh đã kiểm tra rồi tất cả đều rất tốt và hình nó như thế này : Xin tài liệu Autolisp( visual lisp) ?ukpybt36u768md8

Xin tài liệu Autolisp( visual lisp) ?ukpybt36u768md8

[You must be registered and logged in to see this link.]
Và anh cung khuyên em không nên đọc và dùng code của người khác vì DCLvà LISP được thể hiện theo transcript(theo dạng văn bản) nên em khó tiền cận.
Cách tốt nhất là e tự đề xuất một vấn đề và giải quyết nó thì nhanh hơn

Tiêu đề: Re: Xin tài liệu Autolisp( visual lisp) Fri 16 Nov 2012 - 13:03

Dạ vâng em cảm ơn anh. Em cũng có những bài toán trong đầu hết rồi nhưng bây giờ đang có bài toán là đọc hiểu các đoạn code trên nên mới nhờ a giúp khi nào đã tường thông sẽ đi vào bài toán của cá nhân ạ!

» Chuyển đổi file lisp từ *.lsp sang *.vlx ?
» Autolisp , tự động tính toán trọng lượng thép tấm
» bác nào biết lập trình với autolisp giup em với