查询三维曲线上点标高

eachy

XdGe 几何库版，可以查询多条首尾相接曲线组上任一点标高

1. (defun c:XDtb_CalcHeight (/                   c:lhight_form1_OnInitialize
   
2.                           olderr           myerr
   
3.                           c3d                   p1
   
4.                           p
   
5.                          )
   
6.   (defun myerr (msg)
   
7.     (if        (dcl_form_isactive lhight_form1)
   
8.       (dcl_form_close lhight_form1)
   
9.     )
   
10.     (setq *error* olderr)
    
11.     (xdge::free)
    
12.     (princ)
    
13.   )
    
14. 
    
15.   (defun c:lhight_form1_OnInitialize (/ sp box)
    
16.     (setq box (xdrx_document_pixelbox))
    
17.     (dcl_control_setpos
    
18.       lhight_form1
    
19.       (car (last box))
    
20.       (cadr (last box))
    
21.       168
    
22.       128
    
23.     )
    
24.     (setq sp (xdge::getpropertyvalue c3d "hasStartPoint" "hasEndPoint"))
    
25.     (dcl_control_settext
    
26.       lhight_form1_shight
    
27.       (vl-princ-to-string (last (car sp)))
    
28.     )
    
29.     (dcl_control_settext
    
30.       lhight_form1_ehight
    
31.       (vl-princ-to-string (last (cadr sp)))
    
32.     )
    
33.   )
    
34.   (setq        olderr        *error*
    
35.         *error*        myerr
    
36.   )
    
37.   (if
    
38.     (and (setq ss (ssget '((0 . "Line,*Polyline,spline"))))
    
39.          (setq lst (xdrx_pickset->ents ss))
    
40.          (setq
    
41.            lst (vl-remove-if '(lambda (x) (xdrx_curve_isclosed x)) lst)
    
42.          )
    
43.     )
    
44.      (progn
    
45.        (setq strl '("YWt6A4UYAABu3NlbBuKTJjU2Ki9mgLi5shNKU1V2Eh8aWtsYR+Q4Oi71tCnxO2W/YuMP0o8/NPR1"
    
46.                     "E2cmpfz0FqfcWYq+SD8TEqnMO9VedrSkO4oOhLE3Q5kA3aAaWEuOILDDmUWBB6OBgcGRIBAAHEz/"
    
47.                     "15zxXfgwCrbLYUB+0X2+VCtvHQ9FPKbzVMq3Q/p06t8ksCN2NTOfztDLHHEUC9N8b8p11O/ICBcX"
    
48.                     "6yCTHK31W6ryX8/ItCfTOauWr6tMVNoZcrfmVNertvTrrCRYifam3axkayXbihDtTfJ+DKraFN1H"
    
49.                     "LC52uflyMmMctPDceZmuW8ULAL9BG47XP7BzaaCq+MPOo658Tch7M5a4PyfJJZFbUIvGJoXakOLZ"
    
50.                     "B/l2WXbBW0KevPughUZc2y1S48zhxiL5qlDQrNLpdoUDEIL9kv36uS9Ok7lX+URZ7nuVDjjKnYuP"
    
51.                     "P5yUwj7ItSAekk/7TQOQjzHzI525+uFuADqG2afxTEYlIt9xQmFwSPCLeBwR0MORBkmUwgwnn+rm"
    
52.                     "pxA1r/faBNIpU5viNieDnI4/V81HWH2w4jC3XNlKZ8U0J7mRJFjd0BXSqbfYJpssEmAuXmDsXZAt"
    
53.                     "gQX6kWzAPUY2jQ8exSMFsBO+N2o39xcYutsANtBjDrCyst3hp5dfokuddaEpm9XNGvFtABgCSd+E"
    
54.                     "JXfIOKcJrkBJZsV07g2yniV08awNYUmIdbRAF6ipAIYyhefmj73hj2FXu8Dmma2DQfcep8bmuBFL"
    
55.                     "lUlWBd2/+3Spb3+Ud0luQDTmV87znBIv3HZoWyjV6Bo0OthXv4e3h7WHtoe5h7eHtge+B7wHuge4"
    
56.                     "B7YPmUYEu6NV8GKJijc4Q+xbHZ7MNvjpWtr1rJfYXi3wVxovXGkQNEodd1fv2STsV6/JPPe72DpX"
    
57.                     "7FdPQIIBLlx2SVsQvDP3H7Ixd4OSaFuIH/dW3+xZIcuSGTSGhdIRp1pkBtsDoEEwhU6zAe+OV7xv"
    
58.                     "vDLllfrlaecoL5HRBuUYRfdcaw0BnwFZZNSXEmRgKAZgtBdiWrLqJRUOWCzeHnPTHS8M3bwpVtuZ"
    
59.                     "3xZ7ompjKsbqVi04BkXTgezOOw+DKKIy6lVJiBFdjTX+YBE3vhfaP3wUF8F17vogJuzeIKfNNjwa"
    
60.                     "O2xyIMDs3ukxP2w0zlx3TQZvWz+Fo+z6fSY47M4wy1o1PEHw3zk634VRAM/aj9PbI7N0mouftnSa"
    
61.                     "iwUbf1fQjwyHw+xUGyZHJycnNy3bZlVRVc1peyfX5+zSoiBqI7yhOYQVsuz+XLKMWCYcNy65EcKI"
    
62.                     "nzg="
    
63.                    )
    
64.              c3d  (XDGL::Curve:ToCompositeCrv3d lst)
    
65.        )
    
66.        (dcl_project_import strl)
    
67.        (dcl_form_show lhight_form1)
    
68.        (while (setq p (getpoint "\nTest Point: "))
    
69.          (setq p1 (xdge::getpropertyvalue c3d "closestPointTo" p))
    
70.          (dcl_control_settext
    
71.            lhight_form1_tPoint
    
72.            (vl-princ-to-string (last p1))
    
73.          )
    
74.          (princ "\nHeight = ")
    
75.          (princ (last p1))
    
76.        )
    
77.        (if (dcl_form_isactive lhight_form1)
    
78.          (dcl_form_close lhight_form1)
    
79.        )
    
80.      )
    
81.   )
    
82.   (setq *error* olderr)
    
83.   (xdge::free)
    
84.   (princ)
    
85. )
    

(defun c:XDtb_CalcHeight (/                   c:lhight_form1_OnInitialize<br />                           olderr           myerr<br />                           c3d                   p1<br />                           p<br />                          )<br />   (defun myerr (msg)<br />     (if        (dcl_form_isactive lhight_form1)<br />       (dcl_form_close lhight_form1)<br />     )<br />     (setq *error* olderr)<br />     (xdge::free)<br />     (princ)<br />   )<br /> <br />   (defun c:lhight_form1_OnInitialize (/ sp box)<br />     (setq box (xdrx_document_pixelbox))<br />     (dcl_control_setpos<br />       lhight_form1<br />       (car (last box))<br />       (cadr (last box))<br />       168<br />       128<br />     )<br />     (setq sp (xdge::getpropertyvalue c3d "hasStartPoint" "hasEndPoint"))<br />     (dcl_control_settext<br />       lhight_form1_shight<br />       (vl-princ-to-string (last (car sp)))<br />     )<br />     (dcl_control_settext<br />       lhight_form1_ehight<br />       (vl-princ-to-string (last (cadr sp)))<br />     )<br />   )<br />   (setq        olderr        *error*<br />         *error*        myerr<br />   )<br />   (if<br />     (and (setq ss (ssget '((0 . "Line,*Polyline,spline"))))<br />          (setq lst (xdrx_pickset->ents ss))<br />          (setq<br />            lst (vl-remove-if '(lambda (x) (xdrx_curve_isclosed x)) lst)<br />          )<br />     )<br />      (progn<br />        (setq strl '("YWt6A4UYAABu3NlbBuKTJjU2Ki9mgLi5shNKU1V2Eh8aWtsYR+Q4Oi71tCnxO2W/YuMP0o8/NPR1"<br />                     "E2cmpfz0FqfcWYq+SD8TEqnMO9VedrSkO4oOhLE3Q5kA3aAaWEuOILDDmUWBB6OBgcGRIBAAHEz/"<br />                     "15zxXfgwCrbLYUB+0X2+VCtvHQ9FPKbzVMq3Q/p06t8ksCN2NTOfztDLHHEUC9N8b8p11O/ICBcX"<br />                     "6yCTHK31W6ryX8/ItCfTOauWr6tMVNoZcrfmVNertvTrrCRYifam3axkayXbihDtTfJ+DKraFN1H"<br />                     "LC52uflyMmMctPDceZmuW8ULAL9BG47XP7BzaaCq+MPOo658Tch7M5a4PyfJJZFbUIvGJoXakOLZ"<br />                     "B/l2WXbBW0KevPughUZc2y1S48zhxiL5qlDQrNLpdoUDEIL9kv36uS9Ok7lX+URZ7nuVDjjKnYuP"<br />                     "P5yUwj7ItSAekk/7TQOQjzHzI525+uFuADqG2afxTEYlIt9xQmFwSPCLeBwR0MORBkmUwgwnn+rm"<br />                     "pxA1r/faBNIpU5viNieDnI4/V81HWH2w4jC3XNlKZ8U0J7mRJFjd0BXSqbfYJpssEmAuXmDsXZAt"<br />                     "gQX6kWzAPUY2jQ8exSMFsBO+N2o39xcYutsANtBjDrCyst3hp5dfokuddaEpm9XNGvFtABgCSd+E"<br />                     "JXfIOKcJrkBJZsV07g2yniV08awNYUmIdbRAF6ipAIYyhefmj73hj2FXu8Dmma2DQfcep8bmuBFL"<br />                     "lUlWBd2/+3Spb3+Ud0luQDTmV87znBIv3HZoWyjV6Bo0OthXv4e3h7WHtoe5h7eHtge+B7wHuge4"<br />                     "B7YPmUYEu6NV8GKJijc4Q+xbHZ7MNvjpWtr1rJfYXi3wVxovXGkQNEodd1fv2STsV6/JPPe72DpX"<br />                     "7FdPQIIBLlx2SVsQvDP3H7Ixd4OSaFuIH/dW3+xZIcuSGTSGhdIRp1pkBtsDoEEwhU6zAe+OV7xv"<br />                     "vDLllfrlaecoL5HRBuUYRfdcaw0BnwFZZNSXEmRgKAZgtBdiWrLqJRUOWCzeHnPTHS8M3bwpVtuZ"<br />                     "3xZ7ompjKsbqVi04BkXTgezOOw+DKKIy6lVJiBFdjTX+YBE3vhfaP3wUF8F17vogJuzeIKfNNjwa"<br />                     "O2xyIMDs3ukxP2w0zlx3TQZvWz+Fo+z6fSY47M4wy1o1PEHw3zk634VRAM/aj9PbI7N0mouftnSa"<br />                     "iwUbf1fQjwyHw+xUGyZHJycnNy3bZlVRVc1peyfX5+zSoiBqI7yhOYQVsuz+XLKMWCYcNy65EcKI"<br />                     "nzg="<br />                    )<br />              c3d  (XDGL::Curve:ToCompositeCrv3d lst)<br />        )<br />        (dcl_project_import strl)<br />        (dcl_form_show lhight_form1)<br />        (while (setq p (getpoint "\nTest Point: "))<br />          (setq p1 (xdge::getpropertyvalue c3d "closestPointTo" p))<br />          (dcl_control_settext<br />            lhight_form1_tPoint<br />            (vl-princ-to-string (last p1))<br />          )<br />          (princ "\nHeight = ")<br />          (princ (last p1))<br />        )<br />        (if (dcl_form_isactive lhight_form1)<br />          (dcl_form_close lhight_form1)<br />        )<br />      )<br />   )<br />   (setq *error* olderr)<br />   (xdge::free)<br />   (princ)<br /> )<br />

非 XdGe 库版单条曲线查询

1. ;;线上查询
   
2. (defun c:tt (/ e p)
   
3.   (if (setq e (car (xdrx_entsel
   
4.                      "\nPick Curve: "
   
5.                      '((0 . "*line,arc,circle,ellipse"))
   
6.                    )
   
7.               )
   
8.       )
   
9.     (progn
   
10.       (xdrx_pickset_highlight e)
    
11.       (while (setq p (getpoint "\n测试点: "))
    
12.         (setq p (xdrx_curve_getclosestpoint e p))
    
13.         (princ "\n当前点高程 = ")
    
14.         (princ (last p))
    
15.       )
    
16.       (xdrx_pickset_highlight e t)
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )
    

;;线上查询<br /> (defun c:tt (/ e p)<br />   (if (setq e (car (xdrx_entsel<br />                      "\nPick Curve: "<br />                      '((0 . "*line,arc,circle,ellipse"))<br />                    )<br />               )<br />       )<br />     (progn<br />       (xdrx_pickset_highlight e)<br />       (while (setq p (getpoint "\n测试点: "))<br />         (setq p (xdrx_curve_getclosestpoint e p))<br />         (princ "\n当前点高程 = ")<br />         (princ (last p))<br />       )<br />       (xdrx_pickset_highlight e t)<br />     )<br />   )<br />   (princ)<br /> )<br />

指哪查哪，粗略查询

2. 
   
3. ;;点哪查哪，不精确
   
4. (defun c:tt1 (/ e)
   
5.   (while (setq e (xdrx_entsel
   
6.                    "\nPick Curve: "
   
7.                    '((0 . "*line,arc,circle,ellipse"))
   
8.                  )
   
9.          )
   
10.     (princ "\nHeight = ")
    
11.     (princ (last (apply 'xdrx_curve_getclosestpoint e)))
    
12.   )
    
13.   (princ)
    
14. )

<br /> ;;点哪查哪，不精确<br /> (defun c:tt1 (/ e)<br />   (while (setq e (xdrx_entsel<br />                    "\nPick Curve: "<br />                    '((0 . "*line,arc,circle,ellipse"))<br />                  )<br />          )<br />     (princ "\nHeight = ")<br />     (princ (last (apply 'xdrx_curve_getclosestpoint e)))<br />   )<br />   (princ)<br /> )

XDSoft

能否改用下 点监视器，鼠标动，就自动弹出那个位置的信息随着鼠标变化，就不用对话框了。

st788796

XDSoft 发表于 2014-10-13 21:08
能否改用下 点监视器，鼠标动，就自动弹出那个位置的信息随着鼠标变化，就不用对话框了。

就是在xdrx_pointmonitor回调函数中用dcl_control_setpos修改odcl位置，另外这样可以简化对话框仅用一个无标题栏的text或者就像在位编辑一样的textbox

XDSoft

st788796 发表于 2014-10-13 21:33
就是在xdrx_pointmonitor回调函数中用dcl_control_setpos修改odcl位置，另外这样可以简化对话框仅用一个 ...

不是，看看这个帖子， http://bbs.xdcad.net/thread-671343-1-2.html ， 不需要用对话框的。

eachy

XDSoft 发表于 2014-10-13 21:40
不是，看看这个帖子， http://bbs.xdcad.net/thread-671343-1-2.html ， 不需要用对话框的。

一直没有用过 xdrx_pointmonitor 这个用法，看了看信息查询程序，因为是动态点，所以在查询时不能精确捕捉

另外用这个方式时如果加载了实体信息查询会临时替换掉实体信息查询功能，也需要做一个开关

iLisp

use ID command

AxueLJ

学习学习！！！！

m0033m

不错，有用学习学习