直线画矩形

love1030312

命令 输入矩形宽度 点1，点2  画出矩形  
命令可以连续使用 ，画出的矩形图层为当前层
跪求大神 ，版主  高手们  帮忙写一个  小弟不甚感激

184235521

香田里浪人 发表于 2014-11-13 15:11
那很简单，稍微改一下就可以不用每次输入宽度。修改后程序如下
;;两点画矩形
(defun c:fw2()

按直线布置固定的矩形(宽度和长度输入）怎么写？

296715530

kwok 发表于 2014-11-13 10:54
之前弄过这个

加载之后提示两点位置错误，按TT没反应

184235521

kwok 发表于 2014-11-13 10:54
之前弄过这个

能不能整个三点画L型的。

reyun

2. (defun c:tt(/ pt1 pt2 )
   
3.         (while (setq pt1 (getpoint))
   
4.           (command "RECTANG" pt1 (setq pt2 (getcorner pt1)))
   
5.         )
   
6.           (princ)
   
7. )

(defun c:tt(/ pt1 pt2 )<br />         (while (setq pt1 (getpoint))<br />           (command "RECTANG" pt1 (setq pt2 (getcorner pt1)))<br />         )<br />           (princ)<br /> )

love1030312

reyun 发表于 2014-11-12 19:18

谢谢朋友的回复   但是不是我想要的

reyun

love1030312 发表于 2014-11-12 22:52
谢谢朋友的回复   但是不是我想要的

抱歉，看错了...

love1030312

reyun 发表于 2014-11-13 00:06
抱歉，看错了...

大哥帮我搞一个 呗

香田里浪人

这么简单的问题应该难不倒楼主。下面程序试一试，看看是不是满足你的要求
;;;两点画矩形
(defun c:fw2()
(setq p1 (getpoint "\n指定左角点:"))
(setq p2 (getpoint "\n指定右角点:"))
(setq w (getreal "\n输入宽度:"))
(setq A (angle p1 p2))
(setq A1 (+ A (/ pi 2)))
(setq p3 (polar p2 A1 w)p4(polar p1 A1 w))
(command "pline" p1 p2 p3 p4 "c" "")
)

1993063

楼主这个完全可以自己学着写

love1030312

香田里浪人 发表于 2014-11-13 06:48
这么简单的问题应该难不倒楼主。下面程序试一试，看看是不是满足你的要求
;;;两点画矩形
(defun c:fw2()
...

谢谢大哥的回复 大概是你这样的  你这个程序比我现在用的还繁琐  哈哈 每次还要输入一次距离

kwok

love1030312 发表于 2014-11-13 08:53
谢谢大哥的回复 大概是你这样的  你这个程序比我现在用的还繁琐  哈哈 每次还要输入一次距离

之前弄过这个

2. (defun c:tt (/ p1 p2 p3 p4 );;;;;;;;;;;定高定2点画矩形
   
3.   (vl-cmdf ".undo" "be")
   
4.   (while
   
5.     (setq key T)
   
6.      (if (null rdh)
   
7.        (setq rdh 50)
   
8.      )
   
9.      (initget "S ")
   
10.      (while
    
11.        (and key
    
12.       (= (setq
    
13.      p1 (getpoint (strcat "\n矩形边起点,或,设置(S)<矩形宽度"
    
14.               (rtos rdh)
    
15.               ">:"
    
16.             )
    
17.         )
    
18.          )
    
19.          "S"
    
20.       )
    
21.        )
    
22.   (if p1
    
23.     (setq key nil)
    
24.   )
    
25.   (if (setq s (getdist (strcat "\n设置矩形宽度:<" (rtos rdh) ">")))
    
26.     (setq  rdh s
    
27.     key T
    
28.     )
    
29.   )
    
30.   (initget "S ")
    
31.      )
    
32.     (setq p2 (getpoint p1 "矩形边终点："))
    
33. 
    
34.      (setq p3 (polar p2 (+ (angle p1 p2) (* 0.5 pi)) rdh)
    
35.      p4 (polar p1 (+ (angle p1 p2) (* 0.5 pi)) rdh)
    
36.      )
    
37.      (apply 'vl-cmdf (list "_pline" "non" p1 "non" p2 "non" p3 "non" p4 "c"))
    
38.      (princ "\n**回车结束**")
    
39.   )
    
40.   (vl-cmdf ".undo" "e")
    
41.   (princ)
    
42. )

(defun c:tt (/ p1 p2 p3 p4 );;;;;;;;;;;定高定2点画矩形<br />   (vl-cmdf ".undo" "be")<br />   (while<br />     (setq key T)<br />      (if (null rdh)<br />        (setq rdh 50)<br />      )<br />      (initget "S ")<br />      (while<br />        (and key<br />       (= (setq<br />      p1 (getpoint (strcat "\n矩形边起点,或,设置(S)<矩形宽度"<br />               (rtos rdh)<br />               ">:"<br />             )<br />         )<br />          )<br />          "S"<br />       )<br />        )<br />   (if p1<br />     (setq key nil)<br />   )<br />   (if (setq s (getdist (strcat "\n设置矩形宽度:<" (rtos rdh) ">")))<br />     (setq  rdh s<br />     key T<br />     )<br />   )<br />   (initget "S ")<br />      )<br />     (setq p2 (getpoint p1 "矩形边终点："))<br /> <br />      (setq p3 (polar p2 (+ (angle p1 p2) (* 0.5 pi)) rdh)<br />      p4 (polar p1 (+ (angle p1 p2) (* 0.5 pi)) rdh)<br />      )<br />      (apply 'vl-cmdf (list "_pline" "non" p1 "non" p2 "non" p3 "non" p4 "c"))<br />      (princ "\n**回车结束**")<br />   )<br />   (vl-cmdf ".undo" "e")<br />   (princ)<br /> )

香田里浪人

love1030312 发表于 2014-11-13 08:53
谢谢大哥的回复 大概是你这样的  你这个程序比我现在用的还繁琐  哈哈 每次还要输入一次距离

那很简单，稍微改一下就可以不用每次输入宽度。修改后程序如下
;;两点画矩形
(defun c:fw2()
(setq w (getreal "\n输入宽度:"))
(while
(setq p1 (getpoint "\n指定左角点:"))
(setq p2 (getpoint "\n指定右角点:"))
(setq A (angle p1 p2))
(setq A1 (+ A (/ pi 2)))
(setq p3 (polar p2 A1 w)p4(polar p1 A1 w))
(command "pline" p1 p2 p3 p4 "c" "")
))