login1986 发表于 2005-10-23 11:02:00

大家好。本人是新手。有个问题想问问大家！关于vba的。

<P>我想问一下各位。VBA有一个自带的加密工能，能不能把它加密完的DVB文件破解出来看到源代码呢？</P>
<P>如果有哪知道请回贴！谢谢！！！！</P>

alin 发表于 2005-10-23 15:05:00

既然是新手,就要好好学习,不要总想解密什么的.

haha9596 发表于 2005-10-23 18:34:00

<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%"><IMG alt=发贴心情 src="http://www.mjtd.com/bbs/skins/default/topicface/face17.gif" border=0>&nbsp;<B>紧急[求助]——个小问题</B><BR>请问各位“大虾”如何将cad中密密麻麻的数字快速求和？？？至盼。。。。。。。 </TD></TR></TBODY></TABLE>
<P>&nbsp;</P>
<P>&nbsp;</P>

yoursmile 发表于 2005-11-6 10:54:00

<P>哈哈，不知道，我也是新手！</P>

cenyong 发表于 2005-11-22 09:59:00

<P>本人前几天找到一个计算单行文字的用LISP语言编的可实现+、-、*、/的程序，求和的功能试过了，其余的没试。加载后从命令行输入JS就行了，代码如下：</P>
<P>(defun *error* (ERROR)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (princ "error:")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (princ "CAO ZUO ERROE")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (PRINC "\n please try a time")<BR>&nbsp;&nbsp;&nbsp;&nbsp; )<BR>(defun getss(/ SS N I NAME0 NAME X0 X1)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (INITGET (+ 1 2 4))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq ss (ssget '((0 . "TEXT"))))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (if (= ss nil) (setq ss (ssadd)))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (setq ssa (ssadd))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (while (/= (setq n (sslength ss)) 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq i 1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq name0 (ssname ss 0))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq x0 (caddr (assoc 10 (entget name0))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (&lt; i n)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq name (ssname ss i))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq X1 (caddr (assoc 10 (entget name))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (&lt; X0 X1) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq name0 name)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq&nbsp; X0&nbsp; X1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq i (+ 1 i))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ssa (ssadd name0 ssa))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ss (ssdel name0 ss))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</P>
<P>(DEFUN C:JS(/&nbsp; NN II ENT NAME TXT PP P0 PP0 NAME1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; P ST ZH ZW ANG I N W TEMP)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "BLIPMODE" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "CMDECHO" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (PROMPT "\n&nbsp;&nbsp;&nbsp; FIRST-SSGET:")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (INITGET (+ 1 2 4))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (getss)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ SS1 ssa)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (PROMPT "\n&nbsp;&nbsp;&nbsp; SECOND-SSGET:")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (getss)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ SS2 ssa)<BR>&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp; (INITGET (+ 1 2 4))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (= (SSLENGTH SS2) 0) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ JSF (GETSTRING "\n&nbsp;&nbsp;&nbsp; JI SUAN FU:?&lt;+&gt;&nbsp; "))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ JSF (GETSTRING "\n&nbsp;&nbsp;&nbsp; JI SUAN FU:?&lt;*&gt;&nbsp; ")))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (WHILE (AND (/= JSF "+") (/= JSF "-") (/= JSF "*") (/= JSF "/") (/= JSF ""))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (GETSTRING "\n&nbsp;&nbsp;&nbsp; JI SUAN FU:?&lt;*&gt;&nbsp; "))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (AND (= (SSLENGTH SS2) 0) (= JSF "")) (SETQ JSF "+")) <BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (AND (/= (SSLENGTH SS2) 0) (= JSF "")) (SETQ JSF "*"))<BR>&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ P0 (CDR (ASSOC 10 (ENTGET (SSNAME SS1 0)))))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (INITGET (+ 1 2 4))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ PP0 (GETPOINT "\n&nbsp;&nbsp;&nbsp; TEXT-POINT:?"))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "BLIPMODE" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (= (SSLENGTH SS2) 0)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (PROGN<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ XI (GETREAL "\n&nbsp;&nbsp; XU CHU DE XI SHU [/] :?&lt;1&gt;"))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (IF (= XI NIL) (SETQ XI 1)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (PROGN<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ XI (GETREAL "\n&nbsp;&nbsp; XU CHU DE XI SHU [/]:? &lt;100&gt;")) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (IF (= XI NIL) (SETQ XI 100))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ WS (GETINT "\n&nbsp;&nbsp;&nbsp; XIAO SHU WEI:?&lt;2&gt; "))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (= WS NIL) (SETQ WS 2))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ NN1 (SSLENGTH SS1))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ II 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (= (SSLENGTH SS2) 0)(PROGN<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (WHILE (&lt; II NN1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ ENT1 (ENTGET (SETQ NAME1 (SSNAME SS1 II))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (IF (= II 0) (SETQ NAME0 NAME1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT1 (CDR (ASSOC 1 ENT1)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT1 (ATOF TXT1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (IF (= II 0) (SETQ TXT TXT1)) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (IF (/= II 0) (PROGN<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COND ((= JSF "+") (SETQ TXT (+ TXT TXT1)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= JSF "-") (SETQ TXT (- TXT TXT1)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= JSF "*") (SETQ TXT (* TXT TXT1)))&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= JSF "/") (SETQ TXT (/ TXT TXT1)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ II (+ II 1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "COPY" NAME0 "" P0 PP0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT (/ TXT XI))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT (RTOS TXT 2 WS))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq txt-style (cdr (assoc 7 (entget name0))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq style-higth (cdr (assoc 40 (tblsearch "style" txt-style))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= style-higth 0.0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "CHANGE" "L" "" "" "" "" "" "" TXT )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "change" "l" "" "" "" "" "" txt))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))<BR>&nbsp;&nbsp;&nbsp;&nbsp; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (AND (/= SS2 NIL) (/= SS1 NIL)) (PROGN<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ NN2 (SSLENGTH SS2))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (IF (&gt;= NN1 NN2) (SETQ NN NN2) (SETQ NN NN1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (WHILE (&lt; II NN)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ ENT1 (ENTGET (SETQ NAME1 (SSNAME SS1 II))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ ENT2 (ENTGET (SETQ NAME2 (SSNAME SS2 II))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT1 (CDR (ASSOC 1 ENT1)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT2 (CDR (ASSOC 1 ENT2)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT1 (ATOF TXT1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT2 (ATOF TXT2))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COND ((= JSF "+") (SETQ TXT (+ TXT1 TXT2)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= JSF "-") (SETQ TXT (- TXT1 TXT2)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= JSF "*") (SETQ TXT (* TXT1 TXT2)))&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= JSF "/") (SETQ TXT (/ TXT1 TXT2)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "COPY" NAME1 "" P0 PP0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT (/ TXT XI))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT (RTOS TXT 2 WS))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq txt-style (cdr (assoc 7 (entget name1))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq style-higth (cdr (assoc 40 (tblsearch "style" txt-style))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= style-higth 0.0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "CHANGE" "L" "" "" "" "" "" "" TXT )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "change" "l" "" "" "" "" "" txt))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ II (+ II 1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "BLIPMODE" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "CMDECHO" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (PRINC)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>(DEFUN C:TCH(/ SS NN II ENT NAME TXT PP0 P0 P XI JSF WS)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "BLIPMODE" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "CMDECHO" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (INITGET (+ 1 2 4))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (GETSS)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ SS SSA)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (INITGET (+ 1 2 4))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ JSF (GETSTRING "\n&nbsp;&nbsp; JI SUAN FU:?&lt;*&gt;&nbsp; "))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (WHILE (AND (/= JSF "+") (/= JSF "-") (/= JSF "*") (/= JSF "/") (/= JSF ""))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (GETSTRING "JI SUAN FU:?&lt;*&gt;&nbsp; "))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (= JSF "") (SETQ JSF "*"))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ XI (GETREAL "\n&nbsp; XI SHU:?"))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ P0 (CDR (ASSOC 10 (ENTGET (SSNAME SS 0)))))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "BLIPMODE" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (INITGET (+ 1 2 4))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ PP0 (GETPOINT "\n&nbsp; TEXT-POINT:?"))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "BLIPMODE" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ WS (GETINT "\n&nbsp; XIAO SHU WEI:?&lt;1&gt; "))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (= WS NIL) (SETQ WS 1))<BR>&nbsp;&nbsp; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ NN (SSLENGTH SS))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ II 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (WHILE (&lt; II NN)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ ENT (ENTGET (SETQ NAME (SSNAME SS II))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT (CDR (ASSOC 1 ENT)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT (ATOF TXT))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COND ((= JSF "+") (SETQ TXT (+ TXT XI)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= JSF "-") (SETQ TXT (- TXT XI)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= JSF "*") (SETQ TXT (* TXT XI)))&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= JSF "/") (SETQ TXT (/ TXT XI)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "COPY" NAME "" P0&nbsp; PP0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT (RTOS TXT 2 WS))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq txt-style (cdr (assoc 7 (entget name))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq style-higth (cdr (assoc 40 (tblsearch "style" txt-style))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= style-higth 0.0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "CHANGE" "L" "" "" "" "" "" "" TXT )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "change" "l" "" "" "" "" "" txt))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ II (+ II 1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "BLIPMODE" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "CMDECHO" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (PRINC)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>(DEFUN C:HZZ(/&nbsp; NN II ENT NAME TXT PP P0 PP0 NAME1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; P ST ZH ZW ANG I N W TEMP)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "BLIPMODE" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "CMDECHO" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (PROMPT "\n&nbsp;&nbsp;&nbsp; FIRST-SSGET:")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (INITGET (+ 1 2 4))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (getss)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ SS1 ssa)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (PROMPT "\n&nbsp;&nbsp;&nbsp; SECOND-SSGET:")<BR>&nbsp;&nbsp;&nbsp;&nbsp; (getss)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ SS2 ssa)<BR>&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ P0 (CDR (ASSOC 10 (ENTGET (SETQ NAME0 (SSNAME SS1 0))))))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (INITGET (+ 1 2 4)) <BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ PP0 (GETPOINT "\n&nbsp;&nbsp;&nbsp; TEXT-POINT:?"))<BR>&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp; (INITGET(+ 1 2 4))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ XI (GETREAL "\n&nbsp;&nbsp; HUI ZONG GAN JIN-- DAN WEI ZHONG:? &lt;0.888&gt;"))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (= XI NIL) (SETQ XI 0.888))</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "BLIPMODE" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ WS (GETINT "\n&nbsp;&nbsp;&nbsp; XIAO SHU WEI:?&lt;2&gt; "))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (= WS NIL) (SETQ WS 2))<BR>&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ NN1 (SSLENGTH SS1))<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ II 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<BR>&nbsp;&nbsp;&nbsp;&nbsp; (IF (AND (/= SS2 NIL) (/= SS1 NIL)) (PROGN<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ NN2 (SSLENGTH SS2))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (IF (&gt;= NN1 NN2) (SETQ NN NN2) (SETQ NN NN1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (WHILE (&lt; II NN)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ ENT1 (ENTGET (SETQ NAME1 (SSNAME SS1 II))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ ENT2 (ENTGET (SETQ NAME2 (SSNAME SS2 II))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT1 (CDR (ASSOC 1 ENT1)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT2 (CDR (ASSOC 1 ENT2)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT1 (ATOF TXT1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT2 (ATOF TXT2))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (IF (= TXT1 XI) (SETQ TXT (+ TXT TXT2)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ II (+ II 1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "COPY" NAME0 "" P0 PP0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ TXT (RTOS TXT 2 WS))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq txt-style (cdr (assoc 7 (entget name0))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq style-higth (cdr (assoc 40 (tblsearch "style" txt-style))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= style-higth 0.0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "CHANGE" "L" "" "" "" "" "" "" TXT )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "change" "l" "" "" "" "" "" txt))</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "BLIPMODE" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETVAR "CMDECHO" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (PRINC)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR></P>
页: [1]
查看完整版本: 大家好。本人是新手。有个问题想问问大家！关于vba的。