请求大侠帮修改下，想有两种选择填充方式，一种是直接吸取内框填充另一种选择矩行填充

Aenda

qinleilei 发表于 2014-5-11 23:14
我一直在用这个，只有外部线条是封闭的才可以点内部点

(defun c:h1()

其实我那个就是点内部的，想有选封闭pl或者矩形填充的那种，有时候直接点内部会很卡

qinleilei

Aenda 发表于 2014-5-11 23:19
其实我那个就是点内部的，想有选封闭pl或者矩形填充的那种，有时候直接点内部会很卡

哦 这样呀！ 你那个文件我没有下载看的， 我一直用这个一点也不卡，觉得速度挺快的，工作中经常要用到填充，填充的类型也要不同，觉得用起来还行，

gaics

综合了楼上几位的程序，默认“选择对象”方式，按右键或空格切换到“拾取点”方式（视cad设置）。你自己再加个错误处理吧

1. (defun c:tt (/ s1 pt oldcolor snap)
   
2.   (setq oldcolor (getvar "cecolor"))
   
3.   (setq snap (getvar "osmode"))
   
4.   (setvar "cecolor" "250")
   
5.   (setvar "osmode" 0)
   
6.   (princ "默认“选择对象”方式，按右键或空格切换到“拾取点”方式：")
   
7.   (if (or (setq s1 (ssget)) (setq pt (getpoint)))
   
8.     (progn
   
9.       (if (/= s1 nil)
   
10.         (command "BHATCH" "p" "ansi31" "15" "0" "s" s1 "" "")
    
11.       )
    
12.       (if (/= pt nil)
    
13.         (command "BHATCH" "p" "ansi31" "15" "0" pt "")
    
14.       )
    
15.     )
    
16.   )
    
17.   (setvar "cecolor" oldcolor)
    
18.   (setvar "osmode" snap)
    
19.   (princ)
    
20. )

(defun c:tt (/ s1 pt oldcolor snap)<br />   (setq oldcolor (getvar "cecolor"))<br />   (setq snap (getvar "osmode"))<br />   (setvar "cecolor" "250")<br />   (setvar "osmode" 0)<br />   (princ "默认“选择对象”方式，按右键或空格切换到“拾取点”方式：")<br />   (if (or (setq s1 (ssget)) (setq pt (getpoint)))<br />     (progn<br />       (if (/= s1 nil)<br />         (command "BHATCH" "p" "ansi31" "15" "0" "s" s1 "" "")<br />       )<br />       (if (/= pt nil)<br />         (command "BHATCH" "p" "ansi31" "15" "0" pt "")<br />       )<br />     )<br />   )<br />   (setvar "cecolor" oldcolor)<br />   (setvar "osmode" snap)<br />   (princ)<br /> )

Aenda

gaics 发表于 2014-5-12 14:16
综合了楼上几位的程序，默认“选择对象”方式，按右键或空格切换到“拾取点”方式（视cad设置）。你自己再加 ...

不用不了耶  加载输入命令 提示未知命令  ，什么载加个错误处理呀？不懂耶

Aenda

gaics 发表于 2014-5-12 14:16
综合了楼上几位的程序，默认“选择对象”方式，按右键或空格切换到“拾取点”方式（视cad设置）。你自己再加 ...

谢谢你的热心帮助，经过修改 已经很不错了。 非常感谢

edata

1. (defun c:q(/ p lst ss)
   
2.   (vl-load-com)
   
3.    (setq lst '())
   
4.    (setq ss(ssget '((0 . "*line,arc,ellipse,circle"))))
   
5.    (if ss
   
6.      (progn
   
7.        (command "-HATCH" "p" "ansi31" "15" "0" "s" ss "" )
   
8.        (while(setq p(getpoint))(command p))
   
9.        (command "")
   
10.        )
    
11.      (progn
    
12.        (command "-HATCH" "p" "ansi31" "15" "0")
    
13.        (while(setq p(getpoint))(command p))
    
14.        (command "")
    
15.        )
    
16.      )     
    
17.   (vlax-put(vlax-ename->vla-object(entlast))'color 250)
    
18.    (princ)
    
19.    )

(defun c:q(/ p lst ss)<br />   (vl-load-com)<br />    (setq lst '())<br />    (setq ss(ssget '((0 . "*line,arc,ellipse,circle"))))<br />    (if ss<br />      (progn<br />        (command "-HATCH" "p" "ansi31" "15" "0" "s" ss "" )<br />        (while(setq p(getpoint))(command p))<br />        (command "")<br />        )<br />      (progn<br />        (command "-HATCH" "p" "ansi31" "15" "0")<br />        (while(setq p(getpoint))(command p))<br />        (command "")<br />        )<br />      )     <br />   (vlax-put(vlax-ename->vla-object(entlast))'color 250)<br />    (princ)<br />    )

gaics

Aenda 发表于 2014-5-12 20:36
谢谢你的热心帮助，经过修改 已经很不错了。 非常感谢

改了什么？

Aenda

gaics 发表于 2014-5-12 21:52
改了什么？

跟16楼很像，差不多..

Aenda

edata 发表于 2014-5-12 21:10

感谢您的热心帮助，写的很好，赞一个，也是我想要的效果，非常感谢

Aenda

edata 发表于 2014-5-12 21:10

感谢您的热心帮助，写的很好，赞一个，也是我想要的效果，非常感谢