MATCHROP TEXT OVERIDE

[HOABAN_QD 7]

Nhờ ECE trên diễn đàn giúp đỡ.

Trong Acad có lệnh MATCHPROP (lệnh tắt là MA), có lisp nào tương tự để Dim b có được text overide ABC. Thanks!

MATCHROP TEXT OVERIDE.dwg

[Bee 154]

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

Nhờ ECE trên diễn đàn giúp đỡ.

Trong Acad có lệnh MATCHPROP (lệnh tắt là MA), có lisp nào tương tự để Dim b có được text overide ABC. Thanks!

MATCHROP TEXT OVERIDE.dwg

Chủ thớt test hàng họ nhé ^_^

(defun c:MD ()
  (vlax-put (vlax-ename->vla-object (car (entsel "\nChon Dim matchprop: "))) 'TextOverride (vlax-get (vlax-ename->vla-object (car (entsel "\nChon Dim goc: "))) 'TextOverride))
  (princ)
  )

 

[HOABAN_QD 7]

Trước là cảm ơn bạn Bee đã xem và giúp đỡ, nhưng mình có ý này cần trao đổi thêm chút nha.

1. Có thể thực hiện theo chiều ngược lại được không? nghĩa là sau khi nhập lệnh thì chọn Dim nguồn trước (Dim có mấy ký tự ABC ấy), sau đó mới quét chọn Dim cần được MatchProp. (vì thói quen hay dùng như vậy)

2. Vì có nhiều Dim cần được Matchprop, do đó sau khi nhập lệnh -->chọn Dim nguồn, tiếp đến có thể bung cửa sổ để chọn tất cả các Dim cần được Matchprop, hoặc là click trái chuột để chọn từng Dim riêng lẻ, khi nào thôi không chọn nữa thì Enter kết thúc là hoàn thành.

3. Trong Acad sau khi nhập lệnh tắt MA và click chọn đối tượng nguồn, thì đối tượng nguồn chuyển sang hình dạng nét đứt, ở đây mình có thể thực hiện giống như vậy không, hoặc là có cách nào khác (đổi màu khác chẳng hạn) để khi mình chọn nó thì mình có thể quan sát và biết rằng đối tượng nguồn đã được chọn.

Cảm ơn bạn.

[DungNguyen685 40]

6 giờ trước, HOABAN_QD đã nói:

Trước là cảm ơn bạn Bee đã xem và giúp đỡ, nhưng mình có ý này cần trao đổi thêm chút nha.

1. Có thể thực hiện theo chiều ngược lại được không? nghĩa là sau khi nhập lệnh thì chọn Dim nguồn trước (Dim có mấy ký tự ABC ấy), sau đó mới quét chọn Dim cần được MatchProp. (vì thói quen hay dùng như vậy)

2. Vì có nhiều Dim cần được Matchprop, do đó sau khi nhập lệnh -->chọn Dim nguồn, tiếp đến có thể bung cửa sổ để chọn tất cả các Dim cần được Matchprop, hoặc là click trái chuột để chọn từng Dim riêng lẻ, khi nào thôi không chọn nữa thì Enter kết thúc là hoàn thành.

3. Trong Acad sau khi nhập lệnh tắt MA và click chọn đối tượng nguồn, thì đối tượng nguồn chuyển sang hình dạng nét đứt, ở đây mình có thể thực hiện giống như vậy không, hoặc là có cách nào khác (đổi màu khác chẳng hạn) để khi mình chọn nó thì mình có thể quan sát và biết rằng đối tượng nguồn đã được chọn.

Cảm ơn bạn.

(defun c:MD ()
	(setq ent2 (car (entsel "\nChon Dim goc: ")))
	(redraw ent2 3)
	(setq ss1 (ssget '((0 . "DIMENSION"))))
	(setq n (sslength ss1) i 0)
	(while (< i n)
		(setq ent1 (ssname ss1 i))
		(vlax-put (vlax-ename->vla-object ent1)'TextOverride (vlax-get (vlax-ename->vla-object ent2) 'TextOverride))
		(setq i (1+ i))				
	)
	(command "REGEN")
	(princ)
)

 

[HOABAN_QD 7]

Mình cảm ơn bạn @DungNguyen685 rất nhiều! Chúc bạn sức khỏe và công việc tốt đẹp.