(princ "\n*** Drawing is flat (2D), continuing on. State/Orthographic/Delete/Restore/Save/Ucs/Window]: _top Regenerating model. Of course I'm only selecting the items in model space, but I know you can set elevations in paper space too.Įnter an option Ĭommand: _-view Enter an option [?/Categorize/lAyer I'm just getting point values of each entity, I guess if the point is not equal to zero, set it to some other variable and then work some math (if variable 'a' is greater than variable 'b', keep variable 'a', etc.) (if (setq PTListSS38 (cdr (assoc 38 (entget selObject)))) (setq PTListZ13 (car (cdr (cdr PTListSS13))) (if (setq PTListSS13 (cdr (assoc 13 (entget selObject)))) (setq PTListZ12 (car (cdr (cdr PTListSS12))) (if (setq PTListSS12 (cdr (assoc 12 (entget selObject)))) (setq PTListZ11 (car (cdr (cdr PTListSS11))) (if (setq PTListSS11 (cdr (assoc 11 (entget selObject)))) (setq PTListZ10 (car (cdr (cdr PTListSS10))) get Z value of point list (if (setq PTListSS10 (cdr (assoc 10 (entget selObject)))) get assoc 10 point list (if (setq Entity (cdr (assoc 0 (entget selObject)))) open entity, get 2nd element in list (object type), (while (setq selObject (ssname Objects (setq i (1+ i)))) get first object entity Objects (ssget "_X" (list (cons 0 "ARC,CIRCLE,ELLIPSE,INSERT,LINE,MTEXT,SOLID,TEXT,LWPOLYLINE,MLINE,SPLINE")
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |