请高手帮忙实现图中的功能

fjutcivil

................

Lisphk

楼主，打断这个WALL下面的DOTE线，做什么用的？

newer

用XDRX API给你写个，试试

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((8 . "wall") (0 . "LWPOLYLINE"))))
   
3.     (progn
   
4.       (xdrx_begin)
   
5.       (xdrx_setsstodb ss 0)
   
6.       (setq pboxh (XD::Doc:GetPickBoxHeight));;获得拾取框的高度
   
7.       (while (setq e (xdrx_getentdata 0))
   
8.         (setq pts (xdrx_entity_getStretchPoint e);;实体拉伸点
   
9.               p0 (car pts);;端点1
   
10.               p1 (last pts);;端点2
    
11.         )
    
12.         (mapcar
    
13.           '(lambda (x)
    
14.              (if (setq ss1 (xdrx_pickset_getAtPoint x pboxh 1 '((8 . "dote") (0 . "line"))));;构建过端点X，拾取框高度范围内，图层DOTE，实体是LINE 的选择集，放入数据库内部编号1的位置
    
15.                (progn
    
16.                  (while (setq e1 (xdrx_getentdata 1));;遍历房间1号内的选择集
    
17.                     (setq p (xdrx_curve_getclosestpoint e1 x));;取最近点保证在DOTE层线上
    
18.                     (xdrx_curve_getsplitcurves e1 x);;打断线
    
19.                  )
    
20.                )
    
21.              )
    
22.            )
    
23.           (list p0 p1)
    
24.         )
    
25.       )
    
26.       (xdrx_end)
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    
31. 
    
32. 
    

(defun c:tt ()<br />   (if (setq ss (ssget '((8 . "wall") (0 . "LWPOLYLINE"))))<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_setsstodb ss 0)<br />       (setq pboxh (XD::Doc:GetPickBoxHeight));;获得拾取框的高度<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq pts (xdrx_entity_getStretchPoint e);;实体拉伸点<br />               p0 (car pts);;端点1<br />               p1 (last pts);;端点2<br />         )<br />         (mapcar<br />           '(lambda (x)<br />              (if (setq ss1 (xdrx_pickset_getAtPoint x pboxh 1 '((8 . "dote") (0 . "line"))));;构建过端点X，拾取框高度范围内，图层DOTE，实体是LINE 的选择集，放入数据库内部编号1的位置<br />                (progn<br />                  (while (setq e1 (xdrx_getentdata 1));;遍历房间1号内的选择集<br />                     (setq p (xdrx_curve_getclosestpoint e1 x));;取最近点保证在DOTE层线上<br />                     (xdrx_curve_getsplitcurves e1 x);;打断线<br />                  )<br />                )<br />              )<br />            )<br />           (list p0 p1)<br />         )<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> <br />

波浪

为什么IE8看GIF图片很卡,点击开GIF图片放大也是慢动作,纠结!

newer

波浪 发表于 2013-8-27 22:50
为什么IE8看GIF图片很卡,点击开GIF图片放大也是慢动作,纠结!

那就换别的浏览器呗，我360安全浏览器，正常。

fjutcivil

newer 发表于 2013-8-27 22:42
用XDRX API给你写个，试试

版主，为什么我这边试了不行啊 cad2006

newer

fjutcivil 发表于 2013-8-27 22:56
版主，为什么我这边试了不行啊 cad2006

刚注册的朋友，先熟悉熟悉论坛，这个程序是用XDRX_API写的，看看论坛置顶的帖子，如何下载，如何加载XDRX_API。
加载XDRX API和晓东通用LISP函数库后，就可以用了。

fjutcivil

newer 发表于 2013-8-27 23:02
刚注册的朋友，先熟悉熟悉论坛，这个程序是用XDRX_API写的，看看论坛置顶的帖子，如何下载，如何加载XDRX ...

那个通用数据库我下载不了 怎么办 版主

newer

fjutcivil 发表于 2013-8-27 23:31
那个通用数据库我下载不了 怎么办 版主

1、 通用LISP函数库是编译成VLX，方便加载，执行快速的。 里面的所有函数的源码在 “函数发布”栏目里面都有，你可以先找一下程序里面XD::开头的，搜索论坛去下载源码。

2、 多发帖，一贴一个积分，50个积分很快的，当然别灌水，恶意灌水是要扣分的。

3、转些好的文章，版主奖励一个贡献是10个积分，一个威望是15个积分。

欢迎你常来，这里值得你来，也值得你为之付出，付出就有收获。

Free-Lancer

既然用选择，需要先行确保选择的wall层实体完全在屏幕内吧

newer

Free-Lancer 发表于 2013-8-28 04:30
既然用选择，需要先行确保选择的wall层实体完全在屏幕内吧

既然用户要拉窗口，那肯定已经是要在屏幕内了。

Free-Lancer

newer 发表于 2013-8-28 07:41
既然用户要拉窗口，那肯定已经是要在屏幕内了。

也是，窗口有 C 和 W ，长出屏幕的 C 到也没关系，拉进来再来一次！

lijiao

为什么要用打断（break）呢，不如用wipeout进行屏蔽。
理由：如果门需要换到其他位置或删除，你是不是还要去把墙线连起来，费事。

fjutcivil

newer 发表于 2013-8-28 07:41
既然用户要拉窗口，那肯定已经是要在屏幕内了。

版主，我用不了，能帮我先来个一般LISP的嘛？

lijiao

顺便问个小问题，因多年不来论坛了，论坛变化太大了，看见各位都有签到，请问在什么地方签到。