如何新建pgp文件,定义简化命令

rewq

 

 

    如何新建pgp文件,定义简化命令,像附件里的那个外挂一样

zhuquanmao

;把别人的帖子内容改了一下，直接可以把自己定义的快捷键加到acad.pgp后了。
;XXX.PGP是自定义的快捷键文件，放在支持搜索路径中，执行repgp即可。
(defun c:repgp (/ f_txt n cctd)
(princ "\n 此命令加载自定义快捷键.")
  (setq f_txt (open (findfile "XXX.pgp") "r"))
  (setq cctd '()); 存放读取pgp文件的文本行
  (while (setq txt_row (read-line f_txt))
    (setq cctd (cons txt_row cctd))
  )
  (close f_txt)
  (setq cctd (reverse cctd)
        n 0
  )
  (setq f_txt (open (findfile "acad.pgp") "A"))
  (repeat (length cctd)
    (write-line (nth n cctd) f_txt)
    (setq n (+ 1 n))
  )
  (close f_txt)
  (setvar "RE-INIT" 16)
  (princ)
)

caoyin

这样做好像没有太大必要，如果一定要这样方法无非方法两种：

1.直接通过LISP变成读取 ayunger.pgp 文件，然后定义成

(defun c:XX () (vla-sendcommand .....))

的格式，最后 eval

2.备份 acad.pgp(如acad,pgp_bak) , 用 vl-file-copy 的方法将 ayunger.pgp 复制到 acad.pgp结尾

然后(setvar "re-init" 16)重新初始化pgp，最后恢复从备份的 acad.pgp_bak 恢复acad.pgp

ayunger

直接到论坛下查找，我前几天发过一个本人ayunger.fas中调用PGP的完整函数！

ayunger

这是本人《一个非常好用的AutoCAD工具集》中关于自动加载Ayunger.PGP文件的函数，先与大家分享！

有问题，直接: E-mail:AyungerStudio@163.com或QQ:420304230

;;********************************
;;; No.3 AY工具快捷命令初始化 函数
;;;********************************
(defun C:ayCMD(/ PGPFile fp i xString aList shortCMD GlobalCMD)
 (vl-load-com)
 (setq PGPFile "Ayunger.pgp");F:\\Ayungerstudio\\VLisp\\Ayunger.pgp
 (if (setq PGPFile (findfile PGPFile))
  (progn;then
   (setq fp (open PGPFile "r"))
   (setq i 1)
   (while (setq xString (read-line fp))
    (if (= (type xString) 'SYM) (setq xString (vl-symbol-name xString)));转换数据文件中无引号的字符串.
     (while (vl-string-search " " xstring);去掉所有的空格.
     (setq xString(vl-string-subst "" " " xstring));空格.
     (setq xString(vl-string-subst "" " " xstring));tab符.
    );end_while
    (if (and (/= (substr xString 1 1) ";") (vl-string-search "," xstring) (vl-string-search "*" xstring))
     (progn
      (setq aList (read (strcat "(" (vl-string-subst " . C:" ",*" xString) ")")))
      (setq shortCMD (vl-string-trim " " (vl-symbol-name (car aList))))
      (setq GlobalCMD (cdr aList))
      ;(vlax-remove-cmd shortCMD);删除已定义的命令.
      (vlax-add-cmd shortCMD GlobalCMD)
     );end_progn
    );end_if
    (setq i (+ i 1))
   );end_while read-line
   (close fp)
  );end_progn then
  (princ "\nAY工具简化命令定义文件 Ayunger.pgp 没找到或不存在!")
 );end_if
 (princ)
);end_defun

;;;┏━━━━━━━━━━━━━━━━━━┓
;;;┃ AY工具快捷命令自动加载(反应器调用) ┃
;;;┗━━━━━━━━━━━━━━━━━━┛
(C:ayCMD);调用AY工具快捷命令自动加载函数. 
(defun ayLoadSCMDReactor();建立AutoCAD文档级反应器.
 (vl-load-com)
 (if (not #AY_LOADSCMDREACTOR)
   (setq #AY_LOADSCMDREACTOR (vlr-docmanager-reactor nil '((:vlr-documentBecameCurrent . AI:aySCMDCallBack))))
 );end_if
 (defun AI:aySCMDCallBack (aReactor bList) (C:ayCMD));;;定义反应器的回调函数.
);end_defun
(or #AY_LOADSCMDREACTOR (ayLoadSCMDReactor));自动加载反应器.
(princ "\nAutoCAD AYunger Tools Copyright (C)2001-2008 AYunger Studio")
(prin1)

rewq

盼高手来解决

ZZXXQQ

直接用WINDOWS的记事本写就行。也可直接改ACAD.PGP，改后另存。

rewq

高手去哪了

rewq

可不可以改成别的名称,比如:123.pgp

可后续怎么调用此pgp文件呢

lionguns

盼高手解答。

这个问题也困惑我好久了！~

无痕

3楼不是说了？

rewq

说白了就是用lisp调用ayunger.pgp(而不是acad.pgp)里的简化命令

如何加载? 如何调的问题?

rewq

在此谢谢各位热心人,(defun c:XX () (vla-sendcommand .....))我不知如何操作

或许看来是我没说清楚

比如说我做了个小程序,vlx格式的

用这个程序的是别人

为了能让别人能按他的喜好去修改命令(或者我的程序跟其它程序的命令有冲突时)

我必须建一个pgp文件,就像一楼ayunger.pgp,他想咋改就咋改

当然我不可能将命令复制到acad.lsp后面,因为将来程序升级时,会不好控制