2013-08-09 QQ群：CAD开发高级服务群(325489190) 聊天记录：http://bbs.xdcad.net/forum.php?mod=vie

CCarch

孤单的时候~~(286168051)于2013-08-09 19-00-29：
7777

CCarch

孤单的时候~~(286168051)于2013-08-09 19-12-41：
能听见说话吗

CCarch

孤单的时候~~(286168051)于2013-08-09 19-18-16：
今天休息一天 明天上课帮助大家消化知识

CCarch

天印樵夫(59087207)于2013-08-09 19-20-49：
不在

CCarch

天印樵夫(59087207)于2013-08-09 19-21-12：
这段时间家里的网络不正常

CCarch

思考★人生(519204667)于2013-08-09 19-25-50：
星期六和老猫的课冲突

CCarch

孤单的时候~~(286168051)于2013-08-09 19-36-09：
哦

CCarch

  龙泽天涯(94674257)于2013-08-09 19-44-20：
老猫现在上什么课
？

CCarch

孤单的时候~~(286168051)于2013-08-09 19-58-52：
上好视通

CCarch

图~涂(443181606)于2013-08-09 20-09-42：
登入名和密码

CCarch

孤单的时候~~(286168051)于2013-08-09 20-11-06：
htcz24 7777

CCarch

孤单的时候~~(286168051)于2013-08-09 20-16-26：
[qqimg]{22121DA5-98CE-E426-6FBC-133A4323D1DE}.jpg[/qqimg]

CCarch

思考★人生(519204667)于2013-08-09 20-23-24：
把代码发一次，开头没看到

CCarch

孤单的时候~~(286168051)于2013-08-09 20-58-34：
(defun c:gcsj()
  (setvar "cmdecho" 0)
  (setq re(getreal "\n输入一个值:"))
  (setq ss(ssget '((0 . "insert")(8 . "地貌"))))
  (if ss
    (progn
      (setq i 0)
      (repeat(sslength ss)
        (setq sn(ssname ss i))
        (setq ent(entget sn))
        (setq zb(cdr(assoc 10 ent)))
        (setq p1(polar zb (angtof "45") 5))
        (setq p2(polar zb (angtof "225") 5)
              )
        (setq x(car zb)
              y(cadr zb)
              z(+ (caddr zb)re))
        (setq coor (list 10 x y z))
        (setq ent(subst coor (assoc 10 ent)ent))
        (entmod ent)
        (setq wz(ssget  "c" p1 p2 '((0  . "text")(8 . "地貌"))))
        (if wz
          (progn
            (setq wn(ssname wz 0))
            (setq enn(entget wn))
            (setq wz2(cdr(assoc 1 enn)))
            (setq wz1(rtos(+ (distof wz2) re)2 2))
            (setq enn(subst(cons 1 wz1)(assoc 1 enn)enn))
            (entmod enn)
            

            ))
        (setq i(1+ i))
        )
      ))
  
    (princ)
    )

CCarch

still(715898018)于2013-08-09 21-05-13：
原来今天没有课呀