CAD中LISP程序使用方法.docx

1、CAD中LISP程序使用方法CAD中LISP程序使用方法2007-08-06 19:13:32| 分类: 学习园地 |字号 订阅 1. 对于提供附件下载的，把附件下载就可以了 2. 对于提供的源LISP代码，把代码拷贝、粘贴到一个文件，自己起个名或者若程序里面注释推荐了文件名，就用推荐的，然后保存成扩展名是LSP的文件即可了。 LISP程序使用方法: 加载LISP 1. 可以使用APPLOAD命令，然后去找到要加载的LISP文件，加载即可。 2. 可以自己从文件管理器把LISP文件拖动到ACAD的图形窗口，也可以加载 3. 在命令行后用，(load c:tempxxx.lsp)也可以加载，路径

2、名请输入实际的路径。 另:对于一个LSP程序，(defun 后面的既是命令或者函数，一般程序应该有提示，若没有，标志符c:后面的单词是可以在ACAD下使用的命令，既可以在COMMAND:后面直接输入，即可执行。 CAD快速切换图层LISP代码(方法2) 给楼主发一个图层更改的lisp程序，按对应数字键就可以切换到相应的图层。很方便。 00 1OBJ 26t 3SCETR 。 8BORDER 如果这些不是你想要的图层，将lisp用笔记本打开，把里边的OBJ，6t等图层名改为你想要的就可以了。以后要切换图层时，按相应的数字键即可。 (defun YH_chlayer (YH_layer / YH_

3、S) (if (null (tblsearch LAYER YH_layer) (entmake (list (0 . LAYER) (100 . AcDbSymbolTableRecord) (100 . AcDbLayerTableRecord) (cons 2 YH_layer) ;图层名称 (70 . 0) ;图层状态 (62 . 7) ;图层颜色 (6 . bylayer) ;图层线型 ) ) ) (setq YH_S (cadr (ssgetfirst) (if YH_S (command CHPROP YH_S la YH_layer c bylayer ) (setvar cl

4、ayer YH_layer) ) (princ) )(defun c:0 () (YH_chlayer 0) ) (defun c:1 () (YH_chlayer OBJ) ) (defun c:2 () (YH_chlayer 6t) ) (defun c:3 () (YH_chlayer SCETR) ) (defun c:4 () (YH_chlayer HIDD) ) (defun c:5 () (YH_chlayer DIM) ) (defun c:6 () (YH_chlayer DASH) ) (defun c:7 () (YH_chlayer TEXT) ) (defun c

5、:8 () (YH_chlayer BORDER) ) #Cad 到上面一行为址，保存为lsp格式。 LISP 小程序,改变对象颜色 ;数字1 (defun C:1 ( / gp) (setvar cmdecho 0) (princ n?改变对象颜色为红色?) (setq gp (ssget) (if (/= gp nil) (command .change gp p c 1 ) (princ nOK) (princ) );end defun C:1 ;数字2 (defun C:2 ( / gp) (setvar cmdecho 0) (princ n?改变对象颜色为黄色?) (setq gp

6、 (ssget) (if (/= gp nil) (command .change gp p c 2 ) (princ nOK) (princ) );end defun C:2 ;数字3 (defun C:3 ( / gp) (setvar cmdecho 0) (princ n?改变对象颜色为绿色?) (setq gp (ssget) (if (/= gp nil) (command .change gp p c 3 ) (princ nOK) (princ) );end defun C:3 ;数字4 (defun C:4 ( / gp) (setvar cmdecho 0) (princ

7、n?改变对象颜色为青色?) (setq gp (ssget) (if (/= gp nil) (command .change gp p c 4 ) (princ nOK) (princ) );end defun C:4 ;数字5 (defun C:5 ( / gp) (setvar cmdecho 0) (princ n?改变对象颜色为蓝色?) (setq gp (ssget) (if (/= gp nil) (command .change gp p c 5 ) (princ nOK) (princ) );end defun C:5 ;数字6 (defun C:6 ( / gp) (set

8、var cmdecho 0) (princ n?改变对象颜色为紫色?) (setq gp (ssget) (if (/= gp nil) (command .change gp p c 6 ) (princ nOK) (princ) );end defun C:6 ;数字7 (defun C:7 ( / gp) (setvar cmdecho 0) (princ n?改变对象颜色为白色?) (setq gp (ssget) (if (/= gp nil) (command .change gp p c 7 ) (princ nOK) (princ) );end defun C:7 ;数字8 (

9、defun C:8 ( / gp) (setvar cmdecho 0) (princ n?改变对象颜色为深灰色?) (setq gp (ssget) (if (/= gp nil) (command .change gp p c 8 ) (princ nOK) (princ) );end defun C:8 ;数字9 (defun C:9 ( / gp) (setvar cmdecho 0) (princ n?改变对象颜色为灰色?) (setq gp (ssget) (if (/= gp nil) (command .change gp p c 9 ) (princ nOK) (princ)

10、 );end defun C:9 (英文版 ) Two regulations promulgated for implementation is in the party in power for a long time and the rule of law conditions, the implementation of comprehensive strictly strategic plan, implementation in accordance with the rules and discipline to manage the party, strengthen inne

11、r-party supervision of major initiatives. The two regulations supporting each other, the adhere to a positive advocate, focusing on morality is of Party members and Party leading cadres can see, enough to get a high standard; around the party discipline, disciplinary ruler requirements, listed as ne

12、gative list, focusing on vertical gauge, draw the party organizations and Party members do not touch the bottom line . Here, the main from four square face two party rules of interpretation: the first part introduces two party Revised regulations the necessity and the revision process; the second pa

13、rt is the interpretation of the two fundamental principles of the revision of laws and regulations in the party; the third part introduces two party regulations modified the main changes and needs to grasp several key problems; the fourth part on how to grasp the implementation of the two regulation

14、s of the party. and revised the necessity and revised history of the CPC Central Committee the amendment to the Chinese Communist Party members and leading cadres honest politics several guidelines and column 1 by 2015 to strengthen party laws and regulations focus. Two party regulations revision wo

15、rk lasted a Years, pooling the wisdom of the whole party, ideological consensus, draw historical experience, respect for the wisdom of our predecessors, which reflects the unity of inheritance and innovation; follow the correct direction, grasp the limited goals, adhere to the partys leadership, to

16、solve the masses of the people reflect a focus on the problem. The new revision of the and , reflects the partys 18 and the eighth session of the third, the spirit of the fourth plenary session, reflecting the experience of studying and implementing the General Secretary Xi Jinping series of importa

17、nt speech, reflects the partys eighteen years comprehensive strictly practice. (a) revised two regulations of the party need of in based on revised, the promulgation and implementation of January 2010, to strengthen the construction of the contingent of leading cadres play an important role. But wit

18、h the party to manage the party strictly administering the deepening, has not been able to fully meet the actual needs. Content is too complicated, eight prohibition, 52 are not allowed to hard to remember, and also difficult to put into practice; the second is concisely positive advocated by the la

19、ck of prohibited provisions excessive, no autonomy requirements; the third is banned terms and discipline law, both with the party discipline, disciplinary regulations repeat and Criminal law and other laws and regulations repeat; the fourth is to clean the theme is not prominent, not for the existi

20、ng problems, and is narrow, only needle of county-level leading cadres above. is in 1997 based on revision, in December 2003 the promulgation and implementation, to strengthen the construction of the party play very important role. Along with the development of the situation, which many provisions h

21、ave been unable to fully meet the comprehensive strictly administering the practice needs. One is Ji law, more than half of the provisions and criminal law and other countries laws and regulations Repetition; two is the political discipline regulations is not prominent, not specific, for violation o

22、f the party constitution, damage the authority of Party Constitution of misconduct lack necessary and serious responsibility to pursue; third is the main discipline for the leading cadres, does not cover all Party members. Based on the above situation, need to and the two is likely to be more releva

23、nt regulations first amendment. By revising, really put the authority of Party discipline, the seriousness in the party tree and call up the majority of Party members and cadres of the party constitution of party compasses party consciousness. (II) two party regulations revision process the Central

24、Committee of the Communist Party of China attaches great importance to two regulations revision . Xi Jinping, general books recorded in the Fifth Plenary Session of the eighth session of the Central Commission for Discipline Inspection, on the revised regulations made clear instructions. According t

25、o the central deployment, the Central Commission for Discipline Inspection from 2014 under six months begin study two regulations revision. The Standing Committee of the Central Commission for Discipline Inspection 4 review revised. Comrade Wang Qishan 14 times held a special meeting to study two re

26、gulations revision, amendment clarifies the direction, major issues of principle, path and target, respectively held a forum will listen to part of the province (area) secretary of the Party committee, Secretary of the Discipline Inspection Commission, part of the central ministries and state organs

27、 Department The first party committee is mainly responsible for people, views of experts and scholars and grassroots party organizations and Party members. Approved by the Central Committee of the Communist Party of China, on 7 September 2015, the general office of the Central Committee of the Party

28、 issued a notice to solicit the provinces (autonomous regions, municipalities) Party, the central ministries and commissions, state ministries and commissions of the Party (party), the General Political Department of the military, every 3 people organization of Party of two regulations revision opin

29、ion. Central Commission for Discipline Inspection of extensive solicitation of opinions, careful study, attracting, formed a revised sent reviewers. In October 8 and October 12, Central Committee Political Bureau Standing Committee and the Political Bureau of the Central Committee After consideratio

30、n of the two regulations revised draft. On October 18, the Central Committee of the Communist Party of China formally issued two regulations. Can say, two laws amendment concentrated the wisdom of the whole party, embodies the party. Second, and revision of the basic principles of two party regulations revision work and implement the pa