【已解决】怎么实时获得选择图元的属性

8142556

我想在鼠标每点击一个图元的时候，获得该图元的图层颜色线型....之类的属性字符串，需要运用哪些函数来实现

还有怎么获得当前已经选中的图元名称，而不是ssget去选定，求大神赐教

marting

1、鼠标点击，那就用 entsel函数获得实体，然后用vla函数或者entget得到你需要的属性
2、已经选中的，是指夹点已经显示出来的？ 选择实体就是entsel和ssget，夹点显示出来的，直接选中，你设置下系统变量先选择后执行就行了，然后用 entsel获取。

8142556

marting 发表于 2018-2-19 22:07

我想每选择一个图元就得到他的属性，类似特性对话框这样子，需要用到反应器来实现吗

marting

8142556 发表于 2018-2-19 22:16

你要是交互，点一个就获取一个，不用反应器，直接选实体，然后你处理就行了
你在下面 （....）改为自己想获得的属性就行了。

1. (defun c:tt ()
   
2.   (if (setq e (car (entsel "\n选择实体<退出>:")))
   
3.     (progn (setq o   (vlax-ename->vla-object e)
   
4.                  typ (vla-get-ObjectName o)
   
5.            )
   
6.       (cond
   
7.         ((= typ "AcDbPolyline")
   
8.          (........)
   
9.         )
   
10.         ((= typ "AcDbLine")
    
11.          (........)
    
12.         )
    
13.         ((= typ "AcDArc")
    
14.          (........)
    
15.         )
    
16.         ((= typ "AcDbCircle")
    
17.          (........)
    
18.         )
    
19.      )
    
20.        
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    
25. 
    

(defun c:tt ()<br />   (if (setq e (car (entsel "\n选择实体<退出>:")))<br />     (progn (setq o   (vlax-ename->vla-object e)<br />                  typ (vla-get-ObjectName o)<br />            )<br />       (cond<br />         ((= typ "AcDbPolyline")<br />          (........)<br />         )<br />         ((= typ "AcDbLine")<br />          (........)<br />         )<br />         ((= typ "AcDArc")<br />          (........)<br />         )<br />         ((= typ "AcDbCircle")<br />          (........)<br />         )<br />      )<br />         <br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

8142556

marting 发表于 2018-2-19 22:25

嗯，这个片段不错，学习了

我是想实现  不是执行一次命令才去获得图元的属性，
而是在文档里每次只要选择图元的时候就获得它的属性

要怎么才能实现这种交互

marting

1、你是想怎么选择呢？ 鼠标移动上去就显示，还是要左键点击实体？2、你需要用一个命令去执行，还是只要鼠标点击实体就显示？ 显示到哪？
3、你想每次选择的时候，都显示实体的属性，想做其他的事情的时候怎么办？

去每日插件论坛看看相关的插件。
你也许想要的是这个

                               
登录/注册后可看大图

鼠标指示窗口动态显示实体信息插件（支持扩展实体、扩展词典显示）

126 个回复 - 5708 次查看

XDRX API 点监视器函数的应用 **** 本内容被作者隐藏 ****

2013-10-28 23:18 - XDSoft - 每日插件

8142556

我想点击或者框选选中的时候，获得这些对象的四个通用属性  图层、线型、线宽、颜色，然后设置显示到OPENDCL的窗体控件上去。
这样我就可以用OPENDCL的框体来更改和显示这些属性，就不要CAD自带的工具条了，占地方

8142556

marting 发表于 2018-2-19 22:45

8142556

marting 发表于 2018-2-19 22:45

就和你发的那个插件差不多，只是不是鼠标移上去得到属性，是选中后得到属性

marting

8142556 发表于 2018-2-19 22:56

那就用反应器，监视pickfirst系统变量，亮显实体后，捕获实体，然后你取出想要的属性写到ODCL里面。
装一个二次开发必备的工具，ARXDBG，论坛置顶有下载。你可以知道系统是怎么变化的

看下面图片，你亮显实体后，系统变量 pickfirst 会变化，你就写反应器，监视这个系统变量

marting

8142556 发表于 2018-2-19 22:55

CAD除了特性对话框，还有快捷特性对话框啊，就是修改你要的四个基本属性的，直接调用它不就行了，不用写ODCL

8142556

marting 发表于 2018-2-19 23:05

噢噢，，我研究研究

marting

8142556 发表于 2018-2-19 23:14

看看这个，就是点选实体后，调出ODCL对话框，根据属性快速选择实体的

                               
登录/注册后可看大图

http://bbs.xdcad.net/thread-668256-1-1.html

8142556

marting 发表于 2018-2-19 23:19

大神 监视Pickfirs 我这个反应器的data该写什么，这个每选择一个物体就print十几次，哪里不对

(defun WF_K(reactor-object parameter-list)
(print "监视")
)
(vlr-editor-reactor "Pickfirst Modified" '((:vlr-sysVarChanged . WF_K)))

kqqt6236

不错不错！