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

maoyangmy

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

173173

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

zgssd

在AutoCAD2004中加载不了

chenzf

有用过的朋友说下好用不

4265986

我帮你贴下图中的内容，以便需要的朋友需不需下载。我反正是一点都看不懂，连个快捷C:XXX都没有。。。。

, t2 ?8 l- N8 A# H (prompt "本软件著作权归毛炀所有，违者必究!  \n")
7 `8 S  ]6 q2 a (setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq pt0 (list 0 0))
$ Q* c/ ?8 M- Q9 ]2 j- j8 S8 l+ v8 d (command "insert" "/Program Files/AutoCAD R14/Isup/A0" pt0 k k 0)
(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 "热 力")
$ b) J0 k) h2 ? (command "text" "m" (list x1 y2) h2 0 "施 工")
; m3 p6 y" @+ G; M& a0 o) F (command "text" "m" (list x1 y3) h1 0 (strcat "1:"(itoa (fix k))))
(command "text" "m" (list x2 y4) h2 0 "XXERXXX")
4 u/ A; `: i% ?+ I (command "text" "m" (list x3 y5) h2 180 "XXERXXX")
" Y: T! a* q, M! }( T$ W% @9 t1 [0 @4 I (command "text" "m" (list x4 y6) h3 0 "XX工程XX图")
; R6 S; @3 ?8 _6 C& \& f/ I/ ] (COMMAND "ZOOM" "E")
(setvar "osmode" 239)
2 E! m- G2 B- m" c: x (setvar "cmdecho" 1)

baby008

很好的资料

Michael529

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

hottee2009

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