有大佬做个画矩形通的插件吗

675513233

需求例如：
选择基点:"))  ; 获取基点
  (setq rect_length (getreal "\n输入铝通的长度: "))  ; 获取矩形的长度
  (setq rect_width (getreal "\n输入铝通的宽度: "))  ; 获取矩形的宽度
  (setq offset (getreal "\n输入铝通厚度: "))  ; 获取偏移厚度
类似这样

qazxswk

你都写出一半了，另一半就不会写了？

2.   (defun c:11 (/  rect_length rect_width offset)
   
3.   (setq rect_length (getreal "\n输入铝通的长度: "))  ; 获取矩形的长度
   
4.   (setq rect_width (getreal "\n输入铝通的宽度: "))  ; 获取矩形的宽度
   
5.   (setq offset (getreal "\n输入铝通厚度: "))
   
6.   (vl-cmdf "rectang" (getpoint) "D" rect_length rect_width pause)
   
7.   (vla-offset (vlax-ename->vla-object (entlast)) offset)
   
8.   (princ))

  (defun c:11 (/  rect_length rect_width offset)<br />   (setq rect_length (getreal "\n输入铝通的长度: "))  ; 获取矩形的长度<br />   (setq rect_width (getreal "\n输入铝通的宽度: "))  ; 获取矩形的宽度<br />   (setq offset (getreal "\n输入铝通厚度: "))<br />   (vl-cmdf "rectang" (getpoint) "D" rect_length rect_width pause)<br />   (vla-offset (vlax-ename->vla-object (entlast)) offset)<br />   (princ))

寒潮大冬瓜

qazxswk 发表于 2025-1-5 01:11
你都写出一半了，另一半就不会写了？

很好→很棒！很好~很棒！！很好……很棒！！！

煮茗

qazxswk 发表于 2025-1-5 01:11
你都写出一半了，另一半就不会写了？

从行数来说确实是写出一半了。
从技术角度来说，是一半的一半。

完美

加两个command就差不多了

ssyfeng

来个entmake版的

675513233

qazxswk 发表于 2025-1-5 01:11
你都写出一半了，另一半就不会写了？

我自己后面写出来了，谢谢。你这个有个问题是要向内偏移哦

aws

遇到一个犀友。gh学的怎么样啦

675513233

aws 发表于 2025-1-8 12:37
遇到一个犀友。gh学的怎么样啦

从入门到放弃，哈哈