10F Jaka Bldg., 6780 Ayala Ave., Makati, Philippines Modified by Greg Battin Featured ( defun c:JDIMS ( / Flag ObjName1 ObjName2 Ang Ang2 Pt1 Pt2 Pt3 Pt4 ) ( princ "\n convert two dimensions to total Dimension on the same position" ) ( princ "\n **********************************" ) ( setq *error* *myerror* ) ( SD1028 ) ( setq LegLen 7.0 ) ( setq Flag nil ) ( get_layer<ype&color ) ( RegistryRead_1001 ) ( setvar "Clayer" Lay1 ) ( setvar "Cecolor" Col1 ) ( setvar "Celtype" LT1 ) ( while ( = Flag nil ) ( setq ObjName1 ( car ( entsel "\n Select 1st Dimension :" ))) ( if ( and ObjName1 Shusei Hayashi OffshoreCad&Management Inc. Simple routine – join separate dimensions into one
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |