qinleilei 发表于 2014-5-11 23:14 static/image/common/back.gif
我一直在用这个，只有外部线条是封闭的才可以点内部点
(defun c:h1()
其实我那个就是点内部的，想有选封闭pl或者矩形填充的那种，有时候直接点内部会很卡
Aenda 发表于 2014-5-11 23:19 static/image/common/back.gif
其实我那个就是点内部的，想有选封闭pl或者矩形填充的那种，有时候直接点内部会很卡
哦 这样呀！ 你那个文件我没有下载看的， 我一直用这个一点也不卡，觉得速度挺快的，工作中经常要用到填充，填充的类型也要不同，觉得用起来还行，
本帖最后由 gaics 于 2014-5-12 15:56 编辑
综合了楼上几位的程序，默认“选择对象”方式，按右键或空格切换到“拾取点”方式（视cad设置）。你自己再加个错误处理吧
(defun c:tt (/ s1 pt oldcolor snap)
(setq oldcolor (getvar "cecolor"))
(setq snap (getvar "osmode"))
(setvar "cecolor" "250")
(setvar "osmode" 0)
(princ "默认“选择对象”方式，按右键或空格切换到“拾取点”方式：")
(if (or (setq s1 (ssget)) (setq pt (getpoint)))
(progn
(if (/= s1 nil)
(command "BHATCH" "p" "ansi31" "15" "0" "s" s1 "" "")
)
(if (/= pt nil)
(command "BHATCH" "p" "ansi31" "15" "0" pt "")
)
)
)
(setvar "cecolor" oldcolor)
(setvar "osmode" snap)
(princ)
)
gaics 发表于 2014-5-12 14:16 static/image/common/back.gif
综合了楼上几位的程序，默认“选择对象”方式，按右键或空格切换到“拾取点”方式（视cad设置）。你自己再加 ...
不用不了耶加载输入命令 提示未知命令，什么载加个错误处理呀？不懂耶
gaics 发表于 2014-5-12 14:16 static/image/common/back.gif
综合了楼上几位的程序，默认“选择对象”方式，按右键或空格切换到“拾取点”方式（视cad设置）。你自己再加 ...
谢谢你的热心帮助，经过修改 已经很不错了。 非常感谢
(defun c:q(/ p lst ss)
(vl-load-com)
(setq lst '())
(setq ss(ssget '((0 . "*line,arc,ellipse,circle"))))
(if ss
(progn
(command "-HATCH" "p" "ansi31" "15" "0" "s" ss "" )
(while(setq p(getpoint))(command p))
(command "")
)
(progn
(command "-HATCH" "p" "ansi31" "15" "0")
(while(setq p(getpoint))(command p))
(command "")
)
)
(vlax-put(vlax-ename->vla-object(entlast))'color 250)
(princ)
)
Aenda 发表于 2014-5-12 20:36 static/image/common/back.gif
谢谢你的热心帮助，经过修改 已经很不错了。 非常感谢
改了什么？
gaics 发表于 2014-5-12 21:52 static/image/common/back.gif
改了什么？
跟16楼很像，差不多..
edata 发表于 2014-5-12 21:10 static/image/common/back.gif
感谢您的热心帮助，写的很好，赞一个，也是我想要的效果，非常感谢
edata 发表于 2014-5-12 21:10 static/image/common/back.gif
感谢您的热心帮助，写的很好，赞一个，也是我想要的效果，非常感谢