这个问题到现在，我不知道该怎么解决？？？

changch · 发表于 2004-10-6 15:27:00

我用LISP语言编写了一个画5行6列的表格的简单程序，

用到AutoCAD内部命令LINE连接，我想每次调用时，它都能做为一个块，怎么实现？？？？？？？？？

孤独客 · 发表于 2004-10-6 15:32:00

能说明白点吗,是每条直线作成一个块,还是整个表格作成一个块

changch · 发表于 2004-10-6 17:24:00

我想把整个表格做成一个块，有好心人回真是太感激了

spring · 发表于 2004-10-6 17:43:00

那就做成块贝

你连表格都写出来了,做块应该不难拉

changch · 发表于 2004-10-7 08:53:00

还是不会呀？怎么用LISP编写才能全选中刚做的表格呀？

给个小例子好不好

meflying · 发表于 2004-10-7 10:10:00

(setq ent (entlast))

...;你画线做表格部分程序代码

(setq ss (ssadd))

(while (setq ent (entnext))

(ssadd ent ss)

)

;ss就是刚画的线

或者...

(setq ss (ssadd))

;画一条线

(ssadd (entlast) ss)

又画一条线

(ssadd (entlast) ss)

...如此继续,直到画完

changch · 发表于 2004-10-7 10:32:00

就以下面简单的画几条线为例，怎么修改呀？？？？ (defun C:lll ()
(setq scal 1)
(setq pt1 (getpoint "\n请输入绘制点:"))
(setq pt2 (polar pt1 0 (* scal 20)))
(setq pt3 (polar pt1 0 (* scal 40)))
(setq pt4 (polar pt1 0 (* scal 60)))
(setq pt5 (polar pt1 0 (* scal 80)))
(setq ent (entlast))
(setq ss (ssadd)) (command "line" pt1 pt2 "")
(command "line" pt2 pt3 "")
(command "line" pt3 pt4 "")
(command "line" pt4 pt5 "") (while (setq ent (entnext)) (ssadd ent ss)
(command "wblock" "t" "ent" "") )
)

xhf · 发表于 2004-10-7 11:29:00

直接作成块，插入块不就可以了吗。没必要用LISP了。

alin · 发表于 2004-10-7 11:36:00

You should read meflying's reply!The other solution from Lockmyeye is:

(setq ss1 (ssget "x"))
....Draw your lines here
(setq ss2 (ssget "x"))
(command "select" ss2 "r" ss1 "")
(setq ss (ssget "p"))

meflying · 发表于 2004-10-7 12:37:00

我想问问楼主,你到底会不会LISP,从你的几个问题来看,你似乎对LISP是一点都不懂,如果是你不懂,你最好把你的要求说出来(重要提示:一定要详细,每次都有人不愿意说详细,让人无法下手),让别人直接给你写程序,否则,把你的程序改来改去也没有意义

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