CAD图章程序改善

lxy_2080

726613 发表于 2014-4-2 15:30
您的程序不能随当前图层，

你改下图块到0层

726613

bai2000 发表于 2014-4-2 18:50
最好可以框处图章的大小，字体要固定

谢谢您的建义

726613

您还没有达到程序要求

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url];; ElStamp 椭圆图章 (ElStamp p1 danwei neirong) (ElStamp (getpoint) "厦门瑞祺设计部" "作废图章")
   
3. (defun ElStamp (p1 danwei neirong / la p2 p3 rg s1 s2 s0)
   
4.   (setvar 'clayer (getvar 'clayer))
   
5.   (setvar 'CECOLOR "1")
   
6.   (xyp-Group0)
   
7.   (setq la (getvar 'clayer)
   
8.         p2 (xyp-Pt2Y p1 6)
   
9.         p3 (xyp-Pt2Y p1 -6)
   
10.         rq (rtos (getvar 'CDATE) 2 0)
    
11.         rq (strcat (substr rq 1 4) "." (substr rq 5 2) "." (substr rq 7 2) )
    
12.         s1 (xyp-Add-Ellipse p1 20 13)
    
13.   )
    
14.   (xyp-Offset s1 0.6 t nil nil)
    
15.   (setq s2 (entlast))
    
16.   (command "hatch" "solid" s1 s2 "")
    
17.   (xyp-erase (list s1 s2))
    
18.   (setq s0 (entlast))
    
19.   (xyp-Text 5 p2 danwei)
    
20.   (xyp-Text 5 p3 rq)
    
21.   (xyp-Text 5 p1 neirong)
    
22.   (xyp-SubUpd (xyp-SSelEntnext s0) '(40 41) '(2.5 1))
    
23.   (xyp-Group1)
    
24. )

;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url];; ElStamp 椭圆图章 (ElStamp p1 danwei neirong) (ElStamp (getpoint) "厦门瑞祺设计部" "作废图章")<br /> (defun ElStamp (p1 danwei neirong / la p2 p3 rg s1 s2 s0)<br />   (setvar 'clayer (getvar 'clayer))<br />   (setvar 'CECOLOR "1")<br />   (xyp-Group0)<br />   (setq la (getvar 'clayer)<br />         p2 (xyp-Pt2Y p1 6)<br />         p3 (xyp-Pt2Y p1 -6)<br />         rq (rtos (getvar 'CDATE) 2 0)<br />         rq (strcat (substr rq 1 4) "." (substr rq 5 2) "." (substr rq 7 2) )<br />         s1 (xyp-Add-Ellipse p1 20 13)<br />   )<br />   (xyp-Offset s1 0.6 t nil nil)<br />   (setq s2 (entlast))<br />   (command "hatch" "solid" s1 s2 "")<br />   (xyp-erase (list s1 s2))<br />   (setq s0 (entlast))<br />   (xyp-Text 5 p2 danwei)<br />   (xyp-Text 5 p3 rq)<br />   (xyp-Text 5 p1 neirong)<br />   (xyp-SubUpd (xyp-SSelEntnext s0) '(40 41) '(2.5 1))<br />   (xyp-Group1)<br /> )

crab3

没有e派工具箱。。。不好用啊

bai2000