![]() I am just trying to say, that at least when there should be a possibility to either stretch dimensions at extension lines or return the control points back to a certain "standard length" to make it easier manipulating them. If I could learn 10 people in my office and all the planners i work with to set dimensions the right way i would. (vla-endundomark haven`t said sloppy, but if it`s what you understood i`m sorry. (mapcar 'PutDefPointsOnDimLine (vle-selectionset->list ss)) (setq doc (vla-get-activedocument (vlax-get-acad-object))) For Rotated Dimensions gc 13 and gc 14 must be changed together. (setq pt2 (append (vle-remove-last (trans (cdr (assoc 14 elst)) 0 nor)) (cddr pt0))) (setq pt1 (append (vle-remove-last (trans (cdr (assoc 13 elst)) 0 nor)) (cddr pt0))) (setq pt0 (trans (cdr (assoc 10 elst)) 0 nor)) (defun PutDefPointsOnDimLine (enm / ang elst nor pt0 pt1 pt2) You want to achieve can be done programmatically, but the fact that what you call 'sloppy' most CAD operators would consider to be 'best practice' should make you think.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |