Đến nội dung


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

Viết Lisp theo yêu cầu


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

#721 thiennvpecc1

thiennvpecc1

    biết vẽ line

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

Đã gửi 20 May 2008 - 12:35 PM

Bác HOANH giúp em cái LISP vẽ mặt cắt ngang twf bình đồ được không?
Thông số đầu vào:
- Có một bình đồ đã gán cao độ Z (đuờng đồng mức là đường pline)
- Một mặt cắt (đường line or pline)
Kết quả:
Vẽ mặt cắt ngang ra màn hình
Bác giúp em nha
  • 0

#722 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

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

Đã gửi 20 May 2008 - 01:15 PM

Bác HOANH giúp em cái LISP vẽ mặt cắt ngang twf bình đồ được không?
Thông số đầu vào:
- Có một bình đồ đã gán cao độ Z (đuờng đồng mức là đường pline)
- Một mặt cắt (đường line or pline)
Kết quả:
Vẽ mặt cắt ngang ra màn hình
Bác giúp em nha

Đã có rồi, bạn xem ở đây: http://www.cadviet.c...nh-do-t812.html
  • 0

#723 thaivanminhkts

thaivanminhkts

    biết zoom

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

Đã gửi 20 May 2008 - 01:42 PM

hay quá cảm ơn nhiều nhe ! :cheers:
  • 0

#724 h2c

h2c

    biết vẽ ellipse

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

Đã gửi 20 May 2008 - 02:31 PM

Anh Hoành có thể giúp em cái lisp để vẽ giao tuyến của 2 hình trụ bất kỳ được không . Nhiều lúc em phải ngồi gióng gióng mệt quá . Hay anh nêu hướng giải quyết trước để em cố thử coding , cám ơn anh nhiều .
  • 0

#725 Nộ Thiên

Nộ Thiên

    biết lệnh ddedit

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

Đã gửi 20 May 2008 - 02:52 PM

Anh Hoành có thể giúp em cái lisp để vẽ giao tuyến của 2 hình trụ bất kỳ được không . Nhiều lúc em phải ngồi gióng gióng mệt quá . Hay anh nêu hướng giải quyết trước để em cố thử coding , cám ơn anh nhiều .

Cái hình như dùng trong cơ khí. Công dụng là in ra giấy (hình như nó có dang đường sin) rồi cuốn quanh ống để lấy dấu, rồi cắt ống (tại mấy vị trí giao ống.)
  • 0

#726 thiennvpecc1

thiennvpecc1

    biết vẽ line

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

Đã gửi 20 May 2008 - 04:21 PM

Bác Hoành ah, cái lisp đó là vẽ mặt cắt với các đường đồng mức không có cao trình (z=0) và các đường đồng mức tăng dần or giảm dần và phải khai báo độ chênh giữa 2 đường đồng mức (deltaH)
Bai toán của em là:
+ Đường đồng mức có cao độ z (mình đỡ phải khai báo deltaH)
+ Chọn 1 line (pline) làm mặt cắt tính toán (giống bài toán của bác)
+ Xuất ra phôi mặt cắt ngang (giống bài toán của bác)
  • 0

#727 lispteur

lispteur

    biết zoom

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

Đã gửi 21 May 2008 - 12:28 PM

:)
  • 0

#728 vndesperados

vndesperados

    biết lệnh xref

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

Đã gửi 21 May 2008 - 01:33 PM

Cho mình xin lisp scale nhiều đối tượng cùng một lúc mà ko thay đổi vị trí của các đối tượng .


Nếu đối tượng là block, circle, elipse thì được chứ còn các kiểu cơ bản thì khó.
  • 0

#729 thiennvpecc1

thiennvpecc1

    biết vẽ line

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

Đã gửi 22 May 2008 - 03:57 PM

Bác Hoành ah, cái lisp đó là vẽ mặt cắt với các đường đồng mức không có cao trình (z=0) và các đường đồng mức tăng dần or giảm dần và phải khai báo độ chênh giữa 2 đường đồng mức (deltaH)
Bai toán của em là:
+ Đường đồng mức có cao độ z (mình đỡ phải khai báo deltaH)
+ Chọn 1 line (pline) làm mặt cắt tính toán (giống bài toán của bác)
+ Xuất ra phôi mặt cắt ngang (giống bài toán của bác)
Bác Hoành hay bác ssg giúp em với.
  • 0

#730 ditimbantot

ditimbantot

    biết zoom

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

Đã gửi 22 May 2008 - 05:56 PM

bạn ơi có thể giúp mình sửa file lisp này được không vậy
<a href="http://www.cadviet.com/upfiles/laytoado.lsp.txt" target="_blank">http://www.cadviet.com/upfiles/laytoado.lsp.txt</a>
Mình lấy tọa độ từ thửa đất vì chạy ra số chẵn (tọa độ chẵn) xxx,xx nên diện tích thửa đất khi nhập tọa độ lại lệnh chút ít diện tích , ví dụ tọa độ khi vẽ là 300 M vuông có tọa độ pline là xxx.xxxx khi xuất ra bảng tọa độ thửa đất vừa nhập chỉ lấy xxx.xx mà thôi nên tọa độ lệch chút ít thí dụ còn 289m vuông bạn có cách nào khắc phục mà tọa độ vẫn là xxx.xx không giúp mình sửa cái nha thanks nhiều, lệnh là nth (chỉ phần này thôi)


Bác Hoanh oi giúp mình cái đi thật sự đang cần đó bác mình không biết cách nào để sửa .Chú ý chỉ chạy được với layer 10
  • 0

#731 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

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

Đã gửi 22 May 2008 - 08:52 PM

Bác Hoanh oi giúp mình cái đi thật sự đang cần đó bác mình không biết cách nào để sửa .Chú ý chỉ chạy được với layer 10

bạn muốn sửa thế nào?
  • 0

#732 arch_anhtuan

arch_anhtuan

    biết vẽ line

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

Đã gửi 23 May 2008 - 12:45 PM

Anh Hoành cho em xin Lisp để vẽ nhà trong Quy hoạch.
Tức là từ những polyline mặt bằng các nhà, chúng sẽ được nâng cao độ extrude ngẫu nhiên. Để tạo nhà xung quanh í mà
Trước trên 4rum có, nhưng die, ko thể tìm được nữa
Mong anh giúp đỡ
  • 0
Archi-L.A.T
AMD X2 3800+ With HP6; Corsair Twinx1gb ; 6600GT; Razer Krait; 1707FP; CM 450RP; Lanparty NF4 UT SLI ; DVDRW SS; Cavalier T01.

#733 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

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

Đã gửi 23 May 2008 - 01:07 PM

Anh Hoành cho em xin Lisp để vẽ nhà trong Quy hoạch.
Tức là từ những polyline mặt bằng các nhà, chúng sẽ được nâng cao độ extrude ngẫu nhiên. Để tạo nhà xung quanh í mà
Trước trên 4rum có, nhưng die, ko thể tìm được nữa
Mong anh giúp đỡ

Nếu dùng 3DSMax, bạn hãy dùng cái Greeble, dựng nhà xung quanh vừa nhanh, vừa đẹp, vừa kỹ.

Download ở đây: http://www.cadviet.c..._3DS_Max-1.html
  • 0

#734 vinataba

vinataba

    biết vẽ circle

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

Đã gửi 23 May 2008 - 02:38 PM

Trên diễn đàn đã có đoạn list nối các điểm chèn text bằng các đoạn thẳng. Trên cơ sở ý tưởng đó các Bác cải tiến lại giúp em lệnh Copy 1 đối tượng có sãn vào các điểm chèn text.
Trên màn hình có các đối tượng là text có ghi các mã điểm (mã điểm có thể định dạng theo: 001, 002, 003 hoặc 1), 2), 3) .v. .v.)
Tiện ích sẽ thực hiện: khi chọn các text ghi các mã điểm này, lọc các text trong cùng một layer, hỏi mã điểm sau đó chọn 1 đối tượng và copy đối tượng này vào các điểm chèn của text thứ tự của người sử dụng nhập vào
ví dụ: người sử dụng type tại dòng command : nối điểm 001,002,003 . chọn đối tượng cần copy, chọn base point, sau đó nó sẽ copy đối tượng được chọn vào các điểm 001,002,003.
Cái này em dùng để làm hoàn công vị trí cọc đóng, cọc khoan...từ file số liệu đo của các bác trắc địa. Mỗi lần phải ngồi copy vài trăm cọc, mà các cọc lại có tiết diện khác nhau nên phải tìm vị trí của nó trên bản vẽ cũng rất mất công.
Thanks các bác nhiều.

Các bác giúp em với.
  • 0

#735 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

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

Đã gửi 23 May 2008 - 03:00 PM

Các bác giúp em với.

bạn hãy upload 1 file dwg mẫu.

Thể hiện 2 trạng thái, một là các đối tượng trước khi thực thi lisp, một là sau khi thực thi lisp.
  • 0

#736 vinataba

vinataba

    biết vẽ circle

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

Đã gửi 23 May 2008 - 03:16 PM

bạn hãy upload 1 file dwg mẫu.

Thể hiện 2 trạng thái, một là các đối tượng trước khi thực thi lisp, một là sau khi thực thi lisp.

file mẫu của em đây. các bác giúp em
http://www.cadviet.com/upfiles/vd1.dwg
  • 0

#737 vinataba

vinataba

    biết vẽ circle

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

Đã gửi 24 May 2008 - 11:38 PM

file mẫu của em đây. các bác giúp em
http://www.cadviet.com/upfiles/vd1.dwg

các bác ơi cái này trên diễn đàn cũng có rồi, em vừa lọ mọ tìm thấy. Nhưng mà nó có nhược điểm là không cho phép copy trong giới hạn một số điểm point, mà nó copy vào tất cả các point co trên màn hình. Bác Hoành giúp em sửa lại với.
link của nó đây, bác đỡ phải đi tìm: http://www.cadviet.c...es/nodesert.lsp
cảm ơn các bác đã quan tâm
  • 0

#738 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

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

Đã gửi 25 May 2008 - 07:57 AM

file mẫu của em đây. các bác giúp em
http://www.cadviet.com/upfiles/vd1.dwg

Chẳng hiểu bạn cần lisp gì.
file dwg này không nói lên điều gì giống với:
Trên diễn đàn đã có đoạn list nối các điểm chèn text bằng các đoạn thẳng. Trên cơ sở ý tưởng đó các Bác cải tiến lại giúp em lệnh Copy 1 đối tượng có sãn vào các điểm chèn text.
Trên màn hình có các đối tượng là text có ghi các mã điểm (mã điểm có thể định dạng theo: 001, 002, 003 hoặc 1), 2), 3) .v. .v.)
Tiện ích sẽ thực hiện: khi chọn các text ghi các mã điểm này, lọc các text trong cùng một layer, hỏi mã điểm sau đó chọn 1 đối tượng và copy đối tượng này vào các điểm chèn của text thứ tự của người sử dụng nhập vào
ví dụ: người sử dụng type tại dòng command : nối điểm 001,002,003 . chọn đối tượng cần copy, chọn base point, sau đó nó sẽ copy đối tượng được chọn vào các điểm 001,002,003.
Cái này em dùng để làm hoàn công vị trí cọc đóng, cọc khoan...từ file số liệu đo của các bác trắc địa. Mỗi lần phải ngồi copy vài trăm cọc, mà các cọc lại có tiết diện khác nhau nên phải tìm vị trí của nó trên bản vẽ cũng rất mất công.
Thanks các bác nhiều.

bạn cần giải thích rõ hơn về layer và hỏi mã điểm.


Nếu bạn chỉ cần 1 lisp highlight các text có giá trị mà bạn cần tìm thì bạn dùng lệnh ht của lisp sau đây:
(defun c:ht( / ft ss)
(setq ft (getstring t "\nHay nhap cac cum tu can tim cach nhau 1 dau phay (vd: 12,34,56)")
ss (ssget (list (cons 0 "TEXT,MTEXT")(cons 1 ft)))
)
(sssetfirst ss ss)
(princ)
)

  • 0

#739 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 27 May 2008 - 10:22 AM

anh Hoành kính mến!
EM muốn có 1 cái lisp như sau:
đo kích thước của 1 đoạn thẳng bất kì, của 1 đoạn thẳng chẳng hạn, hiện đường kích thwớc đó ra xong, nhưng mà nó chỉ tồn tại trong 1giây rồi tự xoá.
Xin anh giúp em, em làm mãi mà không đwợc!
  • 0
Hãy ước cho trọn 1 ước mơ!

#740 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

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

Đã gửi 27 May 2008 - 11:16 AM

anh Hoành kính mến!
EM muốn có 1 cái lisp như sau:
đo kích thước của 1 đoạn thẳng bất kì, của 1 đoạn thẳng chẳng hạn, hiện đường kích thwớc đó ra xong, nhưng mà nó chỉ tồn tại trong 1giây rồi tự xoá.
Xin anh giúp em, em làm mãi mà không đwợc!

Bạn đã bao giờ nhìn thấy một kiểu hiện thị tương tự như vậy trọng ACAD chưa?
  • 0