关于画矩形的lsp，求大大优化一下呢

xyp1964

酷酷提 发表于 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)
)

669423907

可以换种思路，也许会简单些：

酷酷提

xyp1964 发表于 2022-4-27 20:08
;; 距离输入格式化      
;; 方式 : (setq dist1 (Udist 1 "" "距离" dist1 '(0 0)))
(defun Udist (b ...

老师这个莫非不是生成lsp文件吗?这次我直接不知道输入什么命令了。。。

669423907

先根据输入值画出画出矩形，在根据鼠标移动方向，以矩形的4顶点为基点粘贴(基点复制删除原矩形)

rocking2008

这个应该是定制柜子之类的用途。
现在用的大部分面漆板，都是18mm的厚度。
不过光只有这个命令，没有太大的用处，达不到太高的效率。

rocking2008

这种画柜子板的，最方便的方法，是画线，然后指定一个方向，将线偏移成矩形是最方便的。
基本上就是点1--点2画直线为板长度，点3指定偏移方向，输入一个板厚度值完成。这样是最适宜操作的。

酷酷提

rocking2008 发表于 2022-4-27 22:13
这种画柜子板的，最方便的方法，是画线，然后指定一个方向，将线偏移成矩形是最方便的。
基本上就是点1-- ...

最后我发现，最便捷的应该还是画线，画完以后然后统一用“内空转换为矩形”最方便，但是也有会用矩形画的时候

rocking2008

酷酷提 发表于 2022-4-28 00:10
最后我发现，最便捷的应该还是画线，画完以后然后统一用“内空转换为矩形”最方便，但是也有会用矩形画的 ...

内空转换，是个什么功能？

酷酷提

rocking2008 发表于 2022-4-28 09:56
内空转换，是个什么功能？

http://bbs.mjtd.com/thread-185324-1-1.html
这个，就是可以先全部画直线，然后后期转换为矩形

rocking2008

酷酷提 发表于 2022-4-28 09:58
http://bbs.mjtd.com/thread-185324-1-1.html
这个，就是可以先全部画直线，然后后期转换为矩形

那个C:NM的，好像和图片演示的不一样呀
你的内空转矩形的发我一下我看看。