社区 › Auto Lisp › 快速帮助？？？g实体图案填充

ktbjx 发表于 2022-7-5 17:31:41

快速帮助？？？g实体图案填充

有人知道用lisp把实体图案填充变成渐变球体图案填充吗？？？
我附上了一个我需要的dwg文件
实心到渐变。图纸

ktbjx 发表于 2022-7-5 18:11:35

哎哟没人打扰

pkenewell 发表于 2022-7-5 18:14:39

这应该让你开始。注意-无错误检查：
 
 

(defun c:GRH ( / doc i obj ss clr)
   (vl-load-com)
   (setq doc (vla-get-activedocument (setq acd (vlax-get-acad-object)))
         i 0
   )
   (if (setq ss (ssget '((0 . "HATCH"))))
      (repeat (sslength ss)
         (setq obj (vlax-ename->vla-object (ssname ss i))
               clr (vla-get-truecolor obj)
         )
         (vla-put-hatchobjecttype obj acGradientObject)
         (vla-put-gradientname obj "Spherical")
         (vla-put-gradientcolor1 obj clr)
         (vla-SetRGB clr 255 255 255)
         (vla-put-gradientcolor2 obj clr)
         (setq i (1+ i))
      )
   )
   (princ)
)

ktbjx 发表于 2022-7-5 18:48:19

 
非常感谢先生！这正是我们需要的！！！

查看完整版本: 快速帮助？？？g实体图案填充