命令修改器

479274135 发表于 2018-2-2 09:21:44

本帖最后由 479274135 于 2024-1-27 18:38 编辑

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

;核心代码
;根据群友分享 id:地形图 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-28 14:44:07

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

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

479274135 发表于 2018-5-5 13:40:50

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

萧●﹏●明 发表于 2018-3-18 12:09:53

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

332319857 发表于 2018-2-2 19:38:57

感谢楼主，支持支持

sowin 发表于 2018-2-3 09:14:46

感谢楼主，支持支持

pxt2001 发表于 2018-2-4 15:03:05

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

479274135 发表于 2018-2-4 19:22:55

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

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

luguochan 发表于 2018-2-5 19:41:27

感谢楼主

柴月二号 发表于 2018-2-6 09:58:17

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

wm123456 发表于 2018-3-18 21:14:43

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

页: [1] 2 3

明经CAD社区's Archiver

命令修改器