分享一个xy不等比例缩放的源码

hubeiwdlue

    xy缩放是采用command方法写的，entmake方法是将图元列表读取出来，在块内在生成一次，但有时候填充图案会生成失败，不清楚什么原因。

liuhe

填充图案的每次生成，都要重新计算。solid除外。计算过程还跟像素有关。
Evaluate 方法



计算给定的图案填充或引线。

参阅 | 示例

语法

object.Evaluate

Object

Hatch, Leader
使用该方法的对象。

说明

Leader:计算引线与其相关注释的关系，如果需要的话更新引线几何形状。

Hatch: 用指定的填充图案计算填充对象的填充线型或实体。对于正规的填充图案，该方法执行在图案定义线和填充边界曲线之间交叉计算来形成填充线。对于实体填充图案，该方法执行填充区域的三角测量，并填入给定颜色的三角网格。

czb203

liuhe 发表于 2024-7-17 08:31
填充图案的每次生成，都要重新计算。solid除外。计算过程还跟像素有关。
Evaluate 方法

大佬，搞个范例，学习下

hubeiwdlue

liuhe 发表于 2024-7-17 08:31
填充图案的每次生成，都要重新计算。solid除外。计算过程还跟像素有关。
Evaluate 方法

谢谢流河大神的讲解，我对填充，属性块之类的很陌生，我学习研究下。

hubeiwdlue

liuhe 发表于 2024-7-17 08:31
填充图案的每次生成，都要重新计算。solid除外。计算过程还跟像素有关。
Evaluate 方法

流河大师，vla方法，好像在 entmake创建块内生成图元是不可行的。以下代码生成块失败，直线直接作为图元生成。

2. (setq MS (vla-get-modelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))
   
3. (entmake (list
   
4.            (cons '0 "BLOCK")
   
5.            (cons '2 "123");块名
   
6.            (cons '70 0)
   
7.            (cons '10 (list 0 0 0));基点
   
8.          )
   
9. )
   
10. ;;生成块内图元
    
11. (setq PT1 (vlax-3D-point '(0 0 0)))
    
12. (setq PT2 (vlax-3D-point '(10 0 0)))
    
13. (vla-AddLine MS pt1 pt2)
    
14. 
    
15. ;创建块结束
    
16. (setq blna (entmake (list (cons '0 "ENDBLK"))))

(setq MS (vla-get-modelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))<br /> (entmake (list<br />            (cons '0 "BLOCK")<br />            (cons '2 "123");块名<br />            (cons '70 0)<br />            (cons '10 (list 0 0 0));基点<br />          )<br /> )<br /> ;;生成块内图元<br /> (setq PT1 (vlax-3D-point '(0 0 0)))<br /> (setq PT2 (vlax-3D-point '(10 0 0)))<br /> (vla-AddLine MS pt1 pt2)<br /> <br /> ;创建块结束<br /> (setq blna (entmake (list (cons '0 "ENDBLK"))))

muai2010

感谢分享

zyx1029

只有特定用户才能下载这几天刚好需要这个工具！

笔墨纸砚

大哥 这个不等比例放完地面线 放到横断上 字体变吗？

hubeiwdlue

笔墨纸砚 发表于 2024-8-18 10:50
大哥 这个不等比例放完地面线 放到横断上 字体变吗？

会啊，其实就是插入块，xy方向比例不一样，然后炸开。

笔墨纸砚

hubeiwdlue 发表于 2024-8-18 12:24
会啊，其实就是插入块，xy方向比例不一样，然后炸开。

....  呃 不能再加一句 刷新字体大小吗