求助将直线角度刷给填充图案

无厘崖 · 发表于 2015-9-8 17:39:22

本帖最后由无厘崖于 2015-9-8 17:43 编辑

   刚学习lsp，想编写一个将直线或多段线倾斜角度刷给填充图案，类似与cad自带的特性匹配，但只匹配角度，其他如位置图层颜色等都不匹配。

程序功能：

   第一步选择直线或多段线；
   第二步选择填充图案并赋与角度；
   第三步可以连续选择下一个填充图案并赋与角度。

下面是自己编写的代码，功能不全而且不能运行，希望大师解决。
(defun c:suajiao(/ tline t-line thach t-hach tangle)
      (vl-load-com)
      (setq tline （car (entsel "\n选择直线")))
      (setq thach （car (entsel "\n选择填充图案")))
      (setq t-line (vlax-ename->vla-object tline)）
      (setq t-hach (vlax-ename->vla-object thach)）
      (setq tangle (vla-get-angle t-line))
      (vla-put-GradientAngle t-hach tangle)
)

xyp1964 · 发表于 2015-9-8 17:39:23

(defun c:tt ()
(setq ll (car (entsel "\n选择直线: "))
ht (car (entsel "\n选择填充图案: "))
rad (vla-get-angle (vlax-ename->vla-object ll))
ob (vlax-ename->vla-object ht)
)
(vla-put-PatternAngle ob rad)
(vla-Evaluate ob)
(princ)
)

无厘崖 · 发表于 2015-9-8 18:41:47

填充图案角度属性搞错了，现在修改GradientAngle属性为PatternAngle，可以实现将直线角度刷给填充图案，但还缺少将多段线角度刷给填充图案，及连续刷下一个填充图案功能。

无厘崖 · 发表于 2015-9-9 20:36:47

xyp1964 发表于 2015-9-8 17:39

院长的代码很精简，结构清晰，新人学习了，感谢！！

xyp1964 · 发表于 2015-9-10 13:03:28

;; tt(直线角度刷填充)
(defun c:tt ()
(setq ll (car (entsel "\n选择直线: "))
rad (vla-get-angle (vlax-ename->vla-object ll))
i -1
)
(princ "\n选择填充图案: ")
(setq ss (ssget '((0 . "HATCH"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ob (vlax-ename->vla-object s1))
(vla-put-PatternAngle ob rad)
(vla-Evaluate ob)
)
(princ)
)

无厘崖 · 发表于 2015-9-11 20:57:21

xyp1964 发表于 2015-9-10 13:03

功能又强了，够用了，感谢院长！！ssget选择集处理，搞不懂了

999999 · 发表于 2022-3-31 10:57:02

xyp1964 发表于 2015-9-8 17:39

,厉害了院长大人

账号		自动登录	找回密码
密码			注册

[提问] 求助将直线角度刷给填充图案

最佳答案

相关帖子