[求助]：谁能告诉我折断线该怎么画？

xxming

谁能告诉我折断线该怎么画？

ll_j

安装ET后有绘制折断线的命令。

xxming

我没装ET该怎么画

cdhua001

没装ET那就一笔一笔的画。



装了ET这样画：

ll_j

最初由 xxming 发布
[B]我没装ET该怎么画 [/B]

一个古旧程序：
命令：sect1、sect2
[php](defun c:sect1(/ pt1 pt2 wb wb1 x1 x2 y1 y2)
  (command "color" (getvar "cecolor"))
  (setq pt1 (getpoint "\nPick start point: ")
        pt2 (getpoint pt1 "\nThe end point: ")
  )
  (if (= (setq wb (getvar "userr1")) 0.0) (setq wb 0.2))
  (princ "\nHalf width of break mark < ")
  (princ wb)
  (setq wb1 (getdist " >: "))
  (if (or (= wb1 "") (= wb1 nil))
    (setvar "userr1" wb)
    (progn (setq wb wb1) (setvar "userr1" wb))
  )
  (draw 0.5 1)
  (princ)
)
(defun c:sect2(/ pt1 pt2 wb wb1 x1 x2 y1 y2)
  (command "color" (getvar "cecolor"))
  (setq pt1 (getpoint "\nPick start point [Left or dowm]: ")
        pt2 (getpoint pt1 "\nThe end point: ")
  )
  (grdraw pt1 pt2 (atoi (getvar "cecolor")))
  (if (= (setq wb (getvar "userr2")) 0.0) (setq wb 0.15))
  (princ "\nDistance between two line < ")
  (princ wb)
  (setq wb1 (getdist pt2 " >: "))
  (if (or (= wb1 "") (= wb1 nil))
    (setvar "userr2" wb)
    (progn (setq wb wb1) (setvar "userr2" wb))
  )
  (grdraw pt1 pt2 0)
  (draw 1.5 1.5)
  (setq pt1(list (- x1 (* wb (sin alf))) (+ y1 (* wb (cos alf))) 0.0)
        pt2(list (- x2 (* wb (sin alf))) (+ y2 (* wb (cos alf))) 0.0)
  )
  (draw 1.5 1.5)
  (princ)
)
(defun draw(k1 k2 / x3 x4 x5 x6 x0 y3 y4 y5 y6 y0
            pt0 pt3 pt4 pt5 pt6 ptl)
  (setq x1 (car pt1)
        y1 (cadr pt1)
        x2 (car pt2)
        y2 (cadr pt2)
        alf(angle pt1 pt2)
        x0 (/ (+ x1 x2) 2)
        y0 (/ (+ y1 y2) 2)
        x3 (- x0 (* wb k1 (cos alf)))
        y3 (- y0 (* wb k1 (sin alf)))
        x6 (+ x0 (* wb k1 (cos alf)))
        y6 (+ y0 (* wb k1 (sin alf)))
        x4 (- (/ (+ x3 x0) 2) (* wb k2 (sin alf)))
        y4 (+ (/ (+ y3 y0) 2) (* wb k2 (cos alf)))
        x5 (+ (/ (+ x6 x0) 2) (* wb k2 (sin alf)))
        y5 (- (/ (+ y6 y0) 2) (* wb k2 (cos alf)))
        pt3(list x3 y3 0.0)
        pt4(list x4 y4 0.0)
        pt5(list x5 y5 0.0)
        pt6(list x6 y6 0.0)
        ptl(list pt1 pt3 pt4 pt5 pt6 pt2)
  )
  (entmake (list '(0 . "POLYLINE") '(10 0.0 0.0 0.0)))
  (while (/= ptl nil)
    (entmake (list '(0 . "VERTEX") (cons 10 (car ptl))))
    (setq ptl (cdr ptl))
  )
  (entmake '((0 . "SEQEND")))
)
(princ)[/php]

蓝色香格里拉

还是不会阿！~~~

柔柔

这个折断线曾经让我出过一次洋相。
一位朋友没装ET，没法画，我有呀，于是想当然就把ET内BREAKL.LSP拷贝过去，反馈不能用，便仔细一看，TNND，这么小的一个功能，居然不把程序独立，还要配相应的dwg文件。一气之下自己编一个。比它小比它强，呵呵。。。。。。

2. 
   
3.   [FONT=courier new]
   
4. ; BREAKL.LSP 折断线  CYN 2003.7.8
   
5. ; 最近一次修改: 2003.7.9
   
6. (defun c:breakl (/ os scl ee temp xx ang  p1 p2 p3 p4 p5 p6 p7 ename)
   
7.   (setq os (getvar "osmode"))
   
8.   (setvar "osmode" 0)
   
9.   (if (= scl nil) (setq scl (getvar "dimscale")))
   
10.   (if (= scl 0) (setq scl 1.0))  
    
11.   (if (= ee nil) (setq ee 1.0))
    
12.   (setq temp T)
    
13.   (while temp
    
14.      (prompt (strcat "\n比例因子 Scale = " (rtos scl)
    
15.                    " , 延伸 Extension = " (rtos ee)
    
16.              )
    
17.      )
    
18.      (initget "Scale Extension")
    
19.      (setq p1 (getpoint "\n指定第一个点或 [比例因子(S)/延伸(E)] <在既有直线上添加>: "))
    
20.      (cond
    
21.        ((= p1 "Scale")
    
22.           (setq xx (getreal (strcat "\nScale <"(rtos scl)">:")))
    
23.           (if xx (setq scl xx))
    
24.        )
    
25.        ((= p1 "Extension")
    
26.           (setq xx (getreal (strcat "\nExtension <"(rtos ee)">:")))
    
27.           (if xx (setq ee xx))
    
28.        )
    
29.        (T
    
30.          (setq temp nil)
    
31.        )
    
32.      )
    
33.    )
    
34. 
    
35.     (defun breakl_new ()
    
36.       (setq p2 p1)
    
37.       (while (<= (distance p1 p2) (* scl 3.0))
    
38.          (initget 1)
    
39.          (setq p2 (getpoint p1 "\n指定第二点: "))
    
40.          (if (<= (distance p1 p2) (* scl 3.0))
    
41.            (princ "\n线条太短,不足以成为折断线")
    
42.          )
    
43.       )
    
44.       (command "_line" p1 p2 "")
    
45.       (setq ename (entlast))
    
46.     )
    
47. 
    
48.     (defun breakl_add ()
    
49.       (while (null ename)
    
50.         (setq ename (entsel "\n选择要加折断符号之直线 LINE: "))
    
51.         (setq ename (car ename))
    
52.         (if (/= (cdr (assoc 0 (entget ename))) "LINE")
    
53.            (setq ename nil)
    
54.         )
    
55.       )
    
56.       (setq p1 (cdr (assoc 10 (entget ename))))
    
57.       (setq p2 (cdr (assoc 11 (entget ename))))
    
58.       (if (<= (distance p1 p2) (* scl 3.0))
    
59.         (progn
    
60.           (princ "\n! 线太短,不足以成为折断线,新画一个")
    
61.           (setq p1 (getpoint "\n指定第一个点: "))
    
62.           (breakl_new)
    
63.         )
    
64.       )
    
65.     )
    
66.    (if (= p1 nil) (breakl_add) (breakl_new))
    
67.    (setq ang (angle p1 p2))
    
68.    (while (not p3)
    
69.       (setq p3 (getpoint "\n指定折断符号位置 <中点>: "))
    
70.       (if (not p3)
    
71.           (setq p3 (polar p1 ang (/ (distance p1 p2) 2.0)))
    
72.           (progn
    
73.             (setq p4 (polar p3 (+ ang (* pi 0.5)) 1.0))
    
74.             (setq p3 (inters p1 p2 p3 p4 nil))
    
75.             (if (> (max (distance p1 p3) (distance p2 p3))
    
76.                    (- (distance p1 p2) (* scl 3.0))
    
77.                 )                              
    
78.               (progn                 
    
79.                  (princ "\n*无效* 指定的点超出范围,请重新指定")
    
80.                  (setq p3 nil)
    
81.               )
    
82.             )
    
83.           )
    
84.       )
    
85.    )
    
86.    (setq p1 (polar p1 (+ ang pi) (* ee scl))
    
87.          p2 (polar p2 ang (* ee scl))
    
88.          p4 (polar p3 (+ ang pi) (* scl 1.5))
    
89.          p5 (polar p4 ang (* scl 0.75))
    
90.          p5 (polar p5 (- ang (* pi 0.5)) (* scl 2.0))
    
91.          p6 (polar p3 ang (* scl 0.75))
    
92.          p6 (polar p6 (+ ang (* pi 0.5)) (* scl 2.0))
    
93.          p7 (polar p3 ang (* scl 1.5))
    
94.    )
    
95.    (entdel ename)
    
96.    (command "_pline" p1 "w" "0.0" "" p4 p5 p6 p7 p2 "")
    
97.    (setvar "osmode" os)
    
98. )
    
99.   [/FONT]
    

<br />   [FONT=courier new]<br /> ; BREAKL.LSP 折断线  CYN 2003.7.8<br /> ; 最近一次修改: 2003.7.9<br /> (defun c:breakl (/ os scl ee temp xx ang  p1 p2 p3 p4 p5 p6 p7 ename)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (if (= scl nil) (setq scl (getvar "dimscale")))<br />   (if (= scl 0) (setq scl 1.0))  <br />   (if (= ee nil) (setq ee 1.0))<br />   (setq temp T)<br />   (while temp<br />      (prompt (strcat "\n比例因子 Scale = " (rtos scl)<br />                    " , 延伸 Extension = " (rtos ee)<br />              )<br />      )<br />      (initget "Scale Extension")<br />      (setq p1 (getpoint "\n指定第一个点或 [比例因子(S)/延伸(E)] <在既有直线上添加>: "))<br />      (cond<br />        ((= p1 "Scale")<br />           (setq xx (getreal (strcat "\nScale <"(rtos scl)">:")))<br />           (if xx (setq scl xx))<br />        )<br />        ((= p1 "Extension")<br />           (setq xx (getreal (strcat "\nExtension <"(rtos ee)">:")))<br />           (if xx (setq ee xx))<br />        )<br />        (T<br />          (setq temp nil)<br />        )<br />      )<br />    )<br /> <br />     (defun breakl_new ()<br />       (setq p2 p1)<br />       (while (<= (distance p1 p2) (* scl 3.0))<br />          (initget 1)<br />          (setq p2 (getpoint p1 "\n指定第二点: "))<br />          (if (<= (distance p1 p2) (* scl 3.0))<br />            (princ "\n线条太短,不足以成为折断线")<br />          )<br />       )<br />       (command "_line" p1 p2 "")<br />       (setq ename (entlast))<br />     )<br /> <br />     (defun breakl_add ()<br />       (while (null ename)<br />         (setq ename (entsel "\n选择要加折断符号之直线 LINE: "))<br />         (setq ename (car ename))<br />         (if (/= (cdr (assoc 0 (entget ename))) "LINE")<br />            (setq ename nil)<br />         )<br />       )<br />       (setq p1 (cdr (assoc 10 (entget ename))))<br />       (setq p2 (cdr (assoc 11 (entget ename))))<br />       (if (<= (distance p1 p2) (* scl 3.0))<br />         (progn<br />           (princ "\n! 线太短,不足以成为折断线,新画一个")<br />           (setq p1 (getpoint "\n指定第一个点: "))<br />           (breakl_new)<br />         )<br />       )<br />     )<br />    (if (= p1 nil) (breakl_add) (breakl_new))<br />    (setq ang (angle p1 p2))<br />    (while (not p3)<br />       (setq p3 (getpoint "\n指定折断符号位置 <中点>: "))<br />       (if (not p3)<br />           (setq p3 (polar p1 ang (/ (distance p1 p2) 2.0)))<br />           (progn<br />             (setq p4 (polar p3 (+ ang (* pi 0.5)) 1.0))<br />             (setq p3 (inters p1 p2 p3 p4 nil))<br />             (if (> (max (distance p1 p3) (distance p2 p3))<br />                    (- (distance p1 p2) (* scl 3.0))<br />                 )                               <br />               (progn                 <br />                  (princ "\n*无效* 指定的点超出范围,请重新指定")<br />                  (setq p3 nil)<br />               )<br />             )<br />           )<br />       )<br />    )<br />    (setq p1 (polar p1 (+ ang pi) (* ee scl))<br />          p2 (polar p2 ang (* ee scl))<br />          p4 (polar p3 (+ ang pi) (* scl 1.5))<br />          p5 (polar p4 ang (* scl 0.75))<br />          p5 (polar p5 (- ang (* pi 0.5)) (* scl 2.0))<br />          p6 (polar p3 ang (* scl 0.75))<br />          p6 (polar p6 (+ ang (* pi 0.5)) (* scl 2.0))<br />          p7 (polar p3 ang (* scl 1.5))<br />    )<br />    (entdel ename)<br />    (command "_pline" p1 "w" "0.0" "" p4 p5 p6 p7 p2 "")<br />    (setvar "osmode" os)<br /> )<br />   [/FONT]<br />

150350333

最初由 柔柔 发布
[B]这个折断线曾经让我出过一次洋相。
一位朋友没装ET，没法画，我有呀，于是想当然就把ET内BREAKL.LSP拷贝过去，反馈不能用，便仔细一看，TNND，这么小的一个功能，居然不把程序独立，还要配相应的dwg文件。一气之下?.. [/B]

自己编的啊
厉害
问一下怎么用啊？
我想……
谢谢！~

saltxf

呵呵，柔柔，你的LISP编的太长了，我头都看晕了。看我编的点样？

代码：
(defun C:jdx()
  (princ "  ★ <BiHam Stdio>  E_mail:saltxf@126.com   QQ:27919506  ★")
  (setvar "CMDECHO" 0)
  (setq lay (getvar "clayer"))
  (setq os (getvar "osmode"))
  (command "color" "bylayer")
  (command "osnap" "endp")
  (if (=(tblobjname "LAYER" "1line") nil)
       (command "layer" "m" "1line" "c" "1" "" "")
  )
  (command "layer" "s" "1line" "")
  (setq scale 100)      
  (setq pt1 (getpoint "\n请输入第一点:"))
  (setq pt2 (getpoint pt1 "\n请输入第二点:"))
  (setvar "osmode" 0)
  (setq ang (angle pt1 pt2))
  (setq dis (distance pt1 pt2))
  (setq x1 (/ (- dis (* 2 scale)) 2))
  (setq pt3 (polar pt1 ang x1))
  (setq pt4 (polar pt1 ang (+ x1 (* 2 scale))))
  (setq pt5 (polar pt3 (+ ang 1.32582) (* 2.0616 scale)))
  (setq pt6 (polar pt4 (- ang 1.81577) (* 2.0616 scale)))
  (setq pt1 (polar pt1 (+ ang pi) (* 4 scale)))
  (setq pt2 (polar pt2 ang (* 4 scale)))
  (command "pline" pt1 "w" "0" "0" pt3 pt5 pt6 pt4 pt2 "")
  (command "layer" "s" lay "")      ;恢复图层
(setvar "osmode" os)              ;恢复捕捉
(princ)(princ)
)

lvdonghua

各位都是编程高手，我是个程序盲，看不懂，还是找个地方下载软件算了。

还有问一下cdhua001斑竹：我认为你是高手，怎样用CAD2004偏移多个直线（偏移相同的距离）
是不是晓东CAD的命令我的2004里装了晓东CAD但是找不到，在2002里装了晓东CAD工具就有，为什么？？

cdhua001

CAD没有直接偏移多条线的命令，当然，也许我根本就没看懂你的问题。
你可以将你的要求详细写出来，请编程高手帮你编制一个小程序就可以了。

Jerry541

天正里的楼梯工具也有直接画折断线的。

zwf186

不用那么麻烦呀，在天正里的菜单平面---工具----加剖断线即可，不过要先画一条直线呀

xxming

多谢了