如何快速按比例作图

yshf

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

<br /> (defun c:plcs()<br />     (if (= (setq blc (getreal (strcat "\n1:?<" (itoa (getvar "useri5")) ">"))) nil)<br />         (setq blc 1)<br />     )<br />     (setvar "useri5" blc)<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 的帖子

这个只是记住了上次的值，但是回车后并不是按括号里那个默认值来作图的，另外，画直线长度默认值也存在这个问题，期待你的改进！

gcho

yshf 发表于 2011-3-2 22:27

命令: PLCS

1:?<100>

画直线-L/画圆-C <L>:c

圆心<回车结束>:
半径<0>:5
; 错误: AutoCAD 变量设置被拒绝: "userr4" nil

yshf

复制代码

gcho

yshf 发表于 2011-3-2 22:44

可否把复制和移动，还有偏移这三个最常用的命令追加到后面！

yshf

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

gcho

yshf 发表于 2011-3-2 22:53

期待将复制、移动、偏移命令加入，该下班了，明天再来请教！

x_s_s_1

何必这么麻烦，我也做过水工，用布局快多了，画图全是1：1，标尺寸的时候按不同比例因子标就是了，制图速度快要充分理解dim方面的知识（不知你是用纯cad还是外挂软件如天正、探索者等，如用外挂一般都可自动调整全局比例和比例因子标注，纯cad可自己事先定义几种标注样式如dim1、dim10、dim50等）

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

xiaxiang

回复 ZZXXQQ 的帖子

版主这个地方有小点问题
(initget "L C CO M O ")
(setq bz (getkword "\n直线-L/圆-C/拷贝-CP/移动-M/偏移-O <L>:"))
应为

2. (initget "L C CO M O ")
   
3. (setq bz (getkword "\n直线-L/圆-C/拷贝-CO/移动-M/偏移-O <L>:"))
   

(initget "L C CO M O ")<br /> (setq bz (getkword "\n直线-L/圆-C/拷贝-CO/移动-M/偏移-O <L>:"))<br />