如何快速按比例作图

gcho

LISP在理论上能不能做到调试CAD系统参数啊，我的想法：

作图步骤：
①当前作图比例1：？（给定具体值）
②画直线（或其它命令），鼠标点击起点，指定下一点时键盘输入数值a
③图上的直线长度自动变为了1000/？*a

已经上传了传附件。

zag0666

其实有一个非常头疼的问题，当你到一个单位。
此单位已经有几千张可以用来借鉴和修改的图纸都是按照1：N来绘制的时候，
恐怕只能改变自己绘制的习惯了。

alexmai

zag0666 发表于 2012-8-17 12:36
楼上这世界本来就没有什么是“正确”。下面我只讲好处了：
1. 编辑一个图纸始终要比，重新绘制要快。把老 ...

这些都不是事，最大的好处就是：
线型是不受缩放影响的（除非线型放在块内）不同比例放在同一张图内，打印出来的虚线都保持一致

在模型空间画不同比例是可以的
先把你“参考内容”，根据提示的尺寸缩放到1：1
然后在1：1上画
标完尺寸，文字，画完后，组成块后，保留该块，日后编辑时用块编辑来修改
然后copy这个块，你想放的"比例 / 该打印图纸比例" 放置到打印框上

15年前就是这样画图的，现在见到深有体会

tjc5471

其实对于修改图纸来说楼主的需要还是有市场的，又回来看看了。ZZXXQQ兄的代码很实用的，不过绘制前设定比例比选择标注更切合实际？能否改写一下代码让我等小白拿来用呢？

caoyin

怎么不能传附件啊？



使用高级模式

gcho

刚上传了附件，请帮忙看看！

liu_kunlun

按1：1作图，最后缩放一下不就可以了？

ZZXXQQ

手工做图时要进行比例换算。计算机绘图最好是1:1的绘图。要改掉比例换算这个习惯。

gcho

大家说的方法我知道，我只是想寻找一种新的作图方法，因为1:1作图时是方便，最后画完了要缩放，再用相应的比例去标注图形尺寸，这个过程不是很麻烦，麻烦就是下次修改这个图时就要进行换算了（这时你不可能再缩放到1:1去修改吧），这个换算过程是很费时的，如果自己编一个命令（比方说PLSC），回到我帖子的顶端要求，那么就省很多时了，唉，只是苦于我对LISP一窍不通，不能自己完成这个小小的程序，还望高手们相助，先拜谢了！

ZZXXQQ

为什么要缩放？出图时给比例不行吗？

gcho

我是搞水工的，出图没有建筑方面要求规范，一般都是出A3的小图，可想而知，有时一张图纸上可能有多个断面图，且每个断面图可能比例不一样，所以画图时是要缩放的！

yshf

2. 
   
3. (defun c:plcs()
   
4.     (if (= (setq blc (getreal "\n1:?<1>")) nil)
   
5.         (setq blc 1)
   
6.     )
   
7.     (setq bl (/ blc 1000.0))
   
8.     (initget "L C")
   
9.     (if (= (setq bz (getkword "\n画直线-L/画圆-C <L>:")) nil)
   
10.         (setq bz "L")
    
11.     )
    
12.     (cond ((= bz "L")
    
13.              (while (setq p1 (getpoint "\n起点<回车结束>:"))
    
14.                  (if (and (setq p2 (getpoint p1 "\n止点所在方向:"))
    
15.                           (setq ll (getreal (strcat "\n直线长度<" (rtos (getvar "userr5")) ">:")))
    
16.                      )
    
17.                      (progn
    
18.                         (setvar "userr5" ll)
    
19.                         (setq ang (angle p1 p2)
    
20.                               pt  (polar p1 ang (/ ll bl))
    
21.                         )
    
22.                         (command "_line" p1 pt "")
    
23.                      )
    
24.                  )
    
25.              )
    
26.           )
    
27.           ((= bz "C")
    
28.              (while (setq p1 (getpoint "\n圆心<回车结束>:"))
    
29.                 (if (setq rr (getreal (strcat "\n半径<" (rtos (getvar "userr4")) ">:")))
    
30.                     (progn
    
31.                        (setvar "userr4" ll)
    
32.                        (command "_circle" p1 (/ rr bl))
    
33.                     )
    
34.                 )
    
35. 
    
36.              )
    
37.           )
    
38.     )
    
39.     (princ)
    
40. )
    

<br /> (defun c:plcs()<br />     (if (= (setq blc (getreal "\n1:?<1>")) nil)<br />         (setq blc 1)<br />     )<br />     (setq bl (/ blc 1000.0))<br />     (initget "L C")<br />     (if (= (setq bz (getkword "\n画直线-L/画圆-C <L>:")) nil)<br />         (setq bz "L")<br />     )<br />     (cond ((= bz "L")<br />              (while (setq p1 (getpoint "\n起点<回车结束>:"))<br />                  (if (and (setq p2 (getpoint p1 "\n止点所在方向:"))<br />                           (setq ll (getreal (strcat "\n直线长度<" (rtos (getvar "userr5")) ">:")))<br />                      )<br />                      (progn<br />                         (setvar "userr5" ll)<br />                         (setq ang (angle p1 p2)<br />                               pt  (polar p1 ang (/ ll bl))<br />                         )<br />                         (command "_line" p1 pt "")<br />                      )<br />                  )<br />              )<br />           )<br />           ((= bz "C")<br />              (while (setq p1 (getpoint "\n圆心<回车结束>:"))<br />                 (if (setq rr (getreal (strcat "\n半径<" (rtos (getvar "userr4")) ">:")))<br />                     (progn<br />                        (setvar "userr4" ll)<br />                        (command "_circle" p1 (/ rr bl))<br />                     )<br />                 )<br /> <br />              )<br />           )<br />     )<br />     (princ)<br /> )<br />

gcho

回复 yshf 的帖子

你的代码很好，希望再优化一下：
1、能自动记忆上次的操作，比如上次是1:100，这次默认就是1:100，询问是否更改，不更改就直接回车画线或者画圆；
2、能否将<复制>，<偏移>命令追加到<回车结束>后面，因为画图的时候肯定要用到复制或者偏移等命令，复制或偏移的时候要输入距离，这个距离也只用输实际距离最方便。