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

maoyangmy · 发表于 2008-6-10 08:11:15

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

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

x

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

173173 · 发表于 2008-11-24 15:18:53

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

zgssd · 发表于 2008-11-28 10:36:19

在AutoCAD2004中加载不了

chenzf · 发表于 2009-2-20 22:47:23

有用过的朋友说下好用不

4265986 · 发表于 2010-7-18 13:19:03

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

(prompt "本软件著作权归毛炀所有，违者必究! \n")
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq pt0 (list 0 0))
(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 "热力")
(command "text" "m" (list x1 y2) h2 0 "施工")
(command "text" "m" (list x1 y3) h1 0 (strcat "1:"(itoa (fix k))))
(command "text" "m" (list x2 y4) h2 0 "XXERXXX")
(command "text" "m" (list x3 y5) h2 180 "XXERXXX")
(command "text" "m" (list x4 y6) h3 0 "XX工程XX图")
(COMMAND "ZOOM" "E")
(setvar "osmode" 239)
(setvar "cmdecho" 1)

baby008 · 发表于 2010-11-30 17:41:56

很好的资料

Michael529 · 发表于 2011-3-8 15:02:46

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

hottee2009 · 发表于 2011-3-8 16:43:35

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

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

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

通知

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

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