体积配箍率计算程序autolisp源码下载
- 软件大小:0.00 MB
- 更新时间:2010-11-18
- 软件授权:免费下载
- 所属栏目:综合下载
- 软件情况:绿色安全免费下载
- 软件语言:简体中文
- 应用平台:windows xp/vista/win7/
- 本站地址:CAD之家 www.cadzj.com
软件介绍
体积配箍率计算程序autolisp源码
Quote
(defun c:get-colu-pgl ()
(princ "n选择箍筋配筋值:")
(setq en (single_select (list (cons 0 "*TEXT")(cons 1 "*%%13#*")) nil))
(princ "n选择墙大样外边框:")
(setq colu-en (SINGLE_SELECT
(list (cons 0 "LWPOLYLINE")
(cons 8 "*colu*,*柱*,*墙*,*wall*")
)
nil
)
)
(get-ss-pgl colu-en en)
)
(princ "n选择箍筋配筋值:")
(setq en (single_select (list (cons 0 "*TEXT")(cons 1 "*%%13#*")) nil))
(princ "n选择墙大样外边框:")
(setq colu-en (SINGLE_SELECT
(list (cons 0 "LWPOLYLINE")
(cons 8 "*colu*,*柱*,*墙*,*wall*")
)
nil
)
)
(get-ss-pgl colu-en en)
)
[ 下载地址1 ]
推荐下载