关于创建填充

lisp_beginner · 发表于 2016-9-13 10:36:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 lisp_beginner 于 2016-9-13 10:38 编辑

我是LISP新手，搜索了论坛也没找到方法，我想下面的代码做：
1、选择边界（封闭的多段线、矩形或者什么）
2、用定义的样式和比例创建一个关联的填充（由于可能有不同的样式，所以样式和比例定义了变量）
3、填充的实体要和边界实体在一个层。

但有问题，没能实现选内部点和创建在同一个层，请高手帮帮我，谢谢！

(defun c:WOOD (/)
(setq FILL "ANSI31")
(setq cmdold (getvar "CMDECHO"))
(setq oldlayer (getvar "CLAYER"))
(setvar "CMDECHO" 0)
(setq SC "5")
(setq ent (entsel))
(command "._-bhatch" "_P" FILL SC "0.0" "_S" ent "")
(setvar "CMDECHO" 1)
(setvar "CLAYER" oldlayer)
(princ)
)

newer · 发表于 2016-9-13 10:52:28

本帖最后由 newer 于 2016-9-13 10:53 编辑

欢迎来晓东CAD，
以后发代码的时候，
1、先用VLISP编辑器格式化代码，
2、然后手工把代码放在[#code=lisp][/code]之间，前面code前面的#不要（我要去掉，你看不到这个标签）或者把代码选中，点发帖界面的（下图），简单模式或者高级模式都有。
搜狗截图20160913104920.png

这样方便大家看代码。

lisp_beginner · 发表于 2016-9-13 11:01:22

newer 发表于 2016-9-13 10:52

谢谢N版，我知道了。

marting · 发表于 2016-9-13 11:42:50

试试

(defun c:tt (/ fill sc ss i sn)
(setq fill "ANSI31" ;;自己修改样式
sc 5. ;;自己修改比例
)
(if (setq ss (ssget '((0 . "LWPOLYLINE,POLYLINE"))))
(repeat (setq i (sslength ss))
(if (vlax-curve-isclosed (setq sn (ssname ss (setq i (1- i)))))
(progn
(command "_.-hatch" "_P" fill sc "0.0" "_S" sn "" "")
(entmod (subst (assoc 8 (entget sn))
(assoc 8 (entget (entlast)))
(entget (entlast))
)
)
)
)
)
(princ)
)
(princ)
)

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

[求助] 关于创建填充

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。