明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: wanhongron

!整理的点选矩形图框快速打印程序,能点选一个打印一个,请改成选完后一起打印

  [复制链接]
 楼主| 发表于 2012-6-18 18:56 | 显示全部楼层
尤其重谢langjs大侠,考虑得非常周到,无微不至!
发表于 2012-6-19 08:24 | 显示全部楼层
wanhongron 发表于 2012-6-18 18:40
谢谢langjs大侠和院长的指教,已经达到我要的效果了,非常感谢!

直接用他们的程序就行了还是另有改动?
发表于 2012-7-14 08:52 | 显示全部楼层
langjs 发表于 2012-6-18 10:05
;;; 快速打印程序,选一堆矩图框,再批量打印
(defun c:ksdy (/ ent fx i maxpoint maxx0 maxy0 minpoint mi ...

langjs大师是否方便在以下批打程序里加上你矩形的对角线啊?
这个程序可以框选的。非常感谢你。

;横打
(defun c:dq()
(setvar "cmdecho"0)
(setq ss(ssget '((8 . "黑色打印框"))))
(setq n 0)
(repeat (sslength ss)
(setq en (ssname ss n))
(setq obj (vlax-ename->vla-object en))
(vla-GetBoundingBox obj 'minpt 'maxpt)
(setq minPt (vlax-safearray->list minPt))
(setq maxPt (vlax-safearray->list maxPt))
(setq minptx (car minpt))
(setq minpty (cadr minpt))
(setq maxptx (car maxpt))
(setq maxpty (cadr maxpt))
(if (< (- maxptx minptx) (- maxpty minpty))
(dayin2 minpt maxpt)
(dayin1 minpt maxpt))
(setq n (1+ n)))(PRINC))
(defun dayin1(p1 p2)
(command "_plot" "y" "模型" "\Canon iP1100 series" "A4" "M" "L" "y" "W" P1 P2 "F" "C" "Y" "acad.ctb" "y" "a" "n" "y""y"))
发表于 2012-7-14 19:40 | 显示全部楼层
学习了....准备学这个
发表于 2012-10-26 14:58 | 显示全部楼层
CAD2010
(command "_.PLOT" "Y" "" "pdffactory pro" "A3" "M" fx "N" "W" pmin pmax "F" "C" "Y" "monochrome.ctb" "Y" "N" "N" "N" "Y")
不认输入的 "A3" ,手输入-PLOT命令认"A3 (297 x 420 毫米)",在LisP里面又不认了 不知道怎么回事
发表于 2012-10-27 00:44 | 显示全部楼层
正好需要这个程序
发表于 2012-10-30 00:58 | 显示全部楼层
669423907 发表于 2012-7-14 08:52
langjs大师是否方便在以下批打程序里加上你矩形的对角线啊?
这个程序可以框选的。非常感谢你。

改一个字母,就可以框选:
;;; 快速打印程序,选一堆矩图框,再批量打印
(defun c:ksdy (/ ent fx i maxpoint maxx0 maxy0 minpoint minx0 miny0 os pmax pmin ptlist ss sstk)
  (vl-load-com)
  (setvar "cmdecho" 0) (setq os (getvar "osmode")   ss (ssadd)    sstk (ssadd)  )
  (princ "\n 请选取矩形图框:")
  (while (setq ss (ssget ":S" (list '(0 . "LWPOLYLINE") '(90 . 4))))
    ;(while (setq ss (ssget (list '(0 . "LWPOLYLINE") '(90 . 4))))
    (setq ent (ssname ss 0))
    (vla-getboundingbox (vlax-ename->vla-object ent) 'minpoint 'maxpoint)
    (setq pmax (vlax-safearray->list maxpoint)  pmin (vlax-safearray->list minpoint)
          minx0 (car pmin)  miny0 (cadr pmin)   maxx0 (car pmax)  maxy0 (cadr pmax))
    (if (>= (- maxx0 minx0) (- maxy0 miny0))   (setq fx "L")      (setq fx "P") )
        ;;;生成矩形的对角线并将对角线加入选择集sstk
    (entmake (list '(0 . "LINE") (cons 62 6) (cons 10 (list minx0 miny0 0)) (cons 11 (list maxx0 maxy0 0))))
    (setq sstk (ssadd (entlast) sstk))
    (entmake (list '(0 . "LINE") (cons 62 6) (cons 10 (list minx0 maxy0 0)) (cons 11 (list maxx0 miny0 0))))
        (setq sstk (ssadd (entlast) sstk))
        ;;;生成矩形的对角线并将对角线加入选择集sstk结束
    (setq ptlist (cons (list pmin pmax fx) ptlist))
  )
  (initget "Y N ")
  (if (/= (getpoint (strcat "\n 确定批量打印?[确认(Y)/退出(N)]:<Y> ")) "N")
    (progn
      (command "erase" sstk "")
      (repeat (setq i (length ptlist))
        (setq ent (nth (setq i (1- i)) ptlist )  pmin (car ent) pmax (cadr ent) fx (last ent))
        (command "_.PLOT" "Y" "" "Adobe PDF" "A3" "M" fx "N" "W" pmin pmax "F" "C" "Y" "monochrome.ctb" "Y" "N" "N" "N" "Y")
        (princ (strcat "\n 程序正在打印第" (itoa (- (length ptlist) i)) "张>>>>>>>> "))
      )
    )
    (command "erase" sstk "")
  )
  (setvar "osmode" os)                 ; 恢复捕捉模式
  (princ)
)
发表于 2018-1-27 10:27 | 显示全部楼层
这个批量打印不错,多谢分享
发表于 2018-2-19 21:20 | 显示全部楼层
要是能有打印机列表选择打印机,而不是直接指定Adobe PDF就完美了
发表于 2018-3-15 22:32 | 显示全部楼层
先收入待用。。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 16:12 , Processed in 0.264585 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表