baitang36 发表于 2019-1-31 09:58:44

再上个20年前写的老程序，结构图上标钢筋号

;;;;;;;;;;;;;;;;;标钢筋号;;;;(c)SYZ 1999.5.8;;;;;
(defun c:gjh(
       / oer bgj_p1 bgj_p2 bgj_r bgj_c bgj_zf bgj_zf1 flg BL)
       (SETVAR "CMDECHO" 0)
       (SETVAR "luprec" 0)
       (SETVAR "BLIPMODE" 0)
       (SETQ BL (GETVAR "DIMSCALE"))
       (SETQ BL (* BL 100))
       (setq bgj_r (* bl 2.5))
       (setvar "osmode" 512)
       (setq bgj_p1 (getpoint "\n起点<回车结束> :"))
       (setq flg "S")
       (setq bgj_ang 0)
       (while bgj_p1
       (setq bgj_p2(getpoint bgj_p1 "\n终点 :"))
       (setq bgj_c(polar bgj_p2 (angle bgj_p1 bgj_p2) bgj_r))
       (command "line" "_non" bgj_p1 "_non" bgj_p2 "")
       (command "circle" "_non"bgj_c bgj_r)
       (if (null bgj_zf) (setq bgj_zf "1"))
       (cond
   ((= flg "S")(princ(strcat "\n钢筋编号(C----垂直)<"bgj_zf ">:")))
   ((= flg "C")(princ(strcat "\n钢筋编号(S----水平)<"bgj_zf ">:"))))
       (setq bgj_zf1(getstring ))
       (cond
   ((= bgj_zf1 "") (setq bgj_zf1 bgj_zf))
   ((= (strcase bgj_zf1) "C")
      (setq bgj_ang 90)
      (princ(strcat "\n钢筋编号<"bgj_zf ">:"))
      (setq bgj_zf1(getstring ))
      (if (= bgj_zf1 "") (setq bgj_zf1 bgj_zf))
      (setq flg "C"))
   ((= (strcase bgj_zf1) "S")
      (setq bgj_ang 0)
      (princ(strcat "\n钢筋编号<"bgj_zf ">:"))
      (setq bgj_zf1(getstring ))
      (if (= bgj_zf1 "") (setq bgj_zf1 bgj_zf))
      (setq flg "S")))
       (command "text" "j" "m" "_non" bgj_c (* bl 3) bgj_ang bgj_zf1)
       (setq bgj_zf bgj_zf1)
       (setq bgj_zf (rtos(1+ (atoi bgj_zf))))
       (setq bgj_p1 (getpoint "\n起点<回车结束>:"))
       )
   (setvar "osmode" 0)
(setvar"luprec" 2)
(princ)
)

ynhh 发表于 2019-1-31 10:29:41

20年前
页: [1]
查看完整版本: 再上个20年前写的老程序，结构图上标钢筋号