[原创]：等分标注程序

xyp1964

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;dfbz.lsp 等分标注
;;;* C:dfbz
;;;-- XYP@bsedi.com
;;;2004.08.05
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(prompt "\n\r      加载等分标注程序。")
;-------------------------------------------
;;;主程序

(defun c:dfbz (/ ss n m pt0 pt1 pt2 ang dist)
  (cmdla0)
  (setvar "osmode"0)
  (setq no3 (ureal 1 "" "\n\t等分数" no3))
  (setq ss (entsel "\n\t选择需等分的标注"))
  (if (and ss (> no3 1) (= (dxf-s1 0 (car ss)) "DIMENSION"))
    (progn
      (setq n 0 m 0)
        (setq s1 (car ss))
        (mkla"dim-等分"3)
        (setq pt2 (dxf-s1 13 s1) pt1 (dxf-s1 14 s1) pt0 (dxf-s1 10 s1))
        (setq ang (angle pt1 pt2))
        (setq dist (/ (distance pt1 pt2) no3))
        (setq pt2 (polar pt1 ang dist))
        (command "dim1" "ali" pt1 pt2 pt0 "")
        (while (< m (- no3 1))
          (setq pt2 (polar pt2 ang dist))
          (command "dim" "con" pt2 "" "e")
          (setq m (+ 1 m))
          )
        (setq n (+ 1 n))
      (entdel s1)
      )
    )
  (prin1)
  (pxyp"dfbz      (等分标注)")
  (cmdla1)
  )



;;;-------------------------------------------
;;;子程序
;;;
(defun CMDLA0 ()
  (setq cmdech (GETVAR "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setvar "regenmode" 1)
  (SETVAR "CMDECHO" 0)
  )

;;;
(defun CMDLA1 ()
  (SETVAR "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" 1)
  )

;;;
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp inp def)
  )

;;;
(Defun MKLA (a b)
  (If (= (Tblsearch "layer" a) nil)
    (Command "layer" "m" a "c" b a "")
    (Command "layer" "t" a "s" a "c" b a "")
    )
  )

;;;
(defun dxf (code elist) (cdr (assoc code elist)))
(defun dxf-s1(code elist) (dxf code (entget elist)))


;;;
(DEFUN PXYP (TXT1)
  (SETQ        TXT1 (STRCAT "\n\r      程序命令: "  TXT1 "      -- XYP@bsedi.com"))
  (PRINC TXT1)
  (Princ)
  );defun

;;;
(pxyp"dfbz      (等分标注)")

;-------------------------------------------
;;;END

shisj

源程序，就支持，我知道内容与帖子一样，下载。

lzy9788

创意还不错，不过可能便用范围不大，毕竟等分的比较少。恕我直言

coolzhb

最初由 lzy9788 发布
[B]创意还不错，不过可能便用范围不大，毕竟等分的比较少。恕我直言 [/B]

源码支持！
但是当标注点和尺寸线不平行时，程序有bug，没有判断！

heroaming

等分编号类似么？有人参考下么？

xiaoquansb

就是找这个,支持,已经下载

小毛草

用理正建筑里的标志等分,好用!

zh_6531394

好东西,非常方便

han23

不错。原创的就是好东西

云飞日月

老大的东西就是好用呀

lhj743

怎么加载后没什么异常，
使用也是没异常，
就是没标注出现啊？

sincereheart

给个贴图先，不是很懂

lyl6414300

谢谢楼主贴出源码！

chiench

謝謝了了了謝謝謝了了了謝謝
謝了了了了了謝了了了了了謝
謝了了了了了了了了了了了謝
謝了了真心地向您致敬了了謝
謝謝了了了謝謝谢了了了謝謝
謝謝謝了了了了了了了謝謝謝
謝謝謝謝了了了了了謝謝謝謝
謝謝謝謝謝了了了謝謝謝謝謝
謝謝謝謝謝謝了謝謝謝謝謝謝

tchthong

能不能弄成不等分也行，就是在任意位置断开都可以。。