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

#3161 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 March 2011 - 11:01 AM

Chào bác Tue_NV,
Rất cám ơn bác đã nhắc nhở. Do cẩu thả mà mình quên mất cả những nguyên tắc sơ đẳng khi viết lisp. Mình đã sửa lại lisp trong bài post trên.
Rất mong bác thông cảm và hết lòng giúp đỡ.

Bác sử dụng Visual Lisp Editor (gõ Vlide vào command) -> Các từ có màu xanh lá là các từ khóa (mình tránh đặt tên trùng là được bác à). Ngoài ra Visual Lisp Editor còn có chức năng bắt lỗi nữa và nhiều chức năng khác. Em chưa biết hết nữa bác ạ :unsure:
Em nhớ là có 1 topic hình như là của bác VUVUZELA lập ra nói về cái này.
Chúc bác vui.
  • 0

#3162 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 09 March 2011 - 11:10 AM

Chào bác Tue_NV,
Rất cám ơn bác đã nhắc nhở. Do cẩu thả mà mình quên mất cả những nguyên tắc sơ đẳng khi viết lisp. Mình đã sửa lại lisp trong bài post trên.
Rất mong bác thông cảm và hết lòng giúp đỡ.

Em thì các hàm con hay đặt theo kiểu tiếng việt không dấu và dài thòn. Như thế sau này đọc lại còn có cơ may hiểu và dùng chung lisp của người khác ít bị trùng hàm con. Tất nhiên kiêuểu này đọc code có hơi nông dân nhưng em thích thế. :lol:
  • 0

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


#3163 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 09 March 2011 - 12:33 PM

Bác sử dụng Visual Lisp Editor (gõ Vlide vào command) -> Các từ có màu xanh lá là các từ khóa (mình tránh đặt tên trùng là được bác à). Ngoài ra Visual Lisp Editor còn có chức năng bắt lỗi nữa và nhiều chức năng khác. Em chưa biết hết nữa bác ạ :unsure:
Em nhớ là có 1 topic hình như là của bác VUVUZELA lập ra nói về cái này.
Chúc bác vui.

Hề hề hề,
Thực sự là mình toàn viết lisp trên notepad chứ chưa biết xài cái Vlide. Đã mấy lần vào đó dùng thử nhưng chả hiểu hết được mấy cái chức năng trên thanh công cụ nên dùng cứ thấy nó vướng víu lắm nên chán bác ạ. Bài của bác vuvuzela mình cũng có đọc rùi nhưng áp dụng vẫn thấy nó sao sao đó. Có nhẽ cái bệnh lười nó lại tái phát nên cứ theo thói quen mà dùng chớ chả dám vọc vạch gì thêm bác ạ. Khổ thế...
Để dùng được nó, chắc có nhẽ phải qua một lớp bài bản mới xong chớ cái kiểu mót của mình thì chắc cũng hơi lâu mới có hy vọng bác nhể....
Cám ơn bác vì đã chỉ bảo tận tình.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3164 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 09 March 2011 - 03:06 PM

E vẫn viết trên Notepad++, check trên vlide, thấy cũng tiện bác ạ. THậm chí k check trên vlide cũng được.Sai thì lại vò đầu tìm hiểu ^^
  • 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


#3165 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 13 March 2011 - 12:49 PM

Bạn Ketxu cũng giống mình. toàn viết trên notepad ++ vào vlide check. Cái notepad có vài cái thấy tiện hơn vlide
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#3166 phamngoctukts

phamngoctukts

    biết lệnh adcenter

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

Đã gửi 13 March 2011 - 02:22 PM

Bạn Ketxu cũng giống mình. toàn viết trên notepad ++ vào vlide check. Cái notepad có vài cái thấy tiện hơn vlide

Trước mình cũng dùng nodepat nhưng sau khi được bác Tue_VN đả thông kinh mạch giờ đã chuyển sang vlide. Dùng vlide có rất nhiều thuận lợi mà trước đây mình cũng không biết (hỗ trợ tìm kiếm các hàm, kiểm tra các dấu (), quản lý biến...). Nới chung là có dùng mới thấy nó hay ... he he
  • 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!

#3167 dtvhtc

dtvhtc

    biết zoom

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

Đã gửi 14 March 2011 - 12:05 AM

nhờ các anh trên diễn đàn xem giúp em file cad này: http://www.cadviet.c...anh_thhoa_1.rar mỗi lần mở lên hiện bảng thông báo "PRODUCE BY AN AUTODESK EDUCATIONAL PRODUCET"
Do you want to continue? nhấn yes, yes nữa mới mở được file. file này khi in ra có dòng chữ:
"PRODUCE BY AN AUTODESK EDUCATIONAL PRODUCET" ở 4 cạnh của tờ giấy nên không thể nào in giao sản phấm được. có anh nào biết file này bị lỗi gì không? chỉ dùm cách khắc phục mình cám ơn nhiều
  • 0

#3168 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 14 March 2011 - 07:38 AM

nhờ các anh trên diễn đàn xem giúp em file cad này: http://www.cadviet.c...anh_thhoa_1.rar mỗi lần mở lên hiện bảng thông báo "PRODUCE BY AN AUTODESK EDUCATIONAL PRODUCET"
Do you want to continue? nhấn yes, yes nữa mới mở được file. file này khi in ra có dòng chữ:
"PRODUCE BY AN AUTODESK EDUCATIONAL PRODUCET" ở 4 cạnh của tờ giấy nên không thể nào in giao sản phấm được. có anh nào biết file này bị lỗi gì không? chỉ dùm cách khắc phục mình cám ơn nhiều

Bạn tham khảo tại đây mong bạn lần sau trước khi post bài hãy search trên diễn đàn.
http://www.cadviet.c...3&mode=threaded
  • 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.

#3169 dtvhtc

dtvhtc

    biết zoom

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

Đã gửi 14 March 2011 - 09:25 AM

cám ơn bạn nhiều nhe mình làm được rồi
  • 0

#3170 hugo75

hugo75

    biết vẽ polygon

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

Đã gửi 16 March 2011 - 03:46 PM

Nhờ các bác viết giùm e đoạn lisp vẽ cao độ.E gửi file đính kèm.Chân thành cảm ơn trước.
http://www.cadviet.c...3/ve_cao_do.rar
  • 0

#3171 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 16 March 2011 - 04:01 PM

Trong bản vẽ không có yêu cầu, Att Block bạn cũng đã tạo ra rồi, vậy thì lisp phải làm cái j ^^
  • 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


#3172 hugo75

hugo75

    biết vẽ polygon

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

Đã gửi 16 March 2011 - 04:19 PM

ý mình khi gõ lệnh cd chẳng hạn nó sẽ tự động vẽ hình cao độ phía trái trong file sau đó sẽ tạo block att thành hình phía phải,nét bao là layer tên 1,hatch là layer tên 2,chữ là layer tên 3.Mong bạn giúp giùm.
  • 0

#3173 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 16 March 2011 - 04:27 PM

Nếu như bạn miêu tả thì cái số cos cao độ ấy nó tạo ra theo quy luật nào :o Hay là cứ ra bừa 1 số để bạn sửa sau ???
Còn những nét để có trong Block att đó là cố định rồi, thì bạn tạo thủ công 1 lần là được chứ nhỉ.
Đánh cd rồi, nó vẽ những nét bên trái, rồi tạo ra Block bên phải, rồi thì những nét bên trái có bỏ đi không ? Những nét ấy là trên bản vẽ có rồi hay là bạn muốn tạo 1 form như thế ??

Mình thì chưa dám nói là giúp được, nhưng tại chưa hiểu ý của bạn nên cứ chúi vào hỏi thôi ^^ Trên 4room có kha khá lisp đánh cos rồi, chắc chắn có cái hợp yêu cầu của bạ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


#3174 hugo75

hugo75

    biết vẽ polygon

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

Đã gửi 16 March 2011 - 04:48 PM

cos cao độ đó là text %%u+0.0000 thôi bạn ah.sau khi tự độ vẽ hình cao độ và text nằm trên sẽ tạo thành block att.Nét bên trái là chỉ đẫn khi bắt đầu vẽ sau khi vẽ xong nó sẽ là hình bên phải.Thanks.mình đưa yêu trong file đính kèm.
http://www.cadviet.c...ve_cao_do_1.rar
  • 0

#3175 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 16 March 2011 - 04:55 PM

Mình đọc rồi, nhưng mình thấy hơi lạ, bản chất việc này có khác gì bạn Insert hoặc copy đâu, vì cái block đó bạn đã làm được rồi mà ^^ Hay là bạn muốn k cần phải copy cái Block đó nữa, mà muốn cứ đánh là nó hiện ra ở đó thôi :o Những số chỉ 225 160 400 800 đó là cố định hay thay đổi trong quá trình sử dụng ??? Liệu có phải là biếng quá hok bạ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


#3176 hugo75

hugo75

    biết vẽ polygon

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

Đã gửi 16 March 2011 - 09:24 PM

Thực ra là mình đang tìm hiểu về vẽ hình bằng lisp,thấy vẽ cái này là đơn giản nhất nên nhờ các bạn viết giùm để mình học hỏi.Trong yêu cầu này thì theo mình hiểu là vẽ một đường thẳng dài 800,cách đường này 1 đoạn 225 theo phương đứng là 1 đoạn dài 400,tại 2 đầu của đoạn 400 sẽ vẽ 2 đường xuống trung điểm của đường 800 tạo thành 1 tam giác và được hatch,tạo 1 text cao 250 nằm trên đường 400 một đoạn 160,sau đó sẽ tạo hình này thành 1 block ATT,kết thúc.Mong các bác viết giùm để học hỏi.Thanks.
  • 0

#3177 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 16 March 2011 - 10:02 PM

Mình thấy nó đâu có đơn giản đâu nhỉ ^^ Về cách thức thì cực đơn giản, nhưng nếu bạn bắt đầu nghiên cứu nó thì có lẽ topic này không phù hợp rồi, bạn chuyển qua bên HD học lisp, hoặc Cùng nhau học Lisp... đi ^^. Trong tay bạn đã có những gì rồi? sao bạn không thử bắt tay vào làm từng mảng 1 xem sao ??
  • 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


#3178 hugo75

hugo75

    biết vẽ polygon

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

Đã gửi 16 March 2011 - 10:16 PM

Mình mới bắt đầu thôi,nếu bạn rảnh viết giùm mình lisp này để tham khảo được không?Cảm ơn sự nhiệt tình của bạn từ đầu đến giờ.
  • 0

#3179 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 16 March 2011 - 10:41 PM

Mình sẽ giúp bạn nếu bạn phân tích rõ hộ mình các bước sau đây, bước nào bạn có thể làm được, và bước nào chưa? Còn nếu chưa tất thì, như mình nói, bạn phải xây lên từ viên gạch đầu tiên đã ^^
1 - Tạo các layer 1,2,3,4... dùng cho hình vẽ
2 - Tính điểm a1 cách điểm a 1 khoảng cách và góc đã biết
3 - Kẻ 1 Line với chiều dài, góc cho trước từ 1 điểm user click
4 - Hatch 1 đối tượng, hatch 1 vùng, sử dụng các biến "hp*"
5 - Tạo ATT/ TEXT
6 - Gom các đối tượng và tạo Block
??
  • 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


#3180 hugo75

hugo75

    biết vẽ polygon

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

Đã gửi 16 March 2011 - 11:19 PM

Mình mới bắt đầu thôi,mình chỉ hiểu những gì đã viết ở trên,còn bắt đầu vô viết thì chưa.Đây là bài toán mình đưa ra nên có lời giải thì mình cảm thấy học được nhanh hơn,đây là ý nghĩ của mình.Cảm ơn bạn nhiều.
  • 0