请编程实现尺寸与属性关联

yansu · 发表于 2013-11-6 07:42:48

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

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

×

请编程实现尺寸与属性关联，即像刷子一样将尺寸值与对应的属性关联起来，使得图形尺寸改变，属性自动更新，如何图中所示，O(∩_∩)O谢谢

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:测试.zip
下载次数:11 文件大小:30.47 KB
下载权限: 不限以上 [免费赚D豆]

Free-Lancer · 发表于 2013-11-6 08:19:36

看看字段中有没有这个

yansu · 发表于 2013-11-6 10:21:11

图中的字段与尺寸关联是手动设置的

st788796 · 发表于 2013-11-6 11:03:54

yansu 发表于 2013-11-6 10:21
图中的字段与尺寸关联是手动设置的

字段在regen后会自动更新

yansu · 发表于 2013-11-6 12:51:22

是的，这样就可以自动更新最终确定的尺寸，并统计汇总尺寸

st788796 · 发表于 2013-11-6 13:13:33

yansu 发表于 2013-11-6 12:51
是的，这样就可以自动更新最终确定的尺寸，并统计汇总尺寸

尺寸可以直接汇总，不需要再弄个字段

yansu · 发表于 2013-11-6 15:25:11

我这是为门窗图标尺寸需要将各个门窗编号对应的尺寸记录到属性中，与其他一些属性分类汇总。

st788796 · 发表于 2013-11-6 17:45:50

yansu 发表于 2013-11-6 15:25
我这是为门窗图标尺寸需要将各个门窗编号对应的尺寸记录到属性中，与其他一些属性分类汇总。

把尺寸赋个 xdata 可以过滤选择用于统计

yansu · 发表于 2013-11-7 07:37:32

本帖最后由 yansu 于 2013-11-7 07:41 编辑

我不会编程，上面说的只是一种用法，还有其他地方要用到，请楼上的朋友帮忙解决，主要是要求能够关联，这样改动后，后续的统计设计也能自动修改了，谢谢啦

zxq0220 · 发表于 2013-11-7 08:05:06

http://bbs.mjtd.com/thread-62469-1-1.html

yansu · 发表于 2013-11-7 08:16:20

谢谢楼上的，我看到了，但不是我要的，其实我的要求手工也可以操作，但是由于尺寸数量太多，耗费时间太长，所以想请高手帮忙编程解决

st788796 · 发表于 2013-11-7 11:26:11

本帖最后由 st788796 于 2013-11-7 11:28 编辑

yansu 发表于 2013-11-7 08:16
谢谢楼上的，我看到了，但不是我要的，其实我的要求手工也可以操作，但是由于尺寸数量太多，耗费时间太长， ...

仅适用楼主的测试图中属性块，还可以加强为，选择尺寸，点位置，插入属性块

(defun c:tt (/ e ss dl attl)
(while
(and (setq
e (car
(xdrx_entsel "\n拾取属性块: " '((0 . "INSERT") (2 . "b")))
)
)
(progn
(princ "\n选择两个长宽尺寸....")
(setq ss (ssget '((0 . "Dimension"))))
)
(= (sslength ss) 2)
)
(setq dl (vl-sort (xdrx_pickset->ents ss)
'(lambda (e1 e2)
(< (xdrx_getpropertyvalue e1 "Rotation")
(xdrx_getpropertyvalue e2 "Rotation")
)
)
)
attl (xdrx_insert_getattribs e)
)
(mapcar '(lambda (x y / str)
(setq str (strcat "%<\\AcObjProp Object(%<\\_ObjId "
(vl-princ-to-string
(xdrx_getpropertyvalue x "ObjectID")
)
">%).Measurement \\f \"%lu2%pr0\">%"
)
)
(xdrx_setpropertyvalue y "Textstring" str)
)
dl
attl
)
(vla-regen (vla-get-activedocument (vlax-get-acad-object))
acActiveViewport
)
)
(princ)
)

(defun c:tt (/ e ss dl attl) 
  (while 
    (and (setq 
    e (car 
        (xdrx_entsel "\n拾取属性块: " '((0 . "INSERT") (2 . "b"))) 
      ) 
  ) 
  (progn 
    (princ "\n选择两个长宽尺寸....") 
    (setq ss (ssget '((0 . "Dimension")))) 
  ) 
  (= (sslength ss) 2) 
    ) 
     (setq dl (vl-sort (xdrx_pickset->ents ss) 
    '(lambda (e1 e2) 
       (< (xdrx_getpropertyvalue e1 "Rotation") 
          (xdrx_getpropertyvalue e2 "Rotation") 
       ) 
     ) 
  ) 
    attl (xdrx_insert_getattribs e) 
     ) 
     (mapcar '(lambda (x y / str) 
  (setq str (strcat "%<\\AcObjProp Object(%<\\_ObjId " 
      (vl-princ-to-string 
        (xdrx_getpropertyvalue x "ObjectID") 
      ) 
      ">%).Measurement \\f \"%lu2%pr0\">%" 
     ) 
  ) 
  (xdrx_setpropertyvalue y "Textstring" str) 
       ) 
      dl 
      attl 
     ) 
     (vla-regen (vla-get-activedocument (vlax-get-acad-object)) 
  acActiveViewport 
     ) 
  ) 
  (princ) 
)

st788796 · 发表于 2013-11-7 11:33:46

自动插入属性块方法

(defun c:tt (/ e ss dl attl)
(while
(and (progn
(princ "\n选择两个长宽尺寸....")
(setq ss (ssget '((0 . "Dimension"))))
)
(= (sslength ss) 2)
(setq p (getpoint "\n插入点: "))
)
(setq dl (vl-sort (xdrx_pickset->ents ss)
'(lambda (e1 e2)
(< (xdrx_getpropertyvalue e1 "Rotation")
(xdrx_getpropertyvalue e2 "Rotation")
)
)
)
attl (xdrx_insert_getattribs (xdrx_insert_make "b" p 1. 0.))
)
(mapcar '(lambda (x y / str)
(setq str (strcat "%<\\AcObjProp Object(%<\\_ObjId "
(vl-princ-to-string
(xdrx_getpropertyvalue x "ObjectID")
)
">%).Measurement \\f \"%lu2%pr0\">%"
)
)
(xdrx_setpropertyvalue y "Textstring" str)
)
dl
attl
)
(vla-regen (vla-get-activedocument (vlax-get-acad-object))
acActiveViewport
)
)
(princ)
)

(defun c:tt (/ e ss dl attl) 
  (while 
    (and (progn 
           (princ "\n选择两个长宽尺寸....") 
           (setq ss (ssget '((0 . "Dimension")))) 
         ) 
         (= (sslength ss) 2) 
         (setq p (getpoint "\n插入点: ")) 
    ) 
     (setq dl        (vl-sort (xdrx_pickset->ents ss) 
                         '(lambda (e1 e2) 
                            (< (xdrx_getpropertyvalue e1 "Rotation") 
                               (xdrx_getpropertyvalue e2 "Rotation") 
                            ) 
                          ) 
                ) 
           attl        (xdrx_insert_getattribs (xdrx_insert_make "b" p 1. 0.)) 
     ) 
     (mapcar '(lambda (x y / str) 
                (setq str (strcat "%<\\AcObjProp Object(%<\\_ObjId " 
                                  (vl-princ-to-string 
                                    (xdrx_getpropertyvalue x "ObjectID") 
                                  ) 
                                  ">%).Measurement \\f \"%lu2%pr0\">%" 
                          ) 
                ) 
                (xdrx_setpropertyvalue y "Textstring" str) 
              ) 
             dl 
             attl 
     ) 
     (vla-regen        (vla-get-activedocument (vlax-get-acad-object)) 
                acActiveViewport 
     ) 
  ) 
  (princ) 
)

yansu · 发表于 2013-11-7 15:03:27

本帖最后由 yansu 于 2013-11-7 15:25 编辑

首先对楼上的帮助表示衷心的感谢，试用了一下，感觉是我没有说明白，可不可以修改为一个尺寸对一个属性关联，就像刷子一样，先选尺寸，再选对应的属性，循环将要关联的尺寸全部关联了，这样可以对门窗分格图中的多个尺寸进行关联，O(∩_∩)O谢谢

st788796 · 发表于 2013-11-7 15:49:40

本帖最后由 st788796 于 2013-11-7 19:08 编辑

yansu 发表于 2013-11-7 15:03
首先对楼上的帮助表示衷心的感谢，试用了一下，感觉是我没有说明白，可不可以修改为一个尺寸对一个属性关联 ...

(defun c:tt (/ dm att str)
(while
(and (setq dm (car (xdrx_entsel "\n选择尺寸: " '((0 . "Dimension")))))
(setq att (car (nentsel "\n选择属性: ")))
(= (xdrx_getpropertyvalue att "IsA") "AcDbAttribute")
)
(setq str (strcat "%<\\AcObjProp Object(%<\\_ObjId "
(vl-princ-to-string
(xdrx_getpropertyvalue dm "ObjectID")
)
">%).Measurement \\f \"%lu2%pr0\">%"
)
)
(xdrx_setpropertyvalue att "Textstring" str)
(vla-regen (vla-get-activedocument (vlax-get-acad-object))
acActiveViewport
)
)
(princ)
)

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

[求助] 请编程实现尺寸与属性关联

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

点评

点评

点评

浏览过的版块