[LISP]about array

dinny5526 · 发表于 2004-7-3 08:44:00

请教版主:

关於 array 產生物件如何全部选到, 我想作成 block

meflying · 发表于 2004-7-3 08:49:00

array前

(setq ent (entlast))

...;array

(setq ss (ssadd))

(while (setq ent (entnext))

(ssadd ent ss)

)

BDYCAD · 发表于 2004-7-3 08:56:00

可以换换其他思路. 如你在程序处理中把要ARRAY的对象用CHPROP改成一个独有的特性. 这样阵列后就可以用SSGET涵数指定这个独用的特性就可以选到了. 然后再用CHPROP还原回阵列前对象的属性就好了.

精灵王 · 发表于 2004-7-3 09:33:00

在lisp中如何更改实体的属性啊？

BDYCAD · 发表于 2004-7-3 10:19:00

用SUBST更改好对象的DXF组码再用ENTMOD或ENTMAKE再生成对象. 这个过程就可以应用在修改实体的属性了.

dinny5526 · 发表于 2004-7-3 11:07:00

; 如何将 array 作出来的 12 条线段全部选到, 我想作成 block (defun c:test()
(setq p1 (getpoint "\n p1:"))
(setq p2 (getpoint "\n p2:"))
(command "line" p1 p2 "") (setq ent (entlast)) (command "array" ent "" "r" "3" "4" "100" "150")
;array (setq ss (ssadd)) (while (setq ent (entnext)) (ssadd ent ss) ) )

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

本帖最后由作者于 2004-7-4 11:43:23 编辑

; 如何将 array 作出来的 12 条线段全部选到, 我想作成 block (defun c:test()
(setq p1 (getpoint "\n p1:"))
(setq p2 (getpoint "\n p2:"))
(command "line" p1 p2 "") (setq ent (entlast)) (command "array" ent "" "r" "3" "4" "100" "150")
;array (setq ss (ssadd)) (ssadd ent ss) (while (setq ent (entnext ent)) (ssadd ent ss) ) )

BDYCAD · 发表于 2004-7-4 09:41:00

while涵数出错哦．

meflying · 发表于 2004-7-4 11:44:00

晕，entnext后面明明有个ent的，我是测试了才发上来的，怎么会消失了？？？

——已更改，见7楼

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