预设常用填充V1.1——用LISP来快速完成常用填充

raimo

hf423 发表于 2012-5-30 19:25
有意思，地板贴出来的是我在百度文库发的，楼主稍加利用修改，其实关键函数MycadGetkword和左键双击反应器都 ...

原来那个文章是你发的，好像我是在百度文库里看到的。 因为平时时间不多，为了快点实现这个工具就想到直接用这个函数

raimo

sachindkini 发表于 2012-5-30 15:04
Dear Sir,
Nice code
some suggestion

Thanks for your reply.
1) different vocations have different drawing habits, I feel it's rather good to use  current layer as Hatch
2) adding dialog (DCL) is good suggestion.  Let me think  and study.. haha

vlisp2012

很好的程序，多谢分享。

無恒的地盘

(defun tianchong11 ()
(prompt "\nAR-CONC,指定内部点\n")
(setq pt (getpoint))
(command "BOUNDARY" pt "")
(setq eedel (entlast))
(command "area" "o" eedel)
(setq aa (getvar "area"))
(setq scale (setvar "HPSCALE" (sqrt (/ aa 250))))
(if (tblsearch "layer" "填充") ""
(command "layer" "New" "填充" "c" "250" "填充" ""))
;;;(setq oldcolor (getvar "cecolor"))
;;;(command "color" "250")
(command "hatch" "p" "AR-CONC" scale "0" "s" eedel "")
(command "change" (entlast) "" "P" "la" "填充" "")
(entdel eedel)
;;;(command "color" oldcolor)
(princ)
)


加了一个自动比例，可是有一个小问题，如果有两条边界线为什么只删一条咧，
比如：我在两个同心圆里面填充，只删除外的一个边界线，里面一个不删除，我想问一下“raimo”怎么样解决啊。如下图

kwok

不能指定填充物的原点吧,

smartstar

谢谢谢楼主。

Nico

  好

raimo

kwok 发表于 2012-6-9 19:52
不能指定填充物的原点吧,

指定原点，双击编辑一下不就行了

raimo

发布个我改好的v1.1版本给大家用
已经在我力所能及的范围内
重新设计并优化了代码，删除了原有拼凑部分，增加了记忆功能，提高使用方便性
谢谢大家的回复及使用，希望能对你的工作有一点小帮助


同时附上扩展过的填充文件，这样就不用改代码直接使用我预设好的填充图案了，直接覆盖掉CAD原有默认填充文件即可
（注意：如果你没用我附件里的填充文件，“木地板，木夹板，钢砼，木纹”几个无法使用，但你还是可以参照我的方法，自行修改代码为你自己常用的其他填充图案）

smartstar

楼主加油！！