土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ [分享]一个模型空间里的批量打印lisp,支持200x

[分享]一个模型空间里的批量打印lisp,支持200x

发布于:2004-01-10 19:27:10 来自:建筑设计/CAD下载及教程 [复制转发]
(defun c:Mploty ()
(alert
(strcat
"===模型空间批量出图程序1.0版=== 2003.8.31 \n"
"\n"
"感谢使用本程序,欢迎提出修改意见 \n"
"保留所有权利 \n"
"\n"
" 免费软件请勿做商业用途 \n"
"\n"
" QQ:55255953 \n"
)
)
    
(setq p_1 (getpoint "\n\tFirst CORNER(最下方第一张图纸的左下角):")
       P_2
(getPOINT "\n\tOther CORNER(最下方第一张图纸的右上角):")
n
(getint "\n\t请输入需要打印的图纸总张数:<1>")
)
(if (= n nil)
(setq n 1)
)
(setq m_d (getreal "\n请输入图纸Y向间距(59400):"))
(if (= m_d nil)
(setq m_d 59400)
)
(REPEAT n
(command "plot" "y" "" "" "" "" "" "" "w" P_1 P_2 "" "" "" "" "" "" "n" "n" "y")(COMMAND)
(setq p_1 (polar p_1 (/ pi 2) m_d)
p_2 (polar p_2 (/ pi 2) m_d)
)
)
)
(princ "\n批量打印程序已加载,键入mploty启动程序") ;enddef

全部回复(4 )

只看楼主 我来说两句
  • luoyers
    luoyers 沙发
    我下载试用了,咋怎么调试也不成啊,
    哪的问题啊
    2006-10-15 16:05:15

    回复 举报
    赞同0
  • llmdzzd
    llmdzzd 板凳
    我下载试验了,可以打印,但是不控制比例,Y向距离也很难控制,打印的图都只有一部分。是我操作有问题?还是程序本身有缺限?
    2006-04-10 14:51:10

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

CAD下载及教程

返回版块

52.07 万条内容 · 656 人订阅

猜你喜欢

阅读下一篇

[测绘]如何自动联结三角形网

自动联结三角形网是将平面上的离散点中最靠近的三点构成三角形,从而形成三角形网。在使用周围临近的离散点组成三角形时,应确保每个三角形都是锐角三角形或三边的长度近似相等,避免出现过大的钝角和过小的锐角。确定第一个三角形 首先要确定第一个三角形。设L为形成的三角形计数号,K为用来扩展的三角形的计数号,用V(L,1),V(L,2),V(L,3)分别表示为L号三角形的三个顶点编号。开始联结三角形时,设L=1,然后从N个离散点中找出左下角的点送入V(L,1)中,作为第一个三角形的第一个顶点,找出距离该点最近的点送入V(L,2)中,作为第一个三角形的第二个顶点,找出距离这两点连线中点最近而且不和这两点在一直线上的点送入V(L,3)中,作为第一个三角形的第三个顶点。

回帖成功

经验值 +10