[LISP程序]：ddchtext文字修改大师对话框版本

coolzhb

最初由 liuyj 发布
[B]我是说，我把这个程序和其他的一些lisp程序放在一起做vlx就不行了，我试了好多遍，你有什么好的解决办法？ [/B]

我试了一下，可以和其他的程序放在一起的，很正常，可能你编译方法有问题！

light_dream

我也是提示找不到DCL文件，按步骤来的！奇怪！

coolzhb

lisp文件和dcl文件在两个窗口中加入，不是在一个窗口中加入的！看旁边的提示！

zhynt

找不到DCL的原因是程序中有这样的代码：
((not
       (setq dclfile (findfile (naus_ddchpath "ddchtext.dcl")))      
     )
     (alert "Cannot find DDChText.dcl")
     nil
    )
他在搜索路径中查找ddchtext.dcl，如果找到就付值给dclfile变量，而你编译后就将原文件删除或移走了，他当然就找不到了，于是就中断退出。
现只要将其稍微修改一下就行了：
((not
       (setq dclfile "ddchtext.dcl")
     )
     (alert "Cannot find DDChText.dcl")
     nil
    )
直接将"ddchtext.dcl"付值给dclfile就行了。
连这个函数都可以去掉：
(defun naus_ddchpath (FNAME / prefix)
  (strcat (cond
            (NAUS-DDCHPREFIX NAUS-DDCHPREFIX)
            (NAUS-ALLPREFIX NAUS-ALLPREFIX)
            ((setq prefix (getenv "DDCHTEXT"))
             prefix
            )
            ((setq prefix (getenv "CAD-NAUSEAM"))
             prefix
            )
            (T
             ""
            )
          )
          FNAME
  )
)
真是多此一举！

我一开始也是说找不到dcl，修改后就好了。

liuyj

太感谢了！我对你的敬意真如长江之水，滔滔不绝啊！好，不多说了，赶紧去做。

duely

dttcht加载后老是出错，按照上面各位高手的知道修改程序后，还是不能正常运行，而且DCll程序不知道如何加载！顺便还想问一句，这个dttcht和那个ctt7.7到底有什么区别？请指点！

coolzhb

最初由 duely 发布
[B]dttcht加载后老是出错，按照上面各位高手的知道修改程序后，还是不能正常运行，而且DCll程序不知道如何加载！顺便还想问一句，这个dttcht和那个ctt7.7到底有什么区别？请指点！ [/B]

dcl不要加载，是对话框文件，加载lsp文件，ddtt启动程序。

ddcht是外国人编的程序，挺好的。处理对象很多。

ctt是我编的，一个小程序，结合我们常用的功能，各有优缺点。

leimw

怎么没有对话框?

userzhluserzhl

下载不了了呀，能发一份给我吗？
userzhl@21cn.com
谢谢！！！

ysx810210

想下载试试，但是附件已经被删除了，楼主可以重新上传吗？方便新注册的用户