adc 发表于 2011-4-27 10:25:55

全部填充自动后置

这个一个填充后置的例子(defun C:draworderback (/ ss)
(setq ss (ssget '((-4 . "<OR")(0 . "Hatch")(0 . "Solid")(-4 . "OR>"))))
(sssetfirst ss ss)
(ai_draworder "_B")
)

请问怎样才能改造成不需要选择范围，执行命令后自动全图范围内的填充全部后置，包括图块和外部参照中的填充，谢谢

adc 发表于 2011-5-1 12:46:35

坚持等

tiyi8888 发表于 2011-4-27 11:14:20

如何使用呀，能不能讲一下呢

adc 发表于 2011-4-28 14:56:43

自己顶一下

Andyhon 发表于 2011-4-28 15:18:06

(ssget ] )

XEntire database.
If you specify the X selection method
and do not provide a filter-list,
ssget selects all entities in the database,
including entities on layers that are off,
frozen, and out of the visible screen.

(ssget
自动全选==>
(ssget "X"

caoyin 发表于 2011-4-28 15:19:39

本帖最后由 caoyin 于 2011-4-28 15:20 编辑

HATCHTOBACK命令高版本CAD自带的
或者：
(defun C:draworderback (/ ss)
(if (setq ss (ssget "X" '((0 . "Hatch,Solid"))))
      (command "draworder" SS "" "_B")
)
)

adc 发表于 2011-4-28 18:36:36

谢谢楼上两位的热心，但是这样对块和外部参照中的填充不起作用，请问有没有其他的办法，多谢！

adc 发表于 2011-4-29 11:11:12

继续等答案，现在的做法只能是分别编辑块或外部参照，让其中的填充后置，如果数量比较多的时候有些麻烦，希望能得到解答。

teykmcqh 发表于 2011-4-30 17:53:13

看来是没有其它办法啦，呵呵

鲜菠萝 发表于 2011-5-5 13:10:43

非常感谢，很好用。
页: [1]
查看完整版本: 全部填充自动后置