Đế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

#3241 pfievxd

pfievxd

    biết vẽ spline

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

Đã gửi 01 April 2011 - 09:26 PM

Hehe, tự nhiên rỗi rãi ngồi ngó lại đống collected lisp, tự nhiên thấy có 1 đoạn lạ lạ thế này : (_al-bind-alist '(OLDOS SS D1 D2 D3 D4 P1 G)) và (setq D1 Then OR Else), ớ ờ, cái này liệu có phải là 1 đoạn của cửu âm chân lisp ko ý nhỉ :D, có tiền bối nào sẵn lòng giải thích cho e với!? ^^
  • 0

#3242 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 01 April 2011 - 10:04 PM

Bạn vui lòng post nguyên đoạn code lên :)
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3243 kudaknong

kudaknong

    Chưa sử dụng CAD

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

Đã gửi 01 April 2011 - 11:12 PM

giúp mình tạo 1 lisp dùng để lấy thư viện block 1 cách dễ dàng nhất,xin cám ơn!!!!!!!!!!!!
  • 0

#3244 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 01 April 2011 - 11:22 PM

giúp mình tạo 1 lisp dùng để lấy thư viện block 1 cách dễ dàng nhất,xin cám ơn!!!!!!!!!!!!

Bạn hãy sử dụng AdCenter và Tool Palettes, xin cám ơn!!!!!
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3245 pfievxd

pfievxd

    biết vẽ spline

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

Đã gửi 03 April 2011 - 06:08 PM

Bạn vui lòng post nguyên đoạn code lên :)

Hehe, em đang làm 1 cái lisp in ấn riêng, nhưng mà vướng ở chỗ in ấn với block khung tên, thế là decode cái mplot của bác Hoành tham khảo (hì, cả nhà đừng ném đá nha),thấy ở phần xác định kích thước block (?), với lại cũng nhìn thấy 1 câu hỏi của bác Phamngoctukts hỏi về cái lisp vatt của bác Tue_NV tương tự (tìm lại thì lại ko thấy)
  • 0

#3246 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 03 April 2011 - 08:47 PM

Hehe, em đang làm 1 cái lisp in ấn riêng, nhưng mà vướng ở chỗ in ấn với block khung tên, thế là decode cái mplot của bác Hoành tham khảo (hì, cả nhà đừng ném đá nha),thấy ở phần xác định kích thước block (?), với lại cũng nhìn thấy 1 câu hỏi của bác Phamngoctukts hỏi về cái lisp vatt của bác Tue_NV tương tự (tìm lại thì lại ko thấy)

Mấy cái loằng ngoằng đó là do thằng Decombile nó đẻ ra đấy.
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#3247 dtvhtc

dtvhtc

    biết zoom

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

Đã gửi 04 April 2011 - 12:36 PM

nhờ các bạn trên diễn đàn viết giúp em lisp này. em có file cad chứa các point và số hiệu của point em muốn xuất toạ độ x,y có z cũng được không có cũng được của point cùng với số hiệu của point sang exel hoặc file text. sau khi xuất ra có 4 cột bắt đầu từ số hiệu point tới y,x,z.Em đã seach trên diễn đàn rồi nhưng em không tìm được lisp như mong muốn.Mong được các bạn giúp đỡ.
http://www.cadviet.c...les/3/toado.rar
  • 0

#3248 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 04 April 2011 - 07:31 PM

nhờ các bạn trên diễn đàn viết giúp em lisp này. em có file cad chứa các point và số hiệu của point em muốn xuất toạ độ x,y có z cũng được không có cũng được của point cùng với số hiệu của point sang exel hoặc file text. sau khi xuất ra có 4 cột bắt đầu từ số hiệu point tới y,x,z.Em đã seach trên diễn đàn rồi nhưng em không tìm được lisp như mong muốn.Mong được các bạn giúp đỡ.
http://www.cadviet.c...les/3/toado.rar

Hề hề hề,
Bạn nói khó tin quá. Vậy bạn đã tìm được cái gí và nó không phù hợp ở chỗ nào????
Theo mình biết thì trên diễn đàn có hàng lô xich xông các lisp tương tự yêu cầu của bạn. Bạn chỉ cần download về và dùng thử. Chỗ nào chưa phù hợp thì post lên mọi người sẽ giúp.
Chứ còn nói phóng sinh kiểu này thì hơi khó đấy. Ai cũng sợ viết xong bạn lại bảo là chả đúng với yêu cầu bạn ạ....
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3249 dtvhtc

dtvhtc

    biết zoom

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

Đã gửi 05 April 2011 - 02:13 PM

Hề hề hề,
Bạn nói khó tin quá. Vậy bạn đã tìm được cái gí và nó không phù hợp ở chỗ nào????
Theo mình biết thì trên diễn đàn có hàng lô xich xông các lisp tương tự yêu cầu của bạn. Bạn chỉ cần download về và dùng thử. Chỗ nào chưa phù hợp thì post lên mọi người sẽ giúp.
Chứ còn nói phóng sinh kiểu này thì hơi khó đấy. Ai cũng sợ viết xong bạn lại bảo là chả đúng với yêu cầu bạn ạ....

Chào anh phamthanhbinh cám ơn anh đã quan tâm. em seach trên diễn đàn được lisp xuất tọa độ ra file text, nhưng chỉ xuất được tọa độ x,y,x của point thôi còn số hiệu của point thì không xuất được, nhờ anh và mọi người xem giúp em chỉnh sửa lisp thêm được cột số hiệu điểm em cám ơn nhiều. file lisp và file cad dùng để xuất tọa độ của em đây http://www.cadviet.c...s/3/toado_1.rar
  • 0

#3250 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 05 April 2011 - 02:46 PM

Chào anh phamthanhbinh cám ơn anh đã quan tâm. em seach trên diễn đàn được lisp xuất tọa độ ra file text, nhưng chỉ xuất được tọa độ x,y,x của point thôi còn số hiệu của point thì không xuất được, nhờ anh và mọi người xem giúp em chỉnh sửa lisp thêm được cột số hiệu điểm em cám ơn nhiều. file lisp và file cad dùng để xuất tọa độ của em đây http://www.cadviet.c...s/3/toado_1.rar

Hề hề hề,
Thứ nhất là bạn chả gửi cái file lisp nào cả nên chả biết sửa cái chi.
Thứ hai là cái file txt bạn gửi thì thấy cao độ z toàn bằng 0 cả.
Thứ ba là trong file cad, phải chăng các text số đều là các số hiệu của điểm mà bạn cần lấy để bổ sung vào cái file txt của bạn và bạn muốn bổ sung nó vào vị trí nào, cột đầu tiên hay cột cuối cùng hay là nhét đại nó vào đâu cũng được??????
Hề hề hề,....
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3251 dtvhtc

dtvhtc

    biết zoom

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

Đã gửi 05 April 2011 - 02:58 PM

Hề hề hề,
Thứ nhất là bạn chả gửi cái file lisp nào cả nên chả biết sửa cái chi.
Thứ hai là cái file txt bạn gửi thì thấy cao độ z toàn bằng 0 cả.
Thứ ba là trong file cad, phải chăng các text số đều là các số hiệu của điểm mà bạn cần lấy để bổ sung vào cái file txt của bạn và bạn muốn bổ sung nó vào vị trí nào, cột đầu tiên hay cột cuối cùng hay là nhét đại nó vào đâu cũng được??????
Hề hề hề,....

Xin lỗi em sơ ý, quên up file lisp lên.
cao độ z trong file cad tại vì em đã cho nó về =0 hết rồi nên xuất ra nó bằng 0.
Các text số đều là các số hiệu của điểm point mà em cần lấy để bổ sung vào cái file text, và em muốn bổ sung nó vào vị trí đầu tiên. file lisp của em đây http://www.cadviet.c.../ptexport_1.lsp
  • 0

#3252 lacvanhoa

lacvanhoa

    biết vẽ line

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

Đã gửi 05 April 2011 - 03:05 PM

Chào các pac trên diễn đàn. Mình có vấn đề này nhờ các pac giup mình với
Trong file các của mình có các text số bây giờ mình muốn cộng tất cả các text số đó lại, có pác nào biết lệnh làm được việc đó không hay lisp nào sử lý được không chỉ giúp mình với. file cad của mình đây: http://www.cadviet.c...3/tong_text.dwg
  • 0

#3253 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 05 April 2011 - 03:54 PM

Chào các pac trên diễn đàn. Mình có vấn đề này nhờ các pac giup mình với
Trong file các của mình có các text số bây giờ mình muốn cộng tất cả các text số đó lại, có pác nào biết lệnh làm được việc đó không hay lisp nào sử lý được không chỉ giúp mình với. file cad của mình đây: http://www.cadviet.c...3/tong_text.dwg

Trên CADViet có vô vàn! Bạn nên tìm trước khi hỏi thì tốt hơn. Đây là 1 trong số đó
http://www.cadviet.c...s/3/totaltx.lsp
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3254 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 April 2011 - 03:55 PM

Chào các pac trên diễn đàn. Mình có vấn đề này nhờ các pac giup mình với
Trong file các của mình có các text số bây giờ mình muốn cộng tất cả các text số đó lại, có pác nào biết lệnh làm được việc đó không hay lisp nào sử lý được không chỉ giúp mình với. file cad của mình đây: http://www.cadviet.c...3/tong_text.dwg

Có và đã có nhiều, bạn chịu khó dùng công cụ search của diễn đàn các lisp cộng text!!!
P/S : DVH đã trả lời r, srr a e
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3255 homanhcuong185

homanhcuong185

    Chưa sử dụng CAD

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

Đã gửi 05 April 2011 - 04:13 PM

Lisp tính diện tích theo tỷ lệ 1:1 thì đã có rất nhiều, Có nhiều hình ko đúng tỷ lệ rất mất công scale về đúng tỷ lệ,lai có nhiều rắc rối kèm theo khi scale . Vậy các bạn có lisp nào tính diện tích theo tỷ lệ bản vẽ không, giúp mình với.
Cảm ơn các bạn!
  • 0

#3256 lacvanhoa

lacvanhoa

    biết vẽ line

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

Đã gửi 05 April 2011 - 05:30 PM

Trên CADViet có vô vàn! Bạn nên tìm trước khi hỏi thì tốt hơn. Đây là 1 trong số đó
http://www.cadviet.c...s/3/totaltx.lsp

Cám ơn bạn rất nhiều nha
  • 0

#3257 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 106 (tàm tạm)

Đã gửi 05 April 2011 - 10:10 PM

Em xin­ nhờ các anh trong diễn đàn viết dùm lisp sau.
Tạo dimension giống như hình vẽ
Hình đã gửi
Yêu cầu:
1. Đối tượng cần đo là 1 đường curve bất kỳ
2. Chiều cao text, kích thước hay quy cách dấu mũi tên ...có thể chỉnh sửa dễ dàng
(Nếu được là đốitượng Dimension để chỉnh sửa trong Dim Style là tốt nhất)
3. Đường ghi kích thước là đường offset của đối tường cần đo
4. Hướng của text là hướng tiếp tuyến tại vị trí đặt text
5. Vị trí đặt text cho phép user pick điểm chọn, mặc định điểm chinh giữa tương ưng
6. Các thành phần (đường gióng vuông góc, đường ghi kích thước offset, các dấu mũi tên và text) là 1 đối tượng không phải các đối tượng riêng lẽ.
File đính kèm em gởi diễn đàn. My link
Nếu toàn bộ yêu cầu trên không thể đáp ứng thì có thể bỏ qua bớt miễn tiện lợi nhất cho người dùng.
Cảm ơn diễn đàn trước.
  • 0

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#3258 TokyoNhat

TokyoNhat

    biết vẽ spline

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

Đã gửi 06 April 2011 - 01:37 AM

Các bác xem giúp e 1 cái lisp với nội dung như sau với ạ : Em có mặt bằng kết cấu tầng 1 gồm 50 dầm đánh sô thứ tự D1>D50 . Do các tầng giống nhau lên dầm cũng tương tự , em muốn viết 1 cái lisp sau khi đã có 50 dầm tầng 1 ( Text ) nó copy và thêm 1 ký tự ( chữ cái ) để phân biệt với tầng 1 . Ví dụ tầng 2 sẽ là D1A>D50A . Như vậy công việc của e sẽ tiết kiệm thời gian rất nhiều , không phải hiệu chỉnh text từng cái một . Các bác xem viết được thì giúp e với . Cám ơn các bác trước .
  • 0
  • Quá khứ là lịch sử, tương lai là màu nhiệm, còn hiện tại là món quà của cuộc sống...
  • Cuộc sống vốn không công bằng - Hãy tập quen dần với điều đó

#3259 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 06 April 2011 - 08:18 AM

Lisp tính diện tích theo tỷ lệ 1:1 thì đã có rất nhiều, Có nhiều hình ko đúng tỷ lệ rất mất công scale về đúng tỷ lệ,lai có nhiều rắc rối kèm theo khi scale . Vậy các bạn có lisp nào tính diện tích theo tỷ lệ bản vẽ không, giúp mình với.
Cảm ơn các bạn!

Bạn hãy nói rõ hơn cách tính S, vì trên CADViet có rất nhiều kiểu:
1. Tính S bằng cách pick 1 điểm trong vùng giới hạn bởi 1 đường kín.
2. Tính S bằng cách pick lên chính đường giới hạn.
3. ...
Và BV chỉ có 1 tỉ lệ hay 2 tỉ lệ (tỉ lệ đứng và tỉ lệ ngang khác nhau).
Nếu bạn trình bày chi tiết, hy vọng có người giúp 100% luôn.
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3260 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 06 April 2011 - 08:31 AM

Em xin­ nhờ các anh trong diễn đàn viết dùm lisp sau.
Tạo dimension giống như hình vẽ
Hình đã gửi
Yêu cầu:
1. Đối tượng cần đo là 1 đường curve bất kỳ
2. Chiều cao text, kích thước hay quy cách dấu mũi tên ...có thể chỉnh sửa dễ dàng
(Nếu được là đốitượng Dimension để chỉnh sửa trong Dim Style là tốt nhất)
3. Đường ghi kích thước là đường offset của đối tường cần đo
4. Hướng của text là hướng tiếp tuyến tại vị trí đặt text
5. Vị trí đặt text cho phép user pick điểm chọn, mặc định điểm chinh giữa tương ưng
6. Các thành phần (đường gióng vuông góc, đường ghi kích thước offset, các dấu mũi tên và text) là 1 đối tượng không phải các đối tượng riêng lẽ.
File đính kèm em gởi diễn đàn. My link
Nếu toàn bộ yêu cầu trên không thể đáp ứng thì có thể bỏ qua bớt miễn tiện lợi nhất cho người dùng.
Cảm ơn diễn đàn trước.

Các thứ bạn tạo vẫn là các đối tượng riêng lẻ đó chứ, chỉ group lại thôi :)

Các bác xem giúp e 1 cái lisp với nội dung như sau với ạ : Em có mặt bằng kết cấu tầng 1 gồm 50 dầm đánh sô thứ tự D1>D50 . Do các tầng giống nhau lên dầm cũng tương tự , em muốn viết 1 cái lisp sau khi đã có 50 dầm tầng 1 ( Text ) nó copy và thêm 1 ký tự ( chữ cái ) để phân biệt với tầng 1 . Ví dụ tầng 2 sẽ là D1A>D50A . Như vậy công việc của e sẽ tiết kiệm thời gian rất nhiều , không phải hiệu chỉnh text từng cái một . Các bác xem viết được thì giúp e với . Cám ơn các bác trước .

Bạn hãy tìm lisp themtext bác Duy viết post trên diễn đàn rồi.Lần sau bạn hãy thử phân tích ý mình muốn để tìm lisp trên diễn đàn cho phù hợp :) Chúc bạn thành công
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC