. 1 ;;;-ACET sysvar- SET 2 ;;; Function Function: the value of the system variable, returns a list, each element of the table for the system variables acet-sysvar-set before the previous edit function stored original value, Finally, a last modified element indicates previous value of the system variable 3 ;;; syntax: (ACET-sysvar- SET '( "sysvar" value "sysvar" ... value)) . 4 ;;; EG: . 5 (acet- sysvar- SET (List "CMDECHO" 0)) . 6 . 7 ;;;-ACET sysvar- restore . 8 ;;; performance function: restore system variables 9 ;;; syntax: (ACET-sysvar- restore ) 10 . 11 ;;; SS-redraw-ACET 12 is ;;; performance function: similar to redraw, redraw but the parameters of entity names, acet-ss-redraw parameter set for the selection of 13(acet-ss-redraw ss 1 ); a display 14 (ACET-SS-the redraw SS 2); Hide 15 (ACET-SS-the redraw SS. 3); highlighted 16 (ACET-SS-the redraw SS. 4); not highlighted . 17 18 is ;;; ACET-gET-UCS . 19 ;;; performance function of: obtaining a current the UCS 20 is ;;; syntax: (UCS-gET-ACET nil) 21 is ;;; return value of a table, three tables element is three points, a first point of origin, the second point on the positive X axis from the origin to the point 1, and the third point on the Y-axis positive distance from the origin point to the axle 1 22 is 23 is ;;; ACET-new new SS- 24 ;;; syntax: (setq SS (SS-new new-ACET (CAR (entsel)))) 25 ;;; returns a value of a selection set, the set of elements selected FIG pattern for the document after the parameter elements from the database (excluding) element 26 is ;;; (defun new new-SS-ACET (ename /) ...);Ent new new SelectionSet with the Create 27 ;;; the SS-NEW-of ACET -> Selection ACETUTIL.FAS Creates SET from Starting ENT 28 29 ;;; (ACET-Table-name-List "Layer") 30 ;;; returns a table , each element in the table is a string, the string of the content name of the present layer in FIG. 31 is (table-ACET-name-List "LTYPE") 32 (table-ACET-name-List "style") 33 is (ACET List-name--table "DIMSTYLE") 34 is (Table-ACET-name-List "Block") 35 ;;; versa 36 37 [ ;;; (ACET-currentviewport-ename) 38 is ;;; If this tab is model, returns nil 39 ;;;If the current layout tab to return to the layout of entity names 40 41;;; (ACET the viewport--Frozen-Layer-List (ACET-currentviewport-ename)) 42 is ;;; returns a table in which each element is a string, the string for the current contents of the layout has been frozen layer name 43 is 44 is ;;; ratio is the same for both strings 45 ;;; (ACET-STR-equal "C" "C") 46 is 47 ;;; like C # format placeholder 48 ;;; (ACET-STR- the format "\ n-Layers have have been Isolated. 1%. 2% IS Current Layer." (Itoa (length LAYLST)) LAY)