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

hj2009

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

未济

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

woaishuijia

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

1. 
   
2. (defun C:Bxh (/ p1 p2 p3 ang bxh radi txth) ;标序号
   7 c4 c7 W; y, T5 e" f5 {9 t
3.   (setq radi 5) ;圆圈半径
   
4.   (setq txth 5) ;字高
   2 V; B* z8 ]5 ^) a
5.   (if (not bx) (setq bx 1))
   % I6 A. R# p4 P- V: O
6.   (setq p1 (getpoint "\n请选择起点:" )) ;在零件上选一点
   " r) b( R6 M* I' E$ N7 T" }
7.   (setq p2 (getpoint "\n请选择第二点或回车表示无第二点:" )) ;标注位置处一点
   
8.   (setq bxh (getint (strcat "\n请输入序号<" (itoa bx) ">:" ))) ;序号数
   5 ?: ^1 U! a2 q1 d1 n* a6 R
9.   (if bxh (setq bx bxh))
   
10.   (cond (p2
    
11.          (command "layer" "set" "细实线图层名" "" ) ;改到画细线图层,使用前把"细实线图层名"改为使用者自己的相应图层名
    % l6 p+ Z. e5 I. x6 g6 u2 H
12.          (setq ang (angle p1 p2))
    
13.          (setq p3 (polar p1 ang (-(distance p1 p2) radi))) ;画圆、线
    
14.          (command "pline"
    
15.                   (polar p1 ang 0.25)
    
16.                   "w" 0.5 0.5 "A" "CE"p1"A"359.9"L""W"0 0 p3"" )
    
17.          (command"circle"p2 radi)
    : S2 h" w) c( w% |1 Z& g  T
18.          (command "layer" "set" "文字图层名" "" ;改到写文字图层,使用前把"文字图层名"改为使用者自己的相应图层名
    + A3 ]  O* e. a2 G. H* T% Z9 G
19.                   "text" "J" "M" p2 txth 0 bx) ;写文字
    : X; f( b: m3 U7 P+ t4 N, ?; o
20.          )
    
21.         ((not p2) ;如果在零件中直接标注
    5 ~  _/ Y5 A9 O( r; Z: e$ B6 V
22.          (command "layer" "set" "细实线图层名" "" ) ;改到画细线图层,使用前把"细实线图层名"改为使用者自己的相应图层名
    
23.          (Command "circle" p1 radi) ;画圆
    
24.          (command "layer" "set" "文字图层名" "" ;改到写文字图层,使用前把"文字图层名"改为使用者自己的相应图层名
    4 z) R, D/ [% T$ Z+ z  B' _
25.                   "text" "J" "M" p1 txth 0 bx) ;写文字
    8 a, H- P/ Z* g, M. y7 Q7 y
26.          )
    $ v- k# U* M; B$ F7 Z
27.         )
    
28.   (setq bx (+ bx 1))
    
29.   (princ)
    2 I1 p: }+ Y  `1 h4 p4 C+ y3 [
30.   )
    , q& Q6 K7 ~, w' A5 f: S" S

复制代码

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

hj2009

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

ysryc99001

运行后序号始终为零