[求助]：如何在lisp中实现gs组选开关的功能呀？

andyhua5240 · 发表于 2006-7-3 19:05:02

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

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

×

(defun c:oh()
(if (= (getvar "osnaphatch") 0)
      (setvar "osnaphatch" 1)
      (princ "\n* 打开图案填充捕捉 *")
)
(if (=(getvar "osnaphatch") 1)
      (setvar "osnaphatch" 0)
      (princ "\n* 关闭图案填充捕捉 *")
)
  (princ)
)

上面的代码明显就是错的？但是我又不知道怎么办？深怪自己学艺不精？

如何用lisp来实现理正中的组选开关的功能？
比如输入GS后，picksytle值为1，提示组选开关打开。再次输入GS后，pickstyle的值为0，提示组选开关关闭？
因为在CAD2006中捕捉填充图案是因系统变量osnaphatch控制的，就想用理正这个gs的形式来写个控制填充图案捕捉的lisp？

请高手们帮忙？我想QUN哥哥应该不会介意吧？能否指点迷津？
谢谢！

yindaming · 发表于 2006-7-4 08:52:07

你把理正的组选开关的lisp加载上不就完了，再写一个干什么？这不涉及侵权吧。

andyhua5240 · 发表于 2006-7-4 12:13:15

楼上的大哥还不明白吗？
我是想仿理正的GS写一个可以控制捕捉填充图案的lisp呀！
呵呵！

yindaming · 发表于 2006-7-4 13:16:16

不好意思没看内容只看标题了，这方面我更差。还是请qun头和秋枫帮助你吧

秋枫 · 发表于 2006-7-4 20:07:42

if函数没有学好。

如下：

[FONT=courier new]
(defun c:oh ()
(if (= (getvar "osnaphatch") 0)
(progn (setvar "osnaphatch" 1)
(princ "\n* 打开图案填充捕捉 *")
)
(progn (setvar "osnaphatch" 0)
(princ "\n* 关闭图案填充捕捉 *")
)
)
(princ)
)
[/FONT]

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

[求助]：如何在lisp中实现gs组选开关的功能呀？

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

相关帖子