关于定义PGP命令，怎么添加命令？

sbwdx

在论坛上找到的代码，原来的效果，就是读取123.PGP文件，内容,然后打开CAD自带的PGP文件，在章末加上内容，我想把123,PGP里面的命令，加到REPGP这个LSP里面，不去读取那个123PGP里面的内容，把内容直接合并到REPGP这里面，怎么合并一下啊，请求老师帮忙看一下
123.pgp内容
SA, *MATCHPROP
V,      *MOVE
DD, *DIST
QW, *PLOT
CC, *COPY

(defun c:repgp (/ f_txt n cctd)
(princ "\n【自定义命令】")
   (setq f_txt (open (findfile "123.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)
)
(princ)

start4444

比较少操作文件，根据原代码了解一下写入就是根据读取文件内容组成的表cctd 每个元素写一行，那直接把文件的内容手动写成表 cctd 就可以了，要添加什么就后面加就是了
(defun c:tt5 (/ f_txt n cctd)     
        (setq cctd (list "SA, *MATCHPROP" "V, *MOVE" "DD, *DIST" "QW, *PLOT" "CC, *COPY") 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)
)

sbwdx

start4444 发表于 2019-12-18 15:08
比较少操作文件，根据原代码了解一下写入就是根据读取文件内容组成的表cctd 每个元素写一行，那直接把文件 ...

谢谢老师，完美，就是这个效果

taoyi0727

start4444 发表于 2019-12-18 15:08
比较少操作文件，根据原代码了解一下写入就是根据读取文件内容组成的表cctd 每个元素写一行，那直接把文件 ...

请教下 RE-INIT   这个是做什么用的  从来没有看到过

start4444

taoyi0727 发表于 2019-12-18 17:18
请教下 RE-INIT   这个是做什么用的  从来没有看到过

我也不知道，这个是他原代码有的

Andyhon

令新命令生效

sbwdx

taoyi0727 发表于 2019-12-18 17:18
请教下 RE-INIT   这个是做什么用的  从来没有看到过

就是cad命令reinit，参数为16，就是最后一个勾选，刷新PGP文件哦

G〆h

感觉会有重复内容出现，如果多执行几次的话。 最好设个判断已有内容。
但感觉用文件替换会更好点，追加内容有些复杂了。
如果想不同环境不同快捷键，可以用不同的首行支持路径来配置个性化设置更好点。

sbwdx

G〆h 发表于 2019-12-19 10:06
感觉会有重复内容出现，如果多执行几次的话。 最好设个判断已有内容。
但感觉用文件替换会更好点，追加内 ...

确实每执行一次就会添加啦，如何判断已添加内容，就不执行，结束。不知道啊，也不会写哦

taoyi0727

sbwdx 发表于 2019-12-19 09:28
就是cad命令reinit，参数为16，就是最后一个勾选，刷新PGP文件哦

谢谢   这个就重来没有用过
改命令 在PGP里去改有点麻烦
感觉既然会写点小东西,自己写程序来改命令方便点