[分享]：房间编号（方框、圆、无）－免币

xyp1964

命令：FJBH（房间编号）


命令：FJBH（房间编号）
功能：连续编号（递增、递减值自定），可带前缀，可带方形外框或圆圈。
用途：房间编号、构件或材料编号、……
[/COLOR]
★
2005年5月9日, 13:20:18 增加字高和递增递减值选项
2005年5月12日 合并成独立程序

“源码”：
[php]
(load "xyp_lib")                        ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;*  C:FJBH. 房间编号.
(prompt "稍候. 加载房间编号程序!")
(defun C:FJBH (/ p1 th tx tw)
  (cmdla0)
  (jzhz)
  (SETvar "plinewid" 0)
  (mkla "建筑-房间-编号" 4)
  (setq        tx3 (ukword 1 "A B C" "\n编号外框:A-方框/B-圆圈/C-无" tx3)
        tx1 (ukword 1 "1 2" "\n编号方式:1-数字/2-其他" tx1)
        no3 (ureal 1 "" "\n字高" (* 300 SC))
        no4 (ureal 1 "" "\n递增或递减值" no4)
  )
  (if (= tx1 "2")
    (setq tx2 (strcase (ustr 1 "\n前置符号为" tx2 nil)))
  )
  (setq no2 (ureal 1 "" "\n编号起始数字为" no2))
  (WHILE (setq p1 (getpoint "\n编号中心点<退出> : "))
    (if        (= tx1 "1")
      (setq tx (rtos no2 2 0))
    )
    (if        (= tx1 "2")
      (setq tx (strcat tx2 (rtos no2 2 0)))
    )
    (setq no2 (+ No2 No4)
          th  (* no3 SC)
          tw  (* (strlen tx) 0.7 th)
    )
    (command "text" "j" "mc" p1 th "0" tx)
    (if        (= tx3 "A")
      (command "rectang"
               (list (- (- (car p1) (/ tw 2)) (* 80 SC))
                     (- (- (cadr p1) (/ th 2)) (* 100 sc))
               )
               (list (+ (+ (car p1) (/ tw 2)) (* 80 SC))
                     (+ (+ (cadr p1) (/ th 2)) (* 100 sc))
               )
      )
    )
    (if        (= tx3 "B")
      (progn
        (setq leng (strlen tx))
        (if (<= leng 2)
          (setq rad (* 400 sc))
          (setq rad (* leng 400 sc 0.5))
        )
        (command "circle" p1 rad)
      )
    )
  )
  (cmdla1)
)
;;;
(pxyp "FJBH      (房间编号)")
(Princ)[/php]

整合程序下载：

xyp1964

效果：

tsxljj

谢谢版主的好程序，能连续编号

huiling6868

斑竹能否将这个程序改为编写轴号的程序.

hsb-hy

如果有选项就好了！如：方框，圆圈，无！

xyp1964

最初由 hsb-hy 发布
[B]如果有选项就好了！如：方框，圆圈，无！ [/B]

主意不错！
已经改进，发布在1楼。

huiling6868

输入命令后点第一点后显示1,但点第二点后显示2但在1上又出现个问号.

xyp1964

最初由 huiling6868 发布
[B]输入命令后点第一点后显示1,但点第二点后显示2但在1上又出现个问号. [/B]

应该没有问题，发个dwg文件或图片看看。

xiaochongcn

好程序来着。。
编个程序玩玩真有意思吖。

hsb-hy

楼主好，今天用了，感觉不错，可是默认字高是300，太高了，可否有个字高选项呢？多谢！

ysx810210

楼主能上传源码吗？供大家参考参考

xyp1964

最初由 hsb-hy 发布
[B]楼主好，今天用了，感觉不错，可是默认字高是300，太高了，可否有个字高选项呢？多谢！ [/B]

先输入(setnil)，再运行编号程序就会提示出图比例。
1:100出图时字高为300！

hsb-hy

楼主好，还是有字高选项好，因为各自的画图习惯不一样，何况很多人不是专业的画图员，画图只是为了应付，很没有规矩，有了字高选项，就可以试着办！要去修改比例，对专业的来说很方便，可是其他的就感觉很麻烦！不对处请包涵！

LMCC

楼主能上传源码吗？供大家学习!

xyp1964

最初由 hsb-hy 发布
[B]楼主好，还是有字高选项好，因为各自的画图习惯不一样，何况很多人不是专业的画图员，画图只是为了应付，很没有规矩，有了字高选项，就可以试着办！要去修改比例，对专业的来说很方便，可是其他的就感觉很麻烦！不对... [/B]

已经增加字高和递增递减值选项，公布“源码”。

可在1楼下载！