2013-10-18 QQ群：CAD-LISP(199191568) 聊天记录：签到

CCarch

快乐之旅(769165365)于2013-10-18 00-00-21：
签到

CCarch

度(273888442)于2013-10-18 00-00-31：
[face32.gif]

CCarch

呆子恒(46053770)于2013-10-18 00-03-52：
签到

CCarch

度(273888442)于2013-10-18 00-05-59：
(defun _xdtb_ecopy(tf / box e mat mat0 pj ret ss v)
    (prompt (strcat "\n选取要" (if tf "拷贝" "移动") "的实体:"))
    (if (and (setq ss (ssget))
             (setq pj (getpoint "\n基点:"))
        )
       (progn
          (setq box (XD::Entity:Box ss))
          (setq e (apply 'xdrx_polyline_make (cons t box)))
          (setq ret (XD::Drag:Move "\n拾取位置:" e pj "" 2 nil)
                mat0 (xdrx_matrix_identity 3)
          )
          (if (= (type ret) 'LIST)
            (progn
               (entdel e)
               (setq v (mapcar '- ret pj)
                     mat (xdrx_matrix_setTranslation mat0 v)
               )
               (if tf
                  (xdrx_entity_transformedcopy ss mat)
                  (xdrx_entity_transform ss mat)
               )
            )
          )
       )
    )
    (princ)
)
(defun c:XDTB_Ecopy1()
    (_xdtb_ecopy t)
    (princ)
)
(defun c:XDTB_EMove1()
    (_xdtb_ecopy nil)
    (princ)
)

CCarch

度(273888442)于2013-10-18 00-06-13：
这个怎么提示[qqimg]{74A463F3-7EFC-3F5A-77E5-8E0A3B7B945F}.jpg[/qqimg]、

CCarch

快乐之旅(769165365)于2013-10-18 06-12-42：
[face63.gif][face74.gif]

CCarch

皇子(766589031)于2013-10-18 13-31-18：
签到

CCarch

简简单单(1401589648)于2013-10-18 14-19-29：
签到

炫翔

炫翔(2363673534)于2013-10-18 14-38-52：
插件源码http://xuanxiang.ys168.com/

CCarch

づ蜡笔、小新〓 (719905775)于2013-10-18 14-44-11：
哦

CCarch

梦泽绘图(121879374)于2013-10-18 14-46-32：
签到

CCarch

海(11813113)于2013-10-18 14-50-42：
签到

CCarch

度(273888442)于2013-10-18 17-01-20：
[face26.gif]

CCarch

度(273888442)于2013-10-18 17-01-28：
怎么老是要签到，

CCarch

度(273888442)于2013-10-18 17-01-34：
有什么原因吗？