窗口画叉

marting

1. (defun c:xdtb_drcross (/ yno box p1 p2)
   
2.   (xdrx-begin)
   
3.   (xdrx-sysvar-push '("osmode" 545))
   
4.   (xdrx-initget "Y N")
   
5.   (setq yno (xdrx-yesorno "\n是否绘制边界" 1))
   
6.   (while (and (setq p1 (getpoint "\n窗口第一点<退出>:"))
   
7.            (setq p2 (xd::doc:getcorner p1 "\n窗口第二点<退出>:" 8 nil))
   
8.       )
   
9.     (progn (setq box (xdrx-points-ucs2wcs (cadr p2)))
   
10.       (if (= yno 1)
    
11.         (xdrx-polyline-make box t)
    
12.       )
    
13.       (xdrx-line-make (car box)(nth 2 box))
    
14.       (xdrx-line-make (cadr box)(nth 3 box))
    
15.     )
    
16.   )
    
17.   (xdrx-sysvar-pop)
    
18.   (xdrx-end)
    
19.   (princ)
    
20. )
    
21. 
    

(defun c:xdtb_drcross (/ yno box p1 p2)<br />   (xdrx-begin)<br />   (xdrx-sysvar-push '("osmode" 545))<br />   (xdrx-initget "Y N")<br />   (setq yno (xdrx-yesorno "\n是否绘制边界" 1))<br />   (while (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 />       (if (= yno 1)<br />         (xdrx-polyline-make box t)<br />       )<br />       (xdrx-line-make (car box)(nth 2 box))<br />       (xdrx-line-make (cadr box)(nth 3 box))<br />     )<br />   )<br />   (xdrx-sysvar-pop)<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

137407536

还差一个门的开启方向

137407536

晓东通用LISP函数库2020.05.28加载完毕.
XDRX API自启动及实用程序加载完毕。
*************************************************
命令: XDTB_DRCROSS

是否绘制边界?<Yes>:

窗口第一点<退出>:
窗口第二点<退出>:
Application Error: 22 :- no function definition: xdrx-points-ucs2wcsADS 请求错误
命令:

好像缺少函数库

kmliro_2017

谢谢分享！！！！

音河之声

感谢楼主分享！！