使用方法：
1.复制下面的文字到记事本，保存为 编号速写.lsp
2.打开CAD，输入AP ，选择该文件，按加载，关闭窗口。
3.输入SB ，启动插件。鼠标左键使用.
=============================复制以下文字保存为==编号速写.lsp==============================
;参数初始化
(defun chushihua()
;(setvar "cmdecho" 0)
(setq bhlx 0)
(write-line "编号类型:0")
(setq bh0 0)
(write-line "编号初值:1")
(setq bh1 )
(setq bh2 0)
(setq bh3 )
(setq yx "Y")
(write-line "引线:Y")
(setq bklx "Y")
(write-line "边框:Y")
(setq r 2.5)
(setq zidong_r t)
(write-line "边框圆半径:自动")
(setq th 3.5)
(write-line "文字高度:3.5")
(setq ta 0)
(write-line "文字旋转角度:0")
(setq jl 1)
(write-line "编号到引线距离:1")
(setq jiantou 2.5)
(write-line "箭头大小:2.5")
(setq chang 5)
(setq zidong_chang t)
(write-line "水平段引线长度:自动")
(setq qianzhui2 "")
(write-line "自然数前缀:无")
(setq houzhui2 "")
(write-line "自然数后缀:无")
(setq qianzhui3 "")
(write-line "字母前缀:无")
(setq houzhui3 "")
(write-line "字母后缀:无")
(setq pianyi 7)
(write-line "边框自动处理时,文字到边框的偏移系数:7")
)
(chushihua)
;主函数*********************************************************************
(defun c:sb(/ o ob)
(defun er(str)
(setvar "osmode" dx)
(princ "\
SB已取消")
)
(setq erod *error* *error* er)
(if (= yx "N")
(progn
(initget "C Y K W H T")
(setq ob (getpoint "\
指定编号位置[编号初值(C)/引线(Y)/边框(K)/文字(W)/还原为默认设置(H)/退出(T)]:<编号之前请先将当前文字样式的文字高度项设为0>"))
(if (or (= ob "C") (= ob "Y") (= ob "T") (= ob "K") (= ob "W") (= ob "H") (= ob nil))
(progn
(if (= ob "C") (chuzhi))
(if (= ob "Y") (yinxian))
(if (= ob "K") (bkshezhi))
(if (= ob "W") (wenzi))
(if (= ob "H") (chushihua))
(if (= ob nil) (gaodu0))
(if (= ob "T") (exit))
)
(progn
(huitu o ob)
)
)
)
(progn
(initget "C Y K W H T")
(setq o (getpoint "\
指定标注位置[编号初值(C)/引线(Y)/边框(K)/文字(W)/还原为默认设置(H)/退出(T)]:<编号之前请先将当前文字样式的文字高度项设为0>"))
(if (or (= o "C") (= o "Y") (= o "T") (= o "K") (= o "W") (= o "H") (= o nil))
(progn
(if (= o "C") (chuzhi))
(if (= o "Y") (yinxian))
(if (= o "K") (bkshezhi))
(if (= o "W") (wenzi))
(if (= o "H") (chushihua))
(if (= o nil) (gaodu0))
(if (= o "T") (exit))
)
(progn
(initget 1)
(setq ob (getpoint o "\
指定编号位置:"))
(huitu o ob)
)
)
)
)
)
;绘制过程*********************************************************************************
(defun huitu(o ob / dian1 dian2 dianx diany jiantou0 chang0)
(graphscr)
(setq jiantou0 jiantou)
(command "text" '(0 0) th ta "编号速写" "erase" (entlast) "")
;编号升序
;0 (1 2 3...) 1 (a b c.../A B C...) 2 (a1 a2.../B1 B2...) 3 (aa ab ac.../Ma Mb Mc...)
(if (= bhlx 0)
(progn
(setq bh0 (+ bh0 1))
(setq bh (itoa bh0))
)
)
(if (= bhlx 1)
(progn
(setq bh1 (+ 1 bh1))
(if (> bh1 122) (setq bh1 97))
(if (and (> bh1 90) (< bh1 97)) (setq bh1 65))
(if (< bh1 65) (setq bh1 65))
(if (and (< bh1 97) (> bh1 90)) (setq bh1 97))
(setq bh (chr bh1))
)
)
(if (= bhlx 2)
(setq bh (strcat qianzhui2 (itoa (setq bh2 (+ 1 bh2))) houzhui2))
)
(if (= bhlx 3)
(progn
(setq bh3 (+ 1 bh3))
(if (> bh3 122) (setq bh3 97))
(if (and (> bh3 90) (< bh3 97)) (setq bh3 65))
(if (< bh3 65) (setq bh3 65))
(if (and (< bh3 97) (> bh3 90)) (setq bh3 97))
(setq bh (strcat qianzhui3 (chr bh3) houzhui3))
)
)
(if (= bklx "Y") ;边框半径是否自动处理及r0值
(progn
(if (= zidong_r t)
(setq r0 (/ (tdaxiao 3) 2))
(setq r0 r)
)
)
(setq r0 (/ (tdaxiao 2) 2))
)
(if (= bklx "J") ;边框为矩形时r0值
(if (= zidong_j t)
(setq r0 (/ (tdaxiao 2) 2))
(setq r0 (/ jgao 2))
)
)
(if (= zidong_chang t) ;引线长度是否自动处理及chang0值
(progn
(if (= bklx "Y")
(setq chang0 (* r0 2))
(progn
(if (= bklx "J")
(if (= zidong_j t)
(setq chang0 (tdaxiao 1))
(setq chang0 jkuan)
)
(if (= bklx "W")
(setq chang0 (tdaxiao 1))
)
)
)
)
)
(setq chang0 chang)
)
;对象捕捉
(setq dx (getvar "osmode"))
(setvar "osmode" 0)
(biankuangy r0 ob bh)
(if (and (/= yx "N") (/= yx "n"))
(progn
(if (>= (car o) (car ob))
(progn
(setq dian1 (list(+ (car ob) (/ chang0 2)) (- (cadr ob) r0 jl)))
(setq dian2 (list(- (car ob) (/ chang0 2)) (- (cadr ob) r0 jl)))
(if (> jiantou0 (distance o dian1)) (setq jiantou0 0))
(setq dianx (+ (car o) (* (/ jiantou0 (distance o dian1)) (- (car dian1) (car o)))))
(setq diany (+ (cadr o) (* (/ jiantou0 (distance o dian1)) (- (cadr dian1) (cadr o)))))
(command "pline" o "w" 0 (/ jiantou0 3) (list dianx diany) "w" 0 0 dian1 dian2 "")
)
(progn
(setq dian1 (list(- (car ob) (/ chang0 2)) (- (cadr ob) r0 jl)))
(setq dian2 (list(+ (car ob) (/ chang0 2)) (- (cadr ob) r0 jl)))
(if (> jiantou0 (distance o dian1)) (setq jiantou0 0))
(setq dianx (+ (car o) (* (/ jiantou0 (distance o dian1)) (- (car dian1) (car o)))))
(setq diany (+ (cadr o) (* (/
jiantou0 (distance o dian1)) (- (cadr dian1) (cadr o)))))
(command "pline" o "w" 0 (/ jiantou0 3) (list dianx diany) "w" 0 0 dian1 dian2 "")
)
)
)
)
;对象捕捉
(setvar "osmode" dx)
(setq *error* erod erod nil)
(eval bh)
)
;参数设置********************************************************************************
;初值设置
(defun chuzhi(/ qianzhui20 houzhui20 qianzhui30 houzhui30)
(initget 1 "0 1 2 3")
(setq bhlx (atoi (getkword "选择一种编号类型:\
<0> 自然数序列(1 2 3...) <1> 字母序列(a b c.../A B C...) <2> 带前/后缀自然数序列(a1 a2.../B1 B2.../(1)...) <3> 带前/后缀字母序列(aa ab ac.../Ma Mb Mc.../(a)...) 选择其中一种0/1/2/3:")))
(if (= bhlx 0)
(progn
(setq bh0 (getint "\
输入起始数值:<1>"))
(if (= bh0 nil) (setq bh0 1))
(setq bh0 (1- bh0))
)
)
(if (= bhlx 1)
(progn
(setq bh1 (1- (ascii (getstring "\
Copyright © 2019-2025 51dongshi.net 版权所有
违法及侵权请联系：TEL:177 7030 7066 E-MAIL:11247931@qq.com 本站由北京市万商天勤律师事务所王兴未律师提供法律服务
