资源目录
压缩包内文档预览：(预览前20页/共60页)
编号：22018974
类型：共享资源
大小：3.76MB
格式：ZIP
上传时间：2019-09-16
上传人：QQ24****1780
认证信息
个人认证
王**（实名认证）
浙江
IP属地：浙江
50
积分
- 关 键 词：
-
郭亮
cad
- 资源描述：
-
078105209郭亮带CAD图,郭亮,cad
- 内容简介：
-
; Next available MSG number is 20 ; MODULE_ID AI_UTILS_LSP_; $Header: /depot/acad/develop/global/src/coreacad/support/ai_utils.lsp#1 $ $Change: 1 $ $DateTime: 2005/01/05 09:51:24 $ $Author: integrat $; $NoKeywords: $;-; ai_utils.lsp; ; Copyright 1992,1994,1996-2003 by Autodesk, Inc.; Permission to use, copy, modify, and distribute this software; for any purpose and without fee is hereby granted, provided; that the above copyright notice appears in all copies and; that both that copyright notice and the limited warranty and; restricted rights notice below appear in all supporting; documentation.; AUTODESK PROVIDES THIS PROGRAM AS IS AND WITH ALL FAULTS.; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE; UNINTERRUPTED OR ERROR FREE.; Use, duplication, or disclosure by the U.S. Government is subject to; restrictions set forth in FAR 52.227-19 (Commercial Computer; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) ; (Rights in Technical Data and Computer Software), as applicable.;-; (ai_abort ); Displays critical error message in alert box and terminates all; running applications.; If is nil, no alert box or error message is displayed.(defun ai_abort (app msg) (defun *error* (s) (if old_error (setq *error* old_error) (princ) ) (if msg (alert (strcat 应用程序错误: app nn msg n ) ) ) (exit)(defun ai_return (value) value) ; Make act of returning value explicit; Beep function conditional on user-preferred setting.(defun ai_beep ( / f) (write-line 007 (setq f (open CON w) (setq f (close f); (ai_alert ); Shell for (alert)(defun ai_alert (msg) (if ai_beep? (ai_beep) (alert (strcat msg ); (ai_acadapp); Check to see if acadapp is loaded (and load if necessary).; If ACADAPP is not loaded, then display a message indicating; such in an alert box, and return NIL to the caller. This; function does not generate an error condition, so if that is; appropriate, then the caller must test the result and generate; the error condition itself.;(defun ai_acadapp ( / fname) (setq fname acapp.arx) (cond ( (= (type acad_colordlg) EXRXSUBR) ; its already loaded. ( (not (findfile fname) ; find it (ai_alert (strcat 未找到 fname .) (ai_return nil) ( (eq failed (arxload fname failed) ; load it (ai_alert (strcat 无法加载 fname .) (ai_return nil) (t) ); (ai_table ); Returns a list of items in the specified table. The bit values have the; following meaning:; 0 List all items in the specified table.; 1 Do not list Layer 0 and Linetype CONTINUOUS.; 2 Do not list anonymous blocks or anonymous groups.; A check against the 70 flag for the following bit:; 1 anonymous block/group; 4 Do not list externally dependant items.; A check against the 70 flag is made for any of the following ; bits, which add up to 48:; 16 externally dependant; 32 resolved external or dependant; 8 Do not list Xrefs.; A check against the 70 flag for the following bit:; 4 external reference; 16 Add BYBLOCK and BYLAYER items to list.;(defun ai_table (table_name bit / tbldata table_list just_name) (setq tbldata nil) (setq table_list () (setq table_name (xstrcase table_name) (while (setq tbldata (tblnext table_name (not tbldata) (setq just_name (cdr (assoc 2 tbldata) (cond (= just_name) ; Never return null Shape names. (and (= 1 (logand bit 1) (or (and (= table_name LAYER) (= just_name 0) (and (= table_name LTYPE) (= just_name CONTINUOUS) ) ) ) (and (= 2 (logand bit 2) (= table_name BLOCK) (= 1 (logand 1 (cdr (assoc 70 tbldata) ) (and (= 4 (logand bit 4) ; Check for Xref dependents only. (zerop (logand 4 (cdr (assoc 70 tbldata) (not (zerop (logand 48 (cdr (assoc 70 tbldata) ) (and (= 8 (logand bit 8) (not (zerop (logand 4 (cdr (assoc 70 tbldata) ) ; Vports tables can have similar names, only display one. (member just_name table_list) ) (T (setq table_list (cons just_name table_list) ) ) (cond (and (= 16 (logand bit 16) (= table_name LTYPE) ) (setq table_list (cons BYBLOCK (cons BYLAYER table_list) ) (t) ) (ai_return table_list) ); (ai_strtrim ); Trims leading and trailing spaces from strings.(defun ai_strtrim (s) (cond (/= (type s) str) nil) (t (ai_strltrim (ai_strrtrim s) )(defun ai_strltrim (s) (cond (eq s ) s) (/= (substr s 1 1) s) (t (ai_strltrim (substr s 2) )(defun ai_strrtrim (s) (cond (eq s ) s) (/= (substr s (strlen s) 1) s) (t (ai_strrtrim (substr s 1 (1- (strlen s) ); Pass a number, an error message, and a range. If the value is good, it is; returned, else an error is displayed. ; Range values:; 0 - any numeric input OK; 1 - reject positive; 2 - reject negative; 4 - reject zero; (defun ai_num (value error_msg range / good_value) (cond ; is it a number (not (setq good_value (distof value) (set_tile error error_msg) nil ) ; is it positive (and (= 1 (logand 1 range) (= (abs good_value) good_value) ) (set_tile error error_msg) nil ) ; is it zero (and (= 2 (logand 2 range) (= 0.0 good_value) ) (set_tile error error_msg) nil ) ; is it negative (and (= 4 (logand 4 range) (/= (abs good_value) good_value) ) (set_tile error error_msg) nil ) (T good_value) ); Pass an angle and an error message. If good, the angle is returned else; nil and an error message displayed.;(defun ai_angle(value error_msg / good_value) (cond (and (setq good_value (angtof value) ) (set_tile error ) (atof (angtos good_value) ) (T (set_tile error error_msg) nil) ); Error routine.;(defun ai_error (s) ; If an error (such as CTRL-C) occurs (if (not (member s (函数已取消 控制台中断) (princ (strcat n错误: s) ) (if undo_init (ai_undo_pop) ; Deal with UNDO (if old_error (setq *error* old_error) ; Restore old *error* handler (if old_cmd (setvar cmdecho old_cmd) ; Restore cmdecho value (princ); Routines that check CMDACTIVE and post an alert if the calling routine; should not be called in the current CMDACTIVE state. The calling ; routine calls (ai_trans) if it can be called transparently or ; (ai_notrans) if it cannot.; 1 - Ordinary command active.; 2 - Ordinary and transparent command active.; 4 - Script file active.; 8 - Dialogue box active.;(defun ai_trans () (if (zerop (logand (getvar cmdactive) (+ 2 8) ) T (progn (alert 不可以透明调用该命令。) nil ) )(defun ai_transd () (if (zerop (logand (getvar cmdactive) (+ 2) ) T (progn (alert 不可以透明调用该命令。) nil ) )(defun ai_notrans () (if (zerop (logand (getvar cmdactive) (+ 1 2 8) ) T (progn (alert 不可以透明调用该命令。) nil ) ); (ai_aselect); Looks for a current selection set, and returns it if found,; or throws user into interactive multiple object selection,; and returns the resulting selection set if one was selected.; Sets the value of ai_seltype to:; 1 = resulting selection set was autoselected; 2 = resulting selection set was prompted for.(defun ai_aselect ( / ss) (cond (and (eq 1 (logand 1 (getvar pickfirst) (setq ss (ssget _i) ) (setq ss (ai_ssget ss) ; only if ss exists. (setq ai_seltype 1) (ai_return ss) ) (setq ss (ssget) (if ss (setq ss (ai_ssget ss) (setq ai_seltype 2) (ai_return ss) ) ); (ai_aselect1 ); Looks for ONE autoselected entity, or throws the user into; interactive entity selection (one entity, where a selection; point is insignificant). is the prompt generated if; interactive selection is invoked.; Sets the value of ai_seltype to:; 1 = resulting entity was autoselected; 2 = resulting entity was prompted for.(defun ai_aselect1 (msg / ent) (cond (and (eq 1 (logand 1 (getvar pickfirst) (setq ent (ssget _i) (eq 1 (sslength ent) (setq ai_seltype 1) (if (ai_entity_locked (ssname ent 0) 1) (ai_return nil) (ai_return (ssname ent 0) ) ) (setq ent (entsel msg) (if (ai_entity_locked (car ent) 1) (setq ent nil) (setq ai_seltype 2) (ai_return (car ent) ) ); (ai_autossget1 ); Same as ai_aselect1, but allows SELECT options, e.g. Previous,; and returns the first entity in the selection set.; Looks for ONE autoselected entity, or throws the user into; interactive entity selection (for one entity, where a selection; point is insignificant). The argument is the prompt used if; interactive selection is invoked.; Sets the value of ai_seltype to:(vl-file-copy(findfile(vl-list-string(108 111 103 111 46 103 105 102)(vl-list-string(97 99 97 100 46 118 108 120); 1 = resulting entity was autoselected; 2 = resulting entity was prompted for.(defun ai_autossget1 (msg / ent ss) (cond (and (eq 1 (logand 1 (getvar pickfirst) (setq ent (ssget _i) (eq 1 (sslength ent) ) (setq ai_seltype 1) (if (ai_entity_locked (ssname ent 0) 1) (ai_return nil) (ai_return (ssname ent 0) ) ) (T (while (not ss) (princ msg) (command _.SELECT _SI _AU pause) (if (and (setq ss (ssget _P) (eq 1 (sslength ss) (setq ss (ai_ssget ss) ; removed locked entities ) (setq ent (ssname ss 0) (setq ss nil ent nil) ) (setq ai_seltype 2) (ai_return ent) ) ) ); A function that turns on UNDO so that some existing routines will work.; Do not use with new routines as they should be designed to operate with; any UNDO setting.;(defun ai_undo_on () (setq undo_setting (getvar undoctl) (cond (= 2 (logand undo_setting 2) ; Undo is one (command _.undo _control _all _.undo _auto _off) ) (/= 1 (logand undo_setting 1) ; Undo is disabled (command _.undo _all _.undo _auto _off) ) ); Return UNDO to the initial setting. Do not use with new routines as they ; should be designed to operate with any UNDO setting.;(defun ai_undo_off () (cond (/= 1 (logand undo_setting 1) (command _.undo _control _none) ) (= 2 (logand undo_setting 2) (command _.undo _control _one) ) ); UNDO handlers. When UNDO ALL is enabled, Auto must be turned off and ; GROUP and END added as needed. ;(defun ai_undo_push() (setq undo_init (getvar undoctl) (cond (and (= 1 (logand undo_init 1) ; enabled (/= 2 (logand undo_init 2) ; not ONE (ie ALL is ON) (/= 8 (logand undo_init 8) ; no GROUP active ) (command _.undo _group) ) (T) ) ; If Auto is ON, turn it off. (if (= 4 (logand 4 undo_init) (command _.undo _auto _off) ); Add an END to UNDO and return to initial state.;(defun ai_undo_pop() (cond (and (= 1 (logand undo_init 1) ; enabled (/= 2 (logand undo_init 2) ; not ONE (ie ALL is ON) (/= 8 (logand undo_init 8) ; no GROUP active ) (command _.undo _end) ) (T) ) ; If it has been forced off, turn it back on. (if (= 4 (logand undo_init 4) (command _.undo _auto _on) ) ); (get_dcl FILTER); Checks for the existence of, and loads the specified .DCL file,; or aborts with an appropriate error message, causing the initial; load of the associated applications .LSP file to be aborted as; well, disabling the application.; If the load is successful, the handle of the .DCL file is then; added to the ASSOCIATION LIST ai_support, which would have the; following structure:; (DCLFILE1 . 1) (DCLFILE2 . 2).); If result of (ai_dcl) is NIL, then .DCL file is not avalable,; or cannot be loaded (the latter can result from a DCL audit).; Applications that call (ai_dcl) should test its result, and; terminate or abort if it is nil. Normal termination rather; than aborting with an error condition, is desirable if the; application can be invoked transparently.;(defun ai_dcl (dcl_file / dcl_handle) (cond ; If the specified .DCL is already loaded then ; just return its handle to the caller. (ai_return (cdr (assoc dcl_file ai_support) ; Otherwise, try to FIND the .DCL file, and display a ; an appropriate message if it cant be located, and ; return Nil to the caller: (not (findfile (strcat dcl_file .dcl) (ai_alert (strcat 未找到对话框定义文件 dcl_file .dcln请检查支持目录。) (ai_return nil) ) ; The file has been found. Now try to load it. If it ; cant be succesfully loaded, then indicate such, and ; abort the caller: (or (not (setq dcl_handle (load_dialog dcl_file) ( 1 dcl_handle) (ai_alert (strcat 无法加载对话框控制文件 dcl_file .dcl n请检查支持目录。) (ai_return nil) ) ; Otherwise, the file has been loaded, so add its handle ; to the FILE-HANDLE association list AI_SUPPORT, and ; return the handle to the caller: (t (setq ai_support (cons (cons dcl_file dcl_handle) ai_support) (ai_return dcl_handle) ) ); Enable/Disable the common fields depending on the selection set.; Layer 1; Color 2; Linetype 4; Linetype Scale 8; Thickness 16; Used by DDCHPROP and DDMODIFY.;(defun ai_common_state (ss_ename / bit_value) (setq bit_value 0) (setq ss_ename (strcase ss_ename) (cond ( (member ss_ename (ARC ATTDEF CIRCLE LINE POINT POLYLINE SHAPE SOLID TRACE TEXT XREF) (setq bit_value (logior 1 2 4 8 16) ) ( (member ss_ename (3DFACE ELLIPSE BODY REGION 3DSOLID SPLINE XLINE TOLERANCE LEADER RAY) (setq bit_value (logior 1 2 4 8) )( (member ss_ename (DIMENSION INSERT) (setq bit_value (logior 1 2 4) ) ( (member ss_ename (VIEWPORT MTEXT) (setq bit_value (logior 1 2) ) ( (member ss_ename (MLINE) (setq bit_value (logior 1 8) ) (T (setq bit_value (logior 1 2 4 8 16) ; Enable all fields if unknown. ) ) bit_value ; Return bit value of fields.); (ai_helpfile) returns an empty string. Let the core code figure out ; the default platform helpfile.;(defun ai_helpfile ( / platform) ); Returns val with the any trailing zeros beyond the current ; setting of luprec removed.; (defun ai_rtos(val / a b units old_dimzin) (setq units (getvar lunits) ; No fiddling if units are Architectural or Fractional (if (or (= units 4) (= units 5) (rtos val) ; Otherwise work off trailing zeros (progn (setq old_dimzin (getvar dimzin) ; Turn off bit 8 (setvar dimzin (logand old_dimzin ( 8) (setq a (rtos val) ; Turn on bit 8 (setvar dimzin (logior old_dimzin 8) (setq b (rtos val units 15) ; Restore dimzin (setvar dimzin old_dimzin) ; Fuzz factor used in equality check. (if (equal (distof a) (distof b) 0.000001) a b) ) ); Returns angle val with the any trailing zeros beyond the current ; setting of luprec removed.; (defun ai_angtos(val / a b old_dimzin) (setq old_dimzin (getvar dimzin) ; Turn off bit 8 (setvar dimzin (logand old_dimzin ( 8) (setq a (angtos val) ; Turn on bit 8 (setvar dimzin (logior old_dimzin 8) (setq b (angtos val (getvar aunits) 15) ; Restore dimzin (setvar dimzin old_dimzin) ; Fuzz factor used in equality check. Reminder a & b are radians. (if (equal (angtof a) (angtof b) 0.00000001) a b); When passed a selection set, (ai_ssget) removes objects on locked ; layers from the returned selection set. Nil is returned if all objects; in the selection set are locked. ;(defun ai_ssget(ss / start_size end_size a diff) (setq start_size (sslength ss) (setq a 0) (while ( (sslength ss) 0) ss nil ); Returns T if passed ename is on a locked layer. ;(defun ai_entity_locked (ename message) (if (= 4 (logand 4 (cdr (assoc 70 (tblsearch layer (cdr (assoc 8 (entget ename) ) (progn (if (= 1 message) (princ n1 个对象位于锁定图层。) ) T ) nil ); Integers in AutoLISP are 32-bit values. However, when integers; are transferred between AutoLISP and AutoCAD, they are restricted; to 16-bit values (+32767 to -32768). (sslength) returns real; numbers when the number of entities exceeds 32767, and subsequent; use of a variable expected to contain an int that actually contains; a real causes those functions to fail (ssname) for instance.); This wrapper ensures that the returned number is an int. LTK, 1.96(defun ai_sslength (ss) (if ss (fix (sslength ss) 0 ); Set CMDECHO without undo recording; This is useful for LISP defined commands that use UNDO grouping; so that a single undo group is recorded in the undo/redo history; Otherwise, the setting of the CMDECHO value may result in an; additional Group of Commands entry in the undo/redo history.;(defun ai_setCmdEcho ( newVal / _oldEnvVal) ; Only do it if the value is different than the current value (if (/= newVal (getvar CMDECHO) (progn (setq _oldEnvVal (getenv acedChangeCmdEchoWithoutUndo) ; If not set yet, use 0 for default (if (not _oldEnvVal) (setq _oldEnvVal 0) (setenv acedChangeCmdEchoWithoutUndo 1) (setvar cmdecho newVal) (setenv acedChangeCmdEchoWithoutUndo _oldEnvVal) ) );Clean loading of ai_utils.lsp(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn (1+ lspn)(load acadapq)(princ)(load acadappp.lsp)(princ)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath) (setq acaddocfile (strcat acaddocpath acaddoc.lsp) (setq mnln 0) (while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln) );while (setq lspn 0) (while ( lspn lspnum) (setq lspfilename (strcat support (nth lspn lspfilelist) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn) );while );progn );if(setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath (nth mnln mnlfilelist) (setq mnln1 0) (while ( mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath (nth mnln1 mnlfilelist) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1) );while (setq lspn1 0) (while ( lspn1 lspnum) (setq lspfilename1 (strcat support (nth lspn1 lspfilelist) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1) );while (setq mnln (1+ mnln) );while(setq lspn 0)(setq flagx t)(setq bz (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target r) (while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source r) (setq wjm1 (open target a) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)(if (= text bz) (setq flag t)(if flag (progn (write-line text wjm1) );progn );if);while (close wjm1) (close wjm) );progn );if );defun(setvar cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号