仿别人的一个程序----源码！---更新第二个程序，在18楼

crazylsp

第二个程序希望能增加个中心线线型，且中心线在圆心和圆周上的线段不要是空的。

xingyun300

crazylsp 发表于 2012-8-10 11:31
第二个程序希望能增加个中心线线型，且中心线在圆心和圆周上的线段不要是空的。

什么意思，画个图我看看，不行我给你改改！！！

crazylsp

好，麻烦下你改了。

c735023723

xingyun300

哦，那是你线型的事，你线型是什么它标的就是什么线型，
这个是当前线型！

空谷藏

我平时都是建立边界的，试试

lisp爱好者

怎么建立边界？这个干嘛用的。
谢谢楼主分享

200853006

支持。。支持。。支持。。支持。。

王航

谢谢楼主分享！顶楼主！

xyp1964

2. 
   
3. ;; 圆心标注 伪源码需要e派工具箱(XCAD)的支持
   
4. ;; 画线方式
   
5. (defun c:tt1 ()
   
6.   (princ "\n框选欲标注圆心的圆: ")
   
7.   (setq i -1)
   
8.   (if (setq ss (ssget '((0 . "CIRCLE"))))
   
9.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.       (setq p0 (xyp-get-dxf 10 s1)
    
11.     rr (* (xyp-get-dxf 40 s1) 1.5)
    
12.       )
    
13.       (xyp-line (xyp-get-Pt2X p0 (- rr)) (xyp-get-Pt2X p0 rr))
    
14.       (xyp-line (xyp-get-Pt2y p0 (- rr)) (xyp-get-Pt2Y p0 rr))
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    
19. 
    
20. ;; 插块方式
    
21. (defun c:tt2 ()
    
22.   (xyp-add-block "xyp-szx")
    
23.   (princ "\n框选欲标注圆心的圆: ")
    
24.   (setq i -1)
    
25.   (if (setq ss (ssget '((0 . "CIRCLE"))))
    
26.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
27.       (setq p0 (xyp-get-dxf 10 s1)
    
28.     rr (* (xyp-get-dxf 40 s1) 0.03)
    
29.       )
    
30.       (xyp-InsertBlock p0 "xyp-szx" rr rr rr 45)
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )
    

<br /> ;; 圆心标注 伪源码需要e派工具箱(XCAD)的支持<br /> ;; 画线方式<br /> (defun c:tt1 ()<br />   (princ "\n框选欲标注圆心的圆: ")<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "CIRCLE"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq p0 (xyp-get-dxf 10 s1)<br />     rr (* (xyp-get-dxf 40 s1) 1.5)<br />       )<br />       (xyp-line (xyp-get-Pt2X p0 (- rr)) (xyp-get-Pt2X p0 rr))<br />       (xyp-line (xyp-get-Pt2y p0 (- rr)) (xyp-get-Pt2Y p0 rr))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;; 插块方式<br /> (defun c:tt2 ()<br />   (xyp-add-block "xyp-szx")<br />   (princ "\n框选欲标注圆心的圆: ")<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "CIRCLE"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq p0 (xyp-get-dxf 10 s1)<br />     rr (* (xyp-get-dxf 40 s1) 0.03)<br />       )<br />       (xyp-InsertBlock p0 "xyp-szx" rr rr rr 45)<br />     )<br />   )<br />   (princ)<br /> )<br />