[求助]：请编个lsp对２５５种颜色的显示隐藏

kwok · 发表于 2006-11-1 11:44:43

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

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

×

有没有好的lsp对２５５种颜色的显示隐藏，不管什么层，只要是同一个色就可以同时显示隐藏。如果选择到的这个颜色显示，其它的则全部隐藏。只看到你点选的颜色.
谢谢!

xyp1964 · 发表于 2006-11-1 13:57:49

[FONT=courier new];;;qxxsyc(曲线显示隐藏)
(defun c:qxxsyc ()
(CMDLA0)
(setvar "osmode" 0)
(if (null INT)
(setq INT 7)
)
(if (setq ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
(progn
(setq INT (UINT 7 "" "颜色号" INT)
ukw (UKWORD 7 "1 2 3" "方式：1-选择/2-显示/3-隐藏" ukw)
ss0 (ssadd)
i -1
)
(while (or (< int 1) (> INT 255))
(setq INT (UINT 7 "" "颜色号" INT))
)
(cond ((= ukw "1")
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (= (xyp-get-Color s1) int)
(setq ss0 (ssadd s1 ss0))
)
)
(xyp-Redraw3 ss0)
(princ "\n选择集：SS0!")
)
((= ukw "2")
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (= (xyp-get-Color s1) int)
(xyp-SubUpdAdd s1 60 0)
)
)
)
((= ukw "3")
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (= (xyp-get-Color s1) int)
(xyp-SubUpdAdd s1 60 1)
)
)
)
)
)
)
(CMDLA1)
)
(princ "\n命令: qxxsyc (曲线显示隐藏)")
(princ)[/FONT]

[FONT=courier new];;;qxxsyc(曲线显示隐藏) 
(defun c:qxxsyc        () 
  (CMDLA0) 
  (setvar "osmode" 0) 
  (if (null INT) 
    (setq INT 7) 
  ) 
  (if (setq ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))) 
    (progn 
      (setq INT        (UINT 7 "" "颜色号" INT) 
            ukw        (UKWORD 7 "1 2 3" "方式：1-选择/2-显示/3-隐藏" ukw) 
            ss0        (ssadd) 
            i        -1 
      ) 
      (while (or (< int 1) (> INT 255)) 
        (setq INT (UINT 7 "" "颜色号" INT)) 
      ) 
      (cond ((= ukw "1") 
             (while (setq s1 (ssname ss (setq i (1+ i)))) 
               (if (= (xyp-get-Color s1) int) 
                 (setq ss0 (ssadd s1 ss0)) 
               ) 
             ) 
             (xyp-Redraw3 ss0) 
             (princ "\n选择集：SS0!") 
            ) 
            ((= ukw "2") 
             (while (setq s1 (ssname ss (setq i (1+ i)))) 
               (if (= (xyp-get-Color s1) int) 
                 (xyp-SubUpdAdd s1 60 0) 
               ) 
             ) 
            ) 
            ((= ukw "3") 
             (while (setq s1 (ssname ss (setq i (1+ i)))) 
               (if (= (xyp-get-Color s1) int) 
                 (xyp-SubUpdAdd s1 60 1) 
               ) 
             ) 
            ) 
      ) 
    ) 
  ) 
  (CMDLA1) 
) 
(princ "\n命令: qxxsyc  (曲线显示隐藏)") 
(princ)[/FONT]

kwok · 发表于 2006-11-1 15:30:00

提示错误......请斑竹看一下

可不可以这颜色号不要固定，可以自己在图里指定，因有时也不知这颜色是什么颜色号。
还有可以简单点，就是指定到的颜色显示，其它颜色线则关闭，也可以反之操作
(就是跟对层的开关操作同一样，现在只是想看可不可以对颜色的开关操作)
.谢谢!

zhaoyafei19 · 发表于 2006-11-1 22:53:50

最好编译成程序
谢谢

xyp1964 · 发表于 2006-11-1 23:17:08

编译程序：

kwok · 发表于 2006-11-2 09:22:51

我弄不懂。

我要的是对255种颜色的显示隐藏,点选随意操作..

雨箭风刀 · 发表于 2006-11-3 00:04:32

看程序,没有对块进行处理?

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

[求助]：请编个lsp对２５５种颜色的显示隐藏

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

相关帖子

浏览过的版块