调用ET中Extrim

/db_自贡黄明儒_ · 发表于 2016-10-25 15:55:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2016-10-25 21:07 编辑

ET中Extrim是我常用的，太长难记，写点代码调用

(defun MyD:Extrim ()
  ;;是否安裝了ET
  (cond  ((and (MEMBER "acetutil.arx" (ARX)) (FINDFILE "acetutil.arx"))
         (SendKeys "Extrim ")
        )
        (T (princ "\n 没有安装ET工具，不能使用"))
  )
)
(defun sendkeys        (keys)
  (or *WSH* (setq *WSH* (vlax-get-or-create-object "wscript.shell")))
  (vlax-invoke-method *WSH* 'sendkeys keys)
  (princ)
)

/db_自贡黄明儒_ · 发表于 2016-10-25 16:01:58

论坛有点问题，会自动加点东西？

(defun MyD:Extrim ()
  ;;是否安裝了ET
  (cond ((and (MEMBER "acetutil.arx" (ARX)) (FINDFILE "acetutil.arx"))
   (SendKeys "Extrim ")
)
(T (princ "\n 没有安装ET工具，不能使用"))
  )
)

q3_2006 · 发表于 2016-10-25 16:14:24

/db_自贡黄明儒_ 发表于 2016-10-25 16:01

overkill..如何调用..请大师也研究下哈...

q3_2006 · 发表于 2016-10-25 16:18:59

/db_自贡黄明儒_ 发表于 2016-10-25 16:01

我指代码里调用哟..至今也没搞清楚...

/db_自贡黄明儒_ · 发表于 2016-10-25 16:28:17

q3_2006 发表于 2016-10-25 16:18

Extrim换成overkill

newer · 发表于 2016-10-26 00:22:07

/db_自贡黄明儒_ 发表于 2016-10-25 16:28

老黄编辑下代码，看看帖黑色背景代码的方法，以后用这个方法贴代码吧。

代码放到{pre}{/pre}之间，花括号换成[]

另外，你说人家EXTRIM命令长，我怎么觉得你的更长呢:)

/db_自贡黄明儒_ · 发表于 2016-10-26 07:59:31

newer 发表于 2016-10-26 00:22

黑色背景不错！

yoyoho · 发表于 2016-10-26 09:08:48

感谢黄老师经验分享!!!!

Lisphk · 发表于 2016-10-26 11:45:54

这个和
(setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
(vla-sendcommand acdoc "extrim ")

效果是一样的。

kqqt6236 · 发表于 2016-11-12 17:58:43

加了什么东西，没看出来。

sicky111 · 发表于 2016-11-12 18:04:12

trim前面加个Ex，很好记呀，你的更难记。

y_do · 发表于 2018-1-6 13:43:28

赞赞赞赞赞赞

账号		自动登录	找回密码
密码			立即注册

[每日一码] 调用ET中Extrim

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分