AutoCADlisp编写一个lsp程序，希望高手指点迷津

nxxi86

用AutoCADlisp编写一个lsp程序，要求加载lsp文件后，通过command命令自动将几个画好的CAD图块文件插入到当前窗口中。看一下我写的lsp代码：
3 x' |/ r7 S  L7 y, Y6 J* V9 ^. F

1. (defun c:sj (/ p1 p2 p3 p4 a b n mc)   
   
2.    (setq p1 (getpoint "\n p1:"))
   
3.    (setq fp(open "d:/cs.txt" "r"))
   % O4 Y" R" Y4 ?2 w# w7 O
4.    (setq a 70)
   
5.    (setq b -2)
   " J/ p( [# h/ o) w" G
6.    (setq p2 (list (+ (car p1) a) (cadr p1)))
   
7.    (setq p3 (list (- (car p1) 5) (+ (cadr p1) b)))
   ) n( ~; B0 u- H# ~/ k
8.    (setq p4 (list (+ (car p1) a) (+ (cadr p1) b)))
   ( q- L( v+ g; `' h
9.    (setq mc(read-line fp))
   
10.    (setq n(atoi(read-line fp)))
    $ A6 d7 G0 r+ S: C. U9 [  c2 A
11.    (command "text" p1 1.5 0 mc)
    
12.    (command "line" p3 p4 "")
    
13.    (command "style" "standard" "华文新魏" 10 20 0 "n" "n")
    
14.    (setq mc(read-line fp))
    
15.    (command "xref" "attach"  mc P4 "1" "1" "0")
    
16.    (setq mc(read-line fp))
    ; N- G# A3 @# f  L0 Y0 I, y
17.    (command "xref" "attach"  mc P4 "1" "1" "0")
    
18.    (command "zoom" "e")
    , O$ \8 t6 n5 L7 d3 O. ?
19. )

复制代码

$ r  w2 X6 }  ~4 g! t1 W以上的代码是一部分，没有插入图块的代码，希望高手指点迷津！谢谢！
3 l3 k6 }2 K6 j; L
3 ^) z# |% V( Z[ 本帖最后由 truezx 于 2008-5-14 12:28 编辑 ]

馋猫咪

哇，高层次的，不会。

nxxi86

提示：1 循环处理插入几个图

: ~- k. D# a- O8 w2 在以上基础，实现图的位置 不重叠（对应图块的位置不重叠）

truezx

友情提示：这个问题由woaishuijia  来回答你比较好，你可以发短信求教，呵呵

nxxi86

原帖由 truezx 于 2008-5-12 21:44 发表
6 P1 a+ H4 U2 k( g% U, \友情提示：这个问题由woaishuijia  来回答你比较好，你可以发短信求教，呵呵

太好了！谢谢版主！

woaishuijia

(defun c:sj (/ p1 p2 p3 p4 a b n mc)
- g; R# [, l) @: K2 G(setq p1 (getpoint "\n p1:"))
(setq fp(open "d:/cs.txt" "r"))
(setq a 70)
(setq b -2)
(setq p2 (list (+ (car p1) a) (cadr p1)))
(setq p3 (list (- (car p1) 5) (+ (cadr p1) b)))
(setq p4 (list (+ (car p1) a) (+ (cadr p1) b)))
(setq mc(read-line fp))
7 ]$ R2 p) ?* d! G7 I+ u- G(setq n(atoi(read-line fp)))
" w- U4 y. E+ X! {8 j: g(command "text" p1 1.5 0 mc)
" o0 ?' j( ~  }3 P% x8 H(command "line" p3 p4 "")
(command "style" "standard" "华文新魏" 10 20 0 "n" "n")
(setq mc(read-line fp))
(command "-insert" mc P4 "1" "1" "0")
(setq mc(read-line fp))
3 ~: J- p5 S4 H* V1 U2 R3 O. e(command "-insert" mc P4 "1" "1" "0")
(command "zoom" "e")
)
. R8 e. A+ R$ ^1 u0 k0 s$ X
没看到你的“cs.txt”，不清楚你要干什么，猜测你是想在这里插入块。
, c" |* ]5 K% a5 e3 v
1 z( H' I6 x+ F1 g. P[ 本帖最后由 woaishuijia 于 2008-5-13 23:37 编辑 ]

woaishuijia

在你的程序上做了些修改和补充，看看这次是否合你的意？

(defun c:sj (/ p1 p2 p3 a b c d n mc)
(setq p1 (getpoint "\n p1:"))
(setq fp(open "e:\cs.txt" "r"))
* h  [! u! p! K(setq mc(read-line fp))
(command "style" "standard" "华文新魏" 10 1 0 "n" "n")
(command "text" "j" "bc" p1 0 mc)
(setq a(distof(read-line fp)))
; y3 j0 W8 y4 c$ B% e(setq p2 (list (- (car p1) (/ a 2)) (- (cadr p1) 2)))
0 w& ]4 Q3 Z1 K4 R. P$ ?(setq p3 (list (+ (car p1) (/ a 2)) (- (cadr p1) 2)))
* h" ]7 C4 N7 O) d(command "line" p2 p3 "")
  G( V% ~1 L  P- X$ o3 q(setq p1 (list ((car p1) (- (cadr p1) 5))))
(setq n(atoi(read-line fp)))
1 t9 M9 N0 {8 D% ]& u(repeat n
: m- ]; |9 \( J1 R  (setq a(distof(read-line fp)))
  (setq b(distof(read-line fp)))
! |3 d9 ?6 Z4 r) f; r  (setq c(distof(read-line fp)))
/ o) A* y0 ^2 b% G! H  (setq d(distof(read-line fp)))
- Y- k: v, ~6 \8 }  X5 @1 `  (setq p2 (list (- (+ (car p1) a) (/ c 2)) (- (+ (cadr p1) b) 5)))
  E! ]) y' ~1 i/ f  (setq mc(read-line fp))
  (command "-insert" mc P2 "1" "1" "0")
( g) U; M$ B" Q+ ^  (setq p1 (list ((car p1) (- (cadr p1) d 5))))
# l3 c/ p+ J, k5 |! I)
; B6 t& {# |3 `7 P5 ~, z$ t(close fp)
(command "zoom" "e")
3 K6 a* J: w5 G% p)

为了方便其它网友学习，还是解释得清楚一点好。
第一行：定义函数
$ h4 p; G2 J8 c+ j" p* [+ Z第二行：屏幕上取点赋值给P1
7 N# }$ `/ e: s( J$ D第三行：用只读模式打开文本文件，路径按你的需要改，文件内容如下：
/ S. z/ y8 x0 b' B6 T- y　　第一行：试题名称字符串
　　第二行：试题名称下划线的长度
+ x- V6 v6 T  Z9 X0 h0 g8 S　　第三行：插入块的数量，与下面数据对应
　　第四行：以第一个块的图形界限左上角为坐标原点，块基点的X坐标
6 A( I8 o' I# p; k3 e　　第五行：以第一个块的图形界限左上角为坐标原点，块基点的Y坐标
　　第六行：第一个块的图形宽度
　　第七行：第一个块的图形高度
3 K1 J+ F! C7 [8 r$ x* E$ w. P　　第八行：第一个块的完整路径
0 _5 R" R6 c& h: a3 U　　如果插入多个块，下面重复四到八行的内容，给出其它块的尺寸数据和路径
9 i! Z1 t* |: a　　注意：插入块的数量要与第三行相符
第四行：从文本文件中读取试题名称赋值给mc
4 B9 J( X# N7 L. }第五行：定义文字样式
第六行：写单行文字。“j”是对正方式，“bc”是下中对正，P1是在第二行得到的点，0是旋转角度，mc是刚刚读取的试题名称
第七行：从文本文件读取下划线长度赋值给a
& t8 `! _8 q/ @1 K! [+ c" M第八、九行：计算下划线左右端点的坐标，其中左端点的X坐标为P1点X坐标减去下划线长度的一半，右端点的X坐标为P1点X坐标加上下划线长度的一半，目的是中点对齐
' T# q2 M4 ^8 w; O% R第十行：调用CAD命令画下划线
2 j/ G! ]/ q; G0 i4 w# B. `第十一行：在P1点下面5个图形单位处定义一个参考点坐标并赋值给P1（原先的插入点已经完成它的历史使命了），用于参照此点插入块。
: s" [8 ~; p. q1 B/ R第十二行：从文本文件读取插入块的数量赋值给n
第十三行：开始按插入块的数量循环
2 G1 l2 @* |5 {& F3 W: w% n第十四到十七行：读取文本文件四到七行数据，以便计算块的适当的插入点使图形与标题及下划线对正且不重叠，并给后面的块预留位置
1 q8 x9 E* K$ D+ a; O1 }* `; k8 S第十八行：参照第十一行定义的P1点计算块的适当的插入点，使块的图形中心（不是基点）与试题名称及下划线中点水平对齐，垂直方向块的上边界比P1点低5个图形单位（下面块的上边界同样比本块的下边界低5个图形单位，适当留点空白 ）
. U+ N8 k; f8 }% S) `2 x第十九行：从文本文件读取块文件的完整路径
第二十行：调用CAD命令插入块参照。insert命令前面的减号是为了避开对话框，mc是路径，P2是插入点，后面分别是X、Y比例和旋转角度
2 w1 @; Z  W5 a' H第二十一行：重新定义参考点坐标为本块下边界的中点，以便下面的块对正和防止重叠
* N, M4 R! X0 h" W5 `第二十二行：如果块还没有按n的数量插完就回到第十四行继续循环插入块，如果插入完毕就执行下面的语句
第二十三行：关闭文本文件
9 S+ ]) v  [1 p5 r" r第二十四行：屏幕缩放
2 L; i1 O, V" z* W9 c9 i第二十五行：OK
# D3 a( j* u& h4 v1 h1 d
自己发现有个地方错了，已改正
* O; y  v# l- [6 |& d  N
! q0 Z3 t- S) ^8 t2 |[ 本帖最后由 woaishuijia 于 2008-5-14 15:12 编辑 ]

yueye0305

这个帖子我进来不知道几次了，因为标题不清，进来一看，看过的帖子，还是我不懂的。。。立马又退出。
9 L# K3 O# A8 ]% N  C& D4 C+ l% N
8 V# N* e$ D" J9 f0 p5 X4 {
如果楼主把标题改为《AutoCADlisp编写一个lsp程序，希望高手指点迷津》，我就不会进来这么多趟了。
  [5 i/ b" q& V1 f
: t! U5 L- o" S" W  |4 _
! F: b3 v: D  M4 X. y- D总是有人这样发帖子，很浪费别人的时间。



# M. h9 V+ n& n) t+ F2 H; E希望版主能有相关规定，禁止发类似“请教”，“求助”，“高手指教”之类标题的帖子。

Ruoshuilang

原帖由 woaishuijia 于 2008-5-14 11:45 发表
在你的程序上做了些修改和补充，看看这次是否合你的意？

(defun c:sj (/ p1 p2 p3 a b c d n mc)
, o5 w- A, g5 p9 o  h7 v(setq p1 (getpoint "\n p1:"))
(setq fp(open "e:\cs.txt" "r"))
(setq mc(read-line fp))
(command " ...

我在学lisp
支持

yanyanxf

建议将求助改为已解决!