Đến nội dung


Hình ảnh
- - - - -

[yeuCau] lisp di chuyển chuột đến chọn (pick) nét vẽ thì nét vẽ nhấp nháy


  • Please log in to reply
57 replies to this topic

#41 nvh

nvh

    biết vẽ line

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

Đã gửi 09 June 2014 - 08:04 PM

Nhờ bác Doan Van Ha xem lại giúp với ạ. Em bị lỗi khi chọn đối tượng


Command: ap
APPLOAD Post.VLX successfully loaded.
Command:
Lệnh sử dụng: HA
Các chú ý:
Đối tượng chọn sẽ được tô đậm + highligth, đối tượng khác sẽ mờ.
Khi di mouse thì đối tượng được chọn sẽ nhấp nháy.
Để hủy đối tượng được chọn: pick chọn vào nó lần 2.
Để chọn lại đối tượng đã hủy: pick chọn vào nó lần 3...
Để thay đổi mức độ làm mờ: set system variable XFADECTL.
Command:
Command: ha
Select objects:
*Invalid selection*
Expects a single object.
*Invalid selection*
Expects a single object.
; error: An error has occurred inside the *error* functionFunction cancelled
Select reference: Object is not a valid reference

https://www.dropbox....3eom9yxp3/1.JPG
  • 0

#42 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 09 June 2014 - 10:26 PM

Bạn có thể gởi bản vẽ ấy lên để check được không?


  • 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.


#43 nvh

nvh

    biết vẽ line

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

Đã gửi 10 June 2014 - 03:37 PM

Bạn có thể gởi bản vẽ ấy lên để check được không?

Khi vừa mở bản vẽ bất kỳ lên thì em có thể chọn bình thường được, nhưng chỉ thực hiện được 1 lần đầu còn những lần sau sẽ báo lỗi khi chọn bác ạ. (Kể cả đối với bản vẽ mới)


Command: ap
APPLOAD Post.VLX successfully loaded.
Command:
Lệnh sử dụng: HA
Các chú ý:
Đối tượng chọn sẽ được tô đậm + highligth, đối tượng khác sẽ mờ.
Khi di mouse thì đối tượng được chọn sẽ nhấp nháy.
Để hủy đối tượng được chọn: pick chọn vào nó lần 2.
Để chọn lại đối tượng đã hủy: pick chọn vào nó lần 3...
Để thay đổi mức độ làm mờ: set system variable XFADECTL.
Command:
Command: ha
Select objects: ** 1 selected object is already in the working set **
1 Added to working set
1 Added to working set
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
1 Added to working set
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
1 Added to working set
1 Added to working set
1 Added to working set
1 Added to working set
1 Added to working set
1 Added to working set
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
1 Added to working set
1 Added to working set
1 Added to working set
** Error: bad argument type: 2D/3D point: 0 **
Command:
HA
Select objects:
*Invalid selection*
Expects a single object.
*Invalid selection*
Expects a single object.
; error: An error has occurred inside the *error* functionFunction cancelled
Select reference: Object is not a valid reference
Select reference: Object is not a valid reference
Select reference: *Cancel*
Command:
Command:
HA
Select objects:
*Invalid selection*
Expects a single object.
*Invalid selection*
Expects a single object.
; error: An error has occurred inside the *error* functionFunction cancelled
Select reference:
Reference not found.
Select reference: Object is not a valid reference
Select reference:
Reference not found.
Select reference: Object is not a valid reference
Select reference:
Reference not found.
Select reference: Object is not a valid reference
Select reference:
Reference not found.
Select reference: *Cancel*
  • 0

#44 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 10 June 2014 - 03:48 PM

Tôi test hoài không tìm ra lỗi. Hy vọng bản vẽ của bạn không quá bí mật để bạn có thể up lên để tôi test?


  • 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.


#45 phamhuy1

phamhuy1

    biết vẽ rectang

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

Đã gửi 28 January 2016 - 07:18 PM

Tuy còn vài điều chưa hoàn chỉnh nhưng lisp này cũng đáp ứng một số yêu cầu sau:

- Làm đậm các đối tượng được chọn và highligth chúng.

- Làm mờ các đối tượng không được chọn.

- Làm nhấp nháy các đối tượng được chọn khi di chuột.

- Có thể thơm/bớt(hủy) các đối tượng được chọn.

http://www.cadviet.c.../67029_post.zip

67029_post.gif

Lisp hay quá ... Nhưngcho em hỏi sao khi chạy thì nét Lineweight nó lại không trả về ban đầu. (getvar "Lwdisplay") vẫn là On trong khi lúc  đầu (getvar "Lwdisplay") là off  :mellow: . Nếu có thể cho em xin Code để học hỏi  :( 


  • 0

#46 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 28 January 2016 - 09:52 PM

Bạn enter để kết thúc, chứ đừng kết thúc lệnh bằng Esc, vì trong lisp tôi quên bẫy lỗi khi thoát lệnh bằng Esc.


  • 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.


#47 phamhuy1

phamhuy1

    biết vẽ rectang

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

Đã gửi 28 January 2016 - 10:49 PM

Em chạy chọn đối tượng xong Enter thì bị lỗi thế này :
Command: ha

Select objects: ** 1 selected object is already in the working set **
1 Added to working set
** 1 selected object is already in the working set **
** 1 selected object is already in the working set **
1 Added to working set

** Error: bad argument type: 2D/3D point: 32 **
  • 0

#48 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 29 January 2016 - 08:35 AM

Chắc là bạn click chuột trái mà chưa chọn được đối tượng rồi enter, chứ nếu click chuột trúng đối tượng rồi enter thì không lỗi.


  • 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.


#49 phamhuy1

phamhuy1

    biết vẽ rectang

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

Đã gửi 29 January 2016 - 09:11 AM

Chắc là bạn click chuột trái mà chưa chọn được đối tượng rồi enter, chứ nếu click chuột trúng đối tượng rồi enter thì không lỗi.

Chọn rồi anh ơi! Em thử từ Cad 2008 đến 2010 bị lổi y chang...

** Error: bad argument type: 2D/3D point: 32 **               và như thế thì nét Lineweight nó lại không trả về ban đầu :(


  • 0

#50 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 29 January 2016 - 09:19 AM

Trả Lineweight về ban đầu nếu lỗi.

http://www.cadviet.c..._objects_ha.zip


  • 1

* 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.


#51 phamhuy1

phamhuy1

    biết vẽ rectang

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

Đã gửi 29 January 2016 - 09:41 AM

Thanks a. Enter thì được rồi giờ Spacebar tương tương Enter thì bị lỗi Lineweight  không trả về ban đầu ...


  • 0

#52 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 29 January 2016 - 10:13 AM

 Hy vọng lần này OK cả Enter, Spacebar lẫn Esc.

http://www.cadviet.c...bjects_ha_1.zip


  • 2

* 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.


#53 phamhuy1

phamhuy1

    biết vẽ rectang

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

Đã gửi 29 January 2016 - 10:21 AM

Giờ thì tuyệt :)


  • 0

#54 duyanh

duyanh

    biết pan

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

Đã gửi 05 July 2016 - 09:32 AM

Chào các anh/bạn!

Các anh/bạn có thể gửi cho em xin lại list trên được ko ạ

Thanks cả nhà nhiều!


  • 0

#55 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 05 July 2016 - 10:15 AM

Down về, giải nén, bài #52. Vừa mới down tức thì, không lỗi.


  • 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.


#56 duyanh

duyanh

    biết pan

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

Đã gửi 06 July 2016 - 10:01 AM

Cảm ơn anh Đoàn Văn Hà, em đã tải đc list và chạy thử list. Em có một số khúc mắc sau mong anh giải đáp:

- thứ nhất: khi chọn đối tượng ô vuông để chọn quá lớn nên đôi khi thay vì em chọn 1 đối tượng lại thành một vùng

- thứ hai:  em chỉ thực hiện được một lần, lần hai là báo lỗi ạ. Minh họa lỗi:

Select reference: Object is not a valid reference
Select reference: Object is not a valid reference

Rất mong anh giải đáp giúp em.


  • 0

#57 duyanh

duyanh

    biết pan

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

Đã gửi 06 July 2016 - 10:07 AM

Em có vào diễn đàn nước ngoài và có tải được 1 list rất hay về tạo nhấp nháy cho layer. 

Em mong muốn anh cũng làm được nhấp nháy như trên nhưng là bằng cách select cho 1 đối tượng chứ  ko phải layer.

Cảm ơn anh !

http://www.cadviet.c...80339_flash.rar


  • 0

#58 ginger

ginger

    biết lệnh move

  • Advance Member
  • PipPipPip
  • 121 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 06 July 2016 - 09:44 PM

Ket cũng hiểu chưa hết ý như Hoằn. Giả sử có 1 bản cad cần trình chiếu cho chủ đầu tư. Trên bản vẽ có rất nhiều đối tượng, người ta có thể ngẩu hứng y/c làm nổi bật 1 hoặc 1 số đối tượng rời rạc nào đó thì lisp này làm ngon. Còn group hay block thì mất thời gian, chỉ phù hợp với các đối tượng được chỉ định trước mà thôi.

anh Hà ơi sao em không dùng được lisp này của anh nhỉ ? anh xem hộ em với


  • 0