请帮帮小菜鸟

tranney

;逐点标注
(defun c:dg ()(princ "逐点标注:\n")
(if (= nil (vl-vlx-loaded-p "逐点标注YY-ZDBZ.fas"))
    (load "a5逐点标注YY-ZDBZ.fas") (command "DIMALIGNED"))
    (if (= nil (vl-vlx-loaded-p "逐点标注YY-ZDBZ.fas"))
    (command "DIMALIGNED") (c:YY-ZDBZ))
(princ))

这个程序原本我想原来如果是列表内已经没加载“逐点标注YY-ZDBZ.fas”文件，则加载，并执行yy-zdbz这个命令，如果是没有则直接执行DIMALIGNED命令，结果，如果是没有“逐点标注YY-ZDBZ.fas”这个文件，则直接跳出。。

希望大哥能帮我改一下，谢谢

ll_j

Lisp是不怕重载的，你直接加载就是了。

Gu_xl

1. (defun c:dg ()(princ "逐点标注:\n")
   
2.   (if (not c:YY-ZDBZ) (load "a5逐点标注YY-ZDBZ.fas"))
   
3.   (if c:YY-ZDBZ
   
4.     (c:YY-ZDBZ)
   
5.     (command "DIMALIGNED")
   
6.     )
   
7.   )

(defun c:dg ()(princ "逐点标注:\n")<br />   (if (not c:YY-ZDBZ) (load "a5逐点标注YY-ZDBZ.fas"))<br />   (if c:YY-ZDBZ<br />     (c:YY-ZDBZ)<br />     (command "DIMALIGNED")<br />     )<br />   )

tranney

楼主，首先感谢您的大力帮忙，但是
加载这里直接断了，显示如下
逐点标注:
LOAD 失败: "逐点标注YY-ZDBZ.fas"
命令:
这样就退出了，我想能不能程序在支持路径查找‘逐点标注YY-ZDBZ.fas’有则加载，
否则执行(command "DIMALIGNED")

tranney

Gu_xl 发表于 2013-6-5 16:42

楼主，首先感谢您的大力帮忙，但是
加载这里直接断了，显示如下
逐点标注:
LOAD 失败: "逐点标注YY-ZDBZ.fas"
命令:
这样就退出了，我想能不能程序在支持路径查找‘逐点标注YY-ZDBZ.fas’有则加载，
否则执行(command "DIMALIGNED")

wowan1314

这个程序我不是已经把源码发布了吗？你怎地去纠结加载的问题了

tranney

wowan1314 发表于 2013-6-5 22:26
这个程序我不是已经把源码发布了吗？你怎地去纠结加载的问题了

哦，我想起来了，我开始是没币的，呵呵，后来才有币的