很早之前朋友给的插件，没币了，混两个币花花。对不住各位
钣金开料外围并导入EXCEL本帖最后由 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(strcattxt","(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)
)
)
)
tryhi 发表于 2021-5-20 17:56
离下班还有十分钟，随手写一个，不使用内裤写着有点难受
(defun c:tt (/ a en f max1 min1 path ss str...
请教，运行后提示错误: 参数类型错误: lselsetp nil。只能生成一个外框，也不启动excel 不错，不错！ 感谢各位...... tryhi 发表于 2021-5-20 17:56
离下班还有十分钟，随手写一个，不使用内裤写着有点难受
(defun c:tt (/ a en f max1 min1 path ss str...
厉害！敢问大神可有展开料自动排版的？小弟找了好久没找到 tryhi 发表于 2021-5-20 17:56
离下班还有十分钟，随手写一个，不使用内裤写着有点难受
(defun c:tt (/ a en f max1 min1 path ss str...
就像这样的
天凉好个秋 发表于 2021-5-21 09:27
厉害！敢问大神可有展开料自动排版的？小弟找了好久没找到
没有，不是这个行业的，应该有人写过 tryhi 发表于 2021-5-21 11:56
没有，不是这个行业的，应该有人写过
好的，谢谢 sunny_8848 发表于 2021-5-21 20:20
请教，运行后提示错误: 参数类型错误: lselsetp nil。只能生成一个外框，也不启动excel
上DWG，你多边形内可能没有放TEXT图元
页:
[1]
2