Đến nội dung


Hình ảnh
- - - - -

Nhờ Các Cao Thủ Sửa Lisp Giúp


  • Please log in to reply
6 replies to this topic

#1 Trnghiado

Trnghiado

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 11 October 2016 - 08:21 AM

https://drive.google...VEk?usp=sharing

 

Chào cả nhà

Tình hình là em mới thử làm một cái lisp cho phép chèn các mã vít khác nhau, mỗi mã vít là một bản vẽ riêng để ở thư mục document của window, (file lisp va các file cad em để trong link trên).

Khi nhập lệnh msw thì ở trên màn hình sẽ hiện thông báo chọn loại cần chèn là MSWC16, MSWC20, MSWC24, MSWC30.

Em muốn di chuột tích vào chọn thì màn hình báo lỗi : Invalid option keyword.

 

Còn nếu em nhập lệnh 16, 20, 24 và 30 thì chèn đc bình thường.

Mong các cao thủ xem hộ cái lisp thiếu sót gì mà ko thể dùng chuột tích vào màn hình chọn loại đc.

Thanks các pro!  ^_^  ^_^  ^_^


  • 0

#2 Trnghiado

Trnghiado

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 11 October 2016 - 03:32 PM

Không bác nào giúp em cái ah  :(  :(  :(


  • 0

#3 Bee

Bee

    biết lệnh extend

  • Members
  • PipPipPip
  • 198 Bài viết
Điểm đánh giá: 68 (tàm tạm)

Đã gửi 11 October 2016 - 03:44 PM

Không bác nào giúp em cái ah  :(  :(  :(

Mình sài Acad 2017. Load và sử dụng bằng bàn phím và chuột như nhau không thấy lỗi ^_^ 


  • 0

#4 Trnghiado

Trnghiado

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 11 October 2016 - 03:59 PM

Mình sài Acad 2017. Load và sử dụng bằng bàn phím và chuột như nhau không thấy lỗi ^_^

Vậy ah bạn, mình dùng cad mechanical 2012 thì bị lỗi phần chuột ko biết sửa thế nào nữa luôn  <_<  <_<  <_<


  • 0

#5 Trnghiado

Trnghiado

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 12 October 2016 - 07:57 AM

Mình sài Acad 2017. Load và sử dụng bằng bàn phím và chuột như nhau không thấy 

Nếu với yêu cầu như trên mà dùng cho cad 2012 thì có cách viết nào khác thỏa mãn không hả bác. Hóng !!!

:blink:  :blink:  :blink: 


  • 0

#6 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 12 October 2016 - 08:29 AM

Bạn thử cái này xem:
(defun c:msw (/ ob)
(initget 1 "16 20 24 30 MSWC(16) MSWC(20) MSWC(24) MSWC(30)")
(setq ob (getkword "\nChon loai [MSWC(16)/MSWC(20)/MSWC(24)/MSWC(30)]: "))
(cond ((wcmatch ob "*16*") (screw_plug_16))
((wcmatch ob "*20*") (screw_plug_20))
((wcmatch ob "*24*") (screw_plug_24))
((wcmatch ob "*30*") (screw_plug_30)))
(princ))

  • 1

#7 Trnghiado

Trnghiado

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 12 October 2016 - 08:40 AM

Bạn thử cái này xem:

(defun c:msw (/ ob)
(initget 1 "16 20 24 30 MSWC(16) MSWC(20) MSWC(24) MSWC(30)")
(setq ob (getkword "\nChon loai [MSWC(16)/MSWC(20)/MSWC(24)/MSWC(30)]: "))
(cond ((wcmatch ob "*16*") (screw_plug_16))
((wcmatch ob "*20*") (screw_plug_20))
((wcmatch ob "*24*") (screw_plug_24))
((wcmatch ob "*30*") (screw_plug_30)))
(princ))

Mình đã thử và thành công. Rất hợp ý mình, thanks bạn rất nhiều :)


  • -1