我也有类似的问题。
2007年在俄罗斯CAD论坛上找到了部分解决方案。
当线条被修改时，尺寸会发生反应，但它不是真正的关联。
(defun EditDimassoc (ent_list dict_id / length_list i el el1 ent_list_new)
(setq ent_list_new '())
(setq length_list (length ent_list))
(setq i 0 )
(while (< i length_list)
(setq el (nth i ent_list))
(if (= i 2)
(progn
(setq el1 (list '(102 . "{ACAD_REACTORS") (cons 330 dict_id) '(102 . "}") (cons 330 dict_id)))
(setq ent_list_new (append ent_list_new el1))
); end progn
(setq ent_list_new (append ent_list_new (list el)))
); end if
(setq i (1+ i))
); end while
ent_list_new
); end defun
;--------------------------------------------------------------------------------------------
(defun EditDimension (ent_list dict_id dimassoc_id / length_list i el el1 ent_list_new)
(setq ent_list_new '())
(setq length_list (length ent_list))
(setq i 0 )
(while (< i length_list)
(setq el (nth i ent_list))
(if (= i 2)
(progn
(setq el1 (list '(102 . "{ACAD_XDICTIONARY") (cons 330 dict_id) '(102 . "}")
'(102 . "{ACAD_REACTORS") (cons 330 dimassoc_id) '(102 . "}")
el))
(setq ent_list_new (append ent_list_new el1))
); end progn
(setq ent_list_new (append ent_list_new (list el)))
); end if
(setq i (1+ i))
); end while
ent_list_new
); end defun
;--------------------------------------------------------------------------------------------
(defun SetDimAssoc (obj1 obj2 / dim_id dim_list dimassoc_id dimassoc_list dict_id dict_list )
(setq dim_id dim_obj)
(setq dim_list (entget dim_id))
(setq dimassoc_id (entmakex (list '(0 . "DIMASSOC")
'(100 . "AcDbDimAssoc")(cons 330 dim_id)
'(90 . 3) '(70 . 0) '(71 . 0)
'(1 . "AcDbOsnapPointRef") (cons 331 obj1)
'(72 . 13) '(40 . 1.0) (cons 10 (cdr (assoc 10 (entget obj1))))
'(1 . "AcDbOsnapPointRef") (cons 331 obj2)
'(72 . 1) '(40 . 1.0) (cons 11 (cdr (assoc 10 (entget obj2))))
);list
);entmake
);setq
(setq dimassoc_list (entget dimassoc_id))
(entmod dimassoc_list)
(setq dict_id (entmakex (list '(0 . "DICTIONARY")
(cons 330 dim_id)
'(100 . "AcDbDictionary")
'(280 . 1) '(281 . 1)
'(3 . "ACAD_DIMASSOC")
(cons 360 dimassoc_id)
);list
);entmake
)
(setq dict_list (entget dict_id))
(entmod dict_list)
(setq dict_list (EditDimassoc dimassoc_list dict_id))
(entmod dict_list)
(setq dim_list (EditDimension dim_list dict_id dimassoc_id))
(entmod dim_list)
(entupd dim_id)
); end defun
(defun Test_DimAssoc ( / line1 line2 line3 ang doc mspace obj dim_obj)
(command "_line" '(0 0) '(0 100) "")
(setq line1 (entlast))
(command "_line" '(0 100) '(100 100) "")
(setq line2 (entlast))
(command "_line" '(100 100) '(150 0) "")
(setq line3 (entlast))
(setq ang 0)
(setq doc (vla-get-activeDocument (vlax-get-acad-object)))
(setq mspace (vla-get-modelSpace doc))
(setq obj (vla-addDimRotated mspace (vlax-3d-point (cdr (assoc 10 (entget line2))))
(vlax-3d-point (cdr (assoc 11 (entget line3))))
(vlax-3d-point '(100 150))
ang))
(setq dim_obj (vlax-vla-object->ename obj))
(vlax-release-object obj)
(SetDimAssoc line2 line3)
(princ)
); end defun
(Test_DimAssoc) 感谢您的投入！这让我回头看看我的方法。我注意到我忘了什么
下面的代码适用于尚未关联的现有标注
(defun c:Dassoc ( / _dimension _object _extensiondictionary _dimassoc _number _list )
(if
(and (setq _dimension (car (entsel "\nSpecify Dimension: ")))
(or (wcmatch (cdadr (setq _dimension (entget _dimension))) "*DIMENSION*")
(alert "You must select a dimension to continue!")
)
(setq _object (car (entsel "\nSpecify line associate with: ")))
(or (wcmatch (cdadr (entget _object)) "LINE")
(alert "You must select a Line to continue!")
)
)
(progn
(setq _extensiondictionary
(handent
(vla-get-handle
(vla-getextensiondictionary
(vlax-ename->vla-object (cdar _dimension))
)
)
)
)
(setq _dimassoc
(entmakex
(list
(cons 0 "DIMASSOC")
(cons 100 "AcDbDimAssoc")
(cons 330 (cdar _dimension))
(cons 90 3)
(cons 70 0)
(cons 71 0)
(cons 1 "AcDbOsnapPointRef")
(cons 72 1)
(cons 331 _object)
(cons 73 13)
(cons 91 3)
(cons 40 1.0)
(cons 10 '(0.0 0.0 2.0e+050))
(cons 75 0)
(cons 1 "AcDbOsnapPointRef")
(cons 331 _object)
(cons 72 1)
(cons 73 2)
(cons 91 3)
(cons 40 1.0)
(cons 10 '(0.0 0.0 2.0e+050))
(cons 75 0)
)
)
)
(entmod
(append (entget _extensiondictionary)
(list (cons 3 "ACAD_DIMASSOC") (cons 360 _dimassoc))
)
)
(setq _number (vl-position (assoc 330 _dimension) _dimension))
(repeat _number
(setq _list (cons (nth (setq _number (1- _number)) _dimension) _list))
)
(entmod
(append _list
(list '(102 . "{ACAD_XDICTIONARY") (cons 330 _extensiondictionary) '(102 . "}")
'(102 . "{ACAD_REACTORS") (cons 330_dimassoc) '(102 . "}")
)
(member (assoc 330 _dimension) _dimension)
)
)
)
) (princ)
)
非常感谢。我的问题解决了。
页:
1
[2]