2013-06-27 QQ群：ALISP＆VLISP(143438137) 聊天记录：[face21.gif]

luozh7682

筑路人(310178970)于2013-06-27 08-51-16：
请高手指教

sunjie729

妙手公子(47826508)于2013-06-27 08-51-40：
签到

CCarch

→→→醒(16193171)于2013-06-27 08-53-38：
签到

CCarch

関吣(67512820)于2013-06-27 08-53-49：
签到

CCarch

飘(157355446)于2013-06-27 08-57-59：
签到

xtdwynij

      蜡笔小新爱喝五粮液(644169894)于2013-06-27 09-02-08：
签到

守仁格竹GM

守仁格竹?????GM(23214352)于2013-06-27 09-03-58：
http://bbs.xdcad.net/thread-669081-1-1.html
求助 看看有实现的可能吗

CCarch

在路上(317911354)于2013-06-27 09-06-03：
签到

CCarch

゛简单(380942707)于2013-06-27 09-23-51：
[qqimg]{93641CA8-A367-57CB-2700-C2757E448A16}.jpg[/qqimg]

CCarch

偷偷的想念你(544659869)于2013-06-27 09-38-49：
签到

kery8605

诸子(2369933176)于2013-06-27 09-51-27：
签到

CCarch

寒语(65296784)于2013-06-27 09-51-47：
大家给看个程序

CCarch

寒语(65296784)于2013-06-27 09-51-49：
(defun layonf(tf / cly e l lay si ss getlay)
  (defun getlay(lon lof / e e62 e70 lay sof son)(setq e(tblnext"layer"t)son nil sof nil)
    (while e(setq lay(strcase(cdr(assoc 2 e)))e70(cdr(assoc 70 e))e62(cdr(assoc 62 e)))
      (cond((and(or(and lon(not(member lay lon)))(and lof(member lay lof)))
                (if(and lof(= lay cly))
                  (prompt(strcat"\n***不能关闭当前图层["cly"]!"))T)
                (/=(logand e70 1)1)(>= e62 0))(setq sof(cons lay sof)))
           ((and(=(logand e70 1)1)(< e62 0))(setq son(cons lay son)))(t))
      (setq e(tblnext"layer")))
    (if(or lon lof)sof son))
  (setvar"cmdecho"0)(setq cly(strcase(getvar"clayer")))
  (princ(strcat"\n选择要"(if tf"保留显示""关闭")"图层上的实体: "))
  (if(setq ss(ssget))(progn(setq si 0)(while(setq e(ssname ss si))(setq si(1+ si)lay(&DOVR e 8))
                                        (if(not(member lay l))(setq l(cons lay l))))
                       (setq lay(if tf(getlay l nil)(getlay nil l)))
                       (command".layer")(if(and tf(member cly lay))
                                          (progn(princ(strcat"\n当前层由["cly"]变为["(car l)"]!"))
                                            (command"s"(car l))))
                       (foreach x lay(command"f"x"off"x))(command""))
    (progn(setq lay(getlay nil nil))
      (command".layer")(foreach x lay(command"t"x"on"x))(command"")))
  (if(zerop(getvar"regenmode"))(command"regen"))(princ))
(setfunhelp"c:XCXSH""tssd.hlp""XCXSH")
(defun c:XCXSH()(layonf'T))(setfunhelp"c:XCGB""tssd.hlp""XCGB")
(defun c:XCGB()(layonf nil))

CCarch

寒语(65296784)于2013-06-27 09-52-07：
lay(&DOVR e 8))是干什么？ &DOVR是什么？

CCarch

寒语(65296784)于2013-06-27 09-52-20：
这是从TSSD中摘出来的一个LSP