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

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
(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

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

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

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

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

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

感谢您的热心帮助，但还不是我想要的，这样不够方便

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

点评

浏览过的版块