鱼与熊掌 发表于 2014-5-24 19:56:59

快速绘制细木工板.源码

本帖最后由 鱼与熊掌 于 2014-6-5 20:52 编辑

2014.6.5更新`.
`加入封闭线功能,
加入外框变矩形
'加入整个变成块功能.
加入比例,宽度不同间隙也将不同.




自贡黄明儒 发表于 2014-5-24 22:09:42

说得很好，顶你

edata 发表于 2014-5-24 23:03:57

发布前尽量调试排除bug，每一个程序需要新建一个dwg文件再次测试是否正常，有时候测试需要新建N个文件，目前有几个错。全局变量 **hd** 在初始化时需要给予数字或者先不用rtos转换。
其二，后面用到的变量需要检查是否为空，比如说，我们输入厚度后不指定第一点，那么后面会出现错误。
后面的程序需要考虑到这种情况。。。。。

xyp1964 发表于 2014-5-25 00:02:09

;; 捧个场;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF 访问密码 2ffa
;; zxgj-mgb(木工板)
(defun c:zxgj-mgb ()
(CMDLA0)
(xyp-initSet '(dist) '(18.))
(setq dist (Udist 7 "" "厚度<输入或鼠标直接量取>" dist nil))
(while (and (setq p1 (getpoint "\n基点<退出>: "))
            (setq p2 (getpoint p1 "\n基点<退出>: "))
         )
    (xyp-mgb p1 p2 dist)
)
(CMDLA1)
)

鱼与熊掌 发表于 2014-5-26 22:57:40

xyp1964 发表于 2014-5-25 00:02 static/image/common/back.gif
;; 捧个场

赞一个`````````````

鱼与熊掌 发表于 2014-5-26 22:59:41

edata 发表于 2014-5-24 23:03 static/image/common/back.gif
发布前尽量调试排除bug，每一个程序需要新建一个dwg文件再次测试是否正常，有时候测试需要新建N个文件，目前 ...

多谢指教~

hooboxu 发表于 2014-11-21 22:41:08

不错，楼主大大。就是有些小卡

hooboxu 发表于 2014-11-21 23:35:46

块的原因。不组块不卡了，好多了。谢谢。谢谢

hooboxu 发表于 2014-11-21 23:38:44

鱼与熊掌 有石膏板 玻璃带填充的速画法吗？可能我想多了……。

hooboxu 发表于 2014-11-21 23:43:50

激动了。鱼与熊掌 再麻烦一下，请问画现来的图形（木工板）可以在原来取点的基础上偏移3MM（木饰面）吗？
等您回复。谢谢
页: [1] 2
查看完整版本: 快速绘制细木工板.源码