已经解决问题：lisp中如何加载线型？怎么我编的有错误？

fl202 · 发表于 2009-2-25 16:19:13

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

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

×

(setq key (tblsearch "ltype" "dashed"))
   (if (null key)
         (command "Linetype" "L" "dashed"))
  (setq key (tblsearch "ltype" "hidden"))
   (if (null key)
            (command "Linetype" "L" "hidden"))
(setq key (tblsearch "ltype" "center"))
   (if (null key)
            (command "Linetype" "L" "center"))
错误: 函数取消
  (command "Linetype" "L" "center"))
如果是：
  (setq key (tblsearch "ltype" "dashed"))
   (if (null key)
         (command "Linetype" "L" "dashed"))
  (setq key (tblsearch "ltype" "hidden"))
   (if (null key)
            (command "Linetype" "L" "hidden"))
错误: 函数取消
(command "Linetype" "L" "hidden"))
也就是最后的那个线型无法加载，lisp允许到上面这句话就停止了。
请问是什么毛病？怎么修改？

CADVL · 发表于 2009-2-25 20:29:58

查看hidden是否包含在acad.lin文件中，如有则先加载acad.lin。

kmdz · 发表于 2009-2-25 21:25:28

(if (null (tblsearch "ltype" "dashed"))
(command "Linetype" "L" "dashed" "" ""))
这样试试

fl202 · 发表于 2009-2-26 13:34:23

非常感谢两位的帮忙，问题解决了。
(if (null (tblsearch "ltype" "dashed"))
(command "Linetype" "L" "dashed" "icad.lin" ""))
这样就可以了！因为我用的是浩辰cad，所以要加成icad.lin。如果是cad的话，要加成cad.lin才可以。不加""这样是不行的，会提示没有找到.lin文件。
再次感谢两位的帮助！

redsnake · 发表于 2009-3-3 15:24:50

学习了，现在想学点lisp解决一些制图中的问题

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

已经解决问题：lisp中如何加载线型？怎么我编的有错误？

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

相关帖子