Aenda 发表于 2014-5-11 15:58:23

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

求大侠帮助.....

lsjj 发表于 2014-5-11 22:12:54

(defun c:q (/ pt)
(vl-load-com)
(while (setq pt (getpoint "\n內部點:"))
    (command "BHATCH" "p" "ansi31" "15" "0" pt "")
    (vlax-put(vlax-ename->vla-object(entlast))'color 250)
)
(prin1)
)

Aenda 发表于 2014-5-11 22:25:38

本帖最后由 Aenda 于 2014-5-11 22:26 编辑

lsjj 发表于 2014-5-11 22:12 http://bbs.mjtd.com/static/image/common/back.gif
(defun c:q (/ pt)
(vl-load-com)
(while (setq pt (getpoint "\n內部點:"))


不对呀， 原来就是点内选填充的了 ， 我现在想增加多一种 ，就是可以选矩形后填充

lsjj 发表于 2014-5-11 22:42:29

你要不要先對照一下你原來的程序
已有的基礎下是否嘗試自己修改

xyp1964 发表于 2014-5-11 22:45:40

(defun c:tt (/ s1)
(setvar "cecolor" "250")
(while (setq s1 (car (entsel "\n选择: ")))
    (command "BHATCH" "p" "ansi31" "15" "0" "s" s1 "" "")
)
)

Aenda 发表于 2014-5-11 22:49:20

xyp1964 发表于 2014-5-11 22:45 static/image/common/back.gif


你这样又去掉原来的点选了 我要两个都有

Aenda 发表于 2014-5-11 22:50:46

lsjj 发表于 2014-5-11 22:42 static/image/common/back.gif
你要不要先對照一下你原來的程序
已有的基礎下是否嘗試自己修改

我不会呀   二次开发正想学。

xyp1964 发表于 2014-5-11 23:04:51

(defun c:tt (/ s1)
(setvar "cecolor" "250")
(command "BHATCH" "p" "ansi31" "15" "0")
)

qinleilei 发表于 2014-5-11 23:14:14

我一直在用这个，只有外部线条是封闭的才可以点内部点

(defun c:h1()
(setq echo (getvar "CMDECHO") )
(setvar "CMDECHO" 0 )
(command "-bhatch" "P" "ANSI31" "" "")
(setvar "cmdecho" echo)
(princ))

Aenda 发表于 2014-5-11 23:16:11

xyp1964 发表于 2014-5-11 23:04 static/image/common/back.gif


感谢您的热心帮助 ， 但还不是我想要的， 这样不够方便
页: [1] 2 3 4
查看完整版本: 请求大侠帮修改下，想有两种选择填充方式，一种是直接吸取内框填充另一种选择矩行填充