lingduwx 发表于 2015-7-8 23:19:21

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

本帖最后由 lingduwx 于 2015-7-10 11:03 编辑

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


ucuc2003 发表于 2015-7-11 15:06:28

本帖最后由 ucuc2003 于 2015-7-11 15:38 编辑

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

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

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

love1030312 发表于 2015-7-9 10:22:09

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

lingduwx 发表于 2015-7-9 10:26:02

love1030312 发表于 2015-7-9 10:22 static/image/common/back.gif
你这意思是要旋转填充角度吗 ？？？

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

cable2004 发表于 2015-7-9 12:35:10

本帖最后由 cable2004 于 2015-7-9 13:07 编辑

看看看看看

lingduwx 发表于 2015-7-9 15:43:58

love1030312 发表于 2015-7-9 10:22 static/image/common/back.gif
你这意思是要旋转填充角度吗 ？？？

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

lucas_3333 发表于 2015-7-9 17:17:06

edata 发表于 2015-7-9 16:44 static/image/common/back.gif


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

lingduwx 发表于 2015-7-9 19:34:27

edata 发表于 2015-7-9 16:44 static/image/common/back.gif


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

wyl605 发表于 2015-7-10 06:32:59

学习一下

ucuc2003 发表于 2015-7-10 11:04:23

edata 发表于 2015-7-9 16:44 static/image/common/back.gif


请问edata大侠，变量 老版本 OSNAPHATCH,是指哪一版？新版 OSOPTIONS是从哪一版开始
页: [1] 2 3
查看完整版本: 请问各位大侠谁有“对齐填充图案”的LSP啊（已解决，谢谢）