快速创建块

lwq0108 · 发表于 2018-9-17 19:45:23

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

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

×

本帖最后由 lwq0108 于 2018-9-17 20:13 编辑

(块名为固定前缀时间,块基点为选择集中心点).

marting · 发表于 2018-9-17 20:13:56

源码在哪呢？

lwq0108 · 发表于 2018-9-17 20:15:13

不好意思转了论坛了对晓东失望了
用户lwq0108
2018-4-19 08:55
您的用户组升级为实习生看看我能做什么 ›
2018-5-30 09:30
您的用户组升级为学生看看我能做什么 ›
投诉无路

lwq0108 · 发表于 2018-9-17 20:19:15

本帖最后由 lwq0108 于 2018-9-17 20:22 编辑

请看截图 2018年9月17日

lwq0108 · 发表于 2018-9-17 20:24:02

marting 发表于 2018-9-17 20:13
源码在哪呢？

[sell=1];;==选物另存为DWG(W)=================================================================================================
(defun c:w (/ ss filename path  date )
(setvar "cmdecho" 0) ;指令执行过程不响应
(setq ss (ssget )) ;选择集
(setq date (menucmd "M=$(edtime,$(getvar,date),激光切割文件YYYY-MO-DD-HH-MM-SS)"))  ; "激光切割文件"是前文件名可自定修改后面跟时间。
(setq path "I:\\desktop\\金属\\") ;自定义路径位置 "\\"隔开
(setq filename (strcat path  date )) ;合并成文件路径及文件名
  (command "WBLOCK" filename "" "0,0"  SS  "" "oops" )
(setvar "cmdecho" 1)
(PRINC "\n 保存成功 !!!")
(PRINC)
)[/sell]

newer · 发表于 2018-9-17 23:23:40

lwq0108 发表于 2018-9-17 20:19
请看截图 2018年9月17日

去站务论坛，看看前面的几个帖子就清楚了。

kqqt6236 · 发表于 2018-9-18 00:05:22

什么意思？

yz1223 · 发表于 2019-11-30 08:36:38

试了一下快的几点不在选择集中心啊

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

[每日一码] 快速创建块

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

点评