继承填充

newer · 发表于 2018-9-29 00:57:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:xdtb_mkhawithprop (/ e i pt ss1 ss)
(if (setq
e (car (xdrx_entsel "\n拾取样本填充<退出>:" '((0 . "HATCH"))))
)
(progn
(xdrx_begin)
(setq i 0)
(while (and (xdrx_initget "S")
(setq pt (getpoint "\n拾取点[选择边界(S)]<退出>:"))
)
(cond ((= pt "S")
(if (and (xdrx_initssget "\n选择边界<返回>:")
(setq ss
(xdrx_ssget '((0 . "*polyline,arc,circle,ellipse")))
)
)
(setq ss1 (xdrx_hatch_make ss))
)
)
(t
(if (setq ss (bpoly pt))
(setq ss1 (xdrx_hatch_make ss))
)
)
)
(and ss1
(setq i (1+ i))
(xdrx_entity_matchprop
e
(xd::pickset:getsub ss1 '((0 . "hatch")))
)
)
)
(xdrx_prompt "\n生成了" i "个填充实体.")
(xdrx_end)
)
)
(princ)
)

(defun c:xdtb_mkhawithprop (/ e i pt ss1 ss) 
  (if (setq 
        e (car (xdrx_entsel "\n拾取样本填充<退出>:" '((0 . "HATCH")))) 
      ) 
    (progn 
      (xdrx_begin) 
      (setq i 0) 
      (while (and (xdrx_initget "S") 
                  (setq pt (getpoint "\n拾取点[选择边界(S)]<退出>:")) 
             ) 
        (cond ((= pt "S") 
               (if (and        (xdrx_initssget "\n选择边界<返回>:") 
                        (setq ss 
                               (xdrx_ssget '((0 . "*polyline,arc,circle,ellipse"))) 
                        ) 
                   ) 
                 (setq ss1 (xdrx_hatch_make ss)) 
               ) 
              ) 
              (t 
               (if (setq ss (bpoly pt)) 
                 (setq ss1 (xdrx_hatch_make ss)) 
               ) 
              ) 
        ) 
        (and ss1 
             (setq i (1+ i)) 
             (xdrx_entity_matchprop 
               e 
               (xd::pickset:getsub ss1 '((0 . "hatch"))) 
             ) 
        ) 
      ) 
      (xdrx_prompt "\n生成了" i "个填充实体.") 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

longer88 · 发表于 2018-9-29 01:32:27

感谢。。。下载学习

lixiaolin · 发表于 2018-9-29 08:18:26

感谢。。。下载学习

whdong76 · 发表于 2018-9-30 10:50:41

多谢分享...

再见熊猫衣服 · 发表于 2018-10-9 14:23:17

热切盼望晓东工具箱，早日支持浩辰CAD。。。
或者函数库能早日支持浩辰CAD

lz85031 · 发表于 2018-10-10 09:31:12

按论坛提提供的源程序制作了插件，加载后打开ACAD晓东工具箱就是没有出现该程序命令菜单。

douziid · 发表于 2019-2-17 16:28:26

gdfyhao · 发表于 2019-3-18 11:17:28

太实用了，比原生的填充少了好多步骤

wangcunshi · 发表于 2020-7-22 10:35:57

感谢楼主分享

M·R · 发表于 2020-8-6 02:21:15

多谢分享...

月下闲人 · 发表于 2020-8-10 22:24:25

(defun c:xdtb_mkhawithprop (/ e i pt ss1 ss) (if (setq e (car (xdrx_entsel "\n拾取样本填充<退出>:" '((0 . "HATCH")))) ) (progn (xdrx_begin) (setq i 0) (while (and (xdrx_initget "S") (setq pt (getpoint "\n拾取点[选择边界(S)]<退出>:")) ) (cond ((= pt "S") (if (and (xdrx_initssget "\n选择边界<返回>:") (setq ss (xdrx_ssget '((0 . "*polyline,arc,circle,ellipse"))) ) ) (setq ss1 (xdrx_hatch_make ss)) ) ) (t (if (setq ss (bpoly pt)) (setq ss1 (xdrx_hatch_make ss)) ) ) ) (and ss1 (setq i (1+ i)) (xdrx_entity_matchprop e (xd::pickset:getsub ss1 '((0 . "hatch"))) ) ) ) (xdrx_prompt "\n生成了" i "个填充实体.") (xdrx_end) ) ) (princ))

月下闲人 · 发表于 2020-8-10 22:25:33

我好像会用了，支持楼主，辛苦了

M·R · 发表于 2020-9-7 09:31:11

感谢。。。下载学习

XIAODONHUANGXUE · 发表于 2020-10-27 14:21:36

谢谢分享！！！！

1917732332 · 发表于 2020-10-28 08:20:51

感谢楼主分享

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

[填充] 继承填充

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。