[编程交流] 更改说明符的值

; Change attribute value by created position
(vl-load-com)
(setq ans1 (getstring "\nEntervalue1" ))
(setq ans2 (getstring "\nEntervalue2"))
(setq ans3 (getstring "\nEntervalue3" ))
(setq y 1)
(setq ss1 (car (entsel)))
(setq bname (vla-get-name(vlax-ename->vla-object SS1))) 
(setq x (getint "\nEnter attribute position order as a Number "))
(SETQ newstrblank (strcat ans1 "*" ans2 "*" ans3)) ; 
(foreach att (vlax-invoke (vlax-ename->vla-object SS1) 'getattributes)
   (if (= y x)
   (progn
   (setq newstr (vla-get-textstring att ))
   (vla-put-textstring att newstrblank)
   )
   )
   (setq y (+ Y 1))
)
(princ) 

;this is not finished but rather a method need a bit of time to put it all together.
(defun pullapart ()
(setq val (vla-get-Measurement (vlax-ename->vla-object(car obj))))
)
(defun pickobj ()
(setq obj (entsel "\nPick a object"))
(if (= obj nil)
(setq Val (getstring "Enter Value"))
(pullapart) ; a defun that checks for a "DIM" and returns val=measurement
) 
)
;see code above goes here

(defun c:Test (/ s lst b l st)
;;;        Tharwat 30.042015        ;;;
 (princ "\nPick on Dimension :")
 (while (setq s (ssget "_+.:S:E" '((0 . "*DIMENSION"))))
   (setq lst (cons (ssname s 0) lst))
 )
 (if
   (and (>= (length lst) 2)
        (princ
          "\nNow select attributed Blocks that titled < statistics >"
        )
        (setq
          b (ssget "_:L" '((0 . "INSERT") (2 . "statistics") (66 . 1)))
        )
   )
    (progn
      (mapcar '(lambda (e)
                 (if (/= (setq v (cdr (assoc 1 (entget e)))) "")
                   (setq l (cons v l))
                   (setq l (cons (rtos (cdr (assoc 42 (entget e))) 2) l))
                 )
               )
              lst
      )
      (setq
        st (vl-string-right-trim
             "*"
             (apply 'strcat (mapcar '(lambda (o) (strcat o "*")) l))
           )
      )
      ((lambda (x / sn)
         (while (setq sn (ssname b (setq x (1+ x))))
           (mapcar
             '(lambda (a)
                (if (eq (strcase (vla-get-tagstring a)) "DIMENSION")
                  (vla-put-textstring a st)
                )
              )
             (vlax-invoke (vlax-ename->vla-object sn) 'getattributes)
           )
         )
       )
        -1
      )
    )
 )
 (princ)
)(vl-load-com)

(defun c:Test (/ s lst b l st)
;;;    Tharwat 30.042015    ;;;
 (princ "\nSelect Dimensions :")
 (if
   (and (setq s (ssget "_:L" '((0 . "*DIMENSION"))))
        (setq st (getstring "\n Specify a value [enter to Exit] :"))
        (princ
          "\nNow select attributed Blocks that titled < statistics >"
        )
        (setq
          b (ssget "_:L" '((0 . "INSERT") (2 . "statistics") (66 . 1)))
        )
   )
    (progn
      (if (and st (/= st ""))
        (setq l (cons st l))
      )
      ((lambda (i / sn e v)
         (while (setq e (ssname s (setq i (1+ i))))
           (if (/= (setq v (cdr (assoc 1 (entget e)))) "")
             (setq l (cons v l))
             (setq l (cons (rtos (cdr (assoc 42 (entget e))) 2) l))
           )
         )
         lst
       )
        -1
      )
      (setq
        st (vl-string-right-trim
             "*"
             (apply 'strcat (mapcar '(lambda (o) (strcat o "*")) l))
           )
      )
      ((lambda (x / sn)
         (while (setq sn (ssname b (setq x (1+ x))))
           (mapcar
             '(lambda (a)
                (if (eq (strcase (vla-get-tagstring a)) "DIMENSION")
                  (vla-put-textstring a st)
                )
              )
             (vlax-invoke (vlax-ename->vla-object sn) 'getattributes)
           )
         )
       )
        -1
      )
    )
 )
 (princ)
)(vl-load-com)