06-16-2022
01:58 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
06-16-2022
01:58 PM
Easy way to check all dimensions are associative?
Associative dimensions on drawings become dissociated. Is there a routine that can check all of the dimensions in a group of drawings and flag dimensions that are not associative?
Can I make a dimension that becomes dissociated change color to flag it?
06-16-2022
03:25 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
06-16-2022
03:25 PM
Check out the AnnoMonitor
https://help.autodesk.com/view/ACD/2021/ENU/?guid=GUID-EEF0796B-9C18-476A-A0E8-876BC5346C97
Sebastian
06-17-2022
05:05 AM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
06-17-2022
05:05 AM
Try this. It selects both, not and partially associated dims.
(defun c:SelDimUnAssociated ( / isDimAssoc? m s i e)
; by Vl. Michl CADStudio
; returns nil or assoc point number
(defun isDimAssoc? (diment / elst dict)
(and (setq elst (entget diment))
(setq dict (cdr (assoc 360 elst)))
(setq elst (entget dict))
(setq elst (entget (cdr (assoc 360 elst)))))
(cdr (assoc 90 elst)))
; ------------------------------------------------------
(princ "\nSelect dims to analyze associativity ... ")
(setq m (ssget "_I" '((0 . "DIMENSION"))))
(if (setq s (ssget '((0 . "DIMENSION"))))
(repeat (setq i (sslength s))
(setq e (ssname s (setq i (1- i))))
(if (= (isDimAssoc? e)
(cadr (assoc (cdr (assoc 100 (reverse (entget e))))
'(("AcDbAlignedDimension" 3)
("AcDbRotatedDimension" 3)
("AcDbRadialDimension" 2)
("AcDbDiametricDimension" 2)
("AcDb3PointAngularDimension" 7)
("AcDb2LineAngularDimension" 15)
("AcDbOrdinateDimension" 2)
("AcDbRadialDimensionLarge" 2)
("AcDbArcDimension" 7)
))))
(ssdel e s))))
(if m (sssetfirst nil nil))
(if (and s (not (zerop (sslength s))))
(sssetfirst nil s))
(princ)
)