[LISP程序]：chenglisp2003-12-29.rar 风管

libo2000

***MENUGROUP=Cheng

***POP1
**Cheng
ID_CHENG       [&CHENG]
ID_CHENG_TEXT      [->文字(&T)]
ID_CHENG_TH        [替换文本(&T)]^C^Ccheng_th
ID_CHENG_replace   [替换文字(&R)]^C^Ccheng_replace
ID_CHENG_find      [查找文字(&F)]^C^Ccheng_find
ID_CHENG_align     [文字对齐于线段(&A)]^C^Ccheng_align
ID_CHENG_txtfont   [修改字体(&C)]^C^Ccheng_txtfont
ID_CHENG_style     [修改大字体(&S)]^C^Ccheng_style
ID_CHENG_mirrerr   [<-镜像修复(&M)]^C^Ccheng_mirrerr
                 [--]
ID_CHENG_FengG     [->风管(&G)]
ID_CHENG_fglay     [风管图层(&L)]^C^Ccheng_fglay
ID_CHENG_fg        [绘制风管(&G)]^C^Ccheng_fg
IF_CHENG_fgst      [->三通(&S)]
ID_CHENG_fg_st04   [插入三通(&S)]^C^Ccheng_fg_st04
ID_CHENG_fgst2     [<-绘制三通(&H)]^C^Ccheng_fgst2
IF_CHENG_fgst      [->四通(&T)]
ID_CHENG_fgst2     [插入圆弧四通(&Y)]^C^Ccheng_fg_st02
ID_CHENG_fgst1     [插入直角四通(&Z)]^C^Ccheng_fg_st01
ID_CHENG_fgst0     [插入圆角四通(&J)]^C^Ccheng_fg_st
ID_CHENG_fgst3     [<-插入斜四通(&X)]^C^Ccheng_fg_st03
IF_CHENG_CL        [->侧联风管(&C)]
ID_CHENG_clfg3     [侧联方风管(&C)]^C^Ccheng_clfg3
ID_CHENG_clfg      [侧联圆风管(&Y)]^C^Ccheng_clfg
ID_CHENG_clfg2     [<-侧联圆风管2(&L)]^C^Ccheng_clfg2
ID_CHENG_fg_wt     [连接风口(&F)]^C^Ccheng_clfg4
ID_CHENG_fg_wt     [风管弯头(&W)]^C^Ccheng_fg_wt
ID_CHENG_wt        [普通风管弯头(&O)]^C^Ccheng_wt
ID_CHENG_dxt       [风管大小头(&X)]^C^Ccheng_dxt
ID_CHENG_fg_lg     [风管立管(&J)]^C^Ccheng_fg_lg
                 [--]
ID_CHENG_insert    [插入风管管件(&E)]^C^Ccheng_fg_insert
ID_CHENG_insert2   [插入风机盘管(&I)]^C^Ccheng_fg_insert2
ID_CHENG_insert3   [插入水管阀件(&K)]^C^Ccheng_fg_insert3
ID_CHENG_fg_jc     [风管加粗(&P)]^C^Ccheng_fg_jc
ID_CHENG_fg_bz     [风管标注(&D)]^C^Ccheng_fg_bz

//ID_CHENG_fg_jsgj   [->计算(&A)]
//ID_CHENG_fg_hstjs  [空气状态参数(&C)]^C^Ccheng_hstjs
//ID_CHENG_fg_fljs   [风量计算(&L)]^C^Ccheng_fljs
//ID_CHENG_fg_fljs1  [一次回风计算(&H)]^C^Ccheng_fljs1
//ID_CHENG_fg_gjjs   [管径计算(&A)]^C^Ccheng_fg_jsgj
//ID_CHENG_fg_jsfk   [风口计算(&B)]^C^Ccheng_fg_jsfk
//ID_CHENG_fg_jssll  [<-水流量计算(&H)]^C^Ccheng_fg_jssll

ID_CHENG_3dfg      [2D->&3D风管]^C^Ccheng_3dfg
ID_CHENG_2dfg      [<-3D->&2D风管]^C^Ccheng_2dfg

                 [--]
ID_CHENG_trim      [剪切(&R)]^C^Ccheng_trim
ID_CHENG_extend    [延长(&E)]^C^Ccheng_extend
ID_CHENG_break     [从点打断(&B)]^C^Ccheng_break
ID_CHENG_zxx       [绘圆中心线(&Z)]^C^Ccheng_zxx
ID_CHENG_upline    [线段在上方(&U)]^C^Ccheng_upline
ID_CHENG_downline  [线段在下方(&D)]^C^Ccheng_downline
ID_CHENG_setltsca  [设置线型比例(&L)]^C^Ccheng_setltscale
                 [--]
ID_CHENG_sel       [如意选择(&S)]'sel
ID_CHENG_jsq       [如意计算器(&J)]^C^Ccheng_jsq
ID_CHENG_setosmode [恢复捕捉设置(&O)]^C^Ccheng_setosmode

libo2000

No.2    chenglisp2003-12-29.part02.rar

CUTEE

这么好的东西怎么没人支持？支持原创！！！
老兄也是研究有些时间了吧？不容易啊，坚持也这么多行的代码！

libo2000

修改了风管标准（可以标注圆风管）－－－早改好的了，以前忘记加上去。

xlmx-whj

好东西我虽不常用还是收藏了。顶！顶！顶！

uug

我机器虽装有有正版的hong业5，d版的天zheng6，仅用它出计算书。我还是用cad命令及libo2000的风管程序画图，很好用。

libo2000

最初由 uug 发布
[B]我机器虽装有有正版的hong业5，d版的天zheng6，仅用它出计算书。我还是用cad命令及libo2000的风管程序画图，很好用。 [/B]

uug－－知己也。我的本意就是如此，后来的那些东东，完全是出差在外无聊的产物，我自己都懒得用！:--)

huangqinghong

真是好东西啊，使用了，感觉真不错。支持原创！

fundoll

请问楼主什么时候出新版？

libo2000

我正深圳混，无业游民中......
新版无限期。。。
楼上有什么需要的贴出来，简单and有空的话可以搞搞。
:--)

libo2000

2. 
   
3.   [FONT=courier new]
   
4. ;;******************风管管径标注 Begin *********************************
   
5. (defun c:cheng_fg_bz ( / p0 ln1 ln2 ln3 p21 p22 p31 p32 angr w h txt_h cheng_fg_h txt sc fg_lay yfg)
   
6.         (chengs_error)
   
7.         (chengs_getvar)
   
8.         (princ " 标注前请设置一种合适的字体！")
   
9.         (setq p0 T)
   
10.         (while p0
    
11.                 (setvar "osmode" 695)
    
12.                 (setq ln1 nil)
    
13.                 (setq p0 (getpoint "\n 选择风管中心线： "))
    
14.                 (if p0
    
15.                         (progn
    
16.                                 (while (= nil ln1)
    
17.                                         (setq ln1 (chengs_ssgetPoint p0 '((8 . "*_mid"))))
    
18.                                         (if ln1 (setq ln1 (ssname ln1 0)));中线
    
19.                                         (if ln1 (setq ln2 (chengs_fg_getfg ln1 p0)) (setq ln1 nil))
    
20.                                         (if ln2 (setq ln3 (car ln2) ln2 (cadr ln2)))                ;主风管线ln2 ln3
    
21.                                         (if (and ln2 ln3)
    
22.                                                 (princ)
    
23.                                                 (setq ln1 nil p0 (getpoint "\n 选择风管中心线： "))
    
24.                                         )
    
25.                                 );endwhile ln1
    
26.                                 (setq fg_lay (cdr (assoc 8 (entget ln2))))
    
27.                                 (command ".layer" "m" (strcat fg_lay "_txt") "") ;标注图层
    
28.                                 (setvar "osmode" 16567)
    
29.                                 (setq
    
30.                                                  p21 (cdr (assoc 10 (entget ln2)))
    
31.                                                  p31 (cdr (assoc 10 (entget ln3)))
    
32.                                                  p22 (cdr (assoc 11 (entget ln2)))
    
33.                                                  p32 (cdr (assoc 11 (entget ln3)))
    
34.                                 )
    
35.                                 (if (not p22) (setq p22 (cdr (chengs_assoc 10 ln2 2))))
    
36.                                 (if (not p32) (setq p32 (cdr (chengs_assoc 10 ln3 2))))
    
37.                                 (setq angr        (angle p21 p22)
    
38.                                                                 angr (chengs_pi2r angr)
    
39.                                 )
    
40.                                 (while (>= angr 180.0) (setq angr (- angr 180)))
    
41.                                 (setq w (distance (chengs_getpoint_per p0 p21 p22) (chengs_getpoint_per p0 p31 p32))) ;ln3->ln2距离
    
42.                                 (if (not cheng_fg_h) (setq cheng_fg_h 250))
    
43.                                 (if (not txt_h )(setq txt_h 250))
    
44.                                 (if yfg
    
45.                                   (progn
    
46.                                                 (initget "T F")
    
47.                                     (princ "\n T-修改字高<")(princ txt_h)(princ "> / F-方风管:")
    
48.                                   ) ;endthen
    
49.                                   (progn
    
50.                                     (initget "T Y")
    
51.                                                 (princ "\n Y-圆风管 / T-修改字高<")(princ txt_h) (princ "> / 风管高度<")(princ cheng_fg_h)(princ ">:")
    
52.                                   ) ;endelse
    
53.                                 );endif
    
54.                                 (setq h (getint))
    
55.                                 (cond
    
56.                                         ((= h "T")
    
57.                                                 (setq txt_h nil)
    
58.                                                 (while (not (setq txt_h (getreal "\n 重新设置字高:" ) )))
    
59.                                                 (if (null yfg)
    
60.                                                   (progn
    
61.                                                     (princ "\n 风管高度<")(princ cheng_fg_h)(princ ">： ")
    
62.                                                                 (setq h (getint))
    
63.                                                   ) ;endthen
    
64.                                                 );endif
    
65.                                         )
    
66.                                         ((= h "Y")
    
67.                                                 (setq yfg T)
    
68.                                         )
    
69.                                         ((= h "F")
    
70.                                                 (setq yfg nil)
    
71.                                                 (princ "\n 风管高度<")(princ cheng_fg_h)(princ ">:")
    
72.                                                 (setq h (getint))
    
73.                                         )
    
74.                                 );endcond
    
75.                                 (if yfg
    
76.                              (setq txt (strcat "%%C" (rtos w 2 0)))
    
77.                                         (progn
    
78.                                           (if (or (<= h 0) (not h)) (setq h cheng_fg_h))
    
79.                                                 (setq cheng_fg_h h)
    
80.                                                 (setq txt (strcat (rtos w 2 0) "X" (itoa h)))
    
81.                                         ) ;endelse
    
82.                                 );endif
    
83. 
    
84.                                 (command ".text" "J" "M" p0 txt_h angr txt)
    
85. 
    
86.                                 (setq angr (cdr (assoc 50 (entget (entlast)))))
    
87.                                 (if (> angr (/ pi 2)) (chengs_change (entlast) 50 (+ angr pi)))
    
88.                         )
    
89.                 );endif p0
    
90.         );endwhile
    
91.         (chengs_setvar)
    
92.         (princ)
    
93. );endfun cheng_fg_bz
    
94. ;;******************风管管径标注 End *********************************
    
95.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;******************风管管径标注 Begin *********************************<br /> (defun c:cheng_fg_bz ( / p0 ln1 ln2 ln3 p21 p22 p31 p32 angr w h txt_h cheng_fg_h txt sc fg_lay yfg)<br />         (chengs_error)<br />         (chengs_getvar)<br />         (princ " 标注前请设置一种合适的字体！")<br />         (setq p0 T)<br />         (while p0<br />                 (setvar "osmode" 695)<br />                 (setq ln1 nil)<br />                 (setq p0 (getpoint "\n 选择风管中心线： "))<br />                 (if p0<br />                         (progn<br />                                 (while (= nil ln1)<br />                                         (setq ln1 (chengs_ssgetPoint p0 '((8 . "*_mid"))))<br />                                         (if ln1 (setq ln1 (ssname ln1 0)));中线<br />                                         (if ln1 (setq ln2 (chengs_fg_getfg ln1 p0)) (setq ln1 nil))<br />                                         (if ln2 (setq ln3 (car ln2) ln2 (cadr ln2)))                ;主风管线ln2 ln3<br />                                         (if (and ln2 ln3)<br />                                                 (princ)<br />                                                 (setq ln1 nil p0 (getpoint "\n 选择风管中心线： "))<br />                                         )<br />                                 );endwhile ln1<br />                                 (setq fg_lay (cdr (assoc 8 (entget ln2))))<br />                                 (command ".layer" "m" (strcat fg_lay "_txt") "") ;标注图层<br />                                 (setvar "osmode" 16567)<br />                                 (setq<br />                                                  p21 (cdr (assoc 10 (entget ln2)))<br />                                                  p31 (cdr (assoc 10 (entget ln3)))<br />                                                  p22 (cdr (assoc 11 (entget ln2)))<br />                                                  p32 (cdr (assoc 11 (entget ln3)))<br />                                 )<br />                                 (if (not p22) (setq p22 (cdr (chengs_assoc 10 ln2 2))))<br />                                 (if (not p32) (setq p32 (cdr (chengs_assoc 10 ln3 2))))<br />                                 (setq angr        (angle p21 p22)<br />                                                                 angr (chengs_pi2r angr)<br />                                 )<br />                                 (while (>= angr 180.0) (setq angr (- angr 180)))<br />                                 (setq w (distance (chengs_getpoint_per p0 p21 p22) (chengs_getpoint_per p0 p31 p32))) ;ln3->ln2距离<br />                                 (if (not cheng_fg_h) (setq cheng_fg_h 250))<br />                                 (if (not txt_h )(setq txt_h 250))<br />                                 (if yfg<br />                                   (progn<br />                                                 (initget "T F")<br />                                     (princ "\n T-修改字高<")(princ txt_h)(princ "> / F-方风管:")<br />                                   ) ;endthen<br />                                   (progn<br />                                     (initget "T Y")<br />                                                 (princ "\n Y-圆风管 / T-修改字高<")(princ txt_h) (princ "> / 风管高度<")(princ cheng_fg_h)(princ ">:")<br />                                   ) ;endelse<br />                                 );endif<br />                                 (setq h (getint))<br />                                 (cond<br />                                         ((= h "T")<br />                                                 (setq txt_h nil)<br />                                                 (while (not (setq txt_h (getreal "\n 重新设置字高:" ) )))<br />                                                 (if (null yfg)<br />                                                   (progn<br />                                                     (princ "\n 风管高度<")(princ cheng_fg_h)(princ ">： ")<br />                                                                 (setq h (getint))<br />                                                   ) ;endthen<br />                                                 );endif<br />                                         )<br />                                         ((= h "Y")<br />                                                 (setq yfg T)<br />                                         )<br />                                         ((= h "F")<br />                                                 (setq yfg nil)<br />                                                 (princ "\n 风管高度<")(princ cheng_fg_h)(princ ">:")<br />                                                 (setq h (getint))<br />                                         )<br />                                 );endcond<br />                                 (if yfg<br />                              (setq txt (strcat "%%C" (rtos w 2 0)))<br />                                         (progn<br />                                           (if (or (<= h 0) (not h)) (setq h cheng_fg_h))<br />                                                 (setq cheng_fg_h h)<br />                                                 (setq txt (strcat (rtos w 2 0) "X" (itoa h)))<br />                                         ) ;endelse<br />                                 );endif<br /> <br />                                 (command ".text" "J" "M" p0 txt_h angr txt)<br /> <br />                                 (setq angr (cdr (assoc 50 (entget (entlast)))))<br />                                 (if (> angr (/ pi 2)) (chengs_change (entlast) 50 (+ angr pi)))<br />                         )<br />                 );endif p0<br />         );endwhile<br />         (chengs_setvar)<br />         (princ)<br /> );endfun cheng_fg_bz<br /> ;;******************风管管径标注 End *********************************<br />   [/FONT]<br />

libo2000

readme.txt问题！！！
失误造成菜鸟安装失败！！！
@@@@@@@@@@@
@@@@@@@@@@@@@
@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@
方法一：   推荐菜鸟使用 >>>>>>>
1、解压chenglisp.zip到CAD安装目录的support文件夹中，比如：C:\Program Files\AutoCAD 2000\SUPPORT\；

2、加载程序菜单
  打开CAD,依次选择如下菜单：
  工具-->>自定义-->>菜单-->>菜单组-->>浏览...
  -->>在CAD安装目录的support文件夹中，选择cheng.mns-->>装载
  -->>菜单条-->>菜单组-->>cheng-->>插入-->>关闭

如果看见增加了一个cheng的菜单就表明加载菜单成功--如果不行，再来一遍。

3、找到C:\Program Files\ACAD2000\SUPPORT\acad2000.lsp(R14为acadr14.lsp)
并在文件中后面添加一行：

(load "cheng")

如下===>>>>

;; Silent load.
(load "cheng")
(princ)

4、退出CAD，重新打开CAD。
ok！！！

andyhua5240

谢谢楼主的无私奉献！

wenzuiyu

这么好的东西一定要顶啊！！

linshucai

装载自定义函数LOAD 失败: "chengs"
自定义函数一起发上来哟