命令修改器

479274135

出于自己工具的命令较多，所以写了这个修改快捷命令的小工具
代码没有太多水平，高手们可别笑话
不会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)
  )
opendcl版已经更新，展示绝对上一个新平台，网址
命令修改器v2.0 opendcl - OpenDCL与LISP扩展库 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz! (mjtd.com)

479274135

柴月二号 发表于 2018-2-6 09:58
感谢楼主但是测试了一下，增加了一个cass画房屋命令结果，第一点无法手动指定，自动落到了屏幕上

回复有点玩了
我试了下  不会有你说的那种情况呀？你再仔细看看 是不是多了空格什么的

479274135

liunian0524 发表于 2018-4-11 09:03
感谢分享..建议代码后面加个(princ)"(vla-SendCommand (vla-get-activedocument(vlax-get-acad-object)) (s ...

萧●﹏●明

省了不少步骤，和这个差不多
(defun c:yt()
  (command "dd" "140001" "3")
  (princ)
)

332319857

感谢楼主，支持支持

sowin

感谢楼主，支持支持

pxt2001

有创意，如果字符串长度能够对齐，长度不够，补充空格，看起来就舒服了

479274135

pxt2001 发表于 2018-2-4 15:03
有创意，如果字符串长度能够对齐，长度不够，补充空格，看起来就舒服了

的确是个好主意，有空我会改的  

luguochan

感谢楼主

柴月二号

感谢楼主但是测试了一下，增加了一个cass画房屋命令结果，第一点无法手动指定，自动落到了屏幕上

wm123456

谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享