Viết lisp theo yêu cầu [phần 2]

[18011985 62]

Chào bạn phamthanhbinh,

Bạn cho mình hỏi mình muốn tạo một bảng hội thoại để nhập các giá trị đầu vào và các liên kết các trường, gán biến của hộp hội thoại đến biến như thế nào? Bạn có thể cho mình xin 1 ví dụ hoặc tài liệu để mình tìm hiểu thêm. Trong tay mình tài liệu ít quá nên cũng không hiểu được hết.

Cho mình hỏi thêm có hàm nào để kiểm tra Biến dạng Real hay String hay không?

ví dụ như

(if (not ( ...kiểm tra đúng là real.......)) (..thực hiện..) (...Không thực hiện...))

Hoặc

(if (not ( ...Kiểm tra đúng là string.......)) (..thực hiện..) (...Không thực hiện...))

Cảm ơn diễn đàn đã tạo cơ hội để mình học tập.

[Tue_NV 3.912]

Chào bạn phamthanhbinh,

...............

Cho mình hỏi thêm có hàm nào để kiểm tra Biến dạng Real hay String hay không?

ví dụ như

(if (not ( ...kiểm tra đúng là real.......)) (..thực hiện..) (...Không thực hiện...))

Hoặc

(if (not ( ...Kiểm tra đúng là string.......)) (..thực hiện..) (...Không thực hiện...))

Cảm ơn diễn đàn đã tạo cơ hội để mình học tập.

Sử dụng hàm Type

(setq a "CADVIET")
(if (not (= (type a) 'STR)) 
(alert "Day khong la STRING") 
(alert "Day la STRING")
)

(setq a 1)
(if (not (= (type a) 'INT)) 
(alert "Day khong phai la so nguyen") 
(alert "Day la so nguyen")
)

(setq a 1.0)
(if (not (= (type a) 'REAL)) 
(alert "Day khong phai la so thuc") 
(alert "Day la so thuc")
)

[phamthanhbinh 3.146]

Chào bạn phamthanhbinh,

Bạn cho mình hỏi mình muốn tạo một bảng hội thoại để nhập các giá trị đầu vào và các liên kết các trường, gán biến của hộp hội thoại đến biến như thế nào? Bạn có thể cho mình xin 1 ví dụ hoặc tài liệu để mình tìm hiểu thêm. Trong tay mình tài liệu ít quá nên cũng không hiểu được hết.

Cho mình hỏi thêm có hàm nào để kiểm tra Biến dạng Real hay String hay không?

ví dụ như

(if (not ( ...kiểm tra đúng là real.......)) (..thực hiện..) (...Không thực hiện...))

Hoặc

(if (not ( ...Kiểm tra đúng là string.......)) (..thực hiện..) (...Không thực hiện...))

Cảm ơn diễn đàn đã tạo cơ hội để mình học tập.

Chào bạn 18011985,

Để tạo hộp thoại thì bạn cần phải tạo ra các file DCL có thể sử dụng cùng với lisp. Việc tạo ra các file này không quá khó, tuy nhiên bạn cần tham khảo thêm các tài liệu về lisp. Đây là một tài liệu mà mình đã sử dụng để tự học lisp. Tài liệu này là của cụ Jeffy Sander mà mình down về từ mạng Internet. Phần tiếng Việt là do mình tự dịch để học thôi, bạn có thể tham khảo thêm ở bản gốc tiếng Anh mà mình vẫn giữ nguyên của cụ Jeffy để hiểu chính xác điều bạn cần.

http://www.cadviet.com/upfiles/2/gi%E1o_tr...lisp_tu_hoc.doc

Việc kiểm tra biến xem nó có phải là dạng chuỗi hay dạng số thực, bác Tue_NV đã hướng dẫn. Tuy nhiên bạn nhớ là lúc này biến đã phải được định nghĩa rồi, tức là người lập trình đã xác định kiểu loại của biến. Việc kiểm tra chỉ có tác dụng thông báo cho người dùng biết chứ không thể thay đổi kiểu loại của biến. Muốn thay đổi thì bạn phải định nghĩa lại biến này.

Chúc bạn thành công.

[18011985 62]

Cảm ơn các bạn đã giúp mình hiểu hơn về kiểm tra dữ liệu việc đó sẽ giúp mình khắc phục và tìm ra lỗi của chương trình.

Thanks

[tdvn 53]

Cảm ơn các bạn đã giúp mình hiểu hơn về kiểm tra dữ liệu việc đó sẽ giúp mình khắc phục và tìm ra lỗi của chương trình.

Thanks

Trong lisp, kiểu của biến kg đc định nghĩa trước và cũng có thể thay đổi khi gán lần cuối cùng. Có nghĩa là cùng một biến x bạn có thể gán kiểu int, float, string ..., kiểu của biến là kiểu của trị đc gán cuối cùng cho biến đó. Ví dụ (setq x 5 x 5.0 x "5.0") đều đc. Tuy nhiên khi kiểm tra (type x) -> STR.

[18011985 62]

Mình đã sửa được Lisp của mình. Cảm ơn ý kiến của các bạn. Mình muốn hỏi thêm 1 chút mình có một số lisp của các đàn anh, trong đó sau khi dịch Lsp -> VLX thì file LSP và DCL thành 1 file duy nhất VLX khi chạy. Còn mình khi dùng Cad dịch thì File VLX vẫn đòi hỏi file DCL mình không hiểu do cách dịch hay cách dấu file DCL. Nhờ các bạn giải đáp và hướng dẫn mình nếu lồng DCL vào file LSP để dịch ra chỉ cần 1 file VLX duy nhất mà vẫn đầy đủ cả DCL.

[damvinhduy 3]

Hixhix. Buồn thủi buồn thui. Tue_NV đã viết trả lời bạn ở trang trước (Viết Lisp theo yêu cầu phần 2- (trang 59)).

Bạn chưa đọc kỹ hay sao?????

Mình đã làm tất cả những gì như Tue đã hướng dẫn nhưng kết quả:

Load vào báo sucessful nhưng khi nhập lệnh dstt thi báo Unknown command "DSTT". Press F1 for help. Trong lệnh trên nếu thay T10A030 bằng một text khác bất kỳ có thể thay đổi kiểu TABCDEF, trong đó EF là kiểu ký tự số, TABCD có thể là chữ hoặc số thì phải làm sao. Mình chỉ cần 2 con số cuối của text thay đổi thôi còn các ký tự trước đó không quan tâm là gì. Cảm ơn Tue_NV.

Và mình đã nhờ Tue ở trang trước. Rất mong được Tue giúp đở. Cảm ơn nhiều!

[Tue_NV 3.912]

Mình đã làm tất cả những gì như Tue đã hướng dẫn nhưng kết quả:

Load vào báo sucessful nhưng khi nhập lệnh dstt thi báo Unknown command "DSTT". Press F1 for help. Trong lệnh trên nếu thay T10A030 bằng một text khác bất kỳ có thể thay đổi kiểu TABCDEF, trong đó EF là kiểu ký tự số, TABCD có thể là chữ hoặc số thì phải làm sao. Mình chỉ cần 2 con số cuối của text thay đổi thôi còn các ký tự trước đó không quan tâm là gì. Cảm ơn Tue_NV.

Và mình đã nhờ Tue ở trang trước. Rất mong được Tue giúp đở. Cảm ơn nhiều!

Code bài viết số 1170 - Viết Lisp theo theo cầu Phần II - Trang 59: không có lỗi và đáp ứng yêu cầu của bạn. Bạn chưa đọc kỹ chăng? Đề nghị bạn đọc kỹ lại nhé.

[binhyenlinh 0]

Sử dụng chức năng tìm kiếm của diễn đàn : Search

 

tham khảo : http://www.cadviet.com/forum/index.php?sho...ost&p=77689

Hi. cám ơn thạt nhièu. mình cũng thử search trên diễn đàn rùi nhưng không thấy. tại nhập từ không đúng đây mà.

Thank very much....! :cheers:

[18011985 62]

Chào các bạn,

Nhờ các bạn viết hộ mình 1 đoạn LSP với yêu cầu như sau:

- Ngày của máy tính VD 11-05-2010

- Mình muốn 1 đoạn Lsp kiểm tra và nhập giá trị 11052010 thì True cho qua. Save biến vào máy tính, lần sau ấn lệnh thì được bỏ qua đoạn kiểm tra.

Mong các bạn giúp mình.

[funnyzui 1]

Chào các bạn!

Mình tuy không phải thành viên mới, nhưng với autolisp thì thật tình mình chỉ biết xài thui mà ko có khả năng đọc-hiểu-sửa. Cách đây vài tháng, mình được ông anh cho cái lisp thống kê thép, thấy khá hay, nhưng qua vài tháng sử dụng có 1 số điểm mình mong muốn được hoàn thiện thêm nên lên đây xin nhờ mấy anh em cao thủ trên diễn đàn chỉnh sửa lại giúp.

 

- Đây là form lúc đầu: http://www.cadviet.com/upfiles/2/form_luc_dau.jpg

 

- Đây là form mong muốn: http://www.cadviet.com/upfiles/2/form_mong_muon.jpg

 

- file thống kê thép : http://www.cadviet.com/upfiles/2/chinh.rar

 

- Đây là file mẫu mà mình làm: http://www.cadviet.com/upfiles/2/new_block_14.dwg

 

Cách sử dụng lisp:

- Đầu tiên, các bạn phải add 2 folder CHINH, THONGKE vao support của cad. http://www.cadviet.com/upfiles/2/cai_dat_lisp_chinh.jpg

- Apload 3 file lisp ACAD.lsp,CHINH.lsp, THONGKE.lsp

Trước khi thống kê thép, phải tạo layer thongke.

Các lệnh trong lisp:

-BTK : tạo bảng thống kê.

-BTKL: tạo bảng tổng kết thép theo D.

-THEP : tạo từng thanh thép theo mẫu cho sẵn.

-Sua : sửa lại thah thép đã tạo.

-Doi : dời qua trái qua phải hình dạng thanh thép.

....

còn 1 số lệnh nữa mà mình ko xài đc cũng ko biết sao :cheers:

Cám ơn tác giả của lisp này :cheers:

 

Theo cá nhân mình thấy lisp này xài cũng hay, và vì mình xài quen rồi nên mong muốn nó đc hoàn thiện hơn để trợ giúp công việc thống kê thép được tốt hơn

link mediafire.com:

 

http://www.mediafire.com/file/mny54g4nrjt/Form luc dau.JPG

 

http://www.mediafire.com/file/bmazj5jyegj/Form mong muon.JPG

 

file thống kê thép : http://www.mediafire.com/file/wzbf1j1uczn/CHINH.rar

 

Lâu rồi mà ko ai giúp mình. Nên giờ lại làm phiền các bạn 1 lần nữa.

Rất mong các bạn edit lại lisp sao cho nó tự động nhân "Số thanh trong 1 CK" với "Số CK" để tự cho ra "Tổng số thanh". Và kết quả này (hay biến này) được update trong lisp để cho ra kết quả cuối cùng. Cám ơn mọi người!

[Tue_NV 3.912]

Lâu rồi mà ko ai giúp mình. Nên giờ lại làm phiền các bạn 1 lần nữa.

Rất mong các bạn edit lại lisp sao cho nó tự động nhân "Số thanh trong 1 CK" với "Số CK" để tự cho ra "Tổng số thanh". Và kết quả này (hay biến này) được update trong lisp để cho ra kết quả cuối cùng. Cám ơn mọi người!

funnyzui sử dụng chương trình thống kê thép của anh Võ Thành Nghĩa ở đường Link này xem nhé.

Tính năng đánh số cấu kiện cho thép đã được Tue_NV viết thành công rồi.

 

Đây là Chương trình của Anh Võ Thành Nghĩa ở Đà Nẵng chưa có tính năng đánh số cấu kiện cho thanh thép

Nay Tue_NV viết Lisp bổ sung thêm tính năng đánh số Cấu Kiện cho thép

tên lệnh SCK sẽ giải quyết vấn đề này

[funnyzui 1]

Cám ơn bạn Tue_NV đã quan tâm! Mình đã down lisp của bạn về dùng thử, thật đúng ý muốn của mình. Nhưng rất tiếc nó chỉ dành cho SpeedCad thôi. Mà SpeedCad mình đã thử cài 1 lần rồi, nhưng không thành công và mình thấy nó cũng quá đồ sộ so với nhu cầu của mình. Mình đang xài ACV 1.0 của bác Hoành nhà ta và 1 số lisp nhỏ nhỏ, thấy cũng phù hợp rồi. Giờ chỉ cần hoàn chỉnh thêm bộ lisp thống kê thép này nữa là okie. Rất mong bạn Tue_NV và các anh em rành lisp giúp đỡ. Thanks nhiều!

[Tue_NV 3.912]

Cám ơn bạn Tue_NV đã quan tâm! Mình đã down lisp của bạn về dùng thử, thật đúng ý muốn của mình. Nhưng rất tiếc nó chỉ dành cho SpeedCad thôi. Mà SpeedCad mình đã thử cài 1 lần rồi, nhưng không thành công và mình thấy nó cũng quá đồ sộ so với nhu cầu của mình. Mình đang xài ACV 1.0 của bác Hoành nhà ta và 1 số lisp nhỏ nhỏ, thấy cũng phù hợp rồi. Giờ chỉ cần hoàn chỉnh thêm bộ lisp thống kê thép này nữa là okie. Rất mong bạn Tue_NV và các anh em rành lisp giúp đỡ. Thanks nhiều!

Không, nó không chỉ dành cho SpeedCAD mà nó dành cho AutoCAD. Bạn chỉ cần chắt lọc Lisp ra và sử dụng là được. Theo như mình biết thì chương trình của bạn -> Nếu như hoàn thiện thì không thể tạo ra kiểu thanh thép có 1 hình dáng bất kì được mà phải theo những mẫu thép có sẵn. Trước đây, mình có sử dụng chương trình của anh Duy782006 và có đọc qua chương trình thống kê thép của NguyenTienLuyen và các chương trình STCAD của CIC....... thì thấy có điểm bất hợp lý là chỉ tạo theo những mẫu thép có sẵn mà không thể tuỳ biến một cách linh động nhất nhằm tạo ra các thanh thép có hình dáng bất kì một cách hiệu quả nhất. Tức là mình phải "dòm" xem có thanh thép nào đúng ý của mình thì mới OK được

 

Nhưng với chương trình của Anh Nghĩa cộng với sự phát triển của Tue_NV thì chương trình có thể tạo 1 thanh thép có hình dáng bất kì 1 cách nhanh nhất. Tức là có khả năng "TUỲ BIẾN". Khỏi cần phải nhìn có thanh thép nào đúng ý mình không mà có khả năng tạo thanh thép theo ý mình luôn

 

Tue_NV chỉ phát biểu những quan điểm của mình. Sử dụng hay không là quyền của các bạn vậy.

Vài dòng chia sẻ.

[funnyzui 1]

Vâng, cám ơn bạn Tue_NV. Mình sẽ cân nhắc lại. Vì hiện giờ mình đã biết cách tạo ra hình dạng thanh thép bất kỳ cho nhu cầu sử dụng của mình rồi, bằng cách tạo ra file *.sld và *.slb (cũng nghiền ngẫm trên cadviet.com mà ra). Tuy nhiên, độ linh hoạt theo như bạn nói thì ko cao, nên sử dụng cũng rất hạn chế. Tạm hài lòng với những cái có sẵn vậy. Trong quá trình sử dụng mình sẽ nghiên cứu để tự update thêm các thanh thép khác nữa.

 

Ngoài ra, theo như bạn nói ở trên:

Bạn chỉ cần chắt lọc Lisp ra và sử dụng là được.

Thì mình muốn xin file SCK_1.VLX của bạn mà đuôi là LSP để mình có thể edit lại cho phù hợp với lisp của mình được ko? Và với khả năng đọc-hiểu-sửa của mình như hiện nay, thì nếu có gì ko hiểu mình xin làm phiền bạn Tue_NV và các anh chị em trên này thêm 1 chút để mình có thể tạo ra lisp hoàn chỉnh.

[phamthanhbinh 3.146]

Chào các bạn,

Nhờ các bạn viết hộ mình 1 đoạn LSP với yêu cầu như sau:

- Ngày của máy tính VD 11-05-2010

- Mình muốn 1 đoạn Lsp kiểm tra và nhập giá trị 11052010 thì True cho qua. Save biến vào máy tính, lần sau ấn lệnh thì được bỏ qua đoạn kiểm tra.

Mong các bạn giúp mình.

Chưa hiểu mục tiêu của bạn, bạn có thể post lại cho rõ hơn được không???

[duy782006 1.549]

Chưa hiểu mục tiêu của bạn, bạn có thể post lại cho rõ hơn được không???

Chắc bác này viết lisp cài đặt gì đó mà muốn giới hạn số ngày sử dụng ấy mà.

[18011985 62]

Chưa hiểu mục tiêu của bạn, bạn có thể post lại cho rõ hơn được không???

Mình muốn lập một hàm điều kiện, dựa vào sự thay đổi ngày của hệ thống máy tính. Ngày trong Cad được Quy đổi thành dạng số VD ( 12-05-2010 12:10pm thì có giá trị bằng 2455329.50594436) Mình muốn viết lsp nhập dữ liệu ngày bắt đầu sử dụng 12-05-2010 và ngày kết thúc 1 tháng sau chẳng hạn. Thì trong khoảng thời gian đấy Lsp đó cho mình xem bản vẽ, sửa bản vẽ. Hết hạn đấy thì không truy cập được vào bản vẽ của mình.

Ý tưởng về một loại Password bản vẽ mới.

Vấn đề của mình là quy đổi ngày về giá trị của CAD và lưu giữ giá trị, kiểm tra giá trị đó khi mở bản vẽ.

:cheers:

[khoind 0]

các anh sửa hộ cho em đoạn lisp này với sau mỗi khi chọn miền diện tích thì thêm vào "số lượng" vì em làm có rất nhiều chi tiết giống nhau chả nhẽ tính tay lâu lắm ,sau khi chọn số lượng lại tiếp tục tính miền diện tích khác được không .Mong các anh giúp đỡ

;; free lisp from cadviet.com

(defun c:rt()

  (SAVE_MODE)

    (setq ladin (getvar "dimzin"))

(setq lacol (getvar "CEColor"))

   (if (not tl) (setq tl 1))

  (if (not h) (setq h 1))

  (if (not tt) (setq tt 1))

(if (not klr) (setq klr 7.85))

(setq tl1 (getreal (strcat "\nty le ban ve < 1/" (rtos tl 2 0) " >:"))

     caot1 (getreal (strcat "\nCao text < " (rtos h 2 2) " >: "))

     t1 (getreal (strcat "\nNhap chieu day vat lieu < " (rtos tt 2 2) " >: "))

klr1 (getreal (strcat "\nNhap khoi luong rieng cua vat lieu < " (rtos klr 2 2) " >: "))

)

     (if tl1 (setq tl tl1))

   (if caot1 (setq h caot1))

   (if t1 (setq tt t1))

   (if klr1 (setq klr klr1))

    (setq     k 0

    tkl 0

    tdt 0)

  (setq ss (ssadd))

(setvar "dimzin" 0)

(setvar "OSMODE" 0)

(setq PT (getpoint "\nChon diem xuat bang thong ke dien tich (mep trai):"))

(setq     P1 (list (+ (car PT)(* 6 h)) (cadr PT))

    P2 (list (+ (car PT)(* 22 h)) (cadr PT))

    P3 (list (car PT) (- (cadr PT)(* 3 h)))

    P4 (list (car P1) (cadr P3))

    P5 (list (car P2) (cadr P3))

    P6 (list (+ (car PT)(* 27 h)) (+ (cadr PT)(* 2 h)))

    P7 (list (+ (car PT)(* 3 h)) (- (cadr PT)(* 1.5 h)))

    P8 (list (+ (car PT)(* 14 h)) (- (cadr PT)(* 1.5 h)))

P21 (list (+ (car PT)(* 38 h)) (cadr P2))

P22 (list (+ (car PT)(* 38 h)) (cadr P5))

P23 (list (+ (car PT)(* 54 h)) (cadr P2))

P24 (list (+ (car PT)(* 54 h)) (cadr P5))

P25 (list (+ (car PT)(* 30 h)) (- (cadr PT)(* 1.5 h)))

P26 (list (+ (car PT)(* 46 h)) (- (cadr PT)(* 1.5 h)))

);setq

(command     "pline" PT P2 P5 P3 "C"

        "pline" P1 P4 ""

"pline" P2 P23 P24 P5 P2 ""

        "pline" P21 P22 ""

        "text" "m" P6 (* 1.2 h) 0 "Bang thong ke dien tich, khoi luong "

        "text" "m" P7 h 0 "STT"

        "text" "m" P8 h 0 "dien tich (m2)"

        "text" "m" P25 h 0 "chieu day (mm)"

"text" "m" P26 h 0 "khoi luong (kg)"

 

);command

 

(setq pt1 (getpoint "\n Chon mien tinh dien tich : "))

  (while (/= pt1 nil)

    (setq k (+ 1 k))

(command "erase" ss "")

    (command "TEXT" "m" pt1 (* 3 h) 0 (rtos k 2 0))

    (setq     PT (list (car P3) (cadr P3))

    P1 (list (+ (car PT)(* 6 h)) (cadr PT))

    P2 (list (+ (car PT)(* 22 h)) (cadr PT))

    P3 (list (car PT) (- (cadr PT)(* 3 h)))

    P4 (list (car P1) (cadr P3))

    P5 (list (car P2) (cadr P3))

    P7 (list (+ (car PT)(* 3 h)) (- (cadr PT)(* 1.5 h)))

    P8 (list (+ (car PT)(* 14 h)) (- (cadr PT)(* 1.5 h)))

P21 (list (+ (car PT)(* 38 h)) (cadr P2))

P22 (list (+ (car PT)(* 38 h)) (cadr P5))

P23 (list (+ (car PT)(* 54 h)) (cadr P2))

P24 (list (+ (car PT)(* 54 h)) (cadr P5))

P25 (list (+ (car PT)(* 30 h)) (- (cadr PT)(* 1.5 h)))

P26 (list (+ (car PT)(* 46 h)) (- (cadr PT)(* 1.5 h)))

    P9 (list (car PT) (- (cadr P3)(* 3 h)))

    P10 (list (car P1) (cadr P9))

    P11 (list (car P2) (cadr P9))

    P12 (list (car P7) (- (cadr P3)(* 1.5 h)))

    P13 (list (car P8) (cadr P12))

    P27 (list (car P21) (- (cadr P3)(* 3 h)))

    P28 (list (car P23) (- (cadr P3)(* 3 h)))

    P29 (list (car P25) (- (cadr P3)(* 1.5 h)))

    P30 (list (car P26) (- (cadr P3)(* 1.5 h)))

    );setq

    (setq frome (entlast));; chon doi tuong cuoi cung truoc khi boundary

(command "cecolor"4 "-boundary" pt1 "");; boundary

(setq toe (entlast));; chon doi tuong cuoi cung sau khi boundary

(setq cur frome ss (ssadd) S 0)

(while (not (eq cur toe));; chon cac doi tuong tu frome den toe

(setq cur (entnext cur) ss (ssadd cur ss))

(command "area" "S" "O" ss "" "")

(setq dt (getvar "area") S (+ S dt))

);while

(command "area" "A" "O" "L" "" "")

(setq dt (getvar "area"))

(setq S (+ S (* dt 2)))

(setvar "CEColor" lacol)

   (setq dtcon1 (* (* (/ s 1000000) tl) tl))

(setq kl (* (* dtcon1 klr) tt))

    (setq tdt (+ dtcon1 tdt))

    (setq tkl (+ kl tkl))

 

    (command     "pline" PT P2 P5 P3 "C"

        "pline" P1 P4 ""

"pline" P2 P5 P24 P23 P2 ""

        "pline" P21 P22 ""

        "text" "m" P7 h 0 (rtos k 2 0)

        "text" "m" P8 h 0 (rtos dtcon1 2 2)

        "text" "m" p25 h 0 (rtos tt 2 2)

        "text" "m" P26 h 0 (rtos kl 2 2))

    (setq pt1 (getpoint "\n chon mien tinh dien tich tiep theo hoac enter de ket thuc lenh..."))

);while

(command "erase" ss "")

(setq ss nil)

(setvar "DIMZIN" ladin)

(command     "pline" P3 P9 P11 P5 "C"

        "pline" P10 P4 ""

"pline" P5 P11 P28 p24 P5 ""

        "pline" P22 P27 ""

        "text" "m" P12 h 0 "Tong"

        "text" "m" P13 h 0 (rtos tdt 2 2)

        "text" "m" P29 h 0 (rtos tt 2 2)

        "text" "m" P30 h 0 (rtos tkl 2 2)

       );command

(RESTORE)

)

(defun SAVE_MODE()

(command "Undo" "begin")

(command "UCS" "W" "")

(setq OLD_OSMODE (getvar "OSMODE")

OLD_AUTOSNAP (getvar "AUTOSNAP")

OLD_ORTHOMODE (getvar "ORTHOMODE")

)

(command "cmdecho" 0)

(command "AUTOSNAP" 0)

(command "OSMODE" 0)

 

)

(defun RESTORE()

 

(command "Undo" "end")

(setvar "osmode" OLD_OSMODE)

(setvar "AUTOSNAP" OLD_AUTOSNAP)

(setvar "ORTHOMODE" OLD_ORTHOMODE)

(command "cmdecho" 1)

(command "AUTOSNAP" 1)

(command "OSMODE" 1)

)

[funnyzui 1]

Vâng, cám ơn bạn Tue_NV. Mình sẽ cân nhắc lại. Vì hiện giờ mình đã biết cách tạo ra hình dạng thanh thép bất kỳ cho nhu cầu sử dụng của mình rồi, bằng cách tạo ra file *.sld và *.slb (cũng nghiền ngẫm trên cadviet.com mà ra). Tuy nhiên, độ linh hoạt theo như bạn nói thì ko cao, nên sử dụng cũng rất hạn chế. Tạm hài lòng với những cái có sẵn vậy. Trong quá trình sử dụng mình sẽ nghiên cứu để tự update thêm các thanh thép khác nữa.

....

Thì mình muốn xin file SCK_1.VLX của bạn mà đuôi là LSP để mình có thể edit lại cho phù hợp với lisp của mình được ko? Và với khả năng đọc-hiểu-sửa của mình như hiện nay, thì nếu có gì ko hiểu mình xin làm phiền bạn Tue_NV và các anh chị em trên này thêm 1 chút để mình có thể tạo ra lisp hoàn chỉnh.

 

Cuối tuần rồi, hy vọng mọi người có thời gian giúp mình. Đang ngóng chờ tin Tue_NV và mọi người trên cadviet. Chúc mọi người cuối tuần zui zẻ :cheers: !

Nếu funnyzui có làm phiền quá cũng xin mọi người bỏ qua :cheers: .

[queen2k8 4]

Xin chào mọi người.Mình có 1 yêu cầu nhỏ.Mọi người giúp đỡ.Ai có lisp tính diện tích phần hatch rồi ghi ra file text ( có thể ghi bất kỳ chỗ nào mình kích chuột hoặc là chọn text sẵn có cũng được).Trên diễn đàn có file lisp này rồi nhưng link không down được.Ai có hoặc làm được thì up lên giúp mình nhé.Cảm ơn rất nhiều.

sao không ai giúp mình nhỉ.Viết yêu cầu ra rồi mà mọi người không giúp đỡ em tý sao?

[meohoang 344]

sao không ai giúp mình nhỉ.Viết yêu cầu ra rồi mà mọi người không giúp đỡ em tý sao?

Uh hè chừ mình mới đọc bài của bạn. Chờ đó:

http://www.cadviet.com/upfiles/2/tarb.lsp

Lệnh tarb -> chọn B phải vẽ Pline rồi pick chọn vào trong Pline kín; -> chọn L thì chỉ việc click vào hacth hay 1 đối tượng kín

[queen2k8 4]

Uh hè chừ mình mới đọc bài của bạn. Chờ đó:

http://www.cadviet.com/upfiles/2/tarb.lsp

Lệnh tarb -> chọn B phải vẽ Pline rồi pick chọn vào trong Pline kín; -> chọn L thì chỉ việc click vào hacth hay 1 đối tượng kín

không down được bạn à.Hướng dẫn kỹ chút đi bạn

[meohoang 344]

không down được bạn à.Hướng dẫn kỹ chút đi bạn

Bạn bấm vô link thì trình duyệt sẽ tự mở file tarb.lsp ra -> chép vô Notepad -> Save As lại vô thư mục XXXX -> Vô Acad load file lên

[tamtron 11]

sao không ai giúp mình nhỉ.Viết yêu cầu ra rồi mà mọi người không giúp đỡ em tý sao?

 

cái này thì việc j phải dùng lisp, bạn gõ aa để tính diện tích rồi gõ tiếp o để chọn object cần tính là đc, object có thể là vùng hatch, hình vuông, đường bo ...