2013-07-22 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

haibinpro

陈海彬(258498815)于2013-07-22 13-07-40：
签到

zhang8755

迷糊的世界(364125543)于2013-07-22 13-07-59：
签到

rjtiantian

One Is All(12486872)于2013-07-22 13-08-51：
签到

CCarch

Assassin(2215511877)于2013-07-22 13-14-43：
签到

炫翔

炫翔(2363673534)于2013-07-22 13-33-07：
[face0.gif]

CCarch

长风（龙少）(8240891)于2013-07-22 17-45-14：
签到

CCarch

尒?楿?厷?(916808398)于2013-07-22 17-58-08：
以前生米煮成熟饭，女的就是你的人了，现在你就算把生米煮成爆米花都不管用了！其实我们国家不是一夫一妻制，而是一房一妻制，无房就无妻，多房就多妻。哥从前一直不明白，为啥老婆叫大房、二房、三房…… 如今真的懂了，古人诚不我欺也！这年头，愁的都是房事！男人愁私房，女人愁乳房，老人愁心房，大学生愁开房，打工的愁租房，住院的愁病房，分娩的愁产房，结婚的愁新房，小市民愁分房，老百姓愁住房，制片人愁票房，富人愁二房，坏人愁班房… 中国的文字真厉害：北京，就是背景。上海就是商海。老公，就是劳工。晚上，就是玩赏。升职，就是升值。誓言，就是失言。男人，就是难人。理想，就是离乡。 缘分，就是怨愤。失去，就是拾取。清醒，就是庆幸，结婚就是皆昏。 知道高考为什么要改在6月7、8号吗？意思是：“录取吧”！

関吣

関吣(67512820)于2013-07-22 18-24-53：
签到

CCarch

ZZXXQQ(1468225785)于2013-07-22 20-27-31：
签到

CCarch

書生—SLQ(421944906)于2013-07-22 20-28-20：
签到

zhang8755

迷糊的世界(364125543)于2013-07-22 20-28-25：
签到

CCarch

四十而惑(909802100)于2013-07-22 21-11-34：
To拓荒者：(defun c:mdimalign ()
； (savevariant)
  (setq sta (car (entsel "选择基准尺寸线...")))
  (redraw sta 3)
  (setq stadim (entget sta))
  (setq sp (cdr (assoc 13 stadim)))
  (setq ang (cdr (assoc 50 stadim)))
  (princ " \n选择需对齐的尺寸线...")
  (setq setdim (ssget '((0 . "DIMENSION"))))
  (setq setnum (sslength setdim))
  (setq i 0)
  (repeat setnum
    (setq seteachna (ssname setdim i))
    (if        (or (= ang (/ pi 2.0)) (= ang (/ (* 3.0 pi) 2.0)))
      (progn
        (setq d (entget seteachna))
        (setq e1 (assoc 13 d))
        (setq e2 (assoc 14 d))
        (setq f1 (subst (car sp) (cadr e1) e1))
        (setq f2 (subst (car sp) (cadr e2) e2))
        (setq d (subst f1 (assoc 13 d) d))
        (setq d (subst f2 (assoc 14 d) d))
        (entmod d)
      )
      (progn
        (setq d (entget seteachna))
        (setq e1 (assoc 13 d))
        (setq e2 (assoc 14 d))
        (setq f1 (subst (cadr sp) (caddr e1) e1))
        (setq f2 (subst (cadr sp) (caddr e2) e2))
        (setq d (subst f1 (assoc 13 d) d))
        (setq d (subst f2 (assoc 14 d) d))
        (entmod d)
      )
    )
    (setq i (+ 1 i))
  )
  (redraw sta 4)
  (princ)
  ；(restorevariant)
)

CCarch

冰心(494326805)于2013-07-22 21-12-07：
签到

CCarch

酸菜辣椒(523842694)于2013-07-22 21-12-10：
签到

CCarch

冰心(494326805)于2013-07-22 21-12-28：
有没有做lisp开发的软件加密的，是用获取硬盘序列号、主板序列号加密还是用加密狗加密安全性高些？