Đổi Thuộc Tính Của Dynamic Block

[gia_bach 1.552]

Chào anh em CadViet.

 

Tôi có 1 lisp đổi giá trị thuộc tính của Dynamic Block, nó chạy tốt với thuôc tính "Diantance3". (trong file Cad đính kèm)

Nhưng với thuộc tính "Diantance1" và "Diantance2", mặc dù nó cũng đổi được giá trị nhưng kích thước hình học tương ứng lại không thay đổi.

   Nhờ anh em tư vấn giúp.

Cám ơn cả nhà.

 

Lisp : 

(defun PutDynamicProperty(Block Property Value / oVal cVal)
  (if(= 'ENAME(type Block))
    (setq Block(vlax-ename->vla-object Block)) )
  (if(= :vlax-true(vla-get-IsDynamicBlock Block))
    (foreach p(vlax-safearray->list
		(vlax-variant-value
		  (vla-GetDynamicBlockProperties Block)))
      (if(=(strcase Property)(strcase(vla-get-PropertyName p)))
	(progn
	(setq cVal(vlax-make-variant Value vlax-vbDouble))
	(if(vl-catch-all-error-p (vl-catch-all-apply 'vla-put-Value(list p cVal)))
	   (setq oVal nil)(setq oVal Value) ) ) ) ) )
  oVal ); end
; (PutDynamicProperty (setq bl(car(entsel))) "Distance1" 79.0) 
; (PutDynamicProperty (setq bl(car(entsel))) "Distance2" 89.0)
; (PutDynamicProperty (setq bl(car(entsel))) "Distance3" 99.0) ; OK

file Cad có dynamic block : https://dl.dropboxusercontent.com/u/101018313/DynamicBlock.dwg

[quocmanh04tt 635]

Bác kiểm tra cái Block của bác!

Không dùng lsp: CTRL + F1 Thay đổi các distance, chỉ có dis3 thì Blk thay đổi, 2 cái còn lại không nhúc nhíc động đậy.

[gia_bach 1.552]

Bác kiểm tra cái Block của bác!

Không dùng lsp: CTRL + F1 Thay đổi các distance, chỉ có dis3 thì Blk thay đổi, 2 cái còn lại không nhúc nhíc động đậy.

Tks QuocManh.

Tiếc là hiểu biết về dynamic block của tôi hơi bị tệ. (block này do người khác tạo ra)

 

Ngóng cao thủ nào đi ngang qua giúp 1 tay.

Xin cám ơn.

[conghoa 124]

Bác Gia_bach dùng thử cái block này xem được không

http://www.mediafire.com/file/448bnmsb6lm57pa/DynamicBlock.dwg

 

có thể lúc tạo block kia bị lỗi gì đó

[lohado 4]

Nếu không nhầm thì là do hướng của Parameter.b thử đổi lại hướng xem được không nhé

[gia_bach 1.552]

Bác Gia_bach dùng thử cái block này xem được không

http://www.mediafire.com/file/448bnmsb6lm57pa/DynamicBlock.dwg

 

có thể lúc tạo block kia bị lỗi gì đó

Cám ơn Conghoa.

Ý của tôi là có cách nào sửa block ban đầu để khi mình thay đổi thuộc tính thì các kích thước hình học thay đổi theo.

[conghoa 124]

Cám ơn Conghoa.

Ý của tôi là có cách nào sửa block ban đầu để khi mình thay đổi thuộc tính thì các kích thước hình học thay đổi theo.

Em sửa cho bác rồi đó, bác đã test chưa?

[Bee 154]

Vấn đề do tạo block ban đầu. conghoa sửa block xong dùng lisp của giabach là ngon. ^_^

[jangboko 10]

Chào anh em CadViet.

 

Tôi có 1 lisp đổi giá trị thuộc tính của Dynamic Block, nó chạy tốt với thuôc tính "Diantance3". (trong file Cad đính kèm)

Nhưng với thuộc tính "Diantance1" và "Diantance2", mặc dù nó cũng đổi được giá trị nhưng kích thước hình học tương ứng lại không thay đổi.

   Nhờ anh em tư vấn giúp.

Cám ơn cả nhà.

 

Lisp : 

(defun PutDynamicProperty(Block Property Value / oVal cVal)
  (if(= 'ENAME(type Block))
    (setq Block(vlax-ename->vla-object Block)) )
  (if(= :vlax-true(vla-get-IsDynamicBlock Block))
    (foreach p(vlax-safearray->list
		(vlax-variant-value
		  (vla-GetDynamicBlockProperties Block)))
      (if(=(strcase Property)(strcase(vla-get-PropertyName p)))
	(progn
	(setq cVal(vlax-make-variant Value vlax-vbDouble))
	(if(vl-catch-all-error-p (vl-catch-all-apply 'vla-put-Value(list p cVal)))
	   (setq oVal nil)(setq oVal Value) ) ) ) ) )
  oVal ); end
; (PutDynamicProperty (setq bl(car(entsel))) "Distance1" 79.0) 
; (PutDynamicProperty (setq bl(car(entsel))) "Distance2" 89.0)
; (PutDynamicProperty (setq bl(car(entsel))) "Distance3" 99.0) ; OK

file Cad có dynamic block : https://dl.dropboxusercontent.com/u/101018313/DynamicBlock.dwg

bạn xem video này xem có ngộ được điều gì ko, mình thấy nó cũng đễ hiểu.https://drive.google.com/file/d/0BzkbqTkSuflZYVJGRjVjUWp5dzg/view

[ptd1987 5]

block kì cục quá :D, distance nào kéo 1 hướng thì chỉnh 1  thôi, rồi stretch đầu đó, để 2 đâu gây hiểu nhầm 2 đầu đều stretch

[gia_bach 1.552]

Cám ơn conghoa, lohado, jangboko. cám ơn cả nhà.

 

Cuối cùng cũng "tự tay làm được" một dynamic block đơn giản (với các thao tác cơ bản).

Qua đó mới tỉm ra nguyên nhân tại sao Lisp chạy không đươc. (tr/hợp này nguyên nhân không phải do Lisp mà do thao tác khi tạo block không đúng).

 

Tks all!