请教如何让图形先显示.

sailorcwx · 发表于 2005-3-8 19:23

比如我插入一个块(command "insert" (strcat loadcwx "blocks/喷头") (getpoint) "1" "1" "0")
上面代码是在点了插入点后块才显示,我希望的是输入块名后块能够贴着鼠标随鼠标移动.还有move命令也是! 再问一个就是getpoint取得的点有没有图层属性的?我想取某条直线上的点,把图层转至直线所在图层,并以原先的点作为插入点插入一个块.如何实现这种效果.

meflying · 发表于 2005-3-8 19:56

用pause代替(getpoint)

点没有层的属性,你可以在这一点选择直线,然后判断选中的直线的层来决定插入块的层

oyxx1023 · 发表于 2005-3-8 20:20

好办法。

sailorcwx · 发表于 2005-3-9 12:33

那就是要分两步才能实现了
先选择直线转换图层,然后点取插入点插入图块?
没有办法一步实现吗?

meflying · 发表于 2005-3-9 13:31

为什么要分两步？

按上面的方法插入完块之后，使用系统变量LASTPOINT获得刚才的插入点，然后根据这个插入点选择直线，取得图层，更改块的图层（块使用ENTLAST获得）

sailorcwx · 发表于 2005-3-9 14:06

高!我试试

sailorcwx · 发表于 2005-3-10 12:30

"根据这个插入点选择直线"怎么做? ssget? entsel?

meflying · 发表于 2005-3-10 13:30

(ssget pt)

(ssget "c" pt pt)

自己多试试

sailorcwx · 发表于 2005-3-10 18:32

还要请教一下,我的程序改成
(command "insert" (strcat loadcwx "blocks/喷头") pause "1" "1")
我取的lastpoint不再是我的插入点了,而是旋转后的点了.那怎么取插入点呢?
用getpoint的话我又不能预览图块了.

sailorcwx · 发表于 2005-3-10 19:06

得不到图层
(defun c:cs1()
(setq pt1 (getpoint))
(setq selectcwx (ssget pt1))
(setq selectcwx (entget (car selectcwx)))
(setq layerYH (cdr (assoc 8 selectcwx)))
(princ)
)
显示参数类型错误

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