加载acad.pgp的lisp程序
<p>众所周知,在acad.pgp文件改变后,可用reinit命令使其立即生效,而不必重新启动,</p><p>但如何编一个lisp程序来重加载acad.pgp,使其立即生效呢,而不必重新启动?</p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">系統變數<font face="Times New Roman">: RE-INIT<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">類型<font face="Times New Roman">: </font>整數<p></p></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">不儲存<p></p></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">初始值<font face="Times New Roman">: 0<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">使用下列位元碼來重新初始化數位面板、數位面板埠，以及<font face="Times New Roman"> acad.pgp </font>檔：<p></p></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><p><font face="Times New Roman"> </font></p></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">1<span style="mso-tab-count: 1;"> </font></span>數位面板輸入<font face="Times New Roman">/</font>輸出埠重新初始化。<p></p></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">4<span style="mso-tab-count: 1;"> </font></span>數位面板重新初始化。<p></p></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">16<span style="mso-tab-count: 1;"> PGP </font></span>檔案重新初始化<font face="Times New Roman"> (</font>重新載入<font face="Times New Roman">)<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><p><font face="Times New Roman"> </font></p></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">如果要指定多項重新初始化，請輸入位元碼值的和。例如，您可以輸入<font face="Times New Roman"> 5 </font>來同時指定數位面板埠<font face="Times New Roman"> (1) </font>和數位面板<font face="Times New Roman"> (4) </font>的重新初始化。<p></p></p> 真是谢了啊,龙前辈 还有比我更懒的人连PGP也要去lisp~~~<br/>以前第1次看到别人发的PGP高论觉得眼前忽然一亮，<br/>但现在觉得PGP基本没用了，觉得好些原始命令需要LISP才顺手<br/> 不过2次开发的命令去PGP登个记有个好处能被其他的2次开发接受<br/>有时也有奇效，比如好多人用的图层反应器~<br/> 龙龙仔 发表于 2007-2-14 13:18 static/image/common/back.gif系統變數: RE-INIT類型: 整數不儲存初始值: 0使用下列位元碼來重新初始化數位面板、數位面板埠，以及 acad. ...
很好的一招，学习了，谢谢
页:
[1]