窗口画洞

marting

1. (defun c:xdtb_drdong (/ p3 ang box p1 p2)
   
2.   (defun _callback (dynpt)
   
3.     (redraw)
   
4.     (xdrx-grdraw 8 -1 (car box) dynpt)
   
5.     (xdrx-grdraw 8 -1 dynpt (nth 2 box))
   
6.   )
   
7.   (xdrx-begin)
   
8.   (xdrx-sysvar-push '("osmode" 545))
   
9.   (if (and (setq p1 (getpoint "\n窗口第一点<退出>:"))
   
10.            (setq p2 (xd::doc:getcorner p1 "\n窗口第二点<退出>:" 8 nil))
    
11.       )
    
12.     (progn (setq box (xdrx-points-ucs2wcs (cadr p2)))
    
13.            (xdrx-pointmonitor "_callback")
    
14.            (if (setq p3 (getpoint "\n洞口位置<默认位置>:"))
    
15.              (progn
    
16.                (xdrx-polyline-make (car box) (trans p3 1 0) (nth 2 box))
    
17.              )
    
18.              (progn (setq v   (xdrx-vector-normalize (mapcar '- (cadr box) (nth 3 box)))
    
19.                           ang (angle (nth 3 box) (nth 2 box))
    
20.                           ang (+ (/ pi 4.0) (+ (* 3 (/ pi 2.0)) ang))
    
21.                           p3  (polar (nth 3 box)
    
22.                                      ang
    
23.                                      (*        (sqrt 2)
    
24.                                         (/ (min        (distance (car box) (nth 3 box))
    
25.                                                 (distance (car box) (cadr box))
    
26.                                            )
    
27.                                            5.0
    
28.                                         )
    
29.                                      )
    
30.                               )
    
31.                     )
    
32.                     (xdrx-polyline-make (car box) p3 (nth 2 box))
    
33.              )
    
34.            )
    
35.            (redraw)
    
36.            (xdrx-pointmonitor)
    
37.     )
    
38.   )
    
39.   (xdrx-sysvar-pop)
    
40.   (xdrx-end)
    
41.   (princ)
    
42. )
    
43. 
    

(defun c:xdtb_drdong (/ p3 ang box p1 p2)<br />   (defun _callback (dynpt)<br />     (redraw)<br />     (xdrx-grdraw 8 -1 (car box) dynpt)<br />     (xdrx-grdraw 8 -1 dynpt (nth 2 box))<br />   )<br />   (xdrx-begin)<br />   (xdrx-sysvar-push '("osmode" 545))<br />   (if (and (setq p1 (getpoint "\n窗口第一点<退出>:"))<br />            (setq p2 (xd::doc:getcorner p1 "\n窗口第二点<退出>:" 8 nil))<br />       )<br />     (progn (setq box (xdrx-points-ucs2wcs (cadr p2)))<br />            (xdrx-pointmonitor "_callback")<br />            (if (setq p3 (getpoint "\n洞口位置<默认位置>:"))<br />              (progn<br />                (xdrx-polyline-make (car box) (trans p3 1 0) (nth 2 box))<br />              )<br />              (progn (setq v   (xdrx-vector-normalize (mapcar '- (cadr box) (nth 3 box)))<br />                           ang (angle (nth 3 box) (nth 2 box))<br />                           ang (+ (/ pi 4.0) (+ (* 3 (/ pi 2.0)) ang))<br />                           p3  (polar (nth 3 box)<br />                                      ang<br />                                      (*        (sqrt 2)<br />                                         (/ (min        (distance (car box) (nth 3 box))<br />                                                 (distance (car box) (cadr box))<br />                                            )<br />                                            5.0<br />                                         )<br />                                      )<br />                               )<br />                     )<br />                     (xdrx-polyline-make (car box) p3 (nth 2 box))<br />              )<br />            )<br />            (redraw)<br />            (xdrx-pointmonitor)<br />     )<br />   )<br />   (xdrx-sysvar-pop)<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

kyky1002

多谢楼主分享

fyzld

多谢楼主分享

LXH刚开始

不错，看来大佬们大部分都是建筑行业的。

137407536

我这个是结合楼主之前分享的获取动态块填充进去的，缺点就是必须要有该动态块才能使用
终于盼到这个实用插件了

lxl217114

137407536 发表于 2020-6-1 10:37
我这个是结合楼主之前分享的获取动态块填充进去的，缺点就是必须要有该动态块才能使用
终于盼到这个实用 ...

这个插件不错，省去了部分手工调整部分

wangcunshi

多谢楼主分享

wangcunshi

插件很好用，感谢分享！

音河之声