一个插入图框及部分文字的LSP程序

maoyangmy

一个插入图框及部分文字的LSP程序

173173

有没有能根据所选图形大小而自动套用适合的图框程序??

zgssd

在AutoCAD2004中加载不了

chenzf

有用过的朋友说下好用不

4265986

我帮你贴下图中的内容，以便需要的朋友需不需下载。我反正是一点都看不懂，连个快捷C:XXX都没有。。。。
& y; ^/ s2 d8 k
. O" f# R& b- z2 x1 ^/ C (prompt "本软件著作权归毛炀所有，违者必究!  \n")
% }/ ~  }6 ^& s2 H (setvar "cmdecho" 0)
8 T) X4 W( ]  @( V# q! L (setvar "osmode" 0)
8 a4 X* W& h8 n (setq pt0 (list 0 0))
+ d2 l$ f% u9 y; \* p (command "insert" "/Program Files/AutoCAD R14/Isup/A0" pt0 k k 0)
8 e# x4 A: O* A" I& @ (setq x1 (* k 1060.5)) (setq x2 (* k 1132.5)) (setq x3 (* k 56)) (setq x4 (* k 1124)) (setq h1 (* k 4)) (setq h2 (* k 5)) (setq h3 (* k 7))
(setq y1 (* k 64)) (setq y2 (* k 52)) (setq y3 (* k 40)) (setq y4 (* k 16)) (setq y5 (* k 824.75)) (setq y6 (* k 36))
(command "text" "m" (list x1 y1) h2 0 "热 力")
(command "text" "m" (list x1 y2) h2 0 "施 工")
(command "text" "m" (list x1 y3) h1 0 (strcat "1:"(itoa (fix k))))
+ z& g" S2 B: f( L (command "text" "m" (list x2 y4) h2 0 "XXERXXX")
. B# x5 J6 ]9 C9 q (command "text" "m" (list x3 y5) h2 180 "XXERXXX")
(command "text" "m" (list x4 y6) h3 0 "XX工程XX图")
, p+ l8 K" u" w (COMMAND "ZOOM" "E")
/ y- P9 j; e7 W- T5 @ (setvar "osmode" 239)
  w) M/ o* F. F6 y" E  C$ l (setvar "cmdecho" 1)

baby008

很好的资料

Michael529

插入A0图框的程序，需要有文件名为A0.dwg的图纸文件，还需要路径要和代码中的路径一致。

hottee2009

太简单了!!好像是个练习题!!