Hỏi về transparency của lệnh XLine

[thewind0910 11]

Các ace cho mình hỏi làm sao setting được transparecy của lệnh XLine để mỗi khi gõ lệnh thì đường XLine sẽ mờ hơn các đối tượng khác trong cad nhỉ.
Em đã tra google mà k tìm thấy chỉ thấy chỉnh đc độ mờ của XREF. Cảm ơn mn nhiều ạ

[thewind0910 11]

ý e là nếu vẽ gõ XLine thì đường XLine mới vẽ ra sẽ tự mờ đi, chứ nếu chỉnh tay ở propeties thì hơi lâu ạ

[vietduc147258 55]

Lại gặp bạn ham học hỏi.

Tải lisp này về để quản lý layer theo nét vẽ. 

http://www.lee-mac.com/layerdirector.html

Cách dùng thì có thể giúp bạn nhưng muốn bạn tự tìm hiểu. Tập tự mày mò rồi google trước khi vào diễn đàn. Như vậy mới ít phụ thuộc vào người khác.

Trong diễn đàn mình cũng có bài viết liên quan đến lisp này. Tự tìm hiểu nha

[thewind0910 11]

11 giờ trước, vietduc147258 đã nói:

Lại gặp bạn ham học hỏi.

Tải lisp này về để quản lý layer theo nét vẽ. 

http://www.lee-mac.com/layerdirector.html

Cách dùng thì có thể giúp bạn nhưng muốn bạn tự tìm hiểu. Tập tự mày mò rồi google trước khi vào diễn đàn. Như vậy mới ít phụ thuộc vào người khác.

Trong diễn đàn mình cũng có bài viết liên quan đến lisp này. Tự tìm hiểu nha

Cảm ơn bạn nhiều nha. Mình ngu vs gà chứ ham học hỏi gì đâu.

Mình cũng check google rồi nhờ cả GPTcode mãi k thấy ổn nên mới hỏi ấy.

Lần sau mình sẽ chú ý hơn.

[thewind0910 11]

11 giờ trước, vietduc147258 đã nói:

Lại gặp bạn ham học hỏi.

Tải lisp này về để quản lý layer theo nét vẽ. 

http://www.lee-mac.com/layerdirector.html

Cách dùng thì có thể giúp bạn nhưng muốn bạn tự tìm hiểu. Tập tự mày mò rồi google trước khi vào diễn đàn. Như vậy mới ít phụ thuộc vào người khác.

Trong diễn đàn mình cũng có bài viết liên quan đến lisp này. Tự tìm hiểu nha

Với ý mình là nó sẽ mờ đi chứ xóa thì mình cũng có tra GPT nó code cho mình lisp auto xóa Xline rồi. Tại lúc vẽ nhiều lúc để màu trùng vs nét hình nên có lúc bị nhầm ấy bạn.

[vietduc147258 55]

7 giờ trước, thewind0910 đã nói:

Với ý mình là nó sẽ mờ đi chứ xóa thì mình cũng có tra GPT nó code cho mình lisp auto xóa Xline rồi. Tại lúc vẽ nhiều lúc để màu trùng vs nét hình nên có lúc bị nhầm ấy bạn.

GPT mà cũng viết lisp được à. Tạo layer theo đối tượng xline. Chỉnh màu sắc độ mờ trong layer luôn

[thewind0910 11]

4 giờ trước, vietduc147258 đã nói:

GPT mà cũng viết lisp được à. Tạo layer theo đối tượng xline. Chỉnh màu sắc độ mờ trong layer luôn

GPT code đc lisp mà bác. Nma k phải lisp nào cũng hoạt động theo đúng ý hoặc ko hoạt động đc.

Tại mình cũng k hiểu chứ nếu ae hiểu lấy ý tưởng nó code rồi sửa cho hoàn chỉnh là ok mà

[Doan Van Ha 3.191]

9 phút trước, thewind0910 đã nói:

GPT code đc lisp mà bác. Nma k phải lisp nào cũng hoạt động theo đúng ý hoặc ko hoạt động đc.

Tại mình cũng k hiểu chứ nếu ae hiểu lấy ý tưởng nó code rồi sửa cho hoàn chỉnh là ok mà

1. GPT nó code được mấy bài toán đơn giản thôi, ví dụ vẽ đường thẳng nếu biết 2 điểm chẳng hạn.

Còn nếu GPT mà code được những yêu cầu phức tạp thì con người ở giá hết trơn.

2. Bạn @vietduc147258 đã gởi bạn cái lisp ấy dùng được trong việc tạo layer có độ MỜ, nhưng bạn không chịu (hoặc không biết?) nghiên cứu thôi.

[thewind0910 11]

4 giờ trước, Doan Van Ha đã nói:

1. GPT nó code được mấy bài toán đơn giản thôi, ví dụ vẽ đường thẳng nếu biết 2 điểm chẳng hạn.

Còn nếu GPT mà code được những yêu cầu phức tạp thì con người ở giá hết trơn.

2. Bạn @vietduc147258 đã gởi bạn cái lisp ấy dùng được trong việc tạo layer có độ MỜ, nhưng bạn không chịu (hoặc không biết?) nghiên cứu thôi.

Vâng anh GPT nó code đơn giản đc thôi. Còn lisp vietduc gửi em mới chỉ xem ảnh gif demo tại chưa có máy tính test.

Để tối em test vs nghiên cứu sau ạ

[vietduc147258 55]

21 giờ trước, Doan Van Ha đã nói:

1. GPT nó code được mấy bài toán đơn giản thôi, ví dụ vẽ đường thẳng nếu biết 2 điểm chẳng hạn.

Còn nếu GPT mà code được những yêu cầu phức tạp thì con người ở giá hết trơn.

2. Bạn @vietduc147258 đã gởi bạn cái lisp ấy dùng được trong việc tạo layer có độ MỜ, nhưng bạn không chịu (hoặc không biết?) nghiên cứu thôi.

GPT gải quyết được bài toán đó là do autocad có ví dụ về nó rồi. Vấn đề thuộc về chuyên ngành nó lại khác.

Nếu như hỏi về Excel thì GPT sẽ làm tốt hơn nhiều.

Còn một nguyên nhân nữa là do người đặt câu hỏi nữa. Nhìn lại câu trả lời của Chat GPT về câu hỏi on, off Group của @thewind0910 là biết câu hỏi thế nào rồi. GPT nó là máy nên cách hỏi không giống như hỏi con người được. 

[vietduc147258 55]

17 giờ trước, thewind0910 đã nói:

Vâng anh GPT nó code đơn giản đc thôi. Còn lisp vietduc gửi em mới chỉ xem ảnh gif demo tại chưa có máy tính test.

Để tối em test vs nghiên cứu sau ạ

Để nghiên cứu giúp cho lần này. Code lấy của Lee-mac. nhưng Do mù về VLA nên dùng comamd thay thế vậy.

Mức độ Transparency trong code đang để là 50. Nếu muốn sửa thì tìm con số 50 sửa lại nha.

(command "layer" "n" "CONSTRUCTION" "c" 1         "CONSTRUCTION" "tr" 50 "CONSTRUCTION" "")

 

Load lisp lên dùng thôi. Nếu trong file cad có sắn layer CONSTRUCTION thì có thể lisp hoạt động không như ý muốn

Tran_Xline.lsp

P/S: load lisp này thì đừng load lisp layerdirector của lee-mac nha

[thewind0910 11]

1 giờ trước, vietduc147258 đã nói:

Để nghiên cứu giúp cho lần này. Code lấy của Lee-mac. nhưng Do mù về VLA nên dùng comamd thay thế vậy.

Mức độ Transparency trong code đang để là 50. Nếu muốn sửa thì tìm con số 50 sửa lại nha.

(command "layer" "n" "CONSTRUCTION" "c" 1         "CONSTRUCTION" "tr" 50 "CONSTRUCTION" "")

 

Load lisp lên dùng thôi. Nếu trong file cad có sắn layer CONSTRUCTION thì có thể lisp hoạt động không như ý muốn

Tran_Xline.lsp

P/S: load lisp này thì đừng load lisp layerdirector của lee-mac nha

cảm ơn bác nhiều vì sự nhiệt tình giúp đỡ, chúc bác sức khỏe !!!

[NTHAHT 83]

Bạn dùng thử cái này xem, nó tự gán transparency cho XLine khi kết thúc lệnh XLINE.

(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . startCommand)))
(vlr-command-reactor nil '((:vlr-commandEnded . endCommand)))
(defun startCommand  (calling-reactor startcommandInfo / thecommandstart)
  (setq thecommandstart (nth 0 startcommandInfo))
  (cond ((eq thecommandstart "XLINE") (setq lastentity (entlast))))
  (princ))
(defun endCommand  (calling-reactor endcommandInfo / thecommandend)
  (setq thecommandend (nth 0 endcommandInfo))
  (cond ((eq thecommandend "XLINE")
         (while (and lastentity (setq lastentity (entnext lastentity)))
           (setpropertyvalue lastentity "Transparency" 50))))
  (princ))

 

[thewind0910 11]

7 giờ trước, NTHAHT đã nói:

Bạn dùng thử cái này xem, nó tự gán transparency cho XLine khi kết thúc lệnh XLINE.

(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . startCommand)))
(vlr-command-reactor nil '((:vlr-commandEnded . endCommand)))
(defun startCommand  (calling-reactor startcommandInfo / thecommandstart)
  (setq thecommandstart (nth 0 startcommandInfo))
  (cond ((eq thecommandstart "XLINE") (setq lastentity (entlast))))
  (princ))
(defun endCommand  (calling-reactor endcommandInfo / thecommandend)
  (setq thecommandend (nth 0 endcommandInfo))
  (cond ((eq thecommandend "XLINE")
         (while (and lastentity (setq lastentity (entnext lastentity)))
           (setpropertyvalue lastentity "Transparency" 50))))
  (princ))

 

THANKS BÁC NHIỀU Ạ, EM CẢM ƠN CÁC BÁC ĐÃ GIÚP ĐỠ!!

[ronaldo2002 6]

Vào lúc 27/11/2023 tại 10:24, NTHAHT đã nói:

Bạn dùng thử cái này xem, nó tự gán transparency cho XLine khi kết thúc lệnh XLINE.

(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . startCommand)))
(vlr-command-reactor nil '((:vlr-commandEnded . endCommand)))
(defun startCommand  (calling-reactor startcommandInfo / thecommandstart)
  (setq thecommandstart (nth 0 startcommandInfo))
  (cond ((eq thecommandstart "XLINE") (setq lastentity (entlast))))
  (princ))
(defun endCommand  (calling-reactor endcommandInfo / thecommandend)
  (setq thecommandend (nth 0 endcommandInfo))
  (cond ((eq thecommandend "XLINE")
         (while (and lastentity (setq lastentity (entnext lastentity)))
           (setpropertyvalue lastentity "Transparency" 50))))
  (princ))

 

mãi mới tìm thấy bài gốc của a, nhờ a thêm cho e 1 dòng code để xline được vẽ ra sẽ luôn có màu 11 và độ mờ thì như 50 đc k a

[NTHAHT 83]

41 phút trước, ronaldo2002 đã nói:

mãi mới tìm thấy bài gốc của a, nhờ a thêm cho e 1 dòng code để xline được vẽ ra sẽ luôn có màu 11 và độ mờ thì như 50 đc k a

(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . startCommand)))
(vlr-command-reactor nil '((:vlr-commandEnded . endCommand)))
(defun startCommand  (calling-reactor startcommandInfo / thecommandstart)
  (setq thecommandstart (nth 0 startcommandInfo))
  (cond ((eq thecommandstart "XLINE") (setq lastentity (entlast))))
  (princ))
(defun endCommand  (calling-reactor endcommandInfo / thecommandend)
  (setq thecommandend (nth 0 endcommandInfo))
  (cond ((eq thecommandend "XLINE")
         (while (and lastentity (setq lastentity (entnext lastentity)))
           (setpropertyvalue lastentity "Transparency" 50)
           (setpropertyvalue lastentity "Color" 11))))
  (princ))

 

[ronaldo2002 6]

3 phút trước, NTHAHT đã nói:

(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . startCommand)))
(vlr-command-reactor nil '((:vlr-commandEnded . endCommand)))
(defun startCommand  (calling-reactor startcommandInfo / thecommandstart)
  (setq thecommandstart (nth 0 startcommandInfo))
  (cond ((eq thecommandstart "XLINE") (setq lastentity (entlast))))
  (princ))
(defun endCommand  (calling-reactor endcommandInfo / thecommandend)
  (setq thecommandend (nth 0 endcommandInfo))
  (cond ((eq thecommandend "XLINE")
         (while (and lastentity (setq lastentity (entnext lastentity)))
           (setpropertyvalue lastentity "Transparency" 50)
           (setpropertyvalue lastentity "Color" 11))))
  (princ))

 

THANKS KIU A ZAI NHIỀU NHA. NHẬN ĐC NHIỀU SỰ GIÚP ĐỠ CỦA A QUÁ !!!!