raimo 发表于 2012-5-30 22:11:10

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

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

raimo 发表于 2012-5-30 22:22:37

sachindkini 发表于 2012-5-30 15:04 static/image/common/back.gif
Dear Sir,
Nice code
some suggestion


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

vlisp2012 发表于 2012-5-31 19:28:17

很好的程序，多谢分享。

無恒的地盘 发表于 2012-5-31 19:57:47

本帖最后由 無恒的地盘 于 2012-5-31 19:58 编辑

(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 发表于 2012-6-9 19:52:52

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

smartstar 发表于 2012-6-10 10:01:57

谢谢谢楼主。

Nico 发表于 2012-6-24 09:17:49

好

raimo 发表于 2012-6-24 23:04:35

kwok 发表于 2012-6-9 19:52 static/image/common/back.gif
不能指定填充物的原点吧,

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

raimo 发表于 2012-6-26 07:46:30

本帖最后由 raimo 于 2012-6-26 07:49 编辑

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


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

smartstar 发表于 2012-6-26 08:09:30

楼主加油！！
页: 1 [2] 3 4
查看完整版本: 预设常用填充V1.1——用LISP来快速完成常用填充