[求助]申请对标注的修改（等分）

bios

如题：申请这样一个程序


        N等分标注尺寸。点取标注后就等分相应的标注尺寸。


由于尺寸很多，想批量标注。

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

bbo

xie xie

hnfsf

在标注线不等长的时候会乱来

userzhl

没错，希望楼主再完善一下！

dengqiaqia

最好用垂足的办法，通过判断是线性标注还是对齐标注反而将问题复杂化了，可以到XD力搜我的关于“类似天正..."的帖子，在vlisp里。

xiaofeifei

有待改进啊。楼主

注册

xyp1964 发表于 2004-8-6 01:52
等分标注程序，请测试!

无法批量，呵呵