简单的打印，只需要改一下自己的打印机就行

xj6019

精简的别人的代码，以最简单形式调用打印机，只要加上自己电脑的打印机名称就能用了,适用于模型空间
布局里面打印出来是空白（不知道怎么搞），打印方向自己按常用的改一下，也可以扩展俩命令  一个横  一个竖我不喜欢运行代码过程中出现选项，所以直接全部默认 来的利索，发个帖子当备忘。

非常感谢  tryhi  大海老师给的代码 ，更新一下下面的代码，能够自动识别横竖方向了，谢谢tryhi  ！！


(defun c:JP()   

   (setq snap (getvar "osmode"))　
      (setvar "osmode" 0)  
      (setvar "osmode" 1)
      (setq PN " 添加自己打印机名称例如: Adobe PDF ")
      (setq zz "C")
      (setq AS 1);打印的页数为1页
      (setq VDI 100) ; 横向两页间距为100，可以一次打印多页，根据需求自己改吧
      (setq P1 (getpoint "\n***第一角点: "))  
      (setq P2 (getcorner p1 "\n***第二角点: "))
      (setq fx (if(>(apply '-(mapcar 'abs(mapcar '- p1 p2)))0)"L" "P"))
      (setq sn 0)
      (while (/= sn AS)
      (setq PP (polar p1 0 (* VDI sn)))
      (setq MP (polar p2 0 (* VDI sn)))
      (setq sn (+ sn 1))
      (command "-plot" "y" "model" PN "A3" "m" fx "n" "w" PP MP "f" zz "y" "monochrome.ctb" "y" "n" "n" "n" "y" )
       )  
      (setvar"osmode" snap);恢复捕捉
  )

tryhi

xj6019 发表于 2020-3-30 20:40
不好意思，水平真的很水，见笑见笑，横竖自动识别真不会，捕捉恢复加上了，要不您动手加个自动识别横竖吧 ...

(setq p1(getpoint)p2(getcorner p1))
(if(>(apply '-(mapcar 'abs(mapcar '- p1 p2)))0)"横向""纵向")

判断两点连线角度是靠近x轴还是y轴，不就知道横纵向了，或者分开求x坐标跟y坐标的差值，都可以得出

xj6019

搜到了一段自动识别横竖的，没加成功，水平太次，贴这里，你们需要的话搞吧，这种傻瓜样式的打印，也就简单玩玩还行，太复杂的建议别用，自动识别横竖代码如下：

                ;由p1和p3坐标判断是纵向还是横向

        (if (> (cadr p1) (cadr p3)) (setq p4 p1

                                            p1 (list (car p1) (cadr p3) 0)

                                            p3 (list (car p3) (cadr p4) 0)))

        (setq x1 (car p1) y1 (cadr p1) x2 (car p3)y2 (cadr p3))

        (setq x (abs (- x1 x2)) y (abs (- y1 y2)) )

        (if (> y x) (setq st "p")(setq st "l"))

    (command "zoom""w" p1 p3)

xj6019

tryhi 发表于 2020-3-31 16:54
这位兄弟宁愿看这么又臭又长的代码，也不看我那一行代码一眼，告辞！

老师我错了，您的我也研究了，可是没整明白，试了很多次，没成功，然后才搜到了上面我贴的那个，然后也没成功，我水平半道出家，实在真不咋地，我是想既然搜到了，就贴这里吧，我不会用，别人有会用的，也可以借鉴   。手头工作也很多，这个功能呢有也行，没有也行，所以就不想再研究了，您的热心我非常感谢，对于您的意见我没能及时回复，表示非常抱歉，对不住了。

烟盒迷唇

太简单了，不适合批量打印

xj6019

烟盒迷唇 发表于 2020-3-30 19:43
太简单了，不适合批量打印

嗯 虽然能简单的批量打，但是我觉得也不适用，限制太多，简单打印个一两张还是非常可以的，方便快捷，挺不错的。

tryhi

横竖自动识别不应该是标配吗？捕捉连记忆都没有，这也太水了吧

xj6019

tryhi 发表于 2020-3-30 20:32
横竖自动识别不应该是标配吗？捕捉连记忆都没有，这也太水了吧

不好意思，水平真的很水，见笑见笑，横竖自动识别真不会，捕捉恢复加上了，要不您动手加个自动识别横竖吧，我也能受益。

QQ873240166

还不可以看  再回帖

tryhi

xj6019 发表于 2020-3-31 16:05
搜到了一段自动识别横竖的，没加成功，水平太次，贴这里，你们需要的话搞吧，这种傻瓜样式的打印，也就简单 ...

这位兄弟宁愿看这么又臭又长的代码，也不看我那一行代码一眼，告辞！