[原创]：规划初期用来统计小区户型栋数，面积的程序

chstart

最近做一个60万小区的规划，编了一个程序，用来计算各种户型的栋数、面积等。
很简单，但节省了大量时间，快速准确。
到后期要计算各种户型的比例和指标了，程序随着设计进度走。
等完成了再传上来。
的算法好像是从论坛学来的，多谢原作者了。



(defun c:bbb (/ c03 c08 c04 c05 c07 c06 c09 c01 c02)
        (setq c03 (getvar "viewctr") ;求屏幕坐标
c03 (trans c03 1 2)
c08 (getvar "viewsize")
c04 (getvar "screensize")
c07 (car c04)
c06 (cadr c04)
c09 (/ (* c08 c07) c06)
c01 (list (- (car c03) (* 0.5 c09)) (- (cadr c03) (* 0.5 c08)))
c02 (list (+ (car c03) (* 0.5 c09)) (+ (cadr c03) (* 0.5 c08)))
        c01 (trans c01 2 1)
        c02 (trans c02 2 1))

           (setq T1 (sslength(ssget  "c" c01 c02 (list (cons 2 "t1") '(0 . "insert")))))
        (setq T2 (sslength(ssget  "c" c01 c02 (list (cons 2 "t2") '(0 . "insert")))))
        (setq T3 (sslength(ssget  "c" c01 c02 (list (cons 2 "t3") '(0 . "insert")))))

    (setq total ( + t1 t2 t3));表达栋数 及 面积
   (alert (strcat "\nSmall   " (itoa t1) "\nMiddle  " (itoa t2) "\nLarge   " (itoa t3) "\nTotal   " (itoa total) "\nArea   " (rtos ( + (* t1 320) (* t2 400)(* t3 600)) 2 0 )))
  (princ )
)


(defun c:bba (/ blk_na ss) ;求块数量
        (setq blk_na (cdr(assoc '2 (entget (car (entsel))))))
    (setq ss (ssget  (list (cons 2 blk_na) '(0 . "insert"))))
    (prompt (strcat "当前选择块" blk_na "的数量是  " (itoa (sslength ss))))
  (princ )
)


(defun c:bbc ( / pts);分期计算，选择分期线
        (setq ent (nentsel "\nSelect a Polyline: "))
          (foreach i (entget (car ent))
                 (if (= 10 (car i)) (setq pts (cons (cdr i) pts)) ))
        (reverse pts)
      
        (setq t1 (sslength(ssget  "cp" pts (list (cons 2 "T1") '(0 . "insert")))))
        (setq t2 (sslength(ssget  "cp" pts (list (cons 2 "T2") '(0 . "insert")))))
        (setq t3 (sslength(ssget  "cp" pts (list (cons 2 "T3") '(0 . "insert")))))
    (setq total ( + t1 t2 t3))
    (prompt (strcat "\nSmall   " (itoa t1) "\nMiddle  " (itoa t2) "\nLarge   " (itoa t3) "\nTotal   " (itoa total) "\nArea   " (rtos ( + (* t1 320) (* t2 400)(* t3 600)) 2 0 )))
  (princ )
)

yoyoyu

看不懂

寒光四射

老兄 偶也是规划的
向你学习，你规划的小区多大？连多少栋也要程序吗