[LISP函数]：修改过的风管绘制程序

libo2000

主要修改的地方：增加风管图层设置。
自定义风管图层、颜色。
如定义为天正暖通II的风管图层则可以与其结合使用。

cheng_fglay:定义风管图层
cheng_fg:绘制风管主程序
cheng_dxt:绘制风管大小头
cheng_wt:绘制风管弯头
fgwt:绘制弯头（By 徐跃忠）

＝＝＝＝＝＝＝＝＝＝＝
用法：
1、解压cheng.zip到CAD可以识别的目录：比如CAD下的SUPPORT
2、在CAD命令提示状态下：
command:(load "cheng.lsp")
3、如果要CAD自动(load "cheng")：
找到D:\ACAD R14\SUPPORT\acadr14.lsp
(D:\ACAD2002\SUPPORT\acad2000.lsp)
在acadr14.lsp(acad2000.lsp)文件倒数第二行添加：(load "cheng.lsp")


ID_CHENG_fg [风管图层(&L)]^C^Ccheng_fglay
ID_CHENG_fg [绘制风管(&G)]^C^Ccheng_fg
ID_CHENG_dxt [风管大小头(&X)]^C^Ccheng_dxt
IF_CHENG_fgst [->三通(&H)]
ID_CHENG_fg_st04 [插入三通(&S)]^C^Ccheng_fg_st04
ID_CHENG_fg_st05 [插入斜三通(&T)]^C^Ccheng_fg_st05
ID_CHENG_fgst2 [<-绘制三通(&H)]^C^Ccheng_fgst2
IF_CHENG_fgst [->四通(&I)]
ID_CHENG_fgst2 [插入圆弧四通(&S)]^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_fgst3 [插入风管管件(&E)]^C^Ccheng_fg_insert
ID_CHENG_wt [风管弯头(&W)]^C^Ccheng_wt

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

最终程序在No.19帖子 cheng.zip

如果您有什么好的建议，请mailto:chenghell@tom.com

htm

我也有一个画风管的，有机会拿出来和大家交流。

dwgplt

那就贴出来吧，大家一起交流一下。

xyz

htm,共享出来合如？

libo2000

最初由 htm 发布
[B]我也有一个画风管的，有机会拿出来和大家交流。 [/B]

现在就是机会阿！！
多个交流总比一个人闷着好阿


ID_CHENG       [->CHENG]
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_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_fg        [风管图层(&L)]^C^Ccheng_fglay
ID_CHENG_fg        [绘制风管(&G)]^C^Ccheng_fg
ID_CHENG_wt       [风管弯头(&W)]^C^Ccheng_wt
ID_CHENG_dxt      [风管大小头(&X)]^C^Ccheng_dxt
ID_CHENG_fgst      [插入四通(&S)]^C^Ccheng_fgst
ID_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

NO.8帖子下载程序cheng.zip

dwgplt

很好用，谢谢！！
只是“插入四通”老是出错，运行不下去， 希望能指点一下。
Command:

选择风管中心线：
选择风管管线：
等径四通(D) / 异径四通 (Y):<D>

Radius is too large


*Invalid selection*
Expects a point or Window/Last/Crossing/BOX/Fence/WPolygon/CPolygon
error: Function cancelled

uug

按照上述程序，风管弯头的内弧和外弧不是同一个圆心，能不能把内弧和外弧改为同一个圆心？

libo2000

最初由 dwgplt 发布
[B]很好用，谢谢！！
只是“插入四通”老是出错，运行不下去， 希望能指点一下。
Command:

选择风管中心线：
选择风管管线：
等径四通(D) / 异径四通 (Y):<D>

Radius is too large


*Invalid selection*
... [/B]

修改弯曲半径，修改大小头长度。
增加连接上一段风管

最新得，改了些bug

dwgplt

“插入四通” 还是出错呀

忘忧树

层图会不会太多？层图少就好管理

libo2000

最初由 忘忧树 发布
[B]层图会不会太多？层图少就好管理 [/B]

图层多主要是为了区分风管：送风、回风管等，当然如果你喜欢用颜色来区分的话，则另单别论了－－这样或许回好点－－但我不想改了！
风管图层多，一般情况下风管图层只有风管，但是对其管理也别不太烦。

修改(defun chengs_fglast)函数：
在其倒数第三行即：
(setq result ss)
);endfun chengs_fglast
的前面增加代码：
(setq cheng_fg fg_lay) ;设置风管图层为该风管的图层
(setq cheng_fg_zxx (strcat cheng_fg "_mid"))
(setq cheng_fg_end (strcat cheng_fg "end"))

htm

我的那个和很多其他东西有关联的，单独拿出来很麻烦。我觉得这种单独的程序不太好用。
我正在考虑画三通四通的，还没想通，不知大家有什么思路？

qsg12

好，不过怎么用

liuyj

插入四通的功能太简单，画出的四通看不出气流的方向，而且四通的左右两根支管粗细不会总一样呀，希望能有所改进。

libo2000

最初由 liuyj 发布
[B]插入四通的功能太简单，画出的四通看不出气流的方向，而且四通的左右两根支管粗细不会总一样呀，希望能有所改进。 [/B]

用法：
1、解压cheng.zip到CAD可以识别的目录：比如CAD下的SUPPORT
2、在CAD命令提示状态下：
command:(load "cheng.lsp")
3、如果要CAD自动(load "cheng")：
找到D:\ACAD R14\SUPPORT\acadr14.lsp
(D:\ACAD2002\SUPPORT\acad2000.lsp)
在acadr14.lsp(acad2000.lsp)文件倒数第二行添加：(load "cheng.lsp")


改进cheng_fglay
增加cheng_fg_st01 cheng_fg_st02 cheng_fg_st03
三通现在没有思路，以后再说，有好思路的请post
插入四通的风管请不要加粗（cheng_fg_st03例外）
                 [--]
ID_CHENG_fg      [风管图层(&L)]^C^Ccheng_fglay
ID_CHENG_fg      [绘制风管(&G)]^C^Ccheng_fg
ID_CHENG_wt      [风管弯头(&W)]^C^Ccheng_wt
ID_CHENG_dxt     [风管大小头(&X)]^C^Ccheng_dxt
ID_CHENG_fgst2   [绘制三通(&H)]^C^Ccheng_fgst2
ID_CHENG_fgst      [->插入四通(&I)]
ID_CHENG_fgst0    [插入四通一(&Z)]^C^Ccheng_fg_st
ID_CHENG_fgst1    [插入四通二(&Y)]^C^Ccheng_fg_st01
ID_CHENG_fgst2    [插入四通三(&S)]^C^Ccheng_fg_st02
ID_CHENG_fgst3    [<-插入四通四(&T)]^C^Ccheng_fg_st03
ID_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