CAD中的自动标注-CAD设计-中国数控论坛

积分：205
等级：小虾上路
帖数：15
注册：2010-1-10
IP ：保密
状态：离线

发表时间：2010-1-10 15:46:58 信息留言编辑引用

CAD中的自动标注

CAD中输入: -bh

---------------------------------------------

(defun c:-bh (/ oce1 qz n1 zn h1 sxh1 p1)

(setq qz (getstring "\n请输入前缀相同的部分: "))

(if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))

(setq n1 1))

(if (not (setq zn (getint "\n请输入增加或减少的序数 <+1>: ")))

(setq zn 1))

(if (not (setq h1 (getreal "\n请指定文字高度 <2.5>: ")))

(setq h1 2.5))

(setq

sxh1 (strcat qz (itoa n1))

p1 (getpoint "\n请指定插入点: "))

(while (/= p1 nil)

(command "text" "m" p1 h1 0 sxh1)

(setq

n1 (+ n1 zn)

sxh1 (strcat qz (itoa n1))

p1 (getpoint "\n请指定下一插入点: ")))

(setvar "cmdecho" oce1)

(princ))

(princ "\n 欢迎加载 ---- 编译:

该帖子在 2010/1/10 15:46:58 编辑过

每页9条共1页 [ 1 ]