关于定义PGP命令，怎么添加命令？
在论坛上找到的代码，原来的效果，就是读取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)
比较少操作文件，根据原代码了解一下写入就是根据读取文件内容组成的表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)
) start4444 发表于 2019-12-18 15:08
比较少操作文件，根据原代码了解一下写入就是根据读取文件内容组成的表cctd 每个元素写一行，那直接把文件 ...
谢谢老师，完美，就是这个效果 start4444 发表于 2019-12-18 15:08
比较少操作文件，根据原代码了解一下写入就是根据读取文件内容组成的表cctd 每个元素写一行，那直接把文件 ...
请教下 RE-INIT 这个是做什么用的从来没有看到过 taoyi0727 发表于 2019-12-18 17:18
请教下 RE-INIT 这个是做什么用的从来没有看到过
我也不知道，这个是他原代码有的 令新命令生效 taoyi0727 发表于 2019-12-18 17:18
请教下 RE-INIT 这个是做什么用的从来没有看到过
就是cad命令reinit，参数为16，就是最后一个勾选，刷新PGP文件哦 感觉会有重复内容出现，如果多执行几次的话。 最好设个判断已有内容。
但感觉用文件替换会更好点，追加内容有些复杂了。
如果想不同环境不同快捷键，可以用不同的首行支持路径来配置个性化设置更好点。 G〆h 发表于 2019-12-19 10:06
感觉会有重复内容出现，如果多执行几次的话。 最好设个判断已有内容。
但感觉用文件替换会更好点，追加内 ...
确实每执行一次就会添加啦，如何判断已添加内容，就不执行，结束。不知道啊，也不会写哦 sbwdx 发表于 2019-12-19 09:28
就是cad命令reinit，参数为16，就是最后一个勾选，刷新PGP文件哦
谢谢 这个就重来没有用过
改命令 在PGP里去改有点麻烦
感觉既然会写点小东西,自己写程序来改命令方便点
页:
[1]