zlg258369 发表于 2011-6-4 00:19:37

双击修改块属性

(DEFUN C:hua ( / e o attval);剖面花修改
(if (and (setq e (ssname (ssget) 0))
   (OR (= (cdr (assoc 2 (entget e))) "sxsy") (= (cdr (assoc 2 (entget e))) "DWGNO-M"))
         (setq o (vlax-Ename->vla-Object e)))
      (mapcar
         '(lambda (Att)
                  (if (setq AttVal (cdr (assoc (vla-get-TagString Att) '(("JD-XN" . "03")))));'(("A" . "1") ("JD-XN" . "03"))
                        (vla-put-TextString Att (if (= (strlen (setq str (GETSTRING "\n请输入新值："))) 1 )
            (strcat "JD-0" str)
            (strcat "JD-" STR)))
                  )
            )
            (vlax-invoke O "GetAttributes")
      )

      (command "eattedit" e)
)
)判断是否是自己需要的属性块并修改，在双击立面改一下就好了。


http://space.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 zlg258369的微博

daidong013 发表于 2011-6-4 14:13:48

坐个沙发！~
页: [1]
查看完整版本: 双击修改块属性