工程图中标注序号的LISP程序怎么用

hj2009 · 发表于 2010-5-25 17:46:12

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

工程图中标注序号的LISP程序怎么用请大虾帮助

未济 · 发表于 2010-5-26 01:31:40

用的方法按DOC文件，程序为附件

woaishuijia · 发表于 2010-5-26 08:17:59

楼主上传的文档中有不少错误.下面是修改后的代码

4 p* i2 F4 H& Q
(defun C:Bxh (/ p1 p2 p3 ang bxh radi txth) ;标序号
4 }: Z6 p, T+ m/ o
(setq radi 5) ;圆圈半径
# C& }) D$ S. U$ L8 ^
(setq txth 5) ;字高
& `% P+ T% G- ~% K6 m ]
(if (not bx) (setq bx 1))7 z8 L7 ~8 F5 z# ~6 ^$ H7 l
(setq p1 (getpoint "\n请选择起点:" )) ;在零件上选一点4 w8 n+ |; ~' `: e* U$ L
(setq p2 (getpoint "\n请选择第二点或回车表示无第二点:" )) ;标注位置处一点
! ]% f, b" ~. e( K0 u* _; M
(setq bxh (getint (strcat "\n请输入序号<" (itoa bx) ">:" ))) ;序号数4 w! y% H; X- F6 R- Q, _
(if bxh (setq bx bxh))
9 C6 X7 @6 a8 A6 E& D
(cond (p23 `* f/ a Y& M. T0 R- V9 X
(command "layer" "set" "细实线图层名" "" ) ;改到画细线图层,使用前把"细实线图层名"改为使用者自己的相应图层名, `* g2 z# [' b: z$ ~9 k2 t
(setq ang (angle p1 p2)). W0 n' f4 [- [# r5 ?( ]( M
(setq p3 (polar p1 ang (-(distance p1 p2) radi))) ;画圆、线, Y' l9 @7 B* f- [& b0 [* }6 F4 F
(command "pline"+ k0 a- A8 O& u* j+ Y
(polar p1 ang 0.25)
% Q, `+ |% S$ @" B! c4 |- A c
"w" 0.5 0.5 "A" "CE"p1"A"359.9"L""W"0 0 p3"" )
7 G! u; n$ b# y" S N6 N/ n( P
(command"circle"p2 radi)6 ~# @2 ?' M4 z5 r+ F
(command "layer" "set" "文字图层名" "" ;改到写文字图层,使用前把"文字图层名"改为使用者自己的相应图层名
( x3 c' N5 u" ^$ R d' s- @( u! w
"text" "J" "M" p2 txth 0 bx) ;写文字
" p' z0 O6 [/ w3 U& U/ j
)+ n# n J2 w' [/ \1 n
((not p2) ;如果在零件中直接标注7 {! G8 [3 @2 P) `8 B* b
(command "layer" "set" "细实线图层名" "" ) ;改到画细线图层,使用前把"细实线图层名"改为使用者自己的相应图层名
- i# \. G8 l& L* ]2 J( j" J
(Command "circle" p1 radi) ;画圆+ F& o; Q# p' g9 E/ Z0 f% j/ j
(command "layer" "set" "文字图层名" "" ;改到写文字图层,使用前把"文字图层名"改为使用者自己的相应图层名
1 v& \4 m4 A- [* |
"text" "J" "M" p1 txth 0 bx) ;写文字
# [6 L* K. a2 |8 a
)/ `8 i% v2 B N7 e d- @1 {
)9 d* R! i1 Z( K! {, [ w @
(setq bx (+ bx 1))( O+ p, j- ^/ ^, ~" z' j1 A" b1 Z; y* ~
(princ)
7 ~& _ @5 e; v, A
)
& q2 o: n$ `# r6 K9 i0 `/ K

复制代码

另外,加载程序应该用"appload"命令而不是"load"

hj2009 · 发表于 2010-5-26 14:17:38

加载程序和使用能不能贴图我对这一巧不通劳驾各位

ysryc99001 · 发表于 2010-10-14 16:37:26

运行后序号始终为零

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

[已答复] 工程图中标注序号的LISP程序怎么用

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。