ygp820601 发表于 2014-12-14 11:49:38

自定义函数加载不了？

我自定义了个函数，加载后输入命令，显示为未知命令。
但是把她粘贴到编辑器中后输入命令，却正常，这是什么原因呢？
代码如下：
(defun c:tt2(/ printstyle printscale xk dir ReinGroup LenRein ent zb dx dy pt pt1 a b m filename str n gn printer obj osval ssrein pt3 pt4 msbl msur msbr msul pPaper ii vpscale)
        (setq printstyle "lantu.ctb")
        (setq xk (getvar "LWDEFAULT"))
        (setvar "LWDEFAULT" 25)
        (setq dir (GetFolder "\n打印文件存放于..."))
        (if (/= (substr dir (strlen dir) 1) "\\")
                (setq dir(strcat dir "\\"))
        )
        (setq dir(strcat dir (getstring "\n输入文件名前缀:")))
        (if (and (/= (getvar 'ctab) "Model") (/= (getvar 'ctab) "模型"))
                        (setq ReinGroup(ssget '((0 . "VIEWPORT") )))
                        (progn
                                (setqReinGroup (ssget (list (cons 0 "INSERT")(cons 2 "A0*,A1*,A2*,A3*,A4*,TKA0*,TKA1*,TKA2*,TKA3*,TKA4*,TK-*")))
                                )
                                (if (equal (setq printscale (getreal "\n请输入打印比例<1.0>："))nil)
                                        (setq printscale 1.0)
                                        (progn
                                                (if (<= printscale 0)
                                                        (setq printscale 1.0)
                                                )
                                        )
                                )
                        )
        )
        (setq osval (getvar "osmode"))
        (setvar "osmode" 0)
        (setq LenRein (sslength ReinGroup) i 0)
        )


ygp820601 发表于 2014-12-14 11:57:04

把第二个if语句注释后，就没问题了。也就是说问题出在第二个if语句？
页: [1]
查看完整版本: 自定义函数加载不了？