(XD::Hatch:GetGapByScl)获取填充平行线间的间距

newer

1. ;|
   
2. 获取填充平行线间的间距
   
3. 参数：
   
4.   name  ---- 模式名  如“ANSI31" ...
   
5.   scl   ---- 填充比例
   
6. 
   
7. 返回值：
   
8.   平行线间距 或NIL
   
9. 
   
10. |;
    
11. (defun XD::Hatch:GetGapByScl (name scl / a def gap)
    
12.   (xdrx_setmark)
    
13.   (and
    
14.     (/= (strcase name) "SOLID")
    
15.     (xdrx_hatch_make '(0.0 0.0 0.0) '(10.0 0.0 0.0) '(10.0 10.0 0) '
    
16.                      (0.0 10.0 0.0)
    
17.     )
    
18.     (xdrx_hatch_setPattern (entlast) name)
    
19.     (setq def (xdrx_hatch_patternDef (entlast))
    
20.           gap (sqrt (+ (* (setq a (cadr (assoc "OffsetX" (car def))))
    
21.                           a
    
22.                        ) (* (setq a (cadr (assoc "OffsetY" (car def))))
    
23.                             a
    
24.                          )
    
25.                     )
    
26.               )
    
27.     )
    
28.     (xdrx_entity_delete (xdrx_getss 9))
    
29.     (setq gap (* scl gap))
    
30.   )
    
31.   gap
    
32. )

;|<br /> 获取填充平行线间的间距<br /> 参数：<br />   name  ---- 模式名  如“ANSI31" ...<br />   scl   ---- 填充比例<br /> <br /> 返回值：<br />   平行线间距 或NIL<br /> <br /> |;<br /> (defun XD::Hatch:GetGapByScl (name scl / a def gap)<br />   (xdrx_setmark)<br />   (and<br />     (/= (strcase name) "SOLID")<br />     (xdrx_hatch_make '(0.0 0.0 0.0) '(10.0 0.0 0.0) '(10.0 10.0 0) '<br />                      (0.0 10.0 0.0)<br />     )<br />     (xdrx_hatch_setPattern (entlast) name)<br />     (setq def (xdrx_hatch_patternDef (entlast))<br />           gap (sqrt (+ (* (setq a (cadr (assoc "OffsetX" (car def))))<br />                           a<br />                        ) (* (setq a (cadr (assoc "OffsetY" (car def))))<br />                             a<br />                          )<br />                     )<br />               )<br />     )<br />     (xdrx_entity_delete (xdrx_getss 9))<br />     (setq gap (* scl gap))<br />   )<br />   gap<br /> )

tianyi1230

命令: XDTB_FastHatch ; 错误: no function definition: XD::LIST:FROMFILE
; 错误: no function definition: XDRX_DRAWING_PIXELBOX

XDSoft

tianyi1230 发表于 2013-12-4 17:21
命令: XDTB_FastHatch ; 错误: no function definition: XD:IST:FROMFILE
; 错误: no function definiti ...

执行论坛上的原创插件或者函数，请事先加载好XDRX API和晓东通用LISP函数库。

st788796

哪几个函数直接把选集放 9 房间了？