出于自己工具的命令较多，所以写了这个修改快捷命令的小工具
代码没有太多水平，高手们可别笑话
不会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)
)
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。