lisp 天正标高_天正lisp文件夹_晓东CAD家园-论坛-A/VLISP-[求助]：怎样设置这个lisp里的读取文件...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

这时一个别人很久以前的lisp文件，可能是cadR12版就有了。文件语句如下：

(setq pt (osnap (getpoint "\n捕捉一个点 :") "end,int"))

(command "ucs" "o" pt)

(setq f (open "/hcad/sld/J647.dat" "r"))

(setq t (read-line f))

(setq a 4)

(while (/= nb t) (setq t (read-line f)))

(while (/= (substr (setq t (read-line f)) 1 1) "*")

(command "layer" "s" (if (= (substr t 1 1) " ")

(substr t 2 1) (substr t 1 2)) "")

(command "pline" (substr t 4 11))

(while (/= (substr t (setq a (+ a 12)) 11) "")

(command (substr t a 11))

)

(command "")

(setq a 4)

)

(close f)

(command "ucs" "")

问题是在语句

(setq f (open "/hcad/sld/J647.dat" "r"))

中如何才能正确读取J647.dat文件

该文件位于软件包目录hcad/sld/之下，我的想法是软件包hcad可能放置的位置可能是任意位置，通过设置cad的选项－文件－支持文件搜索路径来添加该文件夹的放置路径，以便让该lisp语句能正确读取J647.dat文件。

但按照上面的语句设置，只能将hcad文件夹放在c:盘的根目录下才能正确读取J647.dat文件。要不然只能速写完整的绝对路径也可以正确读取，但这样都只能将hcad文件夹放在固定的位置。

请问能不能修改lisp语句来达到上面的目的。

目前使用cad2006及2008

我对lisp来说是个菜鸟，只能看个大概，不懂具体的lisp语句的含意。

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请登录

| 没有账号？请注册

lisp 天正标高_天正lisp文件夹_晓东CAD家园-论坛-A/VLISP-[求助]：怎样设置这个lisp里的读取文件...相关推荐

如何用lisp画蔓叶线_晓东CAD家园-论坛-晓东工具箱、编程申请-求帮忙，编写一个，快速填充图案的 LISP程序 - Powered by Discuz!...
这是我根据从网络上收集到的填充LISP插件,加以修改的的结果.虽然不完美,但还是能达到,60%的期望.发出来,大家帮忙修改一下. ;填充图案的 LISP插件 (defun c:HH(/ kw lay ...
lisp把选集转成表_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：把text转为属性图块 - Powered by Discuz!...
;;把text转为属性图块 ;;By LUCAS (defun C:C_DEF (/ HOLDECHO HOLDBLIP HOLDREQ SS SSS N A AA A1 A73 HH LST_210 ...
lisp点位提取_晓东CAD家园-论坛-A/VLISP-[LISP函数]：计算到指定点指定距离的点的点位 - Powered by Discuz!...
;;;================================================================= ;;;计算到指定点指定距离的点的点位 ;;;参数:lst -- ...
Lisp获取偏置后对象的坐标点_晓东CAD家园-论坛-A/VLISP-[LISP程序]：求助：用lsp提取lwpline的点坐标-有现成的吗？谢谢！ - Powered by Discuz!...
这时有一段代码,可供参考(写的时间太久了) ;;==================================================================== ;; ;将选择 ...
LISP 圆孔标记_晓东CAD家园-论坛-A/VLISP-获取当前标注样式-;;希望大家来完善它 - Powered by Discuz!...
(defun C:get_current_dimStyle (/ L LST Y) (setq Lst (list "blipmode" ...
lisp画垫圈_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：俺的画内六角圆柱头螺钉的LISP程序-见附件 - Powered by Discuz!...
b_screw_column.dcl /*;这是一个基于AutoCad 14.0下画螺钉的程序 ;本程序作者b.w ;本程序无偿使用 ;如有更好建议,请联系b.w ;版本:2.0.01 ;日期:14/ ...
lisp将图元追加选择_晓东CAD家园-论坛-A/VLISP-向块添加新图元，添加图元到块内 - Powered by Discuz!...
(defun $add-ents>block$ (ents block / copy-zt dxf mat mxm mxv objs ref->def trp B-O) ;块外图元复制到块 ...
lisp 多段线转面域_晓东CAD家园-论坛-晓东工具箱、编程申请-[编程申请]：批量面域转成闭合多段线!!!!-批量面域转成闭合多段线!!!! - Powered by Discuz!...
'将多个直线连成一条轻质多段线 Public Sub joinpoly(reg As AcadRegion) reg.Explode On Error Resume Next Dim sset As ...
cad线段总和lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：文本工具：面积文字累加求和 - Powered by Discuz!...
[FONT=courier new] (princ "\nc:txta===面积文字累加求和---txtas设置--------lxx.2001.5") (princ " ...

lisp 天正标高_天正lisp文件夹_晓东CAD家园-论坛-A/VLISP-[求助]：怎样设置这个lisp里的读取文件...

lisp 天正标高_天正lisp文件夹_晓东CAD家园-论坛-A/VLISP-[求助]：怎样设置这个lisp里的读取文件...相关推荐

最新文章

热门文章