自动判断图幅打印pdf

w245272914 · 发表于 2018-1-9 09:53:03

war32 发表于 2018-1-9 09:20
(getvar "DWGPREFIX")，通过系统变量获得当前文件的路径位置，然后给文件名，放到command命令下方应该就 ...

哥们，能否帮忙改下，我来测试下。我也学习下这个函数。

w245272914 · 发表于 2018-1-9 10:47:41

war32 发表于 2018-1-9 09:20
(getvar "DWGPREFIX")，通过系统变量获得当前文件的路径位置，然后给文件名，放到command命令下方应该就 ...

大哥哥，拜托了

zhangcan0515 · 发表于 2018-1-9 12:19:38

留个言回头试试这几天正需要谢谢学习学习

不语勿语 · 发表于 2018-3-13 01:47:30

gxlx2007 · 发表于 2018-12-17 18:34:55

这个作用不是很大，谢谢了

mp13119 · 发表于 2019-10-30 14:17:17

好东西，需要这样的好程序！为楼主点赞！

dd131028 · 发表于 2020-6-10 16:13:50

你好，请问一下，为什么我把A0加进去怎么没用呢？打印不出来为什么？

war32 · 发表于 2020-6-15 20:33:44

dd131028 发表于 2020-6-10 16:13
你好，请问一下，为什么我把A0加进去怎么没用呢？打印不出来为什么？

代码发上来看看？

dd131028 · 发表于 2020-6-17 15:37:16

本帖最后由 dd131028 于 2020-6-17 15:44 编辑

war32 发表于 2020-6-15 20:33
代码发上来看看？

((= cw_d_Specifications "A0")
(progn (setq  cw_right_pt (polar cw_leftdown_pt 0 (* 1189 cw_read_draw_times)))
      (setq  cw_true_corner (polar cw_right_pt  (/ pi 2) (* 841 cw_read_draw_times)))))
((= cw_d_Specifications "A1")
(progn (setq  cw_right_pt (polar cw_leftdown_pt 0 (* 841 cw_read_draw_times)))
      (setq  cw_true_corner (polar cw_right_pt  (/ pi 2) (* 594 cw_read_draw_times)))))
((= cw_d_Specifications "A2")
(progn (setq  cw_right_pt (polar cw_leftdown_pt 0 (* 594 cw_read_draw_times)))
      (setq  cw_true_corner (polar cw_right_pt  (/ pi 2) (* 420 cw_read_draw_times)))))

dd131028 · 发表于 2020-6-17 15:42:10

war32 发表于 2020-6-15 20:33
代码发上来看看？

C:\Users\DD-Dell\Desktop\123\111

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

[源码] 自动判断图幅打印pdf

就加了一小段

就在原来的基础上加了A0、A1、A2

本帖子中包含更多资源