[求助]：lisp怎样重绘hatch的边界？

chstart

我编的这个程序不完善，不能针对象圆形之类的填充，而且对多义线填充的图案进行重绘时也会出错。
求各位大侠帮我指点指点，小弟先谢过了！！
(defun c:test ( / pts)
  (setvar "cmdecho" 0)
  (setq BB (entget (car (entsel "\nSelect a Hatch Pattern: ")))
        a 0)
  (if (= "HATCH" (cdr (assoc '0 BB)))
   
    (progn
          (foreach i BB (if (= 10 (car i)) (setq pts (cons (cdr i) pts))))
        (setq pts (reverse Pts))
        (command "pline" (cadr pts));;;第一项为什么总是 (0 0 0)?
            (while (< a (length pts))
                  (command (nth a pts))
             (setq a ( + 1 a))
             )
        (command "close"  );;;出来的结果与原边界不同，最后的点有问题，而且好像加多了点。
    )
    (Prompt "\nThe entity is not Hatch pattern.")
   )
(princ)
)

XDSoft

最初由 chstart 发布
[B]我编的这个程序不完善，不能针对象圆形之类的填充，而且对多义线填充的图案进行重绘时也会出错。
求各位大侠帮我指点指点，小弟先谢过了！！
(defun c:test ( / pts)
  (setvar "cmdecho" 0)
  (setq BB (entget... [/B]

你用HATCH做关键字搜索下LISP论坛，记得以前有人贴过一个老外的LISP代码。

aeo

上面置顶lisp网站里有

lsjjm

http://www.xdcad.net/forum/showthread.php?threadid=161134
重建填充(hatch边界并求面积

chstart

长老，还是要麻烦你，求助几次了。
我的cad 14 运行这个lisp时会 cancle ，
vlax-make-safearray 这种东西好像都不能在r14里运行？到底怎么回事啊？谢谢了

lsjjm

你需要UPGRATE到R14.01以后版本或添加VLISP程序包.

chstart

多谢长老，14的vlisp里能运行，但会出错。在2000里可以了。
很有用的程序。

gdlwl

这个东西好象没什么用，重填一次不就有了吗？

三根毛

bploy 这个CAD命令能画出边线线

li809

我也想找一个这样的程序很久了，谁有好的发给baoshun01@163.com

secwolf

能画hatch边界对我很有用，最近碰到了绿地规划方面的cad图，以前是老的，现在道路修改，绿地也修改，结果以前的边界没有。我们要把有的重描有的修改，但是没有边界捕捉不到点。现在只能描又不准，特别需要得到图案填充的边界方面的方法或LISP程序。那位仁兄可有现成的LISP发给我secwolf@126.com，小弟不辞感谢！

狂刀

２００６命令支持ｈａｔｃｈ边界提取

baggio98

最初由 狂刀 发布
[B]２００６命令支持ｈａｔｃｈ边界提取 [/B]

有吗,,讲解一下.

狂刀

装上中文版后，按命令提示操作，如果你不会中文的话，怎么解释都没用，如果你会中文的话，怎么解释都是浪费。