多段线动态拖动测量面积长度

wdmzslw

请问坛里的高手们，用多段线如何实现动态拖动测量图形的面积和长度，实现CAD快速看图软件的功能（见附图），请高手们给个思路。。。

newer

加载XDRX API， XD::开头的函数，源码去 开源函数库 论坛 搜索查看。

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (if (setq pts (xd::doc:getpolygon "\n第一点" "\n下一点" -7))
   
4.     (progn
   
5.       (xdrx_polyline_make pts t)
   
6.       (xdrx_getpropertyvalue (entlast) "area" "length")
   
7.       (setq txt (xdrx_prompt "面积:" #area "\n长度:" #length t))
   
8.       (xd::text:init 1)
   
9.       (xdrx_mtext_make '(0 0 0) txt 1e10 3.5)
   
10.       (xdrx_setpropertyvalue (entlast) "reset")
    
11.       (xd::drag:simplemove (entlast) "\n文字插入点:" 5 t)
    
12.     )
    
13.   )
    
14.   (xdrx_end)
    
15.   (princ)
    
16. )
    
17. 
    

(defun c:tt ()<br />   (xdrx_begin)<br />   (if (setq pts (xd::doc:getpolygon "\n第一点" "\n下一点" -7))<br />     (progn<br />       (xdrx_polyline_make pts t)<br />       (xdrx_getpropertyvalue (entlast) "area" "length")<br />       (setq txt (xdrx_prompt "面积:" #area "\n长度:" #length t))<br />       (xd::text:init 1)<br />       (xdrx_mtext_make '(0 0 0) txt 1e10 3.5)<br />       (xdrx_setpropertyvalue (entlast) "reset")<br />       (xd::drag:simplemove (entlast) "\n文字插入点:" 5 t)<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

qqqincccken

老大反應好快謝謝也順便學習了

wdmzslw

太强大了，XD_API 确实太强大了，很好用。但我在用OPENDCL 做了一个非模态对话框，把上述代码用到了按钮点击事件，结果出现了错误

marting

wdmzslw 发表于 2017-3-29 16:21

文档没锁定，你用dcl-sendstring 发送字符串去执行，试试。


--------------------------------------------------------------------------------

Function Name dcl-SendString
Syntax   (dcl-SendString String [as String])
Return Type Boolean (T if successful; otherwise NIL)

This function sends an arbitrary string to the AutoCAD command line for the current drawing document. The function returns before the string is processed by AutoCAD, so this function can be used to trigger commands or functions during synchronous event handlers that will execute after the event handler returns.

wdmzslw

marting 发表于 2017-3-29 16:25

不懂，怎么用DCL-sendstring 测试

marting

wdmzslw 发表于 2017-3-29 16:46

非模式对话框执行命令的常用的技巧，你到 OPENDCL分论坛，搜索下 dcl-sendingstring 看看有很多讨论过的。

newer

wdmzslw 发表于 2017-3-29 16:46

一个解决方案是按钮回调函数里面用 (dcl-sendstring "c:XXX\n") xxx是你的命令名去执行。

另外一个解决方案是你设置非模式对话框时候别保持焦点。按完按钮后要让ACAD保持焦点。

newer

wdmzslw 发表于 2017-3-29 16:21

XDRX API把常用的基本上都给你写好了，你拿来组合组合就是一个工具了。

你没注意API写的插件代码都很短吗，一行就完成一个复杂的功能。几行就是一个插件，非常结构化，代码也非常好读。

wdmzslw

marting 发表于 2017-3-29 16:25

你好，请教一个问题。DCL 对话框如何实现非模态的效果

wdmzslw

newer 发表于 2017-3-29 21:58

专业，XDRX API 确实很厉害，我的好好学习一下。另外请教一个问题，如何将DCL 对话框做成非模态的？

bnjzzheng

这个很very啊

luoyiandy

学习一下