cad图形进行加密的好东西

<>将CAD图形增加干扰，图形可显示打印，但再编辑困难，从而保护您的知识产权。</P>

<P>;;=====================================
(defun Command_B()
  (defun tmperr(msg)
     (setq *error* nil)
     (princ msg)
     (command"_.undo""end")
     (setvar"cmdecho"_sm_old_cmd)
     (setvar"osmode"_sm_old_os)
     (setvar"blipmode"_sm_old_bmd)
     (setvar"highlight"1)
     (setvar"elevation"_sm_old_elev)
     (setvar"plinewid"_sm_old_plwid)
     (setvar"pickstyle"_sm_old_picksty)
     (setvar"cecolor" _sm_old_cecolor)
     (setvar"expert"0)
     (princ)
  )
   (setq *error* nil
        _sm_old_cmd(getvar"cmdecho")
        _sm_old_picksty(getvar"pickstyle")
        _sm_old_os (getvar"osmode")
        _sm_old_bmd(getvar"blipmode")
        _sm_old_hlt(getvar"highlight")
        _sm_old_elev(getvar"elevation")
        _sm_old_plwid(getvar"plinewid")
        _sm_old_ucsicon(getvar"ucsicon")
        _sm_old_cecolor(getvar"cecolor")
   )
   (setvar"cmdecho"0)
   (setvar"osmode"0)
   (setvar"blipmode"0)
   (setvar"thickness"0)
   (setvar"elevation"0)
   (setvar"plinewid"0)
   (setvar"pickstyle"0)
   (setvar"cecolor" "bylayer")
   (command"_.undo""group")
   (setq *error* tmperr)
)
;;=====================================
(defun Command_E()
   (command"_.undo""end")
   (setvar"cmdecho"_sm_old_cmd)
   (setvar"osmode"_sm_old_os)
   (setvar"blipmode"_sm_old_bmd)
   (setvar"highlight"1)
   (setvar"ucsicon"_sm_old_ucsicon)
   (setvar"elevation"_sm_old_elev)
   (setvar"plinewid"_sm_old_plwid)
   (setvar"pickstyle"_sm_old_picksty)
   (setvar"cecolor" _sm_old_cecolor)
   (setvar"menuctl"0)
   (setvar"expert"0)
   (setvar"pickbox"4)
   (setq *error* nil)
   (princ)
)
;;=====================================
;;图形数据加密
;;方法一:线条变TRACE
(defun jm_line_to_trace ()
  (Command_B)
  (prompt "\n图形线条加干扰,线条变TRACE,请选择LINE&gt;&gt;")
  (setq ss (ssget (list (cons 0 "LINE"))))
  (if ss
    (progn
      (setq w (getdist "\n请输入TRACE宽度(0.1):")
     w (if w w 0.1)
      )
      (while (setq e (ssname ss 0))
(setq ss (ssdel e ss))
(setq el  (entget e)
       p0  (cdr (assoc 10 el))
       p1  (cdr (assoc 11 el))
       ang (+ (angle p0 p1) (/ pi 2))
       p0a (polar p0 ang w)
       p1a (polar p1 ang w)
       la  (cdr (assoc 8 el))
       el1 (list (cons 0 "TRACE")
   (cons 100 "AcDbTrace")
   (cons 10 p0)
   (cons 11 p0a)
   (cons 12 p1)
   (cons 13 p1a)
   (cons 8 la)
    )
)
(entmake el1)
(entdel e)
      )
    )
  )
  (Command_E)
)</P>
<P>;;方法二:线条打断
(defun jm_line_break()
  (Command_B)
  (prompt "\n图形线条变碎加干扰,请选择LINE&gt;&gt;")
  (setq ss (ssget (list (cons 0 "LINE"))))
  (if ss
    (progn
      (setq w (getdist "\n请输入LINE长度(300):")
     w (if w
  w
  300
       )
      )
      (while (setq e (ssname ss 0))
(setq ss (ssdel e ss))
(setq el  (entget e)
       p0  (cdr (assoc 10 el))
       p1  (cdr (assoc 11 el))
       ang (angle p0 p1)
       la  (cdr (assoc 8 el))
       len (distance p0 p1)
)
(if (&gt; len w)
   (progn
     (setq tot (/ len w)
    id  1
     )
     (setq p11 p0)
     (while (&lt; id tot)
       (setq p22 (polar p11 ang w))
       (setq el1 (list (cons 0 "LINE")
         (cons 10 p11)
         (cons 11 p22)
         (cons 8 la)
   )
       )
       (setq p11 p22
      id (1+ id)
       )
       (entmake el1)
     )
     (setq el1 (list (cons 0 "LINE")
       (cons 10 p11)
       (cons 11 p1)
       (cons 8 la)
        )
     )
     (entmake el1)
     (entdel e)
   )
)
      )
    )
  )
  (Command_E)
)</P>
<P>;;;============
(defun C:sm_jm1 ()
  (jm_line_to_trace)
)
(defun C:sm_jm2 ()
  (jm_line_break)
)
(prompt "\n图形线条加干扰,线条变TRACE,命令：sm_jm1")
(prompt "\n图形线条变碎加干扰,命令：sm_jm2")</P>

怎么用阿,运行命令就行了吗,到别人机子上能打开吗?

这是转贴，好象没什么用啊，望高手指教！！

如真能用，那真是好东西！

<>我实用了一下，也没有什么？</P>
<P>直接用2004有加密的命令！~</P>[em06][em06][em06]

[此贴子已经被作者于2004-6-17 15:07:09编辑过]