命令修改器 cad插件

命令修改器 cad插件

出于自己工具的命令较多,所以写了这个修改快捷命令的小工具
代码没有太多水平,高手们可别笑话
不会opendcl,只能暂时做成这个样子
感觉比修改acad.pgp好用多了,最起码比较直观。还可以直接修改cass命令哟!原命令中间插入“空格”可代替 确认键
例如:
change/c_mjbz 2/mj/面积标注 保留两位小数
cass/dd 204201 1/kanzi/坎子(cass命令模板)
说明:1.所有的命令最终保存在“acad命令.ini”里
2.如果跟acad.pgp命令冲突的话,以“acad命令.ini”为准生效。

;核心代码
;根据群友分享    id:[wkq004]地形图 id:粤-测绘-范建威
(defun file->play ()
(test_sub_3)
(foreach n word_list
(setq lst (parse n “/”))
(setq old_play (nth 1 lst))
(setq new_play (nth 2 lst))
(eval
(read
(strcat
“(defun c:” new_play  ” ()”
;(if (/= (caddr lst) nil)
;        (strcat “(princ \”” (caddr lst) “\”)”)
😉
“(vla-SendCommand (vla-get-activedocument(vlax-get-acad-object)) (strcat \”” old_play “\”  (chr 32) )))”
)
)
)
)
(princ)
)

分享到 :
cad宏记录器
2022-03-30 下一篇