[原创]：我也发个"折断线程序"跟大家交流

yjtdkj

2. 
   
3.   [FONT=courier new]
   
4. ;;;---------------------------------------------------------------------------------------------
   
5. (defun c:zdx (/             ANG1   OLDLAY OLDOSM PT1         PT2        PT3    PT4
   
6.               PT5    PT6    PT6_1  PT7          PT7_1         PT8        PT9    S
   
7.               S0_68  S0_8   S2_5   S3
   
8.              )
   
9.   (princ
   
10.     "\n折断线绘制小程序v1.0\n由刘智编制yjtdkj8156262@163.com "
    
11.   )
    
12.   (setq        pt1 (getpoint "\n 起始点:")
    
13.         pt2 (getpoint pt1 "\n 终止点:")
    
14.   )
    
15.   ;;--------------------------------------------------------
    
16.   (if (not #_zdx_s)
    
17.     (setq #_zdx_s 15)
    
18.   )
    
19.   (setq        s (getint
    
20.             (strcat "\n请输入图纸比例 <" (itoa #_zdx_s) ">: ")
    
21.                                         ;acet-str-format
    
22.           )
    
23.   )
    
24.   (if (or (not s) (equal s ""))                ;or
    
25.     (setq s #_zdx_s)                        ;setq then
    
26.     (setq #_zdx_s s)                        ;setq else
    
27.   )                                        ;if
    
28.   ;;--------------------------------------------------------
    
29.   (setq        s3    (* s 3)
    
30.         s2_5  (* s 2.5)
    
31.         s0_8  (* s 0.8)
    
32.         s0_68 (* s 0.68)
    
33.   )
    
34.   ;;--------------------------------------------------------
    
35.   (setq        ang1  (angle pt1 pt2)
    
36.         pt3   (polar pt1 ang1 (/ (distance pt1 pt2) 2.0))
    
37.         pt4   (polar pt3 (+ pi ang1) (+ s0_68 s0_8))
    
38.         pt5   (polar pt3 ang1 (+ s0_68 s0_8))
    
39.         pt6_1 (polar pt3 (+ (/ pi 2) ang1) s2_5)
    
40.         pt6   (polar pt6_1 (+ pi ang1) s0_68)
    
41.         pt7_1 (polar pt3 (+ ang1 (+ pi 1.5)) s2_5)
    
42.         pt7   (polar pt7_1 ang1 s0_68)
    
43.         pt8   (polar pt1 (+ pi ang1) s3)
    
44.         pt9   (polar pt2 ang1 s3)
    
45. 
    
46.   )
    
47.   (setq oldlay (getvar "clayer"))
    
48.   (if (tblsearch "layer" "PUB_DIM")
    
49.     (progn (command "layer" "s" "PUB_DIM" ""))
    
50.     (progn (command "layer" "m" "PUB_DIM" "c" "136" "" ""))
    
51.   )
    
52.   (command "color" "bylayer")
    
53.   (setq oldosm (getvar "osmode"))
    
54.   (setvar "osmode" 0)
    
55.   (setvar "plinewid" 0.0)
    
56.   (command "PLINE" pt8 pt1 pt4 pt6 pt7 pt5 pt2 pt9 "")
    
57.   (setvar "osmode" oldosm)
    
58.   (setvar "clayer" oldlay)
    
59.   (princ)
    
60. )
    
61. ;;;-----------------------------------------------------------------------
    
62. 
    
63.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;---------------------------------------------------------------------------------------------<br /> (defun c:zdx (/             ANG1   OLDLAY OLDOSM PT1         PT2        PT3    PT4<br />               PT5    PT6    PT6_1  PT7          PT7_1         PT8        PT9    S<br />               S0_68  S0_8   S2_5   S3<br />              )<br />   (princ<br />     "\n折断线绘制小程序v1.0\n由刘智编制yjtdkj8156262@163.com "<br />   )<br />   (setq        pt1 (getpoint "\n 起始点:")<br />         pt2 (getpoint pt1 "\n 终止点:")<br />   )<br />   ;;--------------------------------------------------------<br />   (if (not #_zdx_s)<br />     (setq #_zdx_s 15)<br />   )<br />   (setq        s (getint<br />             (strcat "\n请输入图纸比例 <" (itoa #_zdx_s) ">: ")<br />                                         ;acet-str-format<br />           )<br />   )<br />   (if (or (not s) (equal s ""))                ;or<br />     (setq s #_zdx_s)                        ;setq then<br />     (setq #_zdx_s s)                        ;setq else<br />   )                                        ;if<br />   ;;--------------------------------------------------------<br />   (setq        s3    (* s 3)<br />         s2_5  (* s 2.5)<br />         s0_8  (* s 0.8)<br />         s0_68 (* s 0.68)<br />   )<br />   ;;--------------------------------------------------------<br />   (setq        ang1  (angle pt1 pt2)<br />         pt3   (polar pt1 ang1 (/ (distance pt1 pt2) 2.0))<br />         pt4   (polar pt3 (+ pi ang1) (+ s0_68 s0_8))<br />         pt5   (polar pt3 ang1 (+ s0_68 s0_8))<br />         pt6_1 (polar pt3 (+ (/ pi 2) ang1) s2_5)<br />         pt6   (polar pt6_1 (+ pi ang1) s0_68)<br />         pt7_1 (polar pt3 (+ ang1 (+ pi 1.5)) s2_5)<br />         pt7   (polar pt7_1 ang1 s0_68)<br />         pt8   (polar pt1 (+ pi ang1) s3)<br />         pt9   (polar pt2 ang1 s3)<br /> <br />   )<br />   (setq oldlay (getvar "clayer"))<br />   (if (tblsearch "layer" "PUB_DIM")<br />     (progn (command "layer" "s" "PUB_DIM" ""))<br />     (progn (command "layer" "m" "PUB_DIM" "c" "136" "" ""))<br />   )<br />   (command "color" "bylayer")<br />   (setq oldosm (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setvar "plinewid" 0.0)<br />   (command "PLINE" pt8 pt1 pt4 pt6 pt7 pt5 pt2 pt9 "")<br />   (setvar "osmode" oldosm)<br />   (setvar "clayer" oldlay)<br />   (princ)<br /> )<br /> ;;;-----------------------------------------------------------------------<br /> <br />   [/FONT]<br />

xyp1964

不知哪个图正确：

litss

我个人一直倾向于用第一种。第二种怎么看都别扭：（

狂刀

应该是下面的吧

xyp1964

也提供一个供测试：
再次学习规范，偶一直是错的。应该是第二种。
修改程序见下：
[php]
;|zdx.lsp
2004.11.21
2004.11.23 按规范修改
折断线
|;
(prompt "\n\r      加载折断线程序。")
(DEFUN c:zdx (/ PT1 PT2 PT3 PT4 PT5 PT6 PT7 ANG)
  (CMDLA0)
  (setq  NO2 (@Ureal 1 "" "\n折断长" NO2)
         no1 (/ no2 2)
         no3 (@Ureal 1 "" "\n两端出头长" NO3)
  )
  (while (and (setq pt1 (getpoint "\n起点位置<退出> :"))
          (setq pt2 (getpoint pt1 "\n终点位置<退出> :")))   
    (setq pt3 (LIST (+ (CAR PT1) (/ (- (CAR PT2) (CAR PT1)) 2))
            (+ (CADR PT1) (/ (- (CADR PT2) (CADR PT1)) 2))))
    (setq ang (angle pt1 pt2)
          pt1 (polar pt1 ang (- 0 no3))
          pt2 (polar pt2 ang no3)
          pt3(_midp pt1 pt2)
          pt4 (polar pt3  ang (- 0 (/ no2 2)))
          pt5(polar pt3 ang (/ no2 2))
          pt6(_midpup pt4 pt3 (/ no2 2))
          pt7(_midpdn pt3 pt5 (/ no2 2))
    )
    (setvar "plinewid" 0)
    (setq osm (getvar "osmode"))
    (SETVaR "osmode" 0)
    (command "PLINE" PT1 pt4 PT6 PT7 pt5 PT2 "")
    (SETVaR "osmode" osm))
  (CMDLA1)
)
(defun _midp (p1 p2)
  (list        (+ (/ (- (car p1) (car p2)) 2) (car p2))
        (+ (/ (- (cadr p1) (cadr p2)) 2) (cadr p2))))
(defun _midPUP (pta ptb fb)
  (polar (_midP pta ptb) (+ (angle pta ptb) (/ pi 2)) fb))
(defun _midPDN (pta ptb fb)
  (polar (_midP pta ptb) (- (angle pta ptb) (/ pi 2)) fb))
(defun CMDLA0 ()
  (setq cmdech (getvar "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setq rmode (getvar "regenmode"))
  (setq pw (getvar "plinewid"))
  (setvar "regenmode" 0)
  (setvar "CMDECHO" 0)
  (princ)
)
(defun CMDLA1 ()
  (setvar "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" rmode)
  (setvar "plinewid" pw)
  (princ))
(defun @ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
      bit (* 2 (fix (/ bit 2))))
    (setq msg (strcat "\n" msg ": ")))
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp inp def)
)
(DEFUN PXYP (TXT1)
  (SETQ    TXT1 (STRCAT "\n\r      程序命令: " TXT1 "      -- xyp@bsedi.com"))
  (PRINC TXT1)
  (Princ))
(pxyp "ZDX      (折断线)")
(princ)
;;;-------------------------------------------
;;;END
[/php]

aeo

应该把双剖线，结合在单剖线里面比较好.

我还没见过哪个软件这么写过.

好的创意比写程序更重要.

狂刀

一般双剖线用于楼梯，要写就连楼梯一起写了。（对建筑专业，其它不知道）

xyp1964

最初由 aeo 发布
[B]应该把双剖线，结合在单剖线里面比较好.

我还没见过哪个软件这么写过.

好的创意比写程序更重要. [/B]

如果认真看看制图规范，所谓“双剖线”早已作废了！呵呵……

madeinchina

作废啦，那现在怎么表达

xyp1964

用单线就可以了。

sjylzf

要是以上的程序能所见即所得就好了，我的的意思是说象line命令一样的橡皮筋线。

yjtdkj

最初由 xyp1964 发布
[B]

如果认真看看制图规范，所谓“双剖线”早已作废了！呵呵…... [/B]

我手上就有一本制图规范GB/T5001，我怎么没有看见呀，请指教

xyp1964

最初由 yjtdkj 发布
[B]
我手上就有一本制图规范GB/T5001，我怎么没有看见呀，请指教 [/B]

哪儿有“双剖线”这个词和图例？

yjtdkj

GB/T50001中的图9.4.3中就有

xyp1964

是这个吧？但不叫双折线。
原文：“9.4.3 较长的构件，如沿长度方向的形状相同或按一定规律变化，可断开省略绘制，断开处应以折断线表示(图9.4.3)。”
修改程序见5楼。