Đến nội dung


Hình ảnh
* * * - - 8 Bình chọn

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


  • Chủ đề bị khóa Chủ đề bị khóa
3783 replies to this topic

#1181 18011985

18011985

    biết lệnh properties

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

Đã gửi 09 May 2010 - 08:42 AM

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.
  • 0
Trăng 16 trăng tròn
Em 16 bụng ... như trăng

Hướng dẫn sử dụng diễn đàn:
Để cảm ơn hay bài viết có ích: Ấn dấu + cuối bài.
Không vừa lòng hay bài spam: Ấn dấu - cuối bài.

#1182 damvinhduy

damvinhduy

    biết vẽ line

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

Đã gửi 09 May 2010 - 09:05 PM

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!
  • 0

#1183 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 09 May 2010 - 09:53 PM

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é.
  • 0

#1184 binhyenlinh

binhyenlinh

    biết zoom

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

Đã gửi 11 May 2010 - 12:35 AM

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

tham khảo : http://www.cadviet.c...o...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:
  • 0

#1185 18011985

18011985

    biết lệnh properties

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

Đã gửi 11 May 2010 - 12:32 PM

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.
  • 0
Trăng 16 trăng tròn
Em 16 bụng ... như trăng

Hướng dẫn sử dụng diễn đàn:
Để cảm ơn hay bài viết có ích: Ấn dấu + cuối bài.
Không vừa lòng hay bài spam: Ấn dấu - cuối bài.

#1186 funnyzui

funnyzui

    biết vẽ arc

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

Đã gửi 11 May 2010 - 03:38 PM

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.c...orm_luc_dau.jpg

- Đây là form mong muốn: http://www.cadviet.c...m_mong_muon.jpg

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

- Đây là file mẫu mà mình làm: http://www.cadviet.c...ew_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.c..._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...orm luc dau.JPG

http://www.mediafire...m mong muon.JPG

file thống kê thép : http://www.mediafire...1uczn/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!
  • 0

#1187 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 11 May 2010 - 04:50 PM

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

  • 0

#1188 funnyzui

funnyzui

    biết vẽ arc

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

Đã gửi 11 May 2010 - 09:01 PM

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!
  • 0

#1189 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 12 May 2010 - 03:32 AM

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ẻ.
  • 1

#1190 funnyzui

funnyzui

    biết vẽ arc

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

Đã gửi 12 May 2010 - 09:35 AM

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.
  • 0

#1191 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 12 May 2010 - 10:47 AM

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???
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1192 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 12 May 2010 - 10:51 AM

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à.
  • 1

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


#1193 18011985

18011985

    biết lệnh properties

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

Đã gửi 12 May 2010 - 12:16 PM

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:
  • 0
Trăng 16 trăng tròn
Em 16 bụng ... như trăng

Hướng dẫn sử dụng diễn đàn:
Để cảm ơn hay bài viết có ích: Ấn dấu + cuối bài.
Không vừa lòng hay bài spam: Ấn dấu - cuối bài.

#1194 khoind

khoind

    biết vẽ line

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

Đã gửi 12 May 2010 - 05:00 PM

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)
)
  • 0

#1195 funnyzui

funnyzui

    biết vẽ arc

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

Đã gửi 14 May 2010 - 04:48 PM

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: .
  • 0

#1196 queen2k8

queen2k8

    biết pan

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

Đã gửi 14 May 2010 - 07:58 PM

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?
  • 0

#1197 meohoang

meohoang

    biết lệnh adcenter

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

Đã gửi 14 May 2010 - 09:36 PM

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.c...iles/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
  • 0

#1198 queen2k8

queen2k8

    biết pan

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

Đã gửi 14 May 2010 - 10:00 PM

Uh hè chừ mình mới đọc bài của bạn. Chờ đó:
http://www.cadviet.c...iles/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
  • 0

#1199 meohoang

meohoang

    biết lệnh adcenter

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

Đã gửi 14 May 2010 - 10:55 PM

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
  • 1

#1200 tamtron

tamtron

    biết vẽ arc

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

Đã gửi 14 May 2010 - 11:03 PM

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 ...
  • 0