动态修改填充角度

st788796

模仿了一个

2. 
   
3. (defun c:tt (/ myerr e _callback ha bp pt olderr ang)
   
4.   (defun myerr (msg)
   
5.     (xdrx_pointmonitor)
   
6.     (xdrx_setpropertyvalue ha "PatternAngle" ang)
   
7.     (princ)
   
8.   )
   
9.   (defun _callback (p)
   
10.     (xdrx_setpropertyvalue ha "PatternAngle" (angle p bp))
    
11.   )
    
12.   (setq        olderr        *error*
    
13.         *error*        myerr
    
14.   )
    
15.   (if (setq e (entsel))
    
16.     (progn
    
17.       (setq bp (cadr e)
    
18.             ha (car e)
    
19.             ang (xdrx_getpropertyvalue ha "PatternAngle")
    
20.       )
    
21.       (xdrx_pointmonitor "_callback")
    
22.       (if (setq pt (getpoint bp "\nAngle: "))
    
23.         (progn
    
24.           (xdrx_pointmonitor)
    
25.           (xdrx_setpropertyvalue
    
26.             ha
    
27.             (angle pt bp)
    
28.           )
    
29.         )
    
30.       )
    
31.     )
    
32.   )
    
33.   (setq *error* olderr)
    
34.   (xdrx_pointmonitor)
    
35.   (princ)
    
36. )

<br /> (defun c:tt (/ myerr e _callback ha bp pt olderr ang)<br />   (defun myerr (msg)<br />     (xdrx_pointmonitor)<br />     (xdrx_setpropertyvalue ha "PatternAngle" ang)<br />     (princ)<br />   )<br />   (defun _callback (p)<br />     (xdrx_setpropertyvalue ha "PatternAngle" (angle p bp))<br />   )<br />   (setq        olderr        *error*<br />         *error*        myerr<br />   )<br />   (if (setq e (entsel))<br />     (progn<br />       (setq bp (cadr e)<br />             ha (car e)<br />             ang (xdrx_getpropertyvalue ha "PatternAngle")<br />       )<br />       (xdrx_pointmonitor "_callback")<br />       (if (setq pt (getpoint bp "\nAngle: "))<br />         (progn<br />           (xdrx_pointmonitor)<br />           (xdrx_setpropertyvalue<br />             ha<br />             (angle pt bp)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (setq *error* olderr)<br />   (xdrx_pointmonitor)<br />   (princ)<br /> )

Lisphk

感谢大师分享，能不能做个动态修改比例的或者平行线间距

st788796

Lisphk 发表于 2019-1-31 10:13
感谢大师分享，能不能做个动态修改比例的或者平行线间距

图案填充是一个个"线"重复，平行线间距（图形单位）在  pat 文件中定义了，看到的间距就是 填充比例 x 这个定义的间距（图案单元）

如果使用填充表达一些精确尺寸，可以自定义实际尺寸的 pat 定义，也可以使用 期望的距离 和 pat 文件中定义的间距计算需要的填充比例

获取填充单元大小的图形单位大小可以使用

1. 
   
2. (xdrx_getpropertyvalue (entlast) "ParallelSpacing")
   

复制代码

st788796

*ANGLE,角钢
0, 0, 0, 0, 6.985, 5.08, -1.905
90, 0, 0, 0, 6.985, 5.08, -1.905

这个图案填充，定义的一个单元是 6.985 图形单位，如果想图案线间距为 100，那么

填充比例 = 100.0 / 6.985

gdfyhao

这种动态显示的效果看起来很是舒服

coverne

好好了解一下