酷酷提 发表于 2022-4-27 15:46
命令: tt
; 错误: no function definition: UDIST
;; 距离输入格式化
;; 方式 : (setq dist1 (Udist 1 "" "距离" dist1 '(0 0)))
(defun Udist (bit kwd msg def bpt / inp)
(if def
(setq msg (strcat "\n" msg "<" (rtos def) ">: ")bit (* 2 (fix (/ bit 2))))
(setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (if bpt(getdist msg bpt)(getdist msg)))
(if inp inp def)
)
可以换种思路，也许会简单些：
xyp1964 发表于 2022-4-27 20:08
;; 距离输入格式化
;; 方式 : (setq dist1 (Udist 1 "" "距离" dist1 '(0 0)))
(defun Udist (b ...
老师这个莫非不是生成lsp文件吗?这次我直接不知道输入什么命令了。。。
先根据输入值画出画出矩形，在根据鼠标移动方向，以矩形的4顶点为基点粘贴(基点复制删除原矩形)
这个应该是定制柜子之类的用途。
现在用的大部分面漆板，都是18mm的厚度。
不过光只有这个命令，没有太大的用处，达不到太高的效率。
这种画柜子板的，最方便的方法，是画线，然后指定一个方向，将线偏移成矩形是最方便的。
基本上就是点1--点2画直线为板长度，点3指定偏移方向，输入一个板厚度值完成。这样是最适宜操作的。
rocking2008 发表于 2022-4-27 22:13
这种画柜子板的，最方便的方法，是画线，然后指定一个方向，将线偏移成矩形是最方便的。
基本上就是点1-- ...
最后我发现，最便捷的应该还是画线，画完以后然后统一用“内空转换为矩形”最方便，但是也有会用矩形画的时候
酷酷提 发表于 2022-4-28 00:10
最后我发现，最便捷的应该还是画线，画完以后然后统一用“内空转换为矩形”最方便，但是也有会用矩形画的 ...
内空转换，是个什么功能？
rocking2008 发表于 2022-4-28 09:56
内空转换，是个什么功能？
http://bbs.mjtd.com/thread-185324-1-1.html
这个，就是可以先全部画直线，然后后期转换为矩形
酷酷提 发表于 2022-4-28 09:58
http://bbs.mjtd.com/thread-185324-1-1.html
这个，就是可以先全部画直线，然后后期转换为矩形
那个C:NM的，好像和图片演示的不一样呀
你的内空转矩形的发我一下我看看。