Розмір відео: 1280 X 720853 X 480640 X 360
Показувати елементи керування програвачем
Автоматичне відтворення
Автоповтор
Hello sir how to change all the properties of entities inside block and nested blocks? Please make a tutorial on this.
Good sir. Little bit advanced
please make a video on debugging and other tools in Visual Code for AutoLISP
Thanks for the information.
Thank you. Please subscribe and share.
Thank you for your video. Would you please upload all activex functions in visual lisp?
Dear sir,Can we done this task by using normal lisp program instead of vlax program?
Yes we can. But laborious.
How to get the value from a selected text and put that value in to the attribute?
Read the text content and update attribute using vla-put_textstring.
vlax-invoke getattributesvla-get-tagstringvla-get-textstringvla-put-textstring(setq blk(car (entsel "Select block object:")))(setq attLst(vlax-invoke (vlax-ename->vla-object blk) 'getattributes))(foreach att attLst (setq tag(vla-get-tagstring att) val(vla-get-textstring att) ) (princ (strcat "" tag "=" val)) (princ));for;change height value to 15m(foreach att attLst (setq tag(vla-get-tagstring att) val(vla-get-textstring att) ) (if (= (strcase tag) "HEIGHT") (vla-put-textstring att "20") );if);for
Our pleasure!. Please subscribe and share
Our pleasure!
Hello sir how to change all the properties of entities inside block and nested blocks? Please make a tutorial on this.
Good sir. Little bit advanced
please make a video on debugging and other tools in Visual Code for AutoLISP
Thanks for the information.
Thank you. Please subscribe and share.
Thank you for your video. Would you please upload all activex functions in visual lisp?
Dear sir,
Can we done this task by using normal lisp program instead of vlax program?
Yes we can. But laborious.
How to get the value from a selected text and put that value in to the attribute?
Read the text content and update attribute using vla-put_textstring.
vlax-invoke getattributes
vla-get-tagstring
vla-get-textstring
vla-put-textstring
(setq blk(car (entsel "
Select block object:")))
(setq attLst(vlax-invoke (vlax-ename->vla-object blk) 'getattributes))
(foreach att attLst
(setq tag(vla-get-tagstring att)
val(vla-get-textstring att)
)
(princ (strcat "
" tag "=" val))
(princ)
);for
;change height value to 15m
(foreach att attLst
(setq tag(vla-get-tagstring att)
val(vla-get-textstring att)
)
(if (= (strcase tag) "HEIGHT")
(vla-put-textstring att "20")
);if
);for
Thanks for the information.
Our pleasure!. Please subscribe and share
Thanks for the information.
Our pleasure!