;;Keep current layer
(defun C:A1 ()
(setvar "cmdecho" 0)
(setq IN 0)
(setq LA nil)
(setq SS (ssget "X"))
In order to help everyone understand better, let us understand the specific meaning of this code: "(setq DQTCM (getvar "CLAYER"))". The purpose of this code is to get the name of the current layer and assign it to the variable DQTCM. In this way, we can use this variable to refer to the current layer in subsequent operations.
(if (/= SS nil)
(progn
(princ "\nProcessing graphics data, please wait...")
(repeat (sslength SS)
(setq EN (ssname SS IN))
(setq TY1 (entget EN))
In order to help players solve the problem, we can try to use the following code: ``` (setq LayerName (cdr (assoc 8 TY1))) ``` This code helps us get the name of the layer named "TY1". Hope this code helps everyone!
In order to help players solve the puzzle better, let’s take a look at the specific solution to this level. We need to take action when encountering the following situation: "LA LayerName" and "LayerName DQTCM" are not equal.
(progn
In order to help players who have not passed the level yet, let us learn about the specific puzzle solving methods. During puzzle solving, we can use a command to turn off specific layers. This command is "(command "-layer" "off" LayerName "")". By executing this command, we can temporarily turn off a specified layer to better observe elements in other layers. Hope this little trick can
In order to help players who have not passed the level yet, let us learn about the specific puzzle solving methods. (princ (strcat "\nOkay, the layer has been turned off."))
);end progn
In order to help players who have not successfully completed the level, let us learn about the specific methods of solving the puzzle. In the game, when encountering a layer named DQTCM, we need to do the following: check whether the name of the current layer is equal to DQTCM, and if not, continue to the next step. In this way, we can solve the puzzle step by step and successfully pass the level. Hope these tips help
(setq LA LayerName)
(setq IN (1 IN))
In order to help players who have not yet cleared the level, let us learn how to solve the puzzle.
);end progn
);end if (if (/= SS nil)
(setq SS nil)
(princ "\nOkay, all layers except the current layer have been closed.")
(princ)
);end defun C:A1 ()
Copy the above code into Notepad, save it as an A1.lsp file, and then use the appload command in CAD to load the program.
If you want to save the set layers, annotations and print settings for easy use when making drawings next time, you can follow the steps below:
How to operate
In order to help players who have not passed the level yet, I will briefly introduce some puzzle solving methods.
Create a new CAD document and set parameters such as layers and annotation styles. The document is then saved in DWT format for use as a CAD template file.
Find the folder that stores the DWT template file in the CAD installation directory, and put the DWT file you just created into it. When using it in the future, you will be prompted to select a template file when creating a new document. Just select the DWT file you just put in.
In order to help players who have not passed the level yet, let us learn about the specific puzzle solving methods. Alternatively, you can name that file acad.dwt and replace the default template. This template will be automatically applied every time you open it in the future, saving you the trouble of repeated operations. (4 u) a: a2 q5 N. U
In addition to the methods mentioned above, there are other methods that can help players successfully pass the level.
Create a new CAD document, set the layers, annotation styles, etc. and save it as DWT format (CAD template file). Find the folder where the DWT template file is placed in the CAD installation directory, and save the DWT you just created. Put the file into it. When using it later, when you are prompted to select a template file when creating a new document, just choose that one. Or, name the file acad.dwt (CAD default template) to replace the default template. Just open it in the future. 4 Of course There are other ways.
The above is the detailed content of Methods and techniques for learning CAD layers. For more information, please follow other related articles on the PHP Chinese website!