填充开矩形洞口

st788796

很简单功能

游客，如果您要查看本帖隐藏内容请回复

hahadang

回填看功能，能用pl线做么。

st788796

hahadang 发表于 2013-10-19 13:38
回填看功能，能用pl线做么。

呵呵 ，有线了直接 Trim

hahadang

st788796 发表于 2013-10-19 13:52
呵呵 ，有线了直接 Trim

有些填充图案剪切不掉。

q3_2006

这个很有意思！

清风明月10

路过学习学习。谢谢分享！

清风明月10

XD::BEGIN

缺少这个函数

newer

清风明月10 发表于 2013-10-19 15:49
XD::BEGIN

缺少这个函数

加载晓东LISP函数库。

清风明月10

谢谢“NEWER”,成功了

zytyd

这个好像很少见，谢谢

aeo

晓东api有hatch的编辑函数，可以开洞，而且开完洞可以再恢复

st788796

aeo 发表于 2013-10-19 23:27
晓东api有hatch的编辑函数，可以开洞，而且开完洞可以再恢复

谢谢提醒，忘了这个函数

1. (defun c:tt (/ e pts p)
   
2.   (if (setq e (car (xdrx_entsel "\nPick hatch: " '((0 . "hatch")))))
   
3.     (progn
   
4.       (while (setq p (if pts
   
5.          (getpoint (car pts) "\nPoint: ")
   
6.          (getpoint "\npoint: ")
   
7.        )
   
8.       )
   
9. (setq pts (cons p pts))
   
10. (mapcar '(lambda (x y) (grdraw x y 1)) pts (cdr pts))
    
11.       )
    
12.       (if pts
    
13. (apply 'xdrx_hatch_appendloop
    
14.         (cons e pts)
    
15. )
    
16.       )
    
17.       (redraw)
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    

(defun c:tt (/ e pts p)<br />   (if (setq e (car (xdrx_entsel "\nPick hatch: " '((0 . "hatch")))))<br />     (progn<br />       (while (setq p (if pts<br />          (getpoint (car pts) "\nPoint: ")<br />          (getpoint "\npoint: ")<br />        )<br />       )<br /> (setq pts (cons p pts))<br /> (mapcar '(lambda (x y) (grdraw x y 1)) pts (cdr pts))<br />       )<br />       (if pts<br /> (apply 'xdrx_hatch_appendloop<br />         (cons e pts)<br /> )<br />       )<br />       (redraw)<br />     )<br />   )<br />   (princ)<br /> )<br />

写诗天涯

简单但是实用的功能

zhuo2013

新人入论坛学习

金鹅起飞

谢谢楼主分享！这是好个的插件，特别是对填充后需要标注尺寸时，绝对是太方便了！谢谢！