;只选择蓝色矩形
(ssget '((0 . "LWPOLYLINE") (62 . 5)))
;删除蓝色矩形
(command "erase" (ssget '((0 . "LWPOLYLINE") (62 . 5))) "")
;返回第一个矩形左上角二维坐标
(cdr(nth 15 (entget(ssname (ssget '((0 . "LWPOLYLINE") )) 0))))
;返回第一个矩形右下角二维坐标
(cdr(nth 23 (entget(ssname (ssget '((0 . "LWPOLYLINE") )) 0))))
;批量打印图纸
;把DWG To PDF.pc3"改成实际打印机名
;1、用蓝色矩形框出要打印的图纸
;2、调用函数全选所有矩形
(defun f()
(setq s (ssget '((0 . "LWPOLYLINE")(62 . 5) )))
(setq sl (sslength s))
(setq i 0)
(while (< i sl)
(setq e (entget(ssname s i)))
(setq p1 (cdr(nth 15 e)))
(setq p2 (cdr(nth 23 e)))
(setq nm (itoa i))
(setq i(1+ i))
(command "plot" "Y" "" "DWG To PDF.pc3" "" "M" "L" "N" "W" p1 p2 "f" "c" "y" "monochrome.ctb" "n" "w" nm "n" "y")
)
)
autolisp批量打印cad图纸
发表评论
热门文章
-
OneNice简洁大方且开源免费的WordPress主题 17110 阅读
-
Bootstrap4显示和隐藏元素 5073 阅读
-
mysql批量去除重复记录 4165 阅读
-
OneNice Pro简洁且强大的WORDPRESS主题 4128 阅读
-
-
loadjs - javascript动态载入css和js文件 2089 阅读
-
BT宝塔中安装nodejs 2024 阅读
-
github无法加载或不显示图片问题 1909 阅读