动态填充

KO你

求源码：
填充动态旋转  加上指定输入角度参数；
填充动态移动。

1291500406

Dynamic ToolPack Family         DynamicHatch V1.6.90210#TRINNOLOV3.2009

KO你

这是海龙工具箱里面的，但我想要源码，填充旋转可以动态跟着方向转，也可以指定角度

669423907

动态修改填充比例和角度的，但我使用时，无法输入值
http://bbs.mjtd.com/thread-110141-1-1.html

KO你

669423907 发表于 2019-1-23 10:03
动态修改填充比例和角度的，但我使用时，无法输入值
http://bbs.mjtd.com/thread-110141-1-1.html

这个我已经收藏过了，这个只是动态调整填充比例的，没有填充旋转

669423907

KO你 发表于 2019-1-23 10:43
这个我已经收藏过了，这个只是动态调整填充比例的，没有填充旋转

;(vla-put-patternangle obj (angle mpt p1));改角度
去掉前面的分号就可以了

KO你

669423907 发表于 2019-1-23 11:44
;(vla-put-patternangle obj (angle mpt p1));改角度
去掉前面的分号就可以了

不需要缩放比例，只需要旋转怎么编辑

xyp1964

1. (defun c:ddbl (/ s1)  (if (and (setq s1 (entsel "\n选择: "))
   
2.            (= (xyp-get-dxf 0 (car s1)) "HATCH")
   
3.       )
   
4.     (xyp-Grread-Change s1 "填充角度" 52 3)
   
5.   )
   
6.   (princ)
   
7. )

(defun c:ddbl (/ s1)  (if (and (setq s1 (entsel "\n选择: "))<br />            (= (xyp-get-dxf 0 (car s1)) "HATCH")<br />       )<br />     (xyp-Grread-Change s1 "填充角度" 52 3)<br />   )<br />   (princ)<br /> )

KO你

xyp1964 发表于 2019-1-23 18:47

错误: no function definition: XYP-GRREAD-CHANGE
运行不了

KO你

请G版大师帮帮忙