请问各位大侠谁有“对齐填充图案”的LSP啊（已解决，谢谢）

lingduwx

这个功能非常实用，可是俺还是不会写啊，希望高手们帮帮忙，先谢了
就是像这样的，第一个点拾取填充起点对齐，第二个点拾取方向对齐

ucuc2003

填充角度改成自动记忆的，个人比较喜欢批量的，改成批量的了

edata

1. ;调整填充基点及角度
   
2. ;2006以上支持快速基点修改
   
3. (vl-load-com)
   
4. (defun c:tt (/ p ss en obj ang)
   
5.   (if (setq ss (ssget ":E:S" '((0 . "hatch"))))
   
6.     (progn
   
7.       (setq en (ssname ss 0))
   
8.       (setq obj (vlax-ename->vla-object en))
   
9.       (if (vlax-property-available-p obj 'Origin)
   
10.         (setq p (getpoint "\n指定新的填充基点:"))
    
11.         (princ "\n该版本不支持快速更改填充基点....")
    
12.       )
    
13.       (setq ang (getangle "\n指定新的填充角度:"))
    
14.       (if p
    
15.         (vla-put-Origin
    
16.           obj
    
17.           (vlax-safearray-fill
    
18.             (vlax-make-safearray vlax-vbDouble '(0 . 1))
    
19.             (list (car p) (cadr p))
    
20.           )
    
21.         )
    
22.       )
    
23.       (if ang
    
24.         (vla-put-PatternAngle obj ang)
    
25.       )
    
26.       (vla-update obj)
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    

;调整填充基点及角度<br /> ;2006以上支持快速基点修改<br /> (vl-load-com)<br /> (defun c:tt (/ p ss en obj ang)<br />   (if (setq ss (ssget ":E:S" '((0 . "hatch"))))<br />     (progn<br />       (setq en (ssname ss 0))<br />       (setq obj (vlax-ename->vla-object en))<br />       (if (vlax-property-available-p obj 'Origin)<br />         (setq p (getpoint "\n指定新的填充基点:"))<br />         (princ "\n该版本不支持快速更改填充基点....")<br />       )<br />       (setq ang (getangle "\n指定新的填充角度:"))<br />       (if p<br />         (vla-put-Origin<br />           obj<br />           (vlax-safearray-fill<br />             (vlax-make-safearray vlax-vbDouble '(0 . 1))<br />             (list (car p) (cadr p))<br />           )<br />         )<br />       )<br />       (if ang<br />         (vla-put-PatternAngle obj ang)<br />       )<br />       (vla-update obj)<br />     )<br />   )<br />   (princ)<br /> )<br />

love1030312

你这意思是要旋转填充角度吗 ？？？

lingduwx

love1030312 发表于 2015-7-9 10:22
你这意思是要旋转填充角度吗 ？？？

就是想要这种效果，真是厉害啊大哥，可否把你那个工具共享一下，谢谢

cable2004

看看看看看

lingduwx

love1030312 发表于 2015-7-9 10:22
你这意思是要旋转填充角度吗 ？？？

忘了留邮箱，大侠方便的话麻烦发一个，谢谢，qq：381585181@qq.com

lucas_3333

edata 发表于 2015-7-9 16:44

E大, 貌似楼主的图是可以捕捉到填充的线条的

lingduwx

edata 发表于 2015-7-9 16:44

谢谢，真是解决了俺的一个大难题啊，呵呵

wyl605

学习一下

ucuc2003

edata 发表于 2015-7-9 16:44

请问edata大侠，变量 老版本 OSNAPHATCH,是指哪一版？新版 OSOPTIONS是从哪一版开始