[求助]请教：LISP

jbaobao · 发表于 2006-3-12 18:54

听说可以在LISP程序中加入一函数指定任何一个文件，在执行程序过程中需寻找电脑中的这个文件，如没有找到则不能再执行下去！！不知LISP是怎么写的，是无论加在程序中的任何一个位置都可以吗？？请教了！！！！！谢谢了！！！！！！！！！

xyp1964 · 发表于 2006-3-12 18:59

参考：

(defun c:test105 ()
(CMDLA0)
(alert
"数据格式:
X坐标 Y坐标
X坐标 Y坐标
X坐标 Y坐标
X坐标 Y坐标
X坐标 Y坐标
..."
)
(prompt "\n\t稍候 ")
(MKLA "建筑-红线" 1)
(setq tn (getfiled "坐标数据文件(txt;dat;*)" "" "txt;dat;*" 2))
(setq fle (findfile tn))
(if (not fle)
(setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8))
)
(if fle
(progn
(setq fn (open fle "r"))
(command "pline")
(while (setq pt (read-line fn))
(princ ".")
(command (read (strcat "(" pt ")")))
)
(command "")
(close fn)
)
(princ "\n未选择数据文件，退出")
)
(prompt " 完毕！")
(CMDLA1)
)

jbaobao · 发表于 2006-3-12 20:50

不好意思，我的级别太差了，还没看明白，下面我有一段程，可否帮我加一下，要求在执行中寻找C盘中LISP目录下的a,txt文件！！！如没有找到此文件则不能运行！！！谢谢！！！！！！！！！

(defun c:dl ()
(setvar "cmdecho" 0)
(setq ll (ssget))
(setq llnum (sslength ll))
(setq rep1 0)
(repeat llnum
    (setq lname1 (ssname ll rep1)
   lent1 (entget lname1)
   lp11 (cdr (assoc '10 lent1))
   lp12 (cdr (assoc '11 lent1))
   lper1 (list lp11 lp12 lname1)
    )
    (setq rep2 0)
    (repeat llnum
      (setq lname2 (ssname ll rep2)
     lent2 (entget lname2)
     lp21   (cdr (assoc '10 lent2))
     lp22   (cdr (assoc '11 lent2))
     lper2 (list lp21 lp22 lname2)
      )
      (if (/= rep1 rep2)
(progn
   (if (or (and (equal lp11 lp21) (equal lp12 lp22))
    (and (equal lp11 lp22) (equal lp12 lp21))
       )
     (vl-cmdf "erase" lname1 "")
   )
)
      )
      (setq rep2 (1+ rep2))
    )
    (setq rep1 (1+ rep1))
    (princ (strcat "\rProcessing object " (itoa rep1) " of " (itoa llnum)))
)
(setvar "cmdecho" 1)
(princ)
)

xyp1964 · 发表于 2006-3-12 22:03

(defun c:dl ()
(if (findfile "C:/LISP/a.txt")
(progn
(setvar "cmdecho" 0)
(setq ll (ssget)
llnum (sslength ll)
rep1 0
)
(repeat llnum
(setq lname1 (ssname ll rep1)
lent1 (entget lname1)
lp11 (cdr (assoc '10 lent1))
lp12 (cdr (assoc '11 lent1))
lper1 (list lp11 lp12 lname1)
rep2 0
)
(repeat llnum
(setq lname2 (ssname ll rep2)
lent2 (entget lname2)
lp21 (cdr (assoc '10 lent2))
lp22 (cdr (assoc '11 lent2))
lper2 (list lp21 lp22 lname2)
)
(if (/= rep1 rep2)
(if (or (and (equal lp11 lp21) (equal lp12 lp22))
(and (equal lp11 lp22) (equal lp12 lp21))
)
(vl-cmdf "erase" lname1 "")
)
)
(setq rep2 (1+ rep2))
)
(setq rep1 (1+ rep1))
(princ (strcat "\rProcessing object "
(itoa rep1)
" of "
(itoa llnum)
)
)
)
(setvar "cmdecho" 1)
)
)
(princ)
)

jbaobao · 发表于 2006-3-13 13:17

谢谢了！！深深的感谢！！！！！！！！

jbaobao · 发表于 2006-3-15 20:51

不好意思，再请教：在程序执行中如果没找到文件，可否加一句提示错误，如有找到正常垫行则不提示！！！

谢谢！！！！！！

账号		自动登录	找回密码
密码			注册

[求助]请教：LISP

浏览过的版块