帮忙看看怎么样实现这种快速填充

xiayuxue213 · 发表于 2017-5-25 14:11:29

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

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

×

要打到的目的：选取圆，自动填充对角。
我自己写的

(defun C:TC ()
(setvar "cmdecho" 0)
(setvar "hpassoc" 1)
(setvar "hpseparate" 1)
(command "HpName" "SOLID" "" )
(command "HpScale" 1)
(command "layer" "m" "8符号标注层" "")
(setvar "clayer" "8符号标注层" )
(command "BHATCH" "s" "" )
(princ)
)

每次都要先画好中心线，再选两次填充点，有点麻烦。

st788796 · 发表于 2017-5-25 14:49:35

(defun c:tt (/ pt->2d mkpl _pi2 _3pi bulge s e el sl p r)
(defun pt->2d (p)
(list (car p) (cadr p))
)
(defun mkpl (p r)
(entmakex (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(90 . 4)
'(70 . 1)
(cons 10 (pt->2d (polar p pi r)))
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(91 . 0)
(cons 10 (pt->2d (polar p 0.0 r)))
'(40 . 0.0)
'(41 . 0.0)
(cons 42 bulge)
'(91 . 0)
(cons 10 (pt->2d (polar p _pi2 r)))
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(91 . 0)
(cons 10 (pt->2d (polar p _3pi r)))
'(40 . 0.0)
'(41 . 0.0)
(cons 42 (- bulge))
'(91 . 0)
'(210 0.0 0.0 1.0)
)
)
)
(setq _pi2 (* pi 0.5)
_3pi (* pi 1.5)
bulge (/ (sin (/ pi 8)) (cos (/ pi 8)))
)
(if (setq ss (ssget '((0 . "circle"))))
(progn
(setq sl 0
s (ssadd)
)
(while (setq e (ssname ss sl))
(setq el (entget e)
p (cdr (assoc 10 el))
r (cdr (assoc 40 el))
sl (1+ sl)
)
(ssadd (mkpl p r) s)
)
(command ".hatch" "s" s "")
(command ".erase" s "")
)
)
(princ)
)

(defun c:tt (/ pt->2d mkpl _pi2 _3pi bulge s e el sl p r) 
  (defun pt->2d        (p) 
    (list (car p) (cadr p)) 
  ) 
  (defun mkpl (p r) 
    (entmakex (list '(0 . "LWPOLYLINE") 
                    '(100 . "AcDbEntity") 
                    '(100 . "AcDbPolyline") 
                    '(90 . 4) 
                    '(70 . 1) 
                    (cons 10 (pt->2d (polar p pi r))) 
                    '(40 . 0.0) 
                    '(41 . 0.0) 
                    '(42 . 0.0) 
                    '(91 . 0) 
                    (cons 10 (pt->2d (polar p 0.0 r))) 
                    '(40 . 0.0) 
                    '(41 . 0.0) 
                    (cons 42 bulge) 
                    '(91 . 0) 
                    (cons 10 (pt->2d (polar p _pi2 r))) 
                    '(40 . 0.0) 
                    '(41 . 0.0) 
                    '(42 . 0.0) 
                    '(91 . 0) 
                    (cons 10 (pt->2d (polar p _3pi r))) 
                    '(40 . 0.0) 
                    '(41 . 0.0) 
                    (cons 42 (- bulge)) 
                    '(91 . 0) 
                    '(210 0.0 0.0 1.0) 
              ) 
    ) 
  ) 
  (setq        _pi2  (* pi 0.5) 
        _3pi  (* pi 1.5) 
        bulge (/ (sin (/ pi 8)) (cos (/ pi 8))) 
  ) 
  (if (setq ss (ssget '((0 . "circle")))) 
    (progn 
      (setq sl 0 
            s  (ssadd) 
      ) 
      (while (setq e (ssname ss sl)) 
        (setq el (entget e) 
              p         (cdr (assoc 10 el)) 
              r         (cdr (assoc 40 el)) 
              sl (1+ sl) 
        ) 
        (ssadd (mkpl p r) s) 
      ) 
      (command ".hatch" "s" s "") 
      (command ".erase" s "") 
    ) 
  ) 
  (princ) 
)

xiayuxue213 · 发表于 2017-5-25 15:28:21

st788796 发表于 2017-5-25 14:49

谢谢！！！！！！！！！！！！！！！！！！！！！！！

newer · 发表于 2017-5-25 17:10:32

本帖最后由 newer 于 2017-5-25 18:15 编辑

xiayuxue213 发表于 2017-5-25 15:28

XDRX API写一个，批量处理，并且自动转成块实体，所有的圆都变成一个块定义，图纸小。
圆转块标记.gif

(defun c:tt ()
(defun _process (e)
(defun _makeblk (/ e)
(setq e (xdrx_circle_make (setq cen '(0 0 0)) 1.0)
pnts (xdrx_getsamplept e 5)
ge1 (xdge::constructor e)
ge2 (xdge::constructor e)
)
(xdge::setpropertyvalue ge1 "setinterval" 0.0 (/ pi 2.0))
(xdge::setpropertyvalue ge2 "setinterval" pi (/ (* pi 3.0) 2.0))
(setq l1 (xdge::constructor "kLineSeg3d" (nth 1 pnts) cen)
l2 (xdge::constructor "kLineSeg3d" cen (nth 2 pnts))
l3 (xdge::constructor "kLineseg3d" (nth 3 pnts) cen)
l4 (xdge::constructor "kLineseg3d" cen (last pnts))
pl (xdge::constructor
"kCompositecrv3d"
(list ge1 l1 l2 ge2 l3 l4)
)
)
(setq e1 (xdge::entity:make pl))
(xdge::free gl)
(setq e2 (xdrx_hatch_make e1))
(xdrx_block_make "blk-bj-1" (list e e2))
(xdrx_entity_delete e1 e e2) )
(xdrx_getpropertyvalue e "center" "radius")
(if (not (tblsearch "block" "blk-bj-1"))
(_makeblk)
)
(xdrx_insert_make "blk-bj-1" #center #radius)
(xdrx_entity_delete e)
)
(xdrx_begin)
(if (and (xdrx_initssget "\n选取要处理的圆<退出>:")
(setq ss (xdrx_ssget '((0 . "CIRCLE"))))
)
(progn
(mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss))
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (defun _process (e) 
    (defun _makeblk (/ e) 
      (setq e (xdrx_circle_make (setq cen '(0 0 0)) 1.0) 
            pnts (xdrx_getsamplept e 5) 
            ge1         (xdge::constructor e) 
            ge2         (xdge::constructor e) 
      ) 
      (xdge::setpropertyvalue ge1 "setinterval" 0.0 (/ pi 2.0)) 
      (xdge::setpropertyvalue ge2 "setinterval"        pi (/ (* pi 3.0) 2.0)) 
      (setq l1 (xdge::constructor "kLineSeg3d" (nth 1 pnts) cen) 
            l2 (xdge::constructor "kLineSeg3d" cen (nth 2 pnts)) 
            l3 (xdge::constructor "kLineseg3d" (nth 3 pnts) cen) 
            l4 (xdge::constructor "kLineseg3d" cen (last pnts)) 
            pl (xdge::constructor 
                 "kCompositecrv3d" 
                 (list ge1 l1 l2 ge2 l3 l4) 
               ) 
      ) 
      (setq e1 (xdge::entity:make pl)) 
      (xdge::free gl) 
      (setq e2 (xdrx_hatch_make e1)) 
      (xdrx_block_make "blk-bj-1" (list e e2)) 
      (xdrx_entity_delete e1 e e2)    ) 
    (xdrx_getpropertyvalue e "center" "radius") 
    (if        (not (tblsearch "block" "blk-bj-1")) 
      (_makeblk) 
    ) 
    (xdrx_insert_make "blk-bj-1" #center #radius) 
    (xdrx_entity_delete e) 
  ) 
  (xdrx_begin) 
  (if (and (xdrx_initssget "\n选取要处理的圆<退出>:") 
           (setq ss (xdrx_ssget '((0 . "CIRCLE")))) 
      ) 
    (progn 
      (mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss)) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

换种写法：

(defun c:tt ()
(defun _process (e)
(defun _makeblk (/ e)
(setq e (xdrx_circle_make (setq cen '(0 0 0)) 1.0)
bulge (- (/ 2 (sqrt 2.0)) 1.0)
pts (list '(1.0 0.0 0.0)'(0.0 1.0 0.0)'(0.0 0.0 0.0)'(-1.0 0.0 0.0)'(0.0 -1.0 0.0) '(0.0 0.0 0.0) '(1.0 0.0 0.0 ))
bulges (list bulge 0.0 0.0 bulge 0.0 0.0))
(setq e1 (xdrx_polyline_make pts bulges))
(setq e2 (xdrx_hatch_make e1))
(xdrx_block_make "blk-bj-1" (list e e2))
(xdrx_entity_delete e e1 e2)
)
(xdrx_getpropertyvalue e "center" "radius")
(if (not (tblsearch "block" "blk-bj-1"))
(_makeblk)
)
(xdrx_insert_make "blk-bj-1" #center #radius)
(xdrx_entity_delete e)
)
(if (and (xdrx_initssget "\n选取要处理的圆<退出>:")
(setq ss (xdrx_ssget '((0 . "CIRCLE"))))
)
(progn
(mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss))
)
)
(princ)
)

(defun c:tt () 
  (defun _process (e) 
    (defun _makeblk (/ e) 
      (setq e (xdrx_circle_make (setq cen '(0 0 0)) 1.0) 
            bulge (- (/ 2 (sqrt 2.0)) 1.0) 
            pts (list '(1.0 0.0 0.0)'(0.0 1.0 0.0)'(0.0 0.0 0.0)'(-1.0 0.0 0.0)'(0.0 -1.0 0.0) '(0.0 0.0 0.0) '(1.0 0.0 0.0 )) 
            bulges (list bulge 0.0 0.0 bulge 0.0 0.0)) 
      (setq e1 (xdrx_polyline_make pts bulges)) 
      (setq e2 (xdrx_hatch_make e1)) 
      (xdrx_block_make "blk-bj-1" (list e e2)) 
      (xdrx_entity_delete e e1 e2) 
    ) 
    (xdrx_getpropertyvalue e "center" "radius") 
    (if        (not (tblsearch "block" "blk-bj-1")) 
      (_makeblk) 
    ) 
    (xdrx_insert_make "blk-bj-1" #center #radius) 
    (xdrx_entity_delete e) 
  ) 
  (if (and (xdrx_initssget "\n选取要处理的圆<退出>:") 
           (setq ss (xdrx_ssget '((0 . "CIRCLE")))) 
      ) 
    (progn 
      (mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss)) 
    ) 
  ) 
  (princ) 
)

csharp · 发表于 2017-5-25 19:45:52

按1:1做一个块，循环插入圆心，半径为比例

xiayuxue213 · 发表于 2017-5-25 20:21:25

newer 发表于 2017-5-25 17:10

厉害，要是能过滤掉牙孔，和沉头孔只选择整数的光孔就好了。

newer · 发表于 2017-5-25 20:35:00

xiayuxue213 发表于 2017-5-25 20:21

别说那么多专业术语，单独发个帖子，用图说话，图上标明什么你想得到什么。
同时附上一个低版本保存的DWG，供帮你的朋友测试用。

xiayuxue213 · 发表于 2017-5-25 20:57:35

newer 发表于 2017-5-25 20:35

我的意思是上边那些都过滤掉，只选下面这种只有一个圆的，且直径是4 5 6 8的圆。

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

[求助] 帮忙看看怎么样实现这种快速填充

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