快速绘制细木工板.源码

鱼与熊掌

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

自贡黄明儒

说得很好，顶你

edata

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

xyp1964

;; 捧个场

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

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

鱼与熊掌

xyp1964 发表于 2014-5-25 00:02
;; 捧个场

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

鱼与熊掌

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

多谢指教~

hooboxu

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

hooboxu

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

hooboxu

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

hooboxu

激动了。鱼与熊掌 再麻烦一下，请问画现来的图形（木工板）可以在原来取点的基础上偏移3MM（木饰面）吗？
等您回复。谢谢