ở cuối chương trình e thêm dòng này vào (command "a+" "") để e gọi tiếp lisp a+ của a mà sao ko đc a, a có thể chỉ thêm cho e ko ạ!!!!!
9 ปีที่แล้ว
+Sương Võ Thị Cái này hay. Anh chưa làm bao giờ luôn. Trả lời câu hỏi của Em. Khi Em chạy chương trình thì Em Phải "Load" trước. Nói lại 1 chút các bước em đã làm (những cái này em đã làm rồi) Ở đây Em chạy chương trình của Em. Thì đương nhiên em phải "Load" chương trình của Em trong môi trường "Lisp" rồi. Sau đó Em mới vào môi trường "Cad" để Gõ lệnh chạy chương trình. Trong chương trình của Em: " e thêm dòng này (command "a+" "") vào để e gọi tiếp lisp a+ của a " Nhưng không được. Theo anh là do Em chưa Load lisp a+ của anh.
+Phần Mềm Cơ Khí e đã load lisp của a chạy thử và rất ok lun xong e mới thử viết 1 cái khác và thêm (command "a+" "") vào nhưng cad ko hiểu và bỏ qua. xong e lại lấy chính lisp của a thêm dòng lệnh đó vào và cung ko được lun. e đã tìm hiểu máy ngày nay rồi mà ko có cách nào làm đc a có thể giúp e đc ko hjzhjz
9 ปีที่แล้ว
+Sương Võ Thị Anh làm cũng không được. Anh nghĩ chắc không làm được kiểu này. Thắc măc thêm xíu. Em đã thấy ai làm kiểu này chưa ? Sao chạy 2 chương trình Em không gõ lệnh để chạy từng cái một mà lại muốn liên kết nó vào nhau ?
e cũng chưa thấy ai làm kiểu này hết, e chỉ nghĩ ra và thử làm để kết hợp nhiều lisp nhỏ thành 1 lisp lớn thử xem thế nào mà ko đc buồn wa' huhu. dù sao cũng cảm ơn a hen!!!!!!
lại làm phiền a nữa rồi !!!! a có thể chỉ e cách xác định tọa độ điểm trong 3d cad đc ko ạ ? e muốn vẽ hộp giảm tốc bằng 3d luôn mà ko biết cách xách định tọa độ a giúp e với
9 ปีที่แล้ว
+Sương Võ Thị Anh không hiểu ý em lắm. Em muốn vẽ Hộp Giảm Tốc bằng 3D 1. Em vẽ bằng "lập trình Autolisp" : Cái này anh không rõ. 2. Em vẽ bằng lệnh trên AutoCAD (3D) => Em xem trên mạng có hướng dẫn rồi. Khuyên: Nên dùng các phần mềm khác (Inventor, Solidworks, ...) thì sẽ dễ dàng hơn.
+Phần Mềm Cơ Khí À là thế này nề a (setq pt1 (polar pstart g0 (* d3 0.5)) pt2 (polar pt1 g180 1) (command "line" pt1 pt2 "") trên cad 2d ta vẽ đc đường thẳng qua 2 điển pt1 và pt2 vậy trên cad 3d làm sao e có thể xđ đc pt1 pt2 và pt3 để vẽ đc 1 hình hộp chữ nhật vậy a, vd (setq pt1( ?) pt2 ( ?) pt3 ( ?) (command "_box" pt1 pt2 pt3 "") bài làm của a rất để hiểu nên e muốn hỏi a cho lành hjhj
9 ปีที่แล้ว +2
Chào em Sương Thực sự là anh vô cùng Cảm Xúc khi đọc tin nhắn phản hồi từ em. Trước khi trao đổi về vấn đề giải quyết, anh muốn có 1 vài lời nhận xét. 1. Em là người rất dũng cảm. (Vì con gái ít người DÁM chọn Cơ Khí để theo) 2. Tiếp nữa, Em là người rất thông minh, sáng tạo. Chắc chắn em sẽ có tương lai. 3. Anh chưa biết em học các vấn đề kỹ thuật của em thế nào, nhưng với sự đam mê, làm những thứ mà không ai yêu cầu, làm những cái rất ít người nghĩ đến, và óc phân tích - quan sát rất tốt của em. Chắc chắn sau này em làm việc gì cũng sẽ rất tốt. Anh trả lời câu hỏi của emThực ra nhận xét của em rất hay, và đó cũng là cái mà anh CHƯA làm bao giờ và hiện tại anh cũng CHƯA làm được. Cách làm chắc em cũng biết rồi. " Trong CAD vẽ thế nào thì lập trình như thế " Giải pháp Theo anh em nên đi hỏi các Thầy Cô chuyên về phần này. Khi học được 1 cái gì mới Nếu không dùng đến, Lâu dẫn sẽ Quên Nếu ghi lại nó bằng video hay gì gì đó Rồi chia sẻ cho mọi người Thì mình sẽ có 2 niềm vui. 1: Niềm vui khi mình vừa làm 1 việc tốt. 2: Niềm vui khi Quả Báo tới.
+Phần Mềm Cơ Khí cảm ơn a đã có những nhận xét tốt về e e ở dưới quê nên ko có điều kiện học chuyên về lisp mà cũng ko có thầy cô nào để học hết a à, nên e chỉ lên mạng tự tìm hiểu thêm thôi
Chào bạn "Phần mềm cơ khí ". Mình có 1 lisp tính tổng chiều dài polyline, nhưng khi xuất ra kết quả thì chương trình xuất ra đơn vị là mm, mà mình muốn lấy kết quả là mét. ko biết phải sửa chỗ nào. mày mò mấy ngày rồi mà ko được. mong bạn giúp mình với. cảm ơn trước nhé. P/s: có ai biết chỉ giúp mình với. đoạn lisp đó như sau: ;; free lisp from cadviet.com ;;; this lisp was downloaded from www.cadviet.com/forum/topic/60478-nho-chinh-sua-do-chieu-dai-va-ghi-ra-text/ ;; free lisp from cadviet.com ;;; this lisp was downloaded from www.cadviet.com/forum/index.php?showtopic=9681 (defun Length1(e) (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))) ;;;-------------------------------------------------------------------- (defun C:TL( / ss L e) (setq ss (ssget (list (cons 0 "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE"))) L 0.0 k (getvar "dimlfac") ) (vl-load-com) (while (setq e (ssname ss 0)) (setq L (* k (length1 e))) (setq ans (getstring " Ban hay chon phuong an nhap ket qua ")) (if (= ans "1") (progn (setq te (entget(car(entsel " Chon Text de gan ket qua :"))) te (subst (cons 1 (rtos L 2 2)) (assoc 1 te) te)) (entmod te) ) (progn (setq p (getpoint " Chon diem nhap ket qua" )) (setq h (getreal " Nhap chieu cao text ket qua ")) (command "text" p h "0" (rtos L 2 2)) ) ) (ssdel e ss) ) (princ) ) ;;;--------------------------------------------------------------------
![NISAMANEE - TADA (ท้าดา) [ OFFICIAL MV ]](http://i.ytimg.com/vi/hcQHEPMmJpU/mqdefault.jpg)
![ค้าง (STILL) - GEMINI [ OFFICIAL MV ]](http://i.ytimg.com/vi/Ftxx3hk5vkU/mqdefault.jpg)
bác có lisp thay thế các block được chọn bằng 1 block mới không
Mình k có nhé
ANH CHO E LẠI PHẦN AUTULISP DC K Ạ
ở phần mô tả dưới video có đấy bạn
dkm xem video của bạn dễ hiểu hơn mấy giáo sư tiến sĩ zặn ra sách đọc khó hiểu vc, thank bác nhé.
em chào anh ạ! anh cho em hỏi là dùng visua studio có thể tạo ra hộp thoại và chạy trên nền rhino được không ạ. em cảm ơn!
Cho e xin zalo de xin a ho tro viet 1 UNG dung don gian vao cad Ben viec tinh toan Khuon ep nhua
ad giải thích cho mình với.mình làm đến đoạn a+ để ra hộp thoại máy lại báo dcl chưa định nghĩa.
ông này học đại học bách khoa hà nội là cái chắc rồi, đây là mấy bài tập tự động hóa thiết kế đây :))
chuẩn luôn a ơi =))
chạy chương trình mà nó hiện lên "DCL CHUA DINH NGHIA" là sao a?
+vantien phan
Xem kỹ video của anh. Em sẽ hiểu.
ở cuối chương trình e thêm dòng này vào (command "a+" "") để e gọi tiếp lisp a+ của a mà sao ko đc a, a có thể chỉ thêm cho e ko ạ!!!!!
+Sương Võ Thị
Cái này hay. Anh chưa làm bao giờ luôn.
Trả lời câu hỏi của Em.
Khi Em chạy chương trình thì Em Phải "Load" trước.
Nói lại 1 chút các bước em đã làm (những cái này em đã làm rồi)
Ở đây Em chạy chương trình của Em.
Thì đương nhiên em phải "Load" chương trình của Em trong môi trường "Lisp" rồi.
Sau đó Em mới vào môi trường "Cad" để Gõ lệnh chạy chương trình.
Trong chương trình của Em: " e thêm dòng này (command "a+" "") vào để e gọi tiếp lisp a+ của a "
Nhưng không được.
Theo anh là do Em chưa Load lisp a+ của anh.
+Phần Mềm Cơ Khí e đã load lisp của a chạy thử và rất ok lun xong e mới thử viết 1 cái khác và thêm (command "a+" "") vào nhưng cad ko hiểu và bỏ qua. xong e lại lấy chính lisp của a thêm dòng lệnh đó vào và cung ko được lun. e đã tìm hiểu máy ngày nay rồi mà ko có cách nào làm đc a có thể giúp e đc ko hjzhjz
+Sương Võ Thị
Anh làm cũng không được.
Anh nghĩ chắc không làm được kiểu này.
Thắc măc thêm xíu.
Em đã thấy ai làm kiểu này chưa ?
Sao chạy 2 chương trình Em không gõ lệnh để chạy từng cái một mà lại muốn liên kết nó vào nhau ?
e cũng chưa thấy ai làm kiểu này hết, e chỉ nghĩ ra và thử làm để kết hợp nhiều lisp nhỏ thành 1 lisp lớn thử xem thế nào mà ko đc buồn wa' huhu.
dù sao cũng cảm ơn a hen!!!!!!
nếu như phần trục k gắn với đĩa xích thì m phải bỏ lệnh nào z a?
+vantien phan
Ở trong chương trình Chính em bỏ chương trình Con (đĩa xích) là được.
tks a
ad ơi có . ad có bản vẽ của trục vít bánh vít mà mình chỉ cần nhập số liệu như thế này k?? có thể cho e xin được k?
lại làm phiền a nữa rồi !!!! a có thể chỉ e cách xác định tọa độ điểm trong 3d cad đc ko ạ ?
e muốn vẽ hộp giảm tốc bằng 3d luôn mà ko biết cách xách định tọa độ a giúp e với
+Sương Võ Thị
Anh không hiểu ý em lắm.
Em muốn vẽ Hộp Giảm Tốc bằng 3D
1. Em vẽ bằng "lập trình Autolisp" : Cái này anh không rõ.
2. Em vẽ bằng lệnh trên AutoCAD (3D)
=> Em xem trên mạng có hướng dẫn rồi.
Khuyên: Nên dùng các phần mềm khác (Inventor, Solidworks, ...) thì sẽ dễ dàng hơn.
+Phần Mềm Cơ Khí À là thế này nề a
(setq pt1 (polar pstart g0 (* d3 0.5))
pt2 (polar pt1 g180 1)
(command "line" pt1 pt2 "")
trên cad 2d ta vẽ đc đường thẳng qua 2 điển pt1 và pt2
vậy trên cad 3d làm sao e có thể xđ đc pt1 pt2 và pt3 để vẽ đc 1 hình hộp chữ nhật vậy a,
vd
(setq pt1( ?)
pt2 ( ?)
pt3 ( ?)
(command "_box" pt1 pt2 pt3 "")
bài làm của a rất để hiểu nên e muốn hỏi a cho lành hjhj
Chào em Sương
Thực sự là anh vô cùng Cảm Xúc khi đọc tin nhắn phản hồi từ em.
Trước khi trao đổi về vấn đề giải quyết, anh muốn có 1 vài lời nhận xét.
1. Em là người rất dũng cảm.
(Vì con gái ít người DÁM chọn Cơ Khí để theo)
2. Tiếp nữa, Em là người rất thông minh, sáng tạo. Chắc chắn em sẽ có tương lai.
3. Anh chưa biết em học các vấn đề kỹ thuật của em thế nào, nhưng với sự đam mê, làm những thứ mà không ai yêu cầu, làm những cái rất ít người nghĩ đến, và óc phân tích - quan sát rất tốt của em. Chắc chắn sau này em làm việc gì cũng sẽ rất tốt.
Anh trả lời câu hỏi của emThực ra nhận xét của em rất hay, và đó cũng là cái mà anh CHƯA làm bao giờ và hiện tại anh cũng CHƯA làm được.
Cách làm chắc em cũng biết rồi. " Trong CAD vẽ thế nào thì lập trình như thế "
Giải pháp
Theo anh em nên đi hỏi các Thầy Cô chuyên về phần này.
Khi học được 1 cái gì mới
Nếu không dùng đến, Lâu dẫn sẽ Quên
Nếu ghi lại nó bằng video hay gì gì đó
Rồi chia sẻ cho mọi người
Thì mình sẽ có 2 niềm vui.
1: Niềm vui khi mình vừa làm 1 việc tốt.
2: Niềm vui khi Quả Báo tới.
+Phần Mềm Cơ Khí
cảm ơn a đã có những nhận xét tốt về e
e ở dưới quê nên ko có điều kiện học chuyên về lisp mà cũng ko có thầy cô nào để học hết a à,
nên e chỉ lên mạng tự tìm hiểu thêm thôi
+Phần Mềm Cơ Khí kết câu trả lời quá. em mà là con gái chắc em chịu ko nổi
a co lisp hop giam toc khai trien khong cho e di a
+dinh quocbao
Anh không có nhé
a có lisp hop giảm tốc khác không , chứ mấy cái hộp giam toc cua a e dow về xài k dc
anh có thể nói rỏ hơn cho em các bước lập hộp thoại ko ạ ,thanks a
Tuyệt vời, thank bạn
Bạn có nhận viết lisp thuê không b ?
Mình không nhé
các bác chỉ giáo cho em với
em muốn làm lisp vẽ 2 hình chữ nhât mà cho trước tọa đô. HCN 1 (0,0) ,(100,100)
HCN 2 (10,10), (90,90)
ANH ƠI CHO EM XIN BẢN LISP TRỤC VÍT BÁNH VÍT 1 CẤP ĐC KO Ạ, EM CẢM ƠN Ạ.
hay quá, cảm ơn bạn nhiều
anh ơi cho em hỏi anh lập trình bằng ngôn ngữ nào đấy!
Em xin cảm ơn.
Ngôn ngữ Autolisp em.
Chào bạn "Phần mềm cơ khí ". Mình có 1 lisp tính tổng chiều dài polyline, nhưng khi xuất ra kết quả thì chương trình xuất ra đơn vị là mm, mà mình muốn lấy kết quả là mét. ko biết phải sửa chỗ nào. mày mò mấy ngày rồi mà ko được. mong bạn giúp mình với. cảm ơn trước nhé. P/s: có ai biết chỉ giúp mình với. đoạn lisp đó như sau:
;; free lisp from cadviet.com
;;; this lisp was downloaded from www.cadviet.com/forum/topic/60478-nho-chinh-sua-do-chieu-dai-va-ghi-ra-text/
;; free lisp from cadviet.com
;;; this lisp was downloaded from www.cadviet.com/forum/index.php?showtopic=9681
(defun Length1(e) (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)))
;;;--------------------------------------------------------------------
(defun C:TL( / ss L e)
(setq
ss (ssget (list (cons 0 "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))
L 0.0
k (getvar "dimlfac")
)
(vl-load-com)
(while (setq e (ssname ss 0))
(setq L (* k (length1 e)))
(setq ans (getstring "
Ban hay chon phuong an nhap ket qua "))
(if (= ans "1")
(progn
(setq te (entget(car(entsel "
Chon Text de gan ket qua :")))
te (subst (cons 1 (rtos L 2 2)) (assoc 1 te) te))
(entmod te)
)
(progn
(setq p (getpoint "
Chon diem nhap ket qua" ))
(setq h (getreal "
Nhap chieu cao text ket qua "))
(command "text" p h "0" (rtos L 2 2))
)
)
(ssdel e ss)
)
(princ)
)
;;;--------------------------------------------------------------------
ad cho mình xin code bài này để nghiên cứu được không?
chuyển file đuôi dcl kiểu gì vậy anh
AD CÓ code bánh răng trụ răng nghiêng k ạ
AD cho mình xin code HGT Phân đôi cấp nhanh . tuần sau duyệt mà chưa vẽ xong.
Bác nào cho mình xin link file cài cài Visual Lisp cái :(
Visual Lisp có sẵn trong CAD rồi mà bác, sao phải tải nữa thế.
anh nói chi mệt vậy anh? viết mẫu 1 bài đi anh ơi
khó quá a
cho em xin code hình ở trên với ạ,em cảm ơn ạ ngothaison.hust@gmail.com
Ở trên phần mô tả, dưới video có bạn nhé
vâng, rất cảm ơn anh ạ
a gửi file autolisp trên cho e đc k ạ? gửi qua mail phanvantien236@gmail.com
+vantien phan
Tài liệu ở phía trên phần mô tả em nhé.