求问晓东工具箱里面的填充挖洞命令怎么用？

shchwy · 发表于 2019-3-29 15:27:52

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

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

×

如题，我用填充挖洞命令想把中间的洞挖出来，结果提示参数类型错误。

请问有人能解释下是我使用的问题吗？选择方式是什么意思呢？

marting · 发表于 2019-3-29 22:59:22

http://bbs.xdcad.net/thread-715859-1-1.html
【API-拓扑（二）】关于填充实体处理的完全解决方案函数集

5 个回复 - 258 次查看

同ACAD的HATCH实体不同，经过API处理的HATCH，边界LOOP具有完备的“拓扑”关系。一、合并（MERGE） (xdrx_hatch_merge ) 二、拆离（DETACH） 1、指定点位置，拆出一个带独立拓扑关系的HATCH ...

2018-5-15 18:06 - newer - XDRX_API应用

newer · 发表于 2019-3-29 23:31:31

(defun c:ha_apploop (/ $set_data e ss ptl pl)
(defun $set_data (ss / sel ptl off_x)
(xdrx_initget 6 "O B")
(if (not (setq sel (getkword "\n选择方式[包围盒(B)/轮廓线(O)]<O>:")))
(setq sel "O")
)
(if (= sel "O")
(setq ptl (mapcar '(lambda(x)(xdrx_getsamplept x))(xdrx_pickset->ents (xdrx_searchoutline ss))))
(setq ptl (list (xdrx_entity_box ss)))
)
(if ptl
(progn
(initget 4)
(if (not (setq off_x (getreal "\n请输入便宜距离<0>:")))
(setq off_x 0)
)
(if (/= off_x 0)
(progn
(setq ptl (mapcar
'(lambda (x)
(apply
'xdrx_pointsoffset
(cons off_x x)
)
)
ptl
)
)
)
(progn
(if (= 1 (xdrx_yesorno "\n是否删除选择集<Y>"))
(xdrx_entity_delete ss)
)
)
)
)
)
ptl
)
(xdrx_begin)
(xdrx_sysvar_push "cmdecho")
(setvar "cmdecho" 0)
(if (and
(progn
(setq e (car (xdrx_entsel "\n请点取HATCH实体<退出>:" '((0 .
"hatch"
)
)
)
)
)
(redraw e 3)
t
)
(progn
(xdrx_initssget "\n选取要添加到HATCH环(挖洞)的实体<退出>:")
(setq ss (xdrx_ssget '((0 . "*line,arc,circle,ellipse"))))
)
)
(progn
(if (setq ptl ($set_data ss))
(progn
(mapcar
'(lambda (x)
(setq pl (xdrx_polyline_make x t))
(xdrx_setpropertyvalue e "appendloop" (list 1 (entlast)))
(xdrx_entity_delete pl)
)
ptl
)
)
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)

(defun c:ha_apploop (/ $set_data e ss ptl pl) 
  (defun $set_data (ss / sel ptl off_x) 
    (xdrx_initget 6 "O B") 
    (if (not (setq sel (getkword "\n选择方式[包围盒(B)/轮廓线(O)]<O>:"))) 
      (setq sel "O") 
    ) 
    (if (= sel "O") 
      (setq ptl (mapcar '(lambda(x)(xdrx_getsamplept x))(xdrx_pickset->ents (xdrx_searchoutline ss)))) 
      (setq ptl (list (xdrx_entity_box ss))) 
    ) 
    (if ptl 
      (progn 
        (initget 4) 
        (if (not (setq off_x (getreal "\n请输入便宜距离<0>:"))) 
          (setq off_x 0) 
        ) 
        (if (/= off_x 0) 
          (progn 
            (setq ptl (mapcar 
                        '(lambda (x) 
                           (apply 
                             'xdrx_pointsoffset 
                             (cons off_x x) 
                           ) 
                         ) 
                        ptl 
                      ) 
            ) 
          ) 
          (progn 
            (if (= 1 (xdrx_yesorno "\n是否删除选择集<Y>")) 
              (xdrx_entity_delete  ss) 
            ) 
          ) 
        ) 
      ) 
    ) 
    ptl 
  ) 
  (xdrx_begin) 
  (xdrx_sysvar_push "cmdecho") 
  (setvar "cmdecho" 0) 
  (if (and 
        (progn 
          (setq e (car (xdrx_entsel "\n请点取HATCH实体<退出>:" '((0 . 
                                                                    "hatch" 
                                                                 ) 
                                    ) 
                       ) 
                  ) 
          ) 
          (redraw e 3) 
          t 
        ) 
        (progn 
          (xdrx_initssget "\n选取要添加到HATCH环(挖洞)的实体<退出>:") 
          (setq ss (xdrx_ssget '((0 . "*line,arc,circle,ellipse")))) 
        ) 
      ) 
    (progn 
      (if (setq ptl ($set_data ss)) 
        (progn 
          (mapcar 
            '(lambda (x) 
               (setq pl (xdrx_polyline_make x t)) 
               (xdrx_setpropertyvalue e "appendloop" (list 1 (entlast))) 
               (xdrx_entity_delete pl) 
             ) 
            ptl 
          ) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (princ) 
)

kmliro_2017 · 发表于 2019-4-1 08:40:17

谢谢分享！！！！！

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

[求助] 求问 晓东工具箱里面的 填充挖洞 命令怎么用？

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

[求助] 求问晓东工具箱里面的填充挖洞命令怎么用？