;;;
;;; //////////////////////////////////////////////////////////////////////////
;;; //
;;; // ACLTDOC.LSP iComTools 4.0 – Released Mar ,2003
;;; //
;;; //////////////////////////////////////////////////////////////////////////
;;; iComTools is Copyright (C) 1996-2005 BizIcom .,Ltd.
;;; comment1
;;; This file is loaded automatically by AutoCAD LT every time
;;; a drawing is opened.
;;; 주석1
;;;(princ “nThis file is loaded automatically by AutoCAD LT every time a drawing is opened.”)
(defun C:CTIME ;| comment2 주석2 |; ( / ctim)
(setq ctim
(menucmd “M=$(edtime,$(getvar,date),H:MMam/pm)”))
(princ (strcat “nThe current time is ;” ctim ))
(princ)
)
;;;=== General Utility Functions ===
(defun *merr* (msg)
(setq *error* m:err m:err nil)
(princ)
)
(defun *merrmsg* (msg)
(princ msg)
(setq *error* m:err m:err nil)
(princ)
)
;; Loads the indicated ARX app if it isn’t already loaded
;; returns nil if no load was necessary, else returns the
;; app name if a load occurred.
(defun verify_arxapp_loaded (app)
(if (not (loadedp app (arx)))
(moduleload app f)
)
)
;; determines if a given application is loaded…
;; general purpose: can ostensibly be used for appsets (arx) or (ads) or….
;;
;; app is the filename of the application to check (extension is required)
;; appset is a list of applications, (such as (arx) or (ads)
;;
;; returns T or nil, depending on whether app is present in the appset
;; indicated. Case is ignored in comparison, so “foo.arx” matches “FOO.ARX”
;; Also, if appset contains members that contain paths, app will right-match
;; against these members, so “bar.arx” matches “c:\path\bar.arx”; note that
;; “bar.arx” will *not* match “c:\path\foobar.arx.”
(defun loadedp (app appset)
(cond (appset (or
;; exactly equal? (ignoring case)
(= (strcase (car appset))
(strcase app))
;; right-matching? (ignoring case, but assuming that
;; it’s a complete filename (with a backslash before it)
(and
(> (strlen (car appset)) (strlen app))
(= (strcase (substr (car appset)
(- (strlen (car appset))
(strlen app)
)
)
)
(strcase (strcat “\” app))
)
)
;; no match for this entry in appset, try next one….
(loadedp app (cdr appset)) )))
)
;;; ==================== AutoLoad ==============================
;;; Check list of loaded <apptype> applications (“ads” or “arx”)
;;; for the name of a certain appplication <appname>.
;;; Returns T if <appname> is loaded.
(defun ai_AppLoaded (appname apptype)
(apply ‘or
(mapcar
‘(lambda (j)
(wcmatch
(strcase j T)
(strcase (strcat “*” appname “*”) T)
)
)
(eval (list (read apptype)))
)
)
)
(defun _autoqload (quoi app cmdliste / qapp symnam)
(setq qapp (strcat “”” app “””))
(setq initstring “nInitializing…”)
(mapcar
‘(lambda (cmd / nom_cmd)
(progn
(setq nom_cmd (strcat “C:” cmd))
(if (not (eval (read nom_cmd)))
(eval
(read (strcat
“(defun ” nom_cmd “( / rtn)”
“(setq m:err *error* *error* *merrmsg*)”
“(if (_ai_ffile ” qapp “)”
“(progn (princ initstring)”
“(_auto” quoi “load ” qapp “) (setq rtn (” nom_cmd “)))”
“(ai_nofile ” qapp “))”
“(setq *error* m:err m:err nil)”
“rtn)”
))))))
cmdliste)
nil
)
(defun autoload (app cmdliste)
(_autoqload “” app cmdliste)
)
(defun autoarxload (app cmdliste)
(_autoqload “arx” app cmdliste)
)
(defun autoarxacedload (app cmdliste / qapp symnam)
(setq qapp (strcat “”” app “””))
(setq initstring “nInitializing…”)
(mapcar
‘(lambda (cmd / nom_cmd)
(progn
(setq nom_cmd (strcat “C:” cmd))
(if (not (eval (read nom_cmd)))
(eval
(read (strcat
“(defun ” nom_cmd “( / oldcmdecho)”
“(setq m:err *error* *error* *merrmsg*)”
“(if (_ai_ffile ” qapp “)”
“(progn (princ initstring)”
“(_autoarxload ” qapp “)”
“(setq oldcmdecho (getvar ”CMDECHO”))”
“(setvar ”CMDECHO” 0)”
;old “(command ” “”_” cmd “”” “)”
“(vl-sendcommand ” “”” cmd ” ”” “)”
“(setvar ”CMDECHO” oldcmdecho))”
“(ai_nofile ” qapp “))”
“(setq *error* m:err m:err nil)”
“(princ))”
))))))
cmdliste)
nil
)
(defun _autoload (app)
; (princ “Auto:(load “) (princ app) (princ “)”) (terpri)
(load app)
)
(defun _autoarxload (app)
; (princ “Auto:(arxload “) (princ app) (princ “)”) (terpri)
(moduleload app 0)
)
(defun _ai_ffile (app)
(or (findfile (strcat app “.lsp”))
(findfile (strcat app “.exp”))
(findfile (strcat app “.exe”))
(findfile (strcat app “.arx”))
(findfile app)
)
)
(defun ai_nofile (filename)
(princ
(strcat “nThe file “
filename
“(.lsp/.exe/.arx) was not found in your search path folders.”
)
)
(princ “nCheck the installation of the support files and try again.”)
(princ)
)
;;; ===== Single-line MText editor =====
(defun LispEd (contents / fname dcl state)
(if (not (setq fname (getvar “program”)))
(setq fname “aclt”)
)
(strcat fname “.dcl”)
(setq dcl (load_dialog fname))
(if (not (new_dialog “LispEd” dcl)) (exit))
(set_tile “contents” contents)
(mode_tile “contents” 2)
(action_tile “contents” “(setq contents $value)”)
(action_tile “accept” “(done_dialog 1)”)
(action_tile “mtexted” “(done_dialog 2)” )
(setq state (start_dialog))
(unload_dialog dcl)
(cond
((= state 1) contents)
((= state 2) -1)
(t 0)
)
)
;;;===== AutoLoad LISP Applications ==========================================
;;; example (1)
(autoload “edge” ‘(“edge”))
(setfunhelp “C:edge” “” “edge”)
;(autoload “filter” ‘(“filter ” “filter”))
(autoload “3d” ‘(“3d” “3d” “ai_box” “ai_pyramid” “ai_wedge” “ai_dome”
“ai_mesh” “ai_sphere” “ai_cone” “ai_torus” “ai_dish”)
)
(setfunhelp “C:3d” “” “3d”)
(setfunhelp “C:ai_box” “” “3d_box”)
(setfunhelp “C:ai_pyramid” “” “3d_pyramid”)
(setfunhelp “C:ai__wedge” “” “3d_wedge”)
(setfunhelp “C:ai_dome” “” “3d_dome”)
(setfunhelp “C:ai_mesh” “” “3d_mesh”)
(setfunhelp “C:ai_sphere” “” “3d_sphere”)
(setfunhelp “C:ai_cone” “” “3d_cone”)
(setfunhelp “C:ai_torus” “” “3d_torus”)
(setfunhelp “C:ai_dish” “” “3d_dish”)
(autoload “3darray” ‘(“3darray”))
(setfunhelp “C:3darray” “” “3darray”)
;;;===== AutoArxLoad Arx Applications ========================================
;;; example (2) ‘C:CMD’ type
;;;(autoarxload “example.arx” ‘(“cmd1” “cmd2”))
;;;===== AutoArxAcedLoad Arx Applications ========================================
;;; example (3) ‘CMD’ type
;;;(autoarxacedload “arxSample.arx” ‘(“command1” “command2”))
(vl-title “AutoCAD LT / iComTools v4.0”)
;; Silent load.
; **********************************************************************
; CHGTEXT.LSP
; This program will replace every occurance of an “old string” with a
; “new string”. You will be prompted to select the text you wish
; to change. Then you will be asked to enter the “old string” and
; the “new string”. After the text has been changed, the total number
; of changed lines is displayed.
; Error function added – April 1988.
; **********************************************************************
;;CHANGE LAYER OBJECT BY…………..;;
(DEFUN C:CT (/ COBLAY1 COBLAY2 COBLAY3 CT1 CT2 CT3 CNT REAL)
(GRAPHSCR)
(SETQ CT1 (SSGET))
(SETQ COBLAY1 (ENTSEL “Object Layer Selection :”))(terpri)
(SETQ COBLAY2 (ENTGET (CAR COBLAY1)))
(SETQ COBLAY3 (ASSOC 7 COBLAY2))
(SETQ CT2 (SSLENGTH CT1))
(SETQ CNT 0)
(SETQ REAL (SSADD))
(WHILE (< CNT CT2)
(SETQ CT3 (ENTGET (SSNAME CT1 CNT)))
(SSADD (SSNAME CT1 CNT) REAL)
(SETQ CNT (1+ CNT))
)
(IF (NULL OBLAY6)
(COMMAND “CHANGE” REAL “” COBLAY3 “” “” “”))
(SETQ REAL REAL)
(PRINC ” CHANGE LAYER .. GOOD!!”)
(PRINC “MY NAME K-H-M GOOD BEY!!”)(TERPRI)
(PRIN1)
)
;;CHANGE LAYER OBJECT BY…………..;;
(DEFUN C:cQ (/ COL1 COL2 Z OBLAY1 OBLAY2 OBLAY3 OBLAY4 OBLAY5 OBLAY6 PO1 PO2 PO3 CNT REAL)
(GRAPHSCR)
(SETQ PO1 (SSGET))
(SETQ OBLAY1 (ENTSEL “Object Layer Selection :”))(terpri)
(SETQ OBLAY2 (ENTGET (CAR OBLAY1)))
(SETQ OBLAY3 (ASSOC 8 OBLAY2))
(SETQ OBLAY4 (CDR OBLAY3))
(SETQ OBLAY5 (ASSOC 6 OBLAY2))
(SETQ OBLAY6 (CDR OBLAY5))
(SETQ PO2 (SSLENGTH PO1))
(SETQ CNT 0)
(SETQ REAL (SSADD))
(WHILE (< CNT PO2)
(SETQ PO3 (ENTGET (SSNAME PO1 CNT)))
(SSADD (SSNAME PO1 CNT) REAL)
(SETQ CNT (1+ CNT))
)
(IF (NULL OBLAY6)
(COMMAND “CHANGE” REAL “” “P” “LA” OBLAY4 “LT” “BYLAYER” “C” “bylayer” “”)
(COMMAND “CHANGE” REAL “” “P” “LA” OBLAY4 “LT” OBLAY6 “C” “bylayer” “”))
(SETQ REAL REAL)
(setq z PO2)
(PRINC “SELECT LAYER NAME::”)
(PRINC OBLAY4)
(PRINC ” LINETYPE::”)
(PRINC OBLAY6)(TERPRI)
(princ z)
(PRINC ” CHANGE LAYER .. GOOD!!”)
(PRINC “MY NAME K-H-M GOOD BEY!!”)(TERPRI)
(PRIN1)
)
*******************************************
* LIGHTING FIXTURE ARRANGE PROGRAM *
* KIM HOAN MOO 1995. 08. 27 *
* SEJIN ENG *
*******************************************
(defun C:IN (/ M S P1 P2 XN YN XL YL XI YI Q Z R) ;Arrange of the lighting fixture
(SETVAR “CMDECHO” 0)
(SETQ M(getstring “Fiture name :”))(terpri)
(setq s(getdist “Scale facter :”))(terpri)
(setq P1(getpoint “First point “))(terpri)
(setq P2(getcorner P1 “Second point “))(terpri)
(setq XN(getint “Colum numbers :”))(terpri)
(setq YN(getint “Lower numbers :”))(terpri)
(setq XL(/ (- (car P2) (car P1)) XN))
(setq XI(/ XL 2))
(setq YL(/ (- (cadr P2) (cadr P1)) YN))
(setq YI(/ YL 2))
(setq q (list (+ (car P1) XI) (+ (cadr P1) YI)))
(SETQ r (GETINT “Rotate angle :”))
(COMMAND “INSERT” M q s s r)
(IF (AND (= XN 1) (= YN 1)) (PROMPT “ARRANGE ONLY ONE “)
(IF (AND (/= XN 1) (/= YN 1))
(COMMAND “ARRAY” “L” “” “R” YN XN YL XL)
(IF (= XN 1)
(COMMAND “ARRAY” “L” “” “R” YN XN YL)
(COMMAND “ARRAY” “L” “” “R” YN XN XL)
)
)
)
(setq z (* XN YN))
(princ z)
(PRINC “Arrays Symbol.. ;GOOD BEY..”)
)
;——–AUTO SNAP——-
(defun C:SN (/ ce ss pp pl p1 p2)
(GRAPHSCR)
(SETVAR “blipmode” 0)
(setq CE (entsel “Select object Snap line:”))(terpri)
(setq SS (entget (car ce)))
(setq pp (assoc 10 ss))
(setq pl (assoc 11 ss))
(setq p1 (cdr pp))
(setq p2 (cdr pl))
(command “snap” “r” P1 P2 )
(SETVAR “SNAPMODE” 0)
(prin1)
)
;——–AUTO LAYER OFF——-
(defun c:LO (/ kk k1 k2 k3)
(setq KK (entsel “Select object Layer off:”))(terpri)
(setq K1 (entget (car KK)))
(setq K2 (assoc 8 K1))
(setq K3 (cdr K2))
(command “LAYER” “OFF” K3 “”)
(prin1)
)
;——–AUTO PLINE EDIT——-
(defun c:PEE ()
(setq PE1 (SSGET))(terpri)
(setq pe2 (getstring “Type is Pline width:”))(terpri)
(command “pedit” pe1 “y” “j” pe1 “” “w” pe2 “”)
(prin1)
)
;——–AUTO LAYER LOCK——-
(defun c:LC (/ Lk Lk1 Lk2 Lk3)
(setq LK (entsel “Select object Layer LOCK:”))(terpri)
(setq LK1 (entget (car LK)))
(setq LK2 (assoc 8 LK1))
(setq LK3 (cdr LK2))
(command “LAYER” “LOCK” LK3 “”)
(prin1)
)
;——–AUTO LAYER UNLOCK——-
(defun c:LU (/ LLk LLk1 LLk2 LLk3)
(setq LLK (entsel “Select object Layer UNLOCK:”))(terpri)
(setq LLK1 (entget (car LLK)))
(setq LLK2 (assoc 8 LLK1))
(setq LLK3 (cdr LLK2))
(command “LAYER” “UNLOCK” LLK3 “”)
(prin1)
)
;——–AUTO LAYER SET——-
(defun c:LS (/ ll l1 l2 l3)
(setq LL (entsel “Select object Layer SET:”))(terpri)
(setq L1 (entget (car LL)))
(setq L2 (assoc 8 L1))
(setq L3 (cdr L2))
(command “LAYER” “SET” L3 “”)
(prin1)
)
;——–MULTIPLE EXTEND——-
(defun c:met (/ CE SS LS NO PNT1 PNT2)
(setvar “CMDECHO” 0)
(prompt “Select extend edge”)(terpri)
(setq CE (ssget))(terpri)
(prompt “Select objects to extend:”)
(terpri)
(setq PNT1 (getpoint “First point”))
(terpri)
(setq PNT2 (getcorner PNT1 “2nd pnt”))
(terpri)
(setq SS (ssget “C” PNT1 PNT2)
LS (sslength SS)
NO -1
)
(command “EXTEND” CE “”)
(repeat LS
(setq NO (1+ NO))
(command (list (ssname SS NO) PNT2))
)
(command “”)
(setvar “CMDECHO” 1)
(prin1)
)
(DEFUN C:TT (/ p l n e os as ns st s nsl osl sl si chf chm olderr)
(setq olderr *error* ; Initialize variables
*error* myerror
chm 0)
(setq p (ssget)) ; Select objects
(if p (progn ; If any objects selected
(while (= 0 (setq osl (strlen (setq os (getstring t “nOld string: “)))))
(princ “Null input invalid”)
)
(setq nsl (strlen (setq ns (getstring t “nNew string: “))))
(setq l 0 n (sslength p))
(while (< l n) ; For each selected object…
(if (= “TEXT” ; Look for TEXT entity type (group 0)
(cdr (assoc 0 (setq e (entget (ssname p l))))))
(progn
(setq chf nil si 1)
(setq s (cdr (setq as (assoc 1 e))))
(while (= osl (setq sl (strlen
(setq st (substr s si osl)))))
(if (= st os)
(progn
(setq s (strcat (substr s 1 (1- si)) ns
(substr s (+ si osl))))
(setq chf t) ; Found old string
(setq si (+ si nsl))
)
(setq si (1+ si))
)
)
(if chf (progn ; Substitute new string for old
(setq e (subst (cons 1 s) as e))
(entmod e) ; Modify the TEXT entity
(setq chm (1+ chm))
))
)
)
(setq l (1+ l))
)
))
(princ “Changed “) ; Print total lines changed
(princ chm)
(princ ” text lines.”)
(terpri)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
(defun c:ttt()
(setq ts(ssget))
(SETQ L(SSLENGTH ts))
(setq sz(getreal”n Text Size : “))
(setq i 0)
(setq l1(- l 1))
(while (<= i l1)
(setq t1(ssname ts i))
(setq t2(entget t1))
(setq t0(cdr (assoc 0 t2)))
(cond ((= “TEXT” t0) (PROGN
(setq h sz)
(setq t2(subst (cons 40 h)(assoc 40 t2) t2))
(entmod t2)))
(t nill))
(setq i(+ i 1)))
)
(defun c:rt ( / cmde pt1 pt2)
(setq m:err *error* *error* *merr*
cmde (getvar “CMDECHO”)
)
(setvar “CMDECHO” 0)
(setq pt1 (getpoint “nFirst corner: “)
pt2 (getcorner pt1 “nOther corner: “)
)
(command “_.PLINE” pt1 (list (car pt1) (cadr pt2))
pt2 (list (car pt2) (cadr pt1))
“_C”
)
(setvar “CMDECHO” cmde)
(setq *error* m:err m:err nil)
(princ)
)
(defun C:XX (/ ftag ftag1 ftxt2 tag tget ttxt ftxt ttag)
(graphscr)
(setvar “cmdecho” 0)
(setq a 1)
(setq ftag (entsel “n원본 문자를 선택 하세요 :?”))
(if (/= ftag nil)
(progn
(setq ftag1 (entget (car ftag)))
(setq ftxt (cdr (assoc 0 ftag1)))
(if (= ftxt “TEXT”)
(progn
(setq ftxt2 (cdr (assoc 1 ftag1)))
(while a
(setq tag (entsel “n원본과 동일하게 변경 시키고자하는 문자를 선택 하세요 :?”))
(if (= tag nil) (setq a nil))
(if (/= tag nil)
(progn
(setq tget (entget (car tag)))
(setq ttxt (cdr (assoc 0 tget)))
(if (= ttxt “TEXT”)
(progn
(setq ttag (subst (cons 1 ftxt2) (assoc 1 tget) tget))
(entmod ttag)
);end pro
);end if
);end pro
);end if
);end while
);end pro
);end if
);end pro
);end if
(princ)
);end defun
(AUTOLOAD “JROOM” ‘(“RR”))
(autoload “XP” ‘(“XP”))
(autoload “geomcal” ‘(“cal”))
(autoload “khm1” ‘(“jj”))
(autoload “CHTEXT” ‘(“CHT”))
(autoload “tt” ‘(“tt”))
(autoload “t” ‘(“t”))
(autoload “q3” ‘(“q3”))
(autoload “ttt” ‘(“TTT”))
(autoload “rev” ‘(“rev”))
(autoload “LASET” ‘(“LASET”))
(autoload “FFF” ‘(“FFF”))
(princ)
로드도 하고 서류가방에도 넣었습니다..파일을 새로 열거나 캐드를 새로 열면 않되네요..
2014네트워버젼까지는 잘 됐는데..ㅇ2015네트워버젼으로 업데이트 하고 나서 않되네요..
꼭 좀 봐주세요..감사합니다..파일로도 올려놓겠습니다..ㅎ
리습저장한 폴더를 신뢰할 수 있는 경로에 추가하고
경로 추가하고 관리자로 실행해서 리습 제거했다가 다시 추가해봤는데..않돼네요..ㅜㅜ