[求助]：动态显示和选择集问题。。。。。。。

zhanzujie

一、我写了一段小程序,是关于改变单行文本的旋转角度
(defun c:ttx()
    (vl-load-cmd)
(prompt "\n请选择需要改变角度的单行文本:")
(initget)
(setq   bt(getpoint)
           text_obj(car(entsel)))
(vlax-put-property(vlax-ename->vla-object text_obj) 'rotation
                       (getangle bt "\n旋转角度:"))
(princ)
)
当我选择文本后,
在旋转过程中,如何才能实现显示文本或文本框

二、以下是一段关于选择多段线建立选择集的程序
(defun c:xj_pl()
  (vl-load-cmd)
(prompt "\n请选择作为选择框的多段线:")
(initget)
(setq   bt(getpoint)
           pl_obj(car(entsel))
           i  0
           p_list nil
           n(fix(vlax-curve-endpointparam pl_obj))

(repeat n
         (setq ptx(vlax-curve-pointatparam pl_obj i))
                  pt_list(append pt_list (list ptx))
                   i (1+i)
          )
)
(setq ss(ssget "x" pt_list))
(princ)
)

如何可以实现选中的对象在程序退出后还存在,并立即可以用move命令对它进行处理

另外,该如何取得图形对象的亮显属性--------(redraw en_obj 3)中的"3"为亮显模式

wkai

1
[PHP](defun c:tt ()
  (setq        text_obj (car (entsel))
        bt         (getpoint)
  )
  (command "_.rotate" text_obj "" bt pause)
)[/PHP]

2 如果你用2000+, 在程序后面加上
[PHP]
(arxload "acopm.arx")
(command "_.PSELECT" ss "")
[/PHP]

zhanzujie

非常感谢!
很好用.

jxb8888

选中一个面域，或一个封闭的多义线得出周长行吗？

陌生人

回楼上：可以
可搜索一下论坛的相关主题。很多的