分享收集的線段剪裁模式的lsp

uno0802 · 发表于 2011-3-20 19:04:13

如果有問題可能是(on)及(off)的設定問題下面原來我設定在acad.lsp的參數
(DEFUN ON ()
(COMMAND "LAYER" "S" soslayer "" )
(setvar "osmode" sosmode)
)
;;******************************************************************
(DEFUN OFF()
  (setq sosmode nil)
  (setq sosmode (getvar "osmode"))
  (SETQ soslayer (GETVAR "CLAYER"))
      (setvar "osmode" 0)
)

uno0802 · 发表于 2011-3-20 19:04:53

如果有問題可能是(on)及(off)的設定問題下面原來我設定在acad.lsp的參數
(DEFUN ON ()
(COMMAND "LAYER" "S" soslayer "" )
(setvar "osmode" sosmode)
)
;;******************************************************************
(DEFUN OFF()
  (setq sosmode nil)
  (setq sosmode (getvar "osmode"))
  (SETQ soslayer (GETVAR "CLAYER"))
      (setvar "osmode" 0)
)

uno0802 · 发表于 2011-3-20 19:06:23

如果有問題可能是(on)及(off)的設定問題下面原來我設定在acad.lsp的參數
(DEFUN ON ()
(COMMAND "LAYER" "S" soslayer "" )
(setvar "osmode" sosmode)
)

(DEFUN OFF()
  (setq sosmode nil)
  (setq sosmode (getvar "osmode"))
  (SETQ soslayer (GETVAR "CLAYER"))
      (setvar "osmode" 0)
)

uno0802 · 发表于 2011-3-20 19:07:25

如果有問題可能是(on)及(off)的設定問題下面原來我設定在acad.lsp的參數(DEFUN ON ()(COMMAND "LAYER" "S" soslayer "" )(setvar "osmode" sosmode) )(DEFUN OFF() (setq sosmode nil) (setq sosmode (getvar "osmode")) (SETQ soslayer (GETVAR "CLAYER")) (setvar "osmode" 0) )

13579 · 发表于 2011-3-21 09:00:12

看样子问题还是比较多，观望中。

mandala · 发表于 2011-3-21 12:45:18

这种东西也好意思拿来卖明经币？

xiaxiang · 发表于 2011-3-21 14:35:00

再建议：
1.发布简体版，因为这里是大陆地区的网站，要照顾大多数人；
2.先保证楼主自己能用，这样才能推荐给别人；
3.效果图;
4.请不要在自己的帖子里灌水；
5.自己整理的函数应提供。
以上纯属个人意见。与楼主共同学习进步。

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

[资源] 分享收集的線段剪裁模式的lsp