很早之前朋友给的插件，没币了，混两个币花花。对不住各位

天凉好个秋 · 发表于 2021-5-19 15:46:39

钣金开料外围并导入EXCEL

tryhi · 发表于 2021-5-20 17:56:51

本帖最后由 tryhi 于 2021-5-23 11:07 编辑

离下班还有十分钟，随手写一个，不使用内裤写着有点难受

(defun c:tt (/ a en f max1 min1 path ss str txt xy xy_s)
(setq ss(ssget'((0 . "LWPOLYLINE"))))
(setq a -1 str "")
(if ss
(progn
(while
(setq en(ssname ss(setq a(1+ a))))
(vla-GetBoundingBox (vlax-ename->vla-object en) 'p1 'p2)
(setq min1 (vlax-safearray->list p1))
(setq max1 (vlax-safearray->list p2))
(command "RECTANG" "non"min1"non"max1)
(setq txt(vla-get-TextString (vlax-ename->vla-object (ssname (ssget "w" min1 max1 '((0 . "*TEXT")))0))))
(setq xy(mapcar '- max1 min1)
xy_s(mapcar '(lambda(x)(rtos x 2 4))xy)
str(strcat txt","(car xy_s)","(cadr xy_s)"\n"str)
)
)
(setq str (strcat "编号,长度,宽度\n"str))
(setq f (open (setq path(vl-filename-mktemp "test.CSV")) "w"))
(princ str f)
(close f)
(vlax-invoke (vlax-create-object "wscript.shell") 'run path 5 0)
)
)
)

sunny_8848 · 发表于 2021-5-21 20:20:38

tryhi 发表于 2021-5-20 17:56
离下班还有十分钟，随手写一个，不使用内裤写着有点难受

(defun c:tt (/ a en f max1 min1 path ss str ...

请教，运行后提示错误: 参数类型错误: lselsetp nil。只能生成一个外框，也不启动excel

panliang9 · 发表于 2021-5-20 09:21:05

不错，不错！

天凉好个秋 · 发表于 2021-5-20 16:37:35

感谢各位......

天凉好个秋 · 发表于 2021-5-21 09:27:25

tryhi 发表于 2021-5-20 17:56
离下班还有十分钟，随手写一个，不使用内裤写着有点难受

(defun c:tt (/ a en f max1 min1 path ss str ...

厉害！敢问大神可有展开料自动排版的？小弟找了好久没找到

天凉好个秋 · 发表于 2021-5-21 09:39:19

tryhi 发表于 2021-5-20 17:56
离下班还有十分钟，随手写一个，不使用内裤写着有点难受

(defun c:tt (/ a en f max1 min1 path ss str ...

就像这样的

tryhi · 发表于 2021-5-21 11:56:59

天凉好个秋发表于 2021-5-21 09:27
厉害！敢问大神可有展开料自动排版的？小弟找了好久没找到

没有，不是这个行业的，应该有人写过

天凉好个秋 · 发表于 2021-5-21 16:38:21

tryhi 发表于 2021-5-21 11:56
没有，不是这个行业的，应该有人写过

好的，谢谢

tryhi · 发表于 2021-5-22 00:42:21

sunny_8848 发表于 2021-5-21 20:20
请教，运行后提示错误: 参数类型错误: lselsetp nil。只能生成一个外框，也不启动excel

上DWG，你多边形内可能没有放TEXT图元

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

很早之前朋友给的插件，没币了，混两个币花花。对不住各位

本帖子中包含更多资源

评分

本帖子中包含更多资源

点评

评分

本帖子中包含更多资源