Travaci Posted February 14, 2017 Share Posted February 14, 2017 Hi everyboady. İ want to copy tags with field. Already i do, but i have a problem When i do this, i dont want to use "command" and "regen". Is this possible ? (defun c:axx (/ *error* ss ob n at pn pv) (vl-load-com) (defun *error* (msg) (if (not (wcmatch (strcase msg t) "*cancel*,*exit*")) (princ (strcat "\nError: " msg))) (if ss (redraw (ssname ss 0) 4)) (princ)) (if (setq ss (ssget ":s" (list (cons 0 "insert")))) (progn (redraw (ssname ss 0) 3) (if (setq ob (ssget (list (cons 0 "insert")))) (progn (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (repeat (setq n (sslength ob)) (setq n (1- n)) (foreach at (vlax-invoke (vlax-ename->vla-object (ssname ss 0)) 'Getattributes) (setq pn (vlax-get-property at 'TagString) pv (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vlax-get-property at 'ObjectId)) ">%).TextString>%")) (foreach at (vlax-invoke (vlax-ename->vla-object (ssname ob n)) 'GetAttributes) (if (eq (vla-get-TagString at) pn) (vlax-put-property at "TextString" pv)))) (vl-cmdf "._updatefield" (ssname ob n) "") ) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (redraw (ssname ss 0) 4) ) ) ) ) (if ss (redraw (ssname ss 0) 4)) (princ) ) Quote Link to comment Share on other sites More sharing options...
Travaci Posted February 17, 2017 Author Share Posted February 17, 2017 Noboady now ? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.