拉线

麥芒HFD

求思路...............及用到的函数............

marting

把你的演示，同一个，往相反的方向拉下，看看生成的线什么样，做个图上来。

麥芒HFD

marting 发表于 2018-4-1 12:58
把你的演示，同一个，往相反的方向拉下，看看生成的线什么样，做个图上来。

好的，稍等...............

麥芒HFD

麥芒HFD 发表于 2018-4-1 13:00
好的，稍等...............

就是这样的................

newer

麥芒HFD 发表于 2018-4-1 13:20
就是这样的................

思路，就是，选择多段线后，判断多段线哪些顶点点对于你鼠标位置垂直方向可见
用API就几行代码就行了，都现成的函数


可见函数xd::pnts:visible 见：

(XD::Pnts:Visible)判断点表（多段线实体表）哪些点对一条直线可见

3 个回复 - 1047 次查看

2016-5-30 20:20 - newer - 开源函数库

随便画的图形，能体现可见关系。

1. (defun c:tt ()
   
2.   (defun _callback (dynpt)
   
3.     (redraw)
   
4.     (setq p1 dynpt
   
5.           p2 (polar p1 (/ pi 2.0) 1.0)
   
6.           vi (xd::pnts:visible (list pts) p1 p2)
   
7.     )
   
8.     (mapcar '(lambda (x)
   
9.                (setq prj (car (xd::pnts:orthoproject (list x) p1 p2)))
   
10.                (xdrx_grdraw 1 0 x prj)
    
11.              )
    
12.             vi
    
13.     )
    
14.   )
    
15.   (if (setq e (car (xdrx_entsel "\n选取多段线<退出>:" '((0 . "LWPOLYLINE")))))
    
16.     (progn (setq pts (xdrx_getpropertyvalue e "vertices"))
    
17.            (xdrx_pointmonitor "_callback")
    
18.            (getpoint)
    
19.            (xdrx_pointmonitor)
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    
24. 
    

(defun c:tt ()<br />   (defun _callback (dynpt)<br />     (redraw)<br />     (setq p1 dynpt<br />           p2 (polar p1 (/ pi 2.0) 1.0)<br />           vi (xd::pnts:visible (list pts) p1 p2)<br />     )<br />     (mapcar '(lambda (x)<br />                (setq prj (car (xd::pnts:orthoproject (list x) p1 p2)))<br />                (xdrx_grdraw 1 0 x prj)<br />              )<br />             vi<br />     )<br />   )<br />   (if (setq e (car (xdrx_entsel "\n选取多段线<退出>:" '((0 . "LWPOLYLINE")))))<br />     (progn (setq pts (xdrx_getpropertyvalue e "vertices"))<br />            (xdrx_pointmonitor "_callback")<br />            (getpoint)<br />            (xdrx_pointmonitor)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

marting

麥芒HFD 发表于 2018-4-1 13:20
就是这样的................

你用上面N版的那个形状的图形，你用你的程序拉下，看看 不可见的 那些点 给拉出来不？
如果也给拉出来，那实现思路就更容易些。

麥芒HFD

marting 发表于 2018-4-1 13:57
你用上面N版的那个形状的图形，你用你的程序拉下，看看 不可见的 那些点 给拉出来不？
如果也给拉出来， ...

好的，谢谢！

麥芒HFD

marting 发表于 2018-4-1 13:57
你用上面N版的那个形状的图形，你用你的程序拉下，看看 不可见的 那些点 给拉出来不？
如果也给拉出来， ...

不知道为什么？我这边加载后没用

麥芒HFD

newer 发表于 2018-4-1 13:44
思路，就是，选择多段线后，判断多段线哪些顶点点对于你鼠标位置垂直方向可见
用API就几行代码就行了， ...

非常感谢，不知道为什么，我这边加载后没用

newer

麥芒HFD 发表于 2018-4-1 14:29
非常感谢，不知道为什么，我这边加载后没用

确保加载的API是最新的。现在是2018.03.28

麥芒HFD

newer 发表于 2018-4-1 14:52
确保加载的API是最新的。现在是2018.03.28

我不懂API，不是lisp文件吗？或者说与lsp文件有什么区别呢？

newer

麥芒HFD 发表于 2018-4-1 14:55
我不懂API，不是lisp文件吗？或者说与lsp文件有什么区别呢？

下载安装

http://bbs.xdcad.net/source/plugin/disad/click.php?19

什么是API，看看里面帖子的介绍。
API就是写了一大堆的LISP函数，让你调用。但你用前，得先加载它。

麥芒HFD

newer 发表于 2018-4-1 15:16
下载安装

http://bbs.xdcad.net/source/plugin/disad/click.php?19

哦哦，好吧！我说我加载后怎么没用呢！

麥芒HFD

newer 发表于 2018-4-1 13:44
思路，就是，选择多段线后，判断多段线哪些顶点点对于你鼠标位置垂直方向可见
用API就几行代码就行了， ...

你好，可以加你微信或QQ吗？以后有问题方便请教！

sicky111

APl牛逼！