求助有没有可以绘制矩形管的小程序，如图所示，输入宽度，高度。和厚度就生成

vitalgg

如果无法播放，请点击此处在新窗口打开

http://atlisp.cn/package-info/at-lab-stable.html

@lisp 安装请至 http://atlisp.cn

1. (defun @lab:rec-tube (/ res w h )
   
2.   (@:help "绘制矩形管")
   
3.   (setq res (ui:input "请输入参数"
   
4.                       '(("Width" 200 "矩形管宽度")
   
5.                         ("Height" 300 "矩形管高度")
   
6.                         ("t" 10 "矩形管厚度"))))
   
7.   (while (setq pt (getpoint "请输入绘制位置:"))
   
8.     (setq w (* 0.5 (cdr (assoc "Width" res))))
   
9.     (setq h (* 0.5 (cdr (assoc "Height" res))))
   
10.     (setq t1  (cdr (assoc "t" res)))
    
11.     (entity:make-rectangle
    
12.      (polar (polar pt pi w)
    
13.             (* 1.5 pi) h)
    
14.      (polar (polar pt 0 w)
    
15.             (* 0.5 pi) h))
    
16. 
    
17.     (entity:make-rectangle
    
18.      (polar (polar pt pi (- w t1))
    
19.             (* 1.5 pi)  (-  h t1))
    
20.      (polar (polar pt 0 (- w t1))
    
21.             (* 0.5 pi) (-  h t1 )))))
    

(defun @lab:rec-tube (/ res w h )<br />   (@:help "绘制矩形管")<br />   (setq res (ui:input "请输入参数"<br />                       '(("Width" 200 "矩形管宽度")<br />                         ("Height" 300 "矩形管高度")<br />                         ("t" 10 "矩形管厚度"))))<br />   (while (setq pt (getpoint "请输入绘制位置:"))<br />     (setq w (* 0.5 (cdr (assoc "Width" res))))<br />     (setq h (* 0.5 (cdr (assoc "Height" res))))<br />     (setq t1  (cdr (assoc "t" res)))<br />     (entity:make-rectangle<br />      (polar (polar pt pi w)<br />             (* 1.5 pi) h)<br />      (polar (polar pt 0 w)<br />             (* 0.5 pi) h))<br /> <br />     (entity:make-rectangle<br />      (polar (polar pt pi (- w t1))<br />             (* 1.5 pi)  (-  h t1))<br />      (polar (polar pt 0 (- w t1))<br />             (* 0.5 pi) (-  h t1 )))))<br />

e2002

这种需求，参数化动态块最方便。

vitalgg

好好-MEN 发表于 2022-4-29 15:06
大师，你这是好用，但是我就画一个管，还得安装你这个大插件，有点繁重了

不用的插件可以不安装，只安装核心程序即可。

都不想安装的话，网站有需要的函数源码，你可以自己拼凑一个lsp文件。

自己拼凑，还是安装 @lisp . 都是需要花时间的。

http://atlisp.cn/function/entity:make-rectangle

xyp1964

1. (defun c:tt (); tt(矩形管)
   
2.   (defun Udist (bit kwd msg def bpt / inp)
   
3.   (if def
   
4.     (setq msg (strcat "\n" msg "<" (rtos def) ">: ")bit (* 2 (fix (/ bit 2))))
   
5.     (setq msg (strcat "\n" msg ": "))
   
6.   )
   
7.   (initget bit kwd)
   
8.   (setq inp (if bpt(getdist msg bpt)(getdist msg)))
   
9.   (if inp inp def)
   
10. )
    
11.   (setq ww (Udist 7 "" "宽度<输入或鼠标直接量取>" ww nil))
    
12.   (setq hh (Udist 7 "" "高度<输入或鼠标直接量取>" hh nil))
    
13.   (setq dd (Udist 7 "" "厚度<输入或鼠标直接量取>" dd nil))
    
14.   (while (setq p0 (getpoint "\n基点<退出>: "))
    
15.     (setq p1  (list (+ (car p0) ww) (+ (cadr p0) hh))
    
16.           p01 (list (+ (car p0) dd) (+ (cadr p0) dd))
    
17.           p11 (list (- (car p1) dd) (- (cadr p1) dd))
    
18.     )
    
19.     (command "Rectang" "non" p0 "non" p1)
    
20.     (command "Rectang" "non" p01 "non" p11)
    
21.   )
    
22.   (princ)
    
23. )
    

(defun c:tt (); tt(矩形管)<br />   (defun Udist (bit kwd msg def bpt / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (rtos def) ">: ")bit (* 2 (fix (/ bit 2))))<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (if bpt(getdist msg bpt)(getdist msg)))<br />   (if inp inp def)<br /> )<br />   (setq ww (Udist 7 "" "宽度<输入或鼠标直接量取>" ww nil))<br />   (setq hh (Udist 7 "" "高度<输入或鼠标直接量取>" hh nil))<br />   (setq dd (Udist 7 "" "厚度<输入或鼠标直接量取>" dd nil))<br />   (while (setq p0 (getpoint "\n基点<退出>: "))<br />     (setq p1  (list (+ (car p0) ww) (+ (cadr p0) hh))<br />           p01 (list (+ (car p0) dd) (+ (cadr p0) dd))<br />           p11 (list (- (car p1) dd) (- (cadr p1) dd))<br />     )<br />     (command "Rectang" "non" p0 "non" p1)<br />     (command "Rectang" "non" p01 "non" p11)<br />   )<br />   (princ)<br /> )<br />

bai0379

我的怎么用不起来啊