请求把算立方加上谢谢

51895991

(defun c:tt ()
  (xdrx_begin)
  (xdrx_sysvar_push '("dimzin" 0 "osmode" 33))
  (if (not #xd_var_textheight)
    (setq #xd_var_textheight 300)
  )
  (setq area_bit 2) ;;面积保留位数
  (setq len_bit 0)  ;;长度保留位数
  (if (setq h (getreal
                (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)
              )
      )
    (setq #xd_var_textheight h)
  )
  (if (not #xd_var_chengshu)
    (setq #xd_var_chengshu 1.0)
  )
  (if (setq scl (getreal (xdrx_prompt "\n输入乘数<" #xd_var_chengshu ">:" t)))
    (setq #xd_var_chengshu
           scl
    )
  )
  (if (not #xd_var_scl)
    (setq #xd_var_scl 1.0)
  )
  (if (setq scl (getreal (xdrx_prompt "\n输入比例<" #xd_var_scl ">:" t)))
    (setq #xd_var_scl
           scl
    )
  )
  (while (and (xdrx_initget "A")
              (setq e (xdrx_entsel
                             "\n拾取曲线[量取(A]<退出>:"
                             '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
                           )
              )
         )
    (cond
      ((= e "A")
       (if (and        (setq p1 (getpoint "\n第一点<退出>:"))
                (setq p2 (getpoint p1 "\n第二点<退出>:"))
           )
         (setq len (distance p1 p2))
       )
      )
      (t
       (setq len (xdrx_getpropertyvalue (car e) "length"))
      )
    )
    (setq
      len (/ len #xd_var_scl)
      str (rtos len 2 len_bit)
      str1 (strcat str
                  "*("
                  (vl-princ-to-string #xd_var_chengshu)
                  ")="
                  (rtos (* #xd_var_chengshu len) 2 area_bit)
                  ""
          )
      str (strcat (rtos (* #xd_var_chengshu len) 2 area_bit)
                  ""
          )
      )
    (if        (<= #xd_var_textheight 0)
      (xdrx_prompt "\n" str1)
      (progn (xdrx_text_make
               '(0 0 0)
               str
               #xd_var_textheight
               (xdrx_vector_angle (getvar "ucsxdir"))
             )
             (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)
      )
    )
  )
  (xdrx_sysvar_pop)
  (xdrx_end)
  (princ)
)

newer

这个帖子原贴地址是什么？ 贴上来下，
而且什么是算立方加上？

51895991

newer 发表于 2018-3-19 20:42

http://bbs.xdcad.net/thread-711692-1-1.html
这个还是您给我写的呢算平方的，可以加上立方吗？麻烦看看，就是

newer

51895991 发表于 2018-3-20 11:30

就算我写的，时间长了，我也模糊了，你就贴代码，谁能想起做什么的啊，问问题有技巧的，你描述的越清楚，越容易解决。

我现在还不明白你要做什么，算体积？ 算什么的体积？ 老规矩， 贴图，上传DWG。贴图里面把问题描述清楚，手画结果标清楚。

你想改原来的问题，你要把原来的帖子链接贴出来，让人家回忆回忆，所有需要的背景都贴出来。

51895991

算混泥土体积，柱，和剪力墙的立方

newer

51895991 发表于 2018-3-20 12:42

你所有和这个问题相关的以前的帖子的链接是什么，都贴出来。

51895991

http://bbs.xdcad.net/thread-711692-1-1.html

http://bbs.xdcad.net/thread-711678-1-1.html

51895991

newer 发表于 2018-3-20 13:16

就是这个现在可以算平方了，怎么才可以在这个基础上在算立方，就是算混泥土，比如算出来了平方在乘以高度