[求助]：如何编写一个提取并修改有多个属性的块的值lisp程序！

0451doctor · 发表于 2003-11-20 12:35:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何编写一个提取并修改有多个属性的块的值lisp程序！

eachy · 发表于 2003-11-20 18:56:20

Vlisp/Lisp 论坛 aeo 斑竹帖过这个功能函数

lsjjm · 发表于 2003-11-21 03:45:58

REFER TO THIS:

(defun changeAttributes (lst / sset item atts ename i)
(setq i 0)
(setq sset (ssget "X" (list '(0 . "INSERT") (cons 2 (car lst)))))
(if sset
(repeat (sslength sset)
(setq ename (ssname sset i))
(setq i (+ 1 i))
(if (safearray-value
(setq atts
(vlax-variant-value
(vla-getattributes (vlax-ename->vla-object ename))
)
)
)
(progn
(foreach item (cdr lst)
(mapcar
'(lambda (x)
(if
(= (strcase (car item))
(strcase (vla-get-tagstring x))
)
(vla-put-textstring x (cdr item))
)
)
(vlax-safearray->list atts)
)
)
(vla-update (vlax-ename->vla-object ename))
)
)
)
)
)

(defun changeAttributes (lst / sset item atts ename i) 
  (setq i 0) 
  (setq sset (ssget "X" (list '(0 . "INSERT") (cons 2 (car lst))))) 
  (if sset 
    (repeat (sslength sset) 
      (setq ename (ssname sset i)) 
      (setq i (+ 1 i)) 
      (if (safearray-value 
            (setq atts 
                   (vlax-variant-value 
                     (vla-getattributes (vlax-ename->vla-object ename)) 
                   ) 
            ) 
          ) 
        (progn 
          (foreach item (cdr lst) 
            (mapcar 
              '(lambda (x) 
                 (if 
                   (= (strcase (car item)) 
                      (strcase (vla-get-tagstring x)) 
                   ) 
                    (vla-put-textstring x (cdr item)) 
                 ) 
               ) 
              (vlax-safearray->list atts) 
            ) 
          ) 
          (vla-update (vlax-ename->vla-object ename)) 
        ) 
      ) 
    ) 
  ) 
)

提示：请用[代码]方法粘贴Lisp部分，我都改累累：） eachy

845245015 · 发表于 2019-12-25 08:05:26

学习学习

账号		自动登录	找回密码
密码			立即注册

[求助]：如何编写一个提取并修改有多个属性的块的值lisp程序！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子