您的位置:网站首页 > 综合下载

体积配箍率计算程序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)
)